/ CONVERSION ROUTINE FOR BIN TO CBL /C.A. KAPPS *1000 BEG, KCC TAD LNGT /PUNCH LEADER DCA CONT TAD LDR LPN, TLS TSF JMP .-1 ISZ CONT JMP LPN DCA ADR /200 TAD BUFA /BUF DCA CONL TAD MAX /-200 DCA LCNT BEGN, KCC DCA CKSM JMS BEGG JMP .-1 GO, KRB DCA CHA GOP, TAD CHA DCA CKT TAD CHA RTL CLL RTL RTL KSF JMP .-1 KRS DCA WORD KRB TAD CKT DCA CKT JMS BEGG JMP I EEND1 END3, SNL /CHECK CHANNEL 7 JMP DATA ORIG, KRB DCA CHA TAD CONT /CHECK ANY INFO YET SNA JMP NOPH DCA I BUF1 TAD ADR DCA I BUFB JMS I PNH /PUNC /PAGE 2 NOPH, TAD WORD DCA ADR /NEW ORIG DCA CONT TAD MAX DCA LCNT TAD BUFA DCA CONL JMP CHEX DATA, KRB DCA CHA TAD WORD DCA I CONL ISZ CONL ISZ CONT ISZ LCNT JMP CHEX TAD CONT DCA I BUF1 TAD ADR DCA I BUFB JMS I PNH TAD ADR TAD CONT DCA ADR /MOVE ADDRESS UP DCA CONT TAD MAX DCA LCNT TAD BUFA DCA CONL CHEX, TAD CKT /UPDATE CHECKSUM TAD CKSM DCA CKSM JMP GOP END2, TAD CONT SNA JMP NFP DCA I BUF1 TAD ADR DCA I BUFB JMS I PNH NFP, TAD LNGT /PUNCH TRAILER DCA CONT FLP, JMS I PP ISZ CONT JMP FLP TAD CKSM CIA TAD WORD HLT /AC=0, CKSM OK JMP BEG /PAGE 3 BEGG, 0 KSF JMP .-1 KRB AND CON SNA CLA ISZ BEGG JMP I BEGG PNH, PUNC LNGT, -100 /LEADER LENGTH CONT, 0 /OLD COUNT LDR, 200 CON=LDR ADR, 0 /OLD ORIG BUFA, BUF CONL, 0 MAX, -200 LCNT, 0 CKSM, 0 /TOTAL CHECKSUM CKT, 0 /SUM OF 2 LINES WORD, 0 CHA, 0 BUF1, BUF-1 BUFB, BUF-2 PP, P EEND1, END1 /PAGE 4 *1200 PUNC, 0 CLA CLL TAD BUF-1 CIA DCA BUF-1 TAD M4 /PUNCH 4 LINES OF 200 DCA CL TAD NL JMS P ISZ CL JMP .-3 JMS P /TWO BLANK LINES JMS P CLA CLL TAD BUF-1 TAD M2 /-2 DCA C TAD BUFC /BUF-3 DCA Z 10 CLP, TAD I Z 10 /COMPUTE CHECKSUM SNL STL IAC ISZ C JMP CLP DCA CB TAD BUF-1 RAR TAD M2 DCA C SNL DCA I Z 10 TAD CB CMA DCA I Z 10 DCA I Z 10 TAD BUFC DCA Z 10 TAD BUFC DCA Z 11 /PAGE 5 KLP, CLA CLL /PUNCH 2 WORDS, 3 LINES TAD I Z 10 AND MSK1 RTR RTR JMS P TAD I Z 11 AND MSK2 DCA CB TAD I Z 10 AND MSK3 RTR RTR TAD CB JMS P TAD I Z 11 JMS P ISZ C JMP KLP JMP I PUNC END1, KRB /CHECK FOR PAL DIAGNOSTICS TAD CM377 SZA CLA JMP I EEND2 CML PATCH1, KSF JMP .-1 KRB TAD CM377 SZA CLA JMP PATCH1 CML KSF JMP .-1 JMP I EEND3 P, 0 TSF JMP .-1 TLS CLA CLL JMP I P /PAGE 6 MSK1, 7760 MSK2, 0017 MSK3, 7400 C, 0 CB, 0 M2, -2 BUFC, BUF-3 M4, -4 CL, 0 NL, 200 CM377, -377 EEND2, END2 EEND3, END3 BUF=1400 $