Strange Invasion 1994 January/Strange_Invasion_1994_01_Lausberg_Stefan_Side_D.atr/prtnum.lst

File List | 2023-02-26 | 5KB | 1 lines

¢00010 BASE10_TABLE¢00020          .HX 01000000 1¢00030          .HX 0A000000 10¢00040          .HX 64000000 100¢00050          .HX E8030000 1000¢00060          .HX 10270000 10000¢00070          .HX A0860100 100000¢00080          .HX 40420F00 1000000¢00090          .HX 80969800 10000000¢00100          .HX 00E1F505 100000000¢00110          .HX 00CA9A3B 1000000000¢00120 ------------------------------¢00130 PRTNUM        .HX 00000000¢00140               .HX 00¢00150 PRTNUM_ASCII  .BL 15¢00160 PRTNUM_LENGTH .HX 00¢00170 PRTNUM_DIGIT  .HX 00¢00180 ------------------------------¢00190 TABLE_ENTRIES .HX 0004080C10¢00200               .HX 14181C2024¢00210 ------------------------------¢00220 PRTNUM_HOLDY .HX 00¢00230 ------------------------------¢00240 PRTNUM_MAIN¢00250          LDA #0¢00260          STA PRTNUM_LENGTH¢00270          LDA #'0¢00280          STA PRTNUM_DIGIT¢00290 .10¢00300          SEC¢00310          LDA PRTNUM¢00320          SBC BASE10_TABLE,Y¢00330          PHA¢00340          LDA PRTNUM+1¢00350          SBC BASE10_TABLE+1,Y¢00360          PHA¢00370          LDA PRTNUM+2¢00380          SBC BASE10_TABLE+2,Y¢00390          PHA¢00400          LDA PRTNUM+3¢00410          SBC BASE10_TABLE+3,Y¢00420          BCC .2¢00430          STA PRTNUM+3¢00440          PLA¢00450          STA PRTNUM+2¢00460          PLA¢00470          STA PRTNUM+1¢00480          PLA¢00490          STA PRTNUM¢00500          INC PRTNUM_DIGIT¢00510          JMP .10¢00520 .2¢00530          PLA¢00540          PLA¢00550          PLA¢00560          LDA PRTNUM_DIGIT¢00570          CMP #'0¢00580          BNE .5¢00590          LDX PRTNUM_LENGTH¢00600          BEQ .6¢00610 .5¢00620          LDX PRTNUM_LENGTH¢00630          STA PRTNUM_ASCII,X¢00640          INC PRTNUM_LENGTH¢00650 .6¢00660          LDA #'0¢00670          STA PRTNUM_DIGIT¢00680          DEY¢00690          DEY¢00700          DEY¢00710          DEY¢00720          BPL .10¢00730          LDA PRTNUM_LENGTH¢00740          BNE .3¢00750          LDA #'0¢00760          STA PRTNUM_ASCII¢00770          INC PRTNUM_LENGTH¢00780 .3¢00790          RTS¢00800 ------------------------------¢00810 PRTNUM_POSITIV¢00820          JSR PRTNUM_MAIN¢00830          LDA #PRTNUM_ASCII¢00840          LDX /PRTNUM_ASCII¢00850          LDY PRTNUM_LENGTH¢00860          STY PRINT_LENGTH¢00870          LDY #0¢00880          STY PRINT_LENGTH+1¢00890          JSR PRINT¢00900          RTS¢00910 ------------------------------¢00920 PRTNUM_NEGATIV¢00930          CLC¢00940          LDA PRTNUM¢00950          EOR #$FF¢00960          ADC #1¢00970          STA PRTNUM¢00980          LDA PRTNUM+1¢00990          EOR #$FF¢01000          ADC #0¢01010          STA PRTNUM+1¢01020          LDA PRTNUM+2¢01030          EOR #$FF¢01040          ADC #0¢01050          STA PRTNUM+2¢01060          LDA PRTNUM+3¢01070          EOR #$FF¢01080          ADC #0¢01090          STA PRTNUM+3¢01100          JSR PRTNUM_MAIN¢01110          LDA #'-¢01120          STA PRTNUM_ASCII-1¢01130          LDA #PRTNUM_ASCII-1¢01140          LDX /PRTNUM_ASCII-1¢01150          LDY PRTNUM_LENGTH¢01160          INY¢01170          STY PRINT_LENGTH¢01180          LDY #0¢01190          STY PRINT_LENGTH+1¢01200          JSR PRINT¢01210          RTS¢01220 ------------------------------¢01230 PRTNUM8¢01240          STA PRTNUM¢01250          LDA #0¢01260          STA PRTNUM+1¢01270          STA PRTNUM+2¢01280          STA PRTNUM+3¢01290          LDY TABLE_ENTRIES+2¢01300          JMP PRTNUM_POSITIV¢01310 ------------------------------¢01320 PRTNUM8S¢01330          CMP #$80¢01340          BCS .1¢01350          JMP PRTNUM8¢01360 .1¢01370          STA PRTNUM¢01380          LDA #$FF¢01390          STA PRTNUM+1¢01400          STA PRTNUM+2¢01410          STA PRTNUM+3¢01420          LDY TABLE_ENTRIES+2¢01430          JMP PRTNUM_NEGATIV¢01440 ------------------------------¢01450 PRTNUM16¢01460          STA PRTNUM¢01470          STX PRTNUM+1¢01480          LDA #0¢01490          STA PRTNUM+2¢01500          STA PRTNUM+3¢01510          LDY TABLE_ENTRIES+4¢01520          JMP PRTNUM_POSITIV¢01530 ------------------------------¢01540 PRTNUM16S¢01550          CPX #$80¢01560          BCS .1¢01570          JMP PRTNUM16¢01580 .1¢01590          STA PRTNUM¢01600          STX PRTNUM+1¢01610          LDA #$FF¢01620          STA PRTNUM+2¢01630          STA PRTNUM+3¢01640          LDY TABLE_ENTRIES+4¢01650          JMP PRTNUM_NEGATIV¢01660 ------------------------------¢01670 PRTNUM24¢01680          STA PRTNUM¢01690          STX PRTNUM+1¢01700          STY PRTNUM+2¢01710          LDA #0¢01720          STA PRTNUM+3¢01730          LDY TABLE_ENTRIES+7¢01740          JMP PRTNUM_POSITIV¢01750 ------------------------------¢01760 PRTNUM24S¢01770          CPY #$80¢01780          BCS .1¢01790          JMP PRTNUM24¢01800 .1¢01810          STA PRTNUM¢01820          STX PRTNUM+1¢01830          STY PRTNUM+2¢01840          LDA #$FF¢01850          STA PRTNUM+3¢01860          LDY TABLE_ENTRIES+7¢01870          JMP PRTNUM_NEGATIV¢01880 ------------------------------¢01890 PRTNUM32¢01900          LDY TABLE_ENTRIES+9¢01910          JMP PRTNUM_POSITIV¢01920 ------------------------------¢01930 PRTNUM32S¢01940          LDY TABLE_ENTRIES+9¢01950          BIT PRTNUM+3¢01960          BMI .1¢01970          JMP PRTNUM_POSITIV¢01980 .1¢01990          JMP PRTNUM_NEGATIV¢02000 ------------------------------¢