Directory of image this file is from
This file as a plain text file
*20/CRUDS4 KCF=6030 TOTAL,0 BUFFER,1000 PAGES,0 PCHEK,0 CHRCNT,0 CNT,0 FLAG,0 POINTR,0 CHEK,0 *200 CLA TAD (1000) DCA BUFFER TLS TAD FLAG SZA JMP START TAD (-5200) DCA CNT TAD (BUFF1) DCA POINTR TAD (BUFF1) DCA FLAG CLEAR,CLA/CLEAR THE BUFFER TAD (40) DCA I POINTR ISZ POINTR ISZ CNT JMP CLEAR START,CLA CLL TAD BUFFER 6150 6151 CLA TAD BUFFER DCA POINTR JMP CHAR LINE,CLA CLL KSF 100 JMP .-1 KRB 100 AND (177) DCA PCHEK TAD PCHEK TAD (-12) SNA JMP NPAGE CLA CLL TAD PCHEK AND (1) SZA JMP ONE KSF 100 JMP .-1 KRB 100 AND (17) RTL RTL RTL TAD BUFFER DCA POINTR JMP CHAR ONE,CLA CLL KSF 100 JMP .-1 KRB 100 AND (17) RTL RTL RTL TAD (1200) TAD BUFFER DCA POINTR JMP CHAR PRINT,CLA/PRINT THE BUFFER TAD (40) DCA I POINTR 6152 TAD BUFFER DCA POINTR TAD (-2400) DCA TOTAL JMP NEWFRM LINEFD,CLA TAD (-100) DCA CHRCNT CHRKP,CLA TAD (200) TAD I POINTR 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 (254) DCA I POINTR KSF 100 JMP .-1 KRB 100 AND (177) DCA CHEK TAD CHEK/ CHECK FOR CONTROL-C=RETURN TO MONITOR TAD (-3) SZA JMP .+2 JMP END CLA TAD CHEK/CHECK FOR A LF=HARDCOPY OF PAGE TAD (-12) SZA JMP .+2 JMP PRINT CLA TAD CHEK/CHECK FOR A CR TAD (-15) SZA JMP .+4 TAD (40) DCA I POINTR JMP LINE CLA TAD CHEK/CHECK FOR A TAB TAD (-11) SZA JMP .+17 TAD (40) DCA I POINTR TAD (20) TAD POINTR DCA POINTR CLA CLL TAD (2000) TAD POINTR SNL JMP CHAR CLA TAD (5777) DCA POINTR JMP CHAR CLA TAD CHEK/CHECK FOR A RUBOUT TAD (-177) SZA JMP .+17 CLA TAD (40) DCA I POINTR TAD POINTR TAD (-1) DCA POINTR TAD POINTR TAD (-777) SZA JMP CHAR CLA TAD (BUFF1) DCA POINTR JMP CHAR CLA/DISPLAY CHARACTER TAD CHEK DCA I POINTR ISZ POINTR TAD POINTR TAD (-6000) SZA JMP CHAR TAD (5777) DCA POINTR JMP CHAR END,CLA/RETURN TO THE MONITOR TAD (40) DCA I POINTR 6152 JMP I (7600) *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 *1000 BUFF1,0 *3400 BUFF2,0 *6000 3000 $$$$$$$$$$$ $$$$$$$$$$
B@B:?0&< *>??:=*;1(1):/<;1*1;:<(/9;8< *41**17888/<;1*5178886/<:=1*5+:4:31+1*0!+0&+*+:20!+0&:10!+#0&+ C1 ?, ?6? D;?1*1>=< *+
:<< */;::< *9/8:7< *.96;5<*:4*:3< +:92