bye JSR testdi JSR cendA LDA #&FF LDX &F4 STA &DF0,X RTS vercom JSR testdi JSR settop JSR gtstrA JSR cendB LDA #&40 LDX #0 LDY #6 JSR &FFCE STA &69 BNE flopen CLFLBK CBRK DFB 63 ASC "Can't open file" BRK flopen LDY #0 STY &60 LDA &18 STA &61 INY LDA (&60),Y BPL verpok JSR noprgm JMP vercls noprgm JSR pflmss STR "No program!" BRK RTS verpok DEY LDA #0 STA &6F TYA PHA LDY #1 LDA (&60),Y STA &2B BMI verovr INY LDA (&60),Y STA &2A JSR plnum5 LDA #13 JSR &FFEE verovr PLA TAY verlp1 STY &62 LDY &69 JSR &FFD7 LDY &62 CMP (&60),Y BNE vererr CMP #&80 BCS veroke verlp2 INY BNE verov1 INC &61 INC &6F verov1 LDX &6F BNE verov2 CPY #5 BCC verlp1 verov2 CMP #13 BNE verlp1 DEY TYA CLC ADC &60 STA &60 LDA &61 ADC #0 STA &61 LDA &6F BEQ verov3 DEC &61 verov3 LDY #2 JMP verpok veroke CPY #1 BNE verlp2 JSR pflmss STR "|MOK" BRK JMP vercls vererr JSR pflmss STR "|MERROR" BRK vercls LDY &69 LDA #0 JMP &FFCE rencom JSR testdi JSR gtintA LDA intA STA &54 LDA intA+1 STA &55 JSR chkcma JSR gtintB LDA intA STA &56 LDA intA+1 STA &57 JSR chkcma JSR gtintB LDA intA STA &58 LDA intA+1 STA &59 JSR chkcma JSR gtintB JSR cendB JSR settop JSR setup renchk LDY #0 LDA (&5A),Y BMI renlns STA (&5C),Y INY LDA (&5A),Y STA (&5C),Y CLC LDA #2 ADC &5C STA &5C TAX LDA &5D ADC #0 STA &5D CPX himem SBC himem+1 BCS renrme JSR renrng JSR rennxt JMP renchk renrme CBRK BRK ASC "RENUMBER space" BRK renlns JSR setup rnline LDY #0 LDA (&5A),Y BMI rsolve JSR renrng LDA &61 STA (&5A),Y INY LDA &60 STA (&5A),Y JSR rennxt JMP rnline rsolve JMP rsvgot setup LDA &58 STA &5E LDA &59 STA &5F LDA #1 STA &5A LDA page STA &5B LDA top STA &5C LDA top+1 STA &5D LDA #0 STA &60 STA &61 RTS rennxt LDY #2 LDA (&5A),Y CLC ADC &5A STA &5A BCC lineok INC &5B lineok RTS renrng LDY #1 LDA (&5A),Y TAX DEY LDA (&5A),Y CPX &54 SBC &55 BCS notund LDA (&5A),Y CPX &58 SBC &59 BCC thisln rngerr CBRK DFB 50 ASC "Overlap" BRK notund LDA (&5A),Y CMP &57 BCC ntover BNE over CPX &56 BCC ntover BEQ ntover over CMP &61 BCC rngerr BNE thisln CPX &60 BCC rngerr BEQ rngerr thisln LDA (&5A),Y STA &61 STX &60 RTS ntover CLC LDA &5E STA &60 ADC intA STA &5E LDA &5F AND #&7F STA &61 ADC intA+1 STA &5F RTS hlpcom JSR getchA CMP #'C' BEQ hlpc CMP #'F' BEQ hlpf hlpbth DEC &1B JSR cendB JSR hlpcmp BIT &FF BPL hlpcmf RTS hlpc JSR cendB JMP hlpcmp hlpf JSR cendB JMP hlpcmf hlpcmp JSR pflmss ASC "New Commands:" DW 13 LDA #>table STA &F6 LDA #vartab STA &F6 LDA #