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

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

¢00010          .LI OFF¢00020 ------------------------------¢00030          .IN "D:CIO.INC"¢00040          .IN "D:PRTNUM.INC"¢00050 ------------------------------¢00060 START¢00070          LDA #'E       Kanal 6 initialisieren¢00080          LDY #8¢00090          LDX #$60¢00100          JSR CIOINIT¢00110 ;¢00120          LDA #TEXT1_L     100 ausgeben¢00130          STA PRINT_LENGTH¢00140          LDA /TEXT1_L¢00150          STA PRINT_LENGTH+1¢00160          LDA #TEXT1¢00170          LDX /TEXT1¢00180          JSR PRINT¢00190          LDA #100¢00200          JSR PRTNUM8S¢00210 ;¢00220          LDA #TEXT2_L     -2222 ohne Vorzeichenbeachtung ausgeben¢00230          STA PRINT_LENGTH¢00240          LDA /TEXT2_L¢00250          STA PRINT_LENGTH+1¢00260          LDA #TEXT2¢00270          LDX /TEXT2¢00280          JSR PRINT¢00290          LDA #-2222¢00300          LDX /-2222¢00310          JSR PRTNUM16¢00320 ;¢00330          LDA #TEXT2_L      Diesmal mit Vorzeichen¢00340          STA PRINT_LENGTH¢00350          LDA /TEXT2_L¢00360          STA PRINT_LENGTH+1¢00370          LDA #TEXT2¢00380          LDX /TEXT2¢00390          JSR PRINT¢00400          LDA #-2222¢00410          LDX /-2222¢00420          JSR PRTNUM16S¢00430 ;¢00440          LDA #TEXT3_L      Wie wird wohl $100000 aussehen?¢00450          STA PRINT_LENGTH¢00460          LDA /TEXT3_L¢00470          STA PRINT_LENGTH+1¢00480          LDA #TEXT3¢00490          LDX /TEXT3¢00500          JSR PRINT¢00510          LDA #0¢00520          LDX #0¢00530          LDY #$10¢00540          JSR PRTNUM24S¢00550 ;¢00560          LDA #TEXT4_L      Die groesstmoegliche Zahl - oder nicht?¢00570          STA PRINT_LENGTH¢00580          LDA /TEXT4_L¢00590          STA PRINT_LENGTH+1¢00600          LDA #TEXT4¢00610          LDX /TEXT4¢00620          JSR PRINT¢00630          LDA #$FF          alles auf $FF -> $FFFFFFFF¢00640          STA PRTNUM¢00650          STA PRTNUM+1¢00660          STA PRTNUM+2¢00670          STA PRTNUM+3¢00680          JSR PRTNUM32S¢00690 ;¢00700          LDA #TEXT4_L      Nochmal ohne Vorzeichen!¢00710          STA PRINT_LENGTH¢00720          LDA /TEXT4_L¢00730          STA PRINT_LENGTH+1¢00740          LDA #TEXT4¢00750          LDX /TEXT4¢00760          JSR PRINT¢00770          LDA #$FF¢00780          STA PRTNUM¢00790          STA PRTNUM+1¢00800          STA PRTNUM+2¢00810          STA PRTNUM+3¢00820          JSR PRTNUM32¢00830          RTS¢00840 ------------------------------¢00850 ; Die jeweiligen Texte:¢00860 TEXT1¢00870          .HX 9B¢00880          .AS /100       : /¢00890 TEXT1_L  = *-TEXT1¢00900 *¢00910 TEXT2¢00920          .HX 9B9B¢00930          .AS /-2222     : /¢00940 TEXT2_L  = *-TEXT2¢00950 *¢00960 TEXT3¢00970          .HX 9B9B¢00980          .AS /$100000   : /¢00990 TEXT3_L  = *-TEXT3¢01000 *¢01010 TEXT4¢01020          .HX 9B9B¢01030          .AS /$FFFFFFFF : /¢01040 TEXT4_L  = *-TEXT4¢01050 ------------------------------¢