Directory of image this file is from
This file as a plain text file
*20 /// MAKTAP /PROGRAM TO RUN UNDER DIAL & MAKE /A PAPERTAPE CONTAINING A LIST OF /8 BIT NUMBERS. / / TSF=6041 TLS=6046 BEG, HLT /**PAUSE SET I 11 -14 /LOOPING CNTR DOIT, SET I 7 /PNTR LST-1 SET I 10 /LIST LST-LSTEND-1 IOB TLS NXT, LDA I 7 /GET A VALUE IOB /TYPE IT TLS IOB /WAIT FOR FLAG TSF JMP .-2 XSK I 10 /DUN? JMP NXT /MORE XSK I 11 /DUN LOOPING JMP DOIT /ANOTHER LOOP JMP BEG /DUN /LIST OF NUMBERS TO BE TYPED OUT. DECIMAL LST, 255 250 0 200 51 150 100 0 250 24 51 224 151 100 0 200 50 151 224 24 175 174 74 124 224 0 225 24 250 50 175 150 124 201 50 74 224 100 150 125 250 0 150 74 174 50 124 0 201 74 74 LSTEND, 255 OCTAL ///END MAKTAP.