diff --git a/LST2.bas b/LST2.bas index 2f1a4fc..8e24cb3 100644 --- a/LST2.bas +++ b/LST2.bas @@ -248,24 +248,8 @@ 5220SBC curr_lineno+1 5230BMI done 5240 -5250\ figure out how many digits the current line# has (by subtracting -5251\ each power of 10), then print enough spaces so that the line# -5252\ will be right-adjusted when we print it out -5260LDX #3 -5270.checkPow10 -5280LDA curr_lineno -5290SEC -5300SBC tensLSB,X -5310LDA curr_lineno+1 -5320SBC tensMSB,X -5330BMI P%+5 -5340DEX -5350BPL checkPow10 -5360INX -5370JSR indent -5380 -5390\ print the current line# -5400JSR &991F \ this prints the IAC (&2A/2B) as a 16-bit number +5390\ print the current line# (with a field width of 5) +5400JSR &9923 5410 5420\ print a space 5430LDA #&20 @@ -290,12 +274,6 @@ 5580JSR osnewl 5590JMP &8AF3 5600 -5610\ LSB/MSB's for 10000, 1000, 100, 10 -5620.tensLSB -5630EQUB &10 : EQUB &E8 : EQUB &64 : EQUB &0A -5640.tensMSB -5650EQUB &27 : EQUB &03 : EQUB &00 : EQUB &00 -5660 5670\ we now print out the next byte of program code (in A) 5671 5680.printCode