HED BASIC RESEQUENCER U-5-R32 * * * THIS PROGRAM RESEQUENCES THE LINE NUMBERS * OF PROGRAMS WRITTEN IN BASIC. * * * IT IS NOT CONFIGURED AND THUS MUST BE USED * IN CONJUNCTION WITH THE SIO CONFIGURED * SYSTEM SERIAL * * * ORG 100B JMP 110B ORG 110B LDA JMPER STA CPA1 LDA M5 LDB INPUT JSB 102B,I LDA M100 LDB ABUFF JSB 104B,I JSB TRANS LDA ADRWD STA X2 LIA 1 SLA,RSS JMP OPT1 LDB CRET STB CPA JSB RDDEC STA ADD JMP A1 OPT1 LDB COMMA STB CPA JSB RDDEC STA ADD LDB CRET STB CPA JSB RDDEC STA INCR CMA,INA ADA ADD STA ADD A1 LDA M3 LDB RUN JSB 102B,I LDA CPA+1 STA CPA1 HLT LDA ENDTP STA END LDA ADRB1 STA X1 CLA STA FLAG LDA JMPA7 STA HALT+6 LINE LDB ABUFF LDA M100 JSB 101B,I CPA M0 JSB HALT JSB TRANS LDA ADRWD STA X2 JSB RDDEC STA X1,I LIB 1 SLB,RSS JMP A8 ADA ADD JMP A9 A8 LDA ADD ADA INCR STA ADD A9 ISZ X1 LDB 106B CHECK FOR OUT CPB X1 OF MEMORY JMP A7-2 --OUT OF MEMORY-- STA X1,I ISZ X1 CPB X1 OUT OF MEMORY? JMP A7-2 --YES-- JMP LINE HLT 12B JMP *-1 A7 HLT 55B END PASS 1 LDB M0 STB FLAG JSB LEADR LDB JMPDN STB HALT+6 A12 LDB ABUFF LDA M100 JSB 101B,I CPA M0 JSB HALT JSB TRANS LDA ADRWD STA X2 LDA OTBUF STA .X LDA M1 STA SIGN LDA .X1 STA X3 LDA M0 STA X0 JSB RDDEC JSB FIND STA NUMOC JSB OTDEC JSB COMP OCT -3 DEF REM JMP A16 JSB COMP OCT -5 DEF PRINT JMP A16 JSB COMP OCT -4 DEF GOTO JMP A11 JSB COMP OCT -4 DEF THEN JMP A11 JSB COMP OCT -5 DEF GOSUB JMP A11 JMP A14 A16 LDA ADRWD ADA N1 CMA,INA INA ADA X3 STA COUNT JMP A14 A11 LDB M0 STB FL JMP A13 A14 LDB M1 STB FL A13 LDA ADRWD STA X2 LDA N1 CMA,INA ISZ X2 INA,SZA JMP *-2 LDA COUNT CMA,INA STA COUNT LDA X2,I JSB OUTA ISZ X2 ISZ COUNT JMP *-4 LDB FL SZB JMP A15 LDB CRET STB CPA LDB SPACE STB IGNOR JSB RDDEC JSB FIND STA NUMOC LDA M40 JSB OUTA JSB OTDEC ISZ X0 ISZ X0 A15 LDB SPACE STB CPA LDB RSS STB IGNOR LDB OTBUF LDA X0 ADA MM2 JSB 103B,I JMP A12 DONE JSB LEADR HLT 77B JMP 100B HED BASIC RESEQUENCER (SUBROUTINES) RDDEC NOP CLA STA N1 STA NUMBR LDA ENDTP STA END BACK LDA X2,I CPA M0 JSB HALT ISZ X2 NOP IGNOR RSS JMP *-6 CPA NOP JMP OUT LDB M1 STB FLAG ADA MM60 STA DIGIT SSA JMP *+3 ADA MAXAD SSA CPA1 JMP ERROR ISZ N1 LDA NUMBR JSB MULT ADA DIGIT STA NUMBR JMP BACK OUT LDA NUMBR JMP RDDEC,I COMP NOP CLA STA COUNT LDA COMP,I STA C10 ISZ COMP LDA COMP,I STA C11 ISZ COMP LDA ADRWD STA X2 LDA N1 CMA,INA ISZ X2 INA,SZA JMP *-2 DIFF LDA C10 STA CNT LDA C11 STA C1 LOAD LDA X2,I ISZ X2 ISZ COUNT CPA M40 JMP *-4 CPA C1,I JMP SAME LDA X2 CPA X3 ADR. OF LST CHAR. JMP *+2 JMP DIFF ISZ COUNT ISZ COMP JMP COMP,I SAME ISZ C1 ISZ CNT JMP LOAD JMP COMP,I FIND NOP LDB ADRB1 CPA 1,I JMP A20 ADB M2 CPB X1 HLT 11B JMP *-5 A20 INB LDA 1,I JMP FIND,I HALT NOP LDB HALT ADB MM3 STB HALT CPA FLAG JMP HALT,I NOP MULT NOP STA MULT1 LDB M11 ADA MULT1 INB,SZB JMP *-2 JMP MULT,I ERROR LDB ERR LDA D12 JSB 102B,I JMP 112B OTDEC NOP LDA DGT STA X LDA M0 STA N BACK1 LDA NUMOC JSB DIV STA X,I STB NUMOC ISZ N SZB,RSS JMP OUT1 ISZ X JMP BACK1 OUT1 LDB N CMB,INB STB N FETCH LDA X,I ADA M60 JSB OUTA LDA X ADA MM1 STA X ISZ N JMP FETCH JMP OTDEC,I DIV NOP CLB ADA MM12 SSA JMP OUT2 INB JMP DIV+2 OUT2 ADA M12 JMP DIV,I TRANS NOP CMA,INA STA BCNT LDB ABUFF STB .X LDB ADRWD STB .X1 LDB M1 STB SIGN LDB SIGN CMB STB SIGN LDA .X,I SSB ALF,ALF AND M377 STA .X1,I ISZ .X1 SSB,RSS ISZ .X ISZ BCNT JMP TRANS+9 LDA M15 STA .X1,I ISZ .X1 LDA M12 STA .X1,I JMP TRANS,I OUTA NOP LDB SIGN CMB STB SIGN SSB ALF,ALF SSB,RSS IOR .X,I STA .X,I SSB,RSS ISZ .X ISZ X0 JMP OUTA,I LEADR NOP LDB DM20 STB TEMP LDB DEFM0 LDA MM1 JSB 103B,I ISZ TEMP JMP *-4 JMP LEADR,I HED BASIC RESEQUENCER (CONSTANTS) M3 OCT 3 D12 DEC 12 M377 OCT 377 M5 OCT 5 INPUT DEF INPT INPT ASC 3,INPUT DEFM0 DEF M0 BUFF BSS 100 ABUFF DEF BUFF M100 DEC 100 SIGN BSS 1 RU ASC 2,RUN RUN DEF RU ER ASC 6,FORMAT ERROR ERR DEF ER DM20 DEC -20 .X BSS 1 .X1 BSS 1 OTBUF DEF OBUF X0 BSS 1 OBUF BSS 100 BCNT BSS 1 M40 OCT 40 COMMA CPA M54 M54 OCT 54 SPACE CPA M40 M60 OCT 60 CRET CPA M15 M15 OCT 15 M12 OCT 12 ADD BSS 1 INCR BSS 1 NUMOC BSS 1 M0 OCT 0 DIGIT BSS 1 M11 OCT -11 DGT DEF DGT1 DGT1 BSS 7 N BSS 1 MM60 OCT -60 MM1 OCT -1 MM12 OCT -12 NUMBR BSS 1 X1 BSS 1 M1 OCT 1 X3 BSS 1 COUNT BSS 1 MULT1 BSS 1 X BSS 1 M2 OCT 2 MAXAD OCT 77766 M1000 DEC 1000 ENDTP DEC -10 END BSS 1 FLAG OCT 0 WORD BSS 100 ADRWD DEF WORD X2 BSS 1 N1 OCT 0 REM OCT 122 OCT 105 OCT 115 GOTO OCT 107 OCT 117 OCT 124 OCT 117 ADRB1 DEF ADRS1 C1 BSS 1 CNT BSS 1 LOADA LDA X2,I C10 BSS 1 C11 BSS 1 TEMP BSS 1 THEN OCT 124 OCT 110 OCT 105 OCT 116 GOSUB OCT 107 OCT 117 OCT 123 OCT 125 OCT 102 PRINT OCT 120 OCT 122 OCT 111 OCT 116 OCT 124 JMPER JMP ERROR MM2 OCT -2 JMPA7 JMP A7 JMPDN JMP DONE MM3 OCT -5 FL BSS 1 RSS RSS ADRS1 BSS 1 START OF CROSS REFERENCE TABLE FWAM EQU * ORG 105B DEF FWAM END