Created
March 11, 2026 16:36
-
-
Save larsbrinkhoff/537bcd326e8fb53c26f86c55bf2aed7a to your computer and use it in GitHub Desktop.
ITS program to compute "Meaning of Life, Univerfse, and Everything"
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| TITLE Meaning of Life, Universe, and Some More | |
| ;Only AI code used was from MIT-AI. | |
| A==1 | |
| B==2 | |
| P==17 | |
| TYOC==1 | |
| PDLLEN==10 | |
| GO: MOVE P,[-PDLLEN,,PDL-1] | |
| .OPEN TYOC,[.UAO,,'TTY] | |
| .LOSE %LSSYS | |
| MOVEI A,[ASCIZ /The Meaning of Life, Universe, and Everything is... /] | |
| PUSHJ P,ASCOUT | |
| MOVEI A,100. | |
| .SLEEP A, | |
| PUSHJ P,MEANING ;Intense computation goes here. | |
| PUSHJ P,DECOUT | |
| .LOGOUT 1, | |
| MEANING: | |
| HRRZ A,.+1 | |
| POPJ P,52 | |
| ASCOUT: HRLI A,440700 | |
| ASCOU1: ILDB B,A | |
| JUMPE B,[POPJ P,] | |
| .IOT TYOC,B | |
| JRST ASCOU1 | |
| DECOUT: IDIVI A,10. | |
| JUMPE A,DECOU1 | |
| PUSH P,B | |
| PUSHJ P,DECOUT | |
| POP P,B | |
| DECOU1: ADDI B,"0 | |
| .IOT TYOC,B | |
| POPJ P, | |
| PDL: BLOCK PDLLEN | |
| END GO |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment