DEZ-8BIT.ASC
FILE INFORMATION
FILENAME(S): DEZ-8BIT.ASC
FILE TYPE(S): SEQ
FILE SIZE: 1.6K
FIRST SEEN: 2025-11-30 01:13:03
APPEARS ON: 1 disk(s)
FILE HASH
da1ed9ae1a128333ef77755c64641a31f8ac94bb85c9305b9db0ac0c6bdece92
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 10308 SEITE B | DEZ-8BIT.ASC | SEQ | C64er | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 20 20 20 20 20 20 20 20 2A 3D 20 24 31 30 30 | *= $100| 00000010: 30 0D 3B 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |0.;-------------| 00000020: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 00000030: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 0D 3B C4 49 45 53 |----------.;.IES| 00000040: 45 20 C6 55 4E 4B 54 49 4F 4E 20 57 41 4E 44 45 |E .UNKTION WANDE| 00000050: 4C 54 20 45 49 4E 0D 3B 27 38 2D 42 49 54 20 55 |LT EIN.;'8-BIT U| 00000060: 4E 53 49 47 4E 45 44 20 42 59 54 45 27 20 28 56 |NSIGNED BYTE' (V| 00000070: 4F 52 5A 45 49 43 48 45 4E 4C 4F 53 45 0D 3B 38 |ORZEICHENLOSE.;8| 00000080: 2D C2 49 54 2D DA 41 48 4C 20 49 4D 20 C2 45 52 |-.IT-.AHL IM .ER| 00000090: 45 49 43 48 20 56 4F 4E 20 30 20 42 49 53 20 32 |EICH VON 0 BIS 2| 000000A0: 35 35 29 0D 3B 44 49 45 20 49 4D 20 58 2D D2 45 |55).;DIE IM X-.E| 000000B0: 47 49 53 54 45 52 20 55 45 42 45 52 47 45 42 45 |GISTER UEBERGEBE| 000000C0: 4E 20 57 49 52 44 0D 3B 49 4E 20 45 49 4E 45 4E |N WIRD.;IN EINEN| 000000D0: 20 C4 45 5A 49 4D 41 4C 53 54 52 49 4E 47 2C 20 | .EZIMALSTRING, | 000000E0: 44 45 52 20 41 4E 20 44 45 52 0D 3B C1 44 52 45 |DER AN DER.;.DRE| 000000F0: 53 53 45 20 41 4E 47 45 4C 45 47 54 20 57 49 52 |SSE ANGELEGT WIR| 00000100: 44 2C 20 41 55 46 20 44 49 45 20 44 45 52 0D 3B |D, AUF DIE DER.;| 00000110: 50 4F 49 4E 54 45 52 20 28 24 46 43 2F 24 46 44 |POINTER ($FC/$FD| 00000120: 29 20 57 45 49 53 53 54 20 28 24 46 43 3D 4C 4F |) WEISST ($FC=LO| 00000130: 2D 42 59 54 45 2C 0D 3B 24 46 44 3D 48 49 2D 42 |-BYTE,.;$FD=HI-B| 00000140: 59 54 45 29 2E 0D 3B C4 49 45 20 C6 55 4E 4B 54 |YTE)..;.IE .UNKT| 00000150: 49 4F 4E 20 57 49 52 44 20 4D 49 54 20 22 4A 53 |ION WIRD MIT "JS| 00000160: 52 20 44 45 5A 22 20 41 55 46 2D 0D 3B 47 45 52 |R DEZ" AUF-.;GER| 00000170: 55 46 45 4E 2E 0D 3B 20 20 20 20 20 20 20 20 20 |UFEN..; | 00000180: 20 20 20 20 20 20 28 57 29 20 31 39 39 32 20 C2 | (W) 1992 .| 00000190: 45 4E 4A 41 4D 49 4E 20 C2 4F 4D 4D 45 52 0D 3B |ENJAMIN .OMMER.;| 000001A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------| 000001C0: 2D 2D 2D 2D 2D 2D 2D 0D 44 45 5A 20 20 20 20 20 |-------.DEZ | 000001D0: 20 53 54 58 20 44 4C 31 20 20 20 20 20 3B 42 59 | STX DL1 ;BY| 000001E0: 54 45 20 50 55 46 46 45 52 4E 0D 0D 20 20 20 20 |TE PUFFERN.. | 000001F0: 20 20 20 20 20 4C 44 59 20 23 32 20 20 20 20 20 | LDY #2 | 00000200: 20 3B 42 45 52 45 49 43 48 20 4D 49 54 0D 20 20 | ;BEREICH MIT. | 00000210: 20 20 20 20 20 20 20 4C 44 41 20 23 24 33 30 20 | LDA #$30 | 00000220: 20 20 20 3B 22 30 30 30 22 20 4C 4F 45 53 43 48 | ;"000" LOESCH| 00000230: 45 4E 0D 44 45 4C 50 20 20 20 20 20 53 54 41 20 |EN.DELP STA | 00000240: 28 24 46 43 29 2C 59 0D 20 20 20 20 20 20 20 20 |($FC),Y. | 00000250: 20 44 45 59 0D 20 20 20 20 20 20 20 20 20 42 50 | DEY. BP| 00000260: 4C 20 44 45 4C 50 0D 0D 20 20 20 20 20 20 20 20 |L DELP.. | 00000270: 20 4C 44 41 20 23 3C 44 54 41 42 20 20 3B 50 4F | LDA #<DTAB ;PO| 00000280: 49 4E 54 45 52 20 41 55 46 0D 20 20 20 20 20 20 |INTER AUF. | 00000290: 20 20 20 53 54 41 20 24 46 45 20 20 20 20 20 3B | STA $FE ;| 000002A0: 54 41 42 45 4C 4C 45 20 49 4E 20 28 24 46 45 29 |TABELLE IN ($FE)| 000002B0: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 3E |. LDA #>| 000002C0: 44 54 41 42 0D 20 20 20 20 20 20 20 20 20 53 54 |DTAB. ST| 000002D0: 41 20 24 46 46 0D 0D 44 4E 30 20 20 20 20 20 20 |A $FF..DN0 | 000002E0: 4C 44 58 20 44 4C 31 20 20 20 20 20 3B 4F 42 45 |LDX DL1 ;OBE| 000002F0: 52 53 54 45 53 20 42 49 54 20 47 45 2D 0D 20 20 |RSTES BIT GE-. | 00000300: 20 20 20 20 20 20 20 42 50 4C 20 44 4E 31 20 20 | BPL DN1 | 00000310: 20 20 20 3B 53 45 54 5A 54 20 3F 0D 0D 20 20 20 | ;SETZT ?.. | 00000320: 20 20 20 20 20 20 4C 44 59 20 23 32 20 20 20 20 | LDY #2 | 00000330: 20 20 3B 57 45 4E 4E 20 4A 41 2C 20 41 44 44 49 | ;WENN JA, ADDI| 00000340: 45 52 45 0D 20 20 20 20 20 20 20 20 20 43 4C 43 |ERE. CLC| 00000350: 20 20 20 20 20 20 20 20 20 3B 57 45 52 54 20 41 | ;WERT A| 00000360: 55 53 20 54 41 42 45 4C 4C 45 0D 44 52 30 20 20 |US TABELLE.DR0 | 00000370: 20 20 20 20 4C 44 41 20 28 24 46 43 29 2C 59 0D | LDA ($FC),Y.| 00000380: 20 20 20 20 20 20 20 20 20 41 44 43 20 28 24 46 | ADC ($F| 00000390: 45 29 2C 59 0D 20 20 20 20 20 20 20 20 20 43 4D |E),Y. CM| 000003A0: 50 20 23 24 33 41 0D 20 20 20 20 20 20 20 20 20 |P #$3A. | 000003B0: 42 43 43 20 44 52 31 0D 20 20 20 20 20 20 20 20 |BCC DR1. | 000003C0: 20 53 42 43 20 23 31 30 0D 44 52 31 20 20 20 20 | SBC #10.DR1 | 000003D0: 20 20 53 54 41 20 28 24 46 43 29 2C 59 0D 20 20 | STA ($FC),Y. | 000003E0: 20 20 20 20 20 20 20 44 45 59 0D 20 20 20 20 20 | DEY. | 000003F0: 20 20 20 20 42 50 4C 20 44 52 30 0D 0D 44 4E 31 | BPL DR0..DN1| 00000400: 20 20 20 20 20 20 4C 44 41 20 24 46 45 20 20 20 | LDA $FE | 00000410: 20 3B 54 41 42 45 4C 4C 45 4E 2D 50 4F 49 4E 54 | ;TABELLEN-POINT| 00000420: 45 52 0D 20 20 20 20 20 20 20 20 20 43 4C 43 20 |ER. CLC | 00000430: 20 20 20 20 20 20 20 3B 48 4F 43 48 53 45 54 5A | ;HOCHSETZ| 00000440: 45 4E 0D 20 20 20 20 20 20 20 20 20 41 44 43 20 |EN. ADC | 00000450: 23 33 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |#3. STA | 00000460: 24 46 45 0D 20 20 20 20 20 20 20 20 20 42 43 43 |$FE. BCC| 00000470: 20 44 4E 34 0D 20 20 20 20 20 20 20 20 20 49 4E | DN4. IN| 00000480: 43 20 24 46 46 0D 0D 44 4E 34 20 20 20 20 20 20 |C $FF..DN4 | 00000490: 41 53 4C 20 44 4C 31 20 20 20 20 3B 44 41 53 20 |ASL DL1 ;DAS | 000004A0: 42 59 54 45 20 57 49 52 44 20 55 4D 0D 20 20 20 |BYTE WIRD UM. | 000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000004C0: 20 3B 45 49 4E 20 42 49 54 20 4E 41 43 48 20 4C | ;EIN BIT NACH L| 000004D0: 49 4E 4B 53 0D 20 20 20 20 20 20 20 20 20 20 20 |INKS. | 000004E0: 20 20 20 20 20 20 20 20 20 3B 47 45 53 48 49 46 | ;GESHIF| 000004F0: 54 45 54 2E 0D 0D 20 20 20 20 20 20 20 20 20 42 |TET... B| 00000500: 4E 45 20 44 4E 30 20 20 20 20 3B 4E 4F 43 48 20 |NE DN0 ;NOCH | 00000510: 45 49 4E 20 42 49 54 20 47 45 2D 0D 20 20 20 20 |EIN BIT GE-. | 00000520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000530: 3B 53 45 54 5A 54 20 3F 20 D7 45 4E 4E 20 4A 41 |;SETZT ? .ENN JA| 00000540: 2C 0D 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |,. | 00000550: 20 20 20 20 20 20 3B 57 45 49 54 45 52 2C 20 53 | ;WEITER, S| 00000560: 4F 4E 53 54 3A 0D 0D 20 20 20 20 20 20 20 20 20 |ONST:.. | 00000570: 52 54 53 20 20 20 20 20 20 20 20 3B 52 55 45 43 |RTS ;RUEC| 00000580: 4B 53 50 52 55 4E 47 0D 0D 44 54 41 42 20 20 20 |KSPRUNG..DTAB | 00000590: 20 20 2E 42 59 54 45 20 31 2C 32 2C 38 20 20 20 | .BYTE 1,2,8 | 000005A0: 20 20 3B 32 5E 37 0D 20 20 20 20 20 20 20 20 20 | ;2^7. | 000005B0: 2E 42 59 54 45 20 30 2C 36 2C 34 20 20 20 20 20 |.BYTE 0,6,4 | 000005C0: 3B 2E 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 |;.. .BYT| 000005D0: 45 20 30 2C 33 2C 32 20 20 20 20 20 3B 2E 0D 20 |E 0,3,2 ;.. | 000005E0: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 2C | .BYTE 0,| 000005F0: 31 2C 36 20 20 20 20 20 3B 2E 0D 20 20 20 20 20 |1,6 ;.. | 00000600: 20 20 20 20 2E 42 59 54 45 20 30 2C 30 2C 38 20 | .BYTE 0,0,8 | 00000610: 20 20 20 20 3B 0D 20 20 20 20 20 20 20 20 20 2E | ;. .| 00000620: 42 59 54 45 20 30 2C 30 2C 34 20 20 20 20 20 3B |BYTE 0,0,4 ;| 00000630: 32 5E 32 0D 20 20 20 20 20 20 20 20 20 2E 42 59 |2^2. .BY| 00000640: 54 45 20 30 2C 30 2C 32 20 20 20 20 20 3B 32 5E |TE 0,0,2 ;2^| 00000650: 31 0D 20 20 20 20 20 20 20 20 20 2E 42 59 54 45 |1. .BYTE| 00000660: 20 30 2C 30 2C 31 20 20 20 20 20 3B 32 5E 30 0D | 0,0,1 ;2^0.| 00000670: 0D 44 4C 31 20 20 20 20 20 20 2E 42 59 54 45 20 |.DL1 .BYTE | 00000680: 30 0D 0D |0.. |
*= $1000.;---------------------
------------------.;DIESE FUNKTION WANDE
LT EIN.;'8-BIT UNSIGNED BYTE' (VORZEICHE
NLOSE.;8-BIT-ZAHL IM BEREICH VON 0 BIS 2
55).;DIE IM X-REGISTER UEBERGEBEN WIRD.;
IN EINEN DEZIMALSTRING, DER AN DER.;ADRE
SSE ANGELEGT WIRD, AUF DIE DER.;POINTER
($FC/$FD) WEISST ($FC=LO-BYTE,.;$FD=HI-B
YTE)..;DIE FUNKTION WIRD MIT "JSR DEZ" A
UF-.;GERUFEN..; (W) 1992 B
ENJAMIN BOMMER.;------------------------
---------------.DEZ STX DL1 ;BY
TE PUFFERN.. LDY #2 ;BEREIC
H MIT. LDA #$30 ;"000" LOESCH
EN.DELP STA ($FC),Y. DEY.
BPL DELP.. LDA #<DTAB ;PO
INTER AUF. STA $FE ;TABELLE
IN ($FE). LDA #>DTAB. ST
A $FF..DN0 LDX DL1 ;OBERSTES BI
T GE-. BPL DN1 ;SETZT ?..
LDY #2 ;WENN JA, ADDIERE.
CLC ;WERT AUS TABELLE.DR0
LDA ($FC),Y. ADC ($FE),Y.
CMP #$3A. BCC DR1.
SBC #10.DR1 STA ($FC),Y. D
EY. BPL DR0..DN1 LDA $FE
;TABELLEN-POINTER. CLC ;
HOCHSETZEN. ADC #3. STA
$FE. BCC DN4. INC $FF..D
N4 ASL DL1 ;DAS BYTE WIRD UM.
;EIN BIT NACH LINKS.
;GESHIFTET... B
NE DN0 ;NOCH EIN BIT GE-.
;SETZT ? WENN JA,.
;WEITER, SONST:.. RTS
;RUECKSPRUNG..DTAB .BYTE 1,2,8
;2^7. .BYTE 0,6,4 ;..
.BYTE 0,3,2 ;.. .BYTE 0,
1,6 ;.. .BYTE 0,0,8 ;.
.BYTE 0,0,4 ;2^2. .BY
TE 0,0,2 ;2^1. .BYTE 0,0,1
;2^0..DL1 .BYTE 0..
> CLICK IMAGE PREVIEW FOR FULL MODAL