62 lines
680 B
Plaintext
62 lines
680 B
Plaintext
;;; BY RMS AND GLS.
|
|
;;; TRY TO GUESS WHAT THESE ASSEMBLE, FOR ALL POSSIBLE VALUES
|
|
;;; OF FOO.
|
|
|
|
DEFINE SEMICOMMENT
|
|
IFE FOO,[;]TERMIN
|
|
|
|
SEMICOMMENT MOVE A,B ;MAYBE DO THIS
|
|
|
|
|
|
IFN FOO, .BYTE 0 ? ASCIZ /
|
|
MAYBE DO THIS
|
|
IFN 0,/ .BYTE
|
|
|
|
|
|
IFN FOO,["]
|
|
.ALSO ]
|
|
|
|
|
|
IFN FOO,[']BAR
|
|
.ALSO ]
|
|
|
|
|
|
IFN FOO,[SIXBIT ].ALSO ]
|
|
|
|
|
|
DEFINE MUM BLE
|
|
REPEAT 2,[BLE ]MUM
|
|
TERMIN
|
|
|
|
|
|
IFN FOO,[ DEFINE ALSO2 ]
|
|
.ALSO 2 TERMIN ]
|
|
|
|
|
|
IFN FOO,[EQUALS] .ALSO,.ELSE
|
|
|
|
|
|
IFN FOO,[DEFINE 2APPLY] .ALSO
|
|
.ALSO 2 TERMIN ]
|
|
|
|
|
|
IFN FOO,[DEFINE] .ELSE
|
|
.ALSO!TERMIN
|
|
|
|
|
|
IFN FOO,[.ELSE] MUMBLE
|
|
|
|
|
|
IFN FOO,[D]MOVN A,100
|
|
|
|
|
|
IFN FOO,[SIXBIT] DEFINED .ELSE [FOO
|
|
.ELSE [FOO]TERMIN] ;LOSES
|
|
|
|
|
|
EQUALS RPC,REPEAT
|
|
IFN FOO,[I]RPC 2,,34
|
|
.ALSO 2 TERMIN
|
|
|
|
|
|
|