00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100|
00000010: 30 0D 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |0..;************|
00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000030: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A 20 20 |***********.;* |
00000040: 47 45 54 32 42 59 54 2D 52 4F 55 54 49 4E 45 20 |GET2BYT-ROUTINE |
00000050: 28 57 29 20 31 39 39 34 20 42 59 20 4D 41 44 52 |(W) 1994 BY MADR|
00000060: 4F 4D 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |OM *.;**********|
00000070: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000080: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A |*************.;*|
00000090: 20 52 4F 55 54 49 4E 45 20 57 49 52 44 20 4D 49 | ROUTINE WIRD MI|
000000A0: 54 20 2D 4A 53 52 20 47 45 54 32 42 59 54 20 2D |T -JSR GET2BYT -|
000000B0: 20 41 55 46 47 2A 0D 3B 2A 20 47 45 52 55 46 45 | AUFG*.;* GERUFE|
000000C0: 4E 2E 20 44 49 45 20 31 36 42 49 54 20 5A 41 48 |N. DIE 16BIT ZAH|
000000D0: 4C 20 49 53 54 20 44 41 4E 4E 20 41 4C 53 2A 0D |L IST DANN ALS*.|
000000E0: 3B 2A 20 41 4C 53 20 4C 4F 57 2D 48 49 47 48 2D |;* ALS LOW-HIGH-|
000000F0: 42 59 54 45 20 57 45 52 54 20 49 4E 20 59 2D 52 |BYTE WERT IN Y-R|
00000100: 45 47 20 20 20 20 20 2A 0D 3B 2A 20 55 4E 44 20 |EG *.;* UND |
00000110: 41 4B 4B 55 20 47 45 53 50 45 49 43 48 45 52 54 |AKKU GESPEICHERT|
00000120: 20 2E 20 44 49 45 20 5A 41 48 4C 20 57 49 52 44 | . DIE ZAHL WIRD|
00000130: 2A 0D 3B 2A 20 41 55 53 20 44 45 4D 20 42 41 53 |*.;* AUS DEM BAS|
00000140: 49 43 2D 54 45 58 54 20 47 45 48 4F 4C 54 2C 20 |IC-TEXT GEHOLT, |
00000150: 56 4F 52 48 45 52 20 20 20 2A 0D 3B 2A 20 41 42 |VORHER *.;* AB|
00000160: 45 52 20 57 49 52 44 20 47 45 50 52 55 45 46 54 |ER WIRD GEPRUEFT|
00000170: 2C 20 4F 42 20 53 49 43 48 20 45 49 4E 20 20 20 |, OB SICH EIN |
00000180: 20 20 2A 0D 3B 2A 20 4B 4F 4D 4D 41 20 56 4F 52 | *.;* KOMMA VOR|
00000190: 20 44 45 52 20 5A 41 48 4C 20 42 45 46 49 4E 44 | DER ZAHL BEFIND|
000001A0: 45 54 2E 20 53 4F 4C 4C 20 20 20 2A 0D 3B 2A 20 |ET. SOLL *.;* |
000001B0: 4B 45 49 4E 20 4B 4F 4D 4D 41 20 54 45 53 54 20 |KEIN KOMMA TEST |
000001C0: 45 52 46 4F 4C 47 45 4E 2C 20 53 54 41 52 54 45 |ERFOLGEN, STARTE|
000001D0: 20 20 20 20 2A 0D 3B 2A 20 44 49 45 20 52 4F 55 | *.;* DIE ROU|
000001E0: 54 49 4E 45 20 4D 49 54 20 2D 20 4A 53 52 20 47 |TINE MIT - JSR G|
000001F0: 45 54 32 42 59 54 2B 33 20 2D 20 20 20 2A 0D 3B |ET2BYT+3 - *.;|
00000200: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000210: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000220: 2A 2A 2A 2A 2A 2A 2A 0D 0D 47 45 54 32 42 59 54 |*******..GET2BYT|
00000230: 0D 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 41 |. JSR $A|
00000240: 45 46 44 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |EFD. JSR|
00000250: 20 24 41 44 38 41 0D 20 20 20 20 20 20 20 20 20 | $AD8A. |
00000260: 4A 4D 50 20 24 42 37 46 37 0D 0D 0D 0D 0D |JMP $B7F7..... |
*= $1000..;********************
*******************.;* GET2BYT-ROUTINE
(W) 1994 BY MADROM *.;******************
*********************.;* ROUTINE WIRD MI
T -JSR GET2BYT - AUFG*.;* GERUFEN. DIE 1
6BIT ZAHL IST DANN ALS*.;* ALS LOW-HIGH-
BYTE WERT IN Y-REG *.;* UND AKKU GES
PEICHERT . DIE ZAHL WIRD*.;* AUS DEM BAS
IC-TEXT GEHOLT, VORHER *.;* ABER WIRD
GEPRUEFT, OB SICH EIN *.;* KOMMA VOR
DER ZAHL BEFINDET. SOLL *.;* KEIN KOM
MA TEST ERFOLGEN, STARTE *.;* DIE ROU
TINE MIT - JSR GET2BYT+3 - *.;********
*******************************..GET2BYT
. JSR $AEFD. JSR $AD8A.
JMP $B7F7.....
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL