home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Strange Invasion 1994 January
/
Strange_Invasion_1994_01_Lausberg_Stefan_Side_D.atr
/
kurs4.lst
< prev
next >
Wrap
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 ------------------------------¢