.TITLE DAMMIT .ENABLE LC .MCALL GTIM$S,QIOW$,DIR$ .MCALL EXIT$S ,GMCR$ PSOUT: QIOW$ IO.WLB,5,12,,,,<00,00,40> GTIMBF: .BLKW 8. GETMCR: GMCR$ BEGIN: DIR$ #GETMCR GTIM$S #GTIMBF MOV GTIMBF+4,R1 MUL #24.,R1 ADD GTIMBF+6,R1 MUL #60.,R1 ADD GTIMBF+10,R1 BIC #100000,R1 MOV R1,R0 CLR R1 MUL #60.,R0 ADD GTIMBF+12,R1 ADC R0 DIV #NNN,R0 ASL R1 MOV TAB(R1),R3 MOV (R3)+,PSOUT+Q.IOPL+2 MOV R3,PSOUT+Q.IOPL DIR$ #PSOUT EXIT$S .MACRO TT B,STRING S'B': .WORD L'B' .ASCII \STRING\ L'B'= .-S'B'-2 $$= $$+1 .EVEN .ENDM $$= 0 TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$,<15>\(Write Only Memory)> TT \$$, TT \$$,<15>\the police and had my CPU arrested.> TT \$$,<15>\returned as imaginary.> TT \$$,<15>\terminal usage;Such language!> TT \$$,<15>\nano-jiffy?> TT \$$,<15>\on your keyboard.> TT \$$,<15>\an entire new operating system.> TT \$$,<15>\per hand!> TT \$$,<15>\per hand!> TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, TT \$$, NNN=$$ .MACRO TENT C .WORD S'C' $$$=$$$+1 .ENDM $$$=0 TAB: .REPT $$ TENT \$$$ .ENDM .END BEGIN