Directory of image this file is from
This file as a plain text file
240) KSF 100 JMP .+3 KCF 100 JMP START TSF JMP .-1 TLS ISZ POINTR ISZ TOTAL JMP .+2 JMP START ISZ CHRCNT JMP CHRKP NEWFRM,CLA TAD (215) TSF JMP .-1 TLS CLA TAD (212) TSF JMP .-1 TLS JMP LINEFD *400 CHAR, CLA CLL/GET NEW CHARACTER TAD (337) DCA I POINTR KSF 100 JMP .-1 KRB 100 AND (177) DCA CHEK TAD CHEK/ CHECK FOR CONTROL-C=RETURN TO MONITOR TAD (-3) SNA CLA JMP END TAD CHEK/CHECK FOR A LF=HARDCOPY OF PAGE TAD (-12) SNA CLA JMP PRINT TAD CHEK/CHECK FOR A CR TAD (-15) SZA CLA JMP .+4 TAD (40) DCA I POINTR JMP LINE TAD CHEK/CHECK FOR A TAB TAD (-11) SZA CLA JMP .+31 TAD (40) DCA I POINTR TAD POINTR AND (17) SNA JMP .+6 CIA AND (17) TAD POINTR DCA POINTR JMP .+5 CLA TAD (20) TAD POINTR DCA POINTR CLA CLL TAD (2000) TAD POINTR SNL JMP CHAR CLA TAD (5777) DCA POINTR JMP CHAR TAD CHEK/CHECK FOR A RUBOUT TAD (-177) SZA CLA JMP .+15 TAD (40) DCA I POINTR TAD POINTR TAD (-1) DCA POINTR TAD POINTR TAD (-777) SZA CLA JMP CHAR TAD (BUFF1) DCA POINTR JMP CHAR TAD CHEK/DISPLAY CHARACTER DCA I POINTR ISZ POINTR TAD POINTR TAD (-6000) SZA JMP CHAR TAD (5777) DCA POINTR JMP CHAR END,TAD (40)/FETCH AND STORE BUFFERS DCA I POINTR 6152 CDF 10 CIF 10 JMP I (200) *600 NPAGE,CLA CLL KSF 100 JMP .-1 KRB 100 AND (177) DCA PAGES TAD PAGES TAD (-60) SZA JMP .+5 CLA TAD (BUFF1) DCA BUFFER JMP START CLA TAD (BUFF2) DCA BUFFER JMP START *700 BLANK,CLA TAD POINTR DCA TEMP ISZ POINTR TAD POINTR AND (77) SNA CLA JMP BLKFIX TAD I POINTR TAD (-40) SNA CLA JMP BLANK+3 TAD TEMP DCA POINTR JMP CHRKP+6 BLKFIX,TAD TEMP CIA TAD POINTR TAD TOTAL SNA JMP START DCA TOTAL JMP NEWFRM *1000 BUFF1,0 *3400 BUFF2,0 *6000 3000 FIELD 1 *20 NEXTC,0 *200 NEXT,CLA CLL KSF 100 JMP .-1 KRB 100 AND (177) DCA NEXTC TAD NEXTC TAD (-123) SNA CLA JMP I (400) TAD NEXTC TAD (-122) SNA CLA JMP I (1000) CDF 00 CIF 00 JMP I (200) $$$$$$$$$$$ $$$$$$$$$$