.title quote .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 \$$,