────────────────
FILE INFORMATION
FILENAME(S): ────────────────
FILE TYPE(S): PRG
FILE SIZE: 1.2K
FIRST SEEN: 2025-12-01 13:59:19
APPEARS ON: 2 disk(s)
FILE HASH
b0a88ff8936e6a2a8e1fb18400a6e2929b2094d50f3788aa1c977c9347334734
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DN PRG SERVICE | ──────────────── | PRG | HOL2001, OUG | 1 | 0 | DOWNLOAD FILE |
| DN PRG SERVICE | ──────────────── | PRG | HOL2001, OUG | 18 | 11 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 20 24 30 34 30 30 2B 31 36 0D 20 20 20 20 20 20 | $0400+16. | 00000010: 20 20 20 53 54 59 20 24 30 34 30 30 2B 31 37 0D | STY $0400+17.| 00000020: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 | JSR $FF| 00000030: 41 35 0D 20 20 20 20 20 20 20 20 20 53 54 41 20 |A5. STA | 00000040: 53 48 49 0D 20 20 20 20 20 20 20 20 20 4A 53 52 |SHI. JSR| 00000050: 20 48 45 58 0D 20 20 20 20 20 20 20 20 20 53 54 | HEX. ST| 00000060: 58 20 24 30 34 30 30 2B 31 34 0D 20 20 20 20 20 |X $0400+14. | 00000070: 20 20 20 20 53 54 59 20 24 30 34 30 30 2B 31 35 | STY $0400+15| 00000080: 0D 0D 4F 4B 0D 20 20 20 20 20 20 20 20 20 4A 53 |..OK. JS| 00000090: 52 20 24 46 46 45 31 0D 20 20 20 20 20 20 20 20 |R $FFE1. | 000000A0: 20 42 4E 45 20 54 52 54 0D 20 20 20 20 20 20 20 | BNE TRT. | 000000B0: 20 20 4A 4D 50 20 45 4E 44 45 0D 0D 0D 54 52 54 | JMP ENDE...TRT| 000000C0: 20 20 20 20 20 20 4C 44 41 20 24 41 46 0D 20 20 | LDA $AF. | 000000D0: 20 20 20 20 20 20 20 4A 53 52 20 48 45 58 0D 20 | JSR HEX. | 000000E0: 20 20 20 20 20 20 20 20 53 54 58 20 24 30 34 30 | STX $040| 000000F0: 30 2B 32 33 0D 20 20 20 20 20 20 20 20 20 53 54 |0+23. ST| 00000100: 59 20 24 30 34 30 30 2B 32 34 0D 20 20 20 20 20 |Y $0400+24. | 00000110: 20 20 20 20 4C 44 41 20 24 41 45 0D 20 20 20 20 | LDA $AE. | 00000120: 20 20 20 20 20 4A 53 52 20 48 45 58 0D 20 20 20 | JSR HEX. | 00000130: 20 20 20 20 20 20 53 54 58 20 24 30 34 30 30 2B | STX $0400+| 00000140: 32 35 0D 20 20 20 20 20 20 20 20 20 53 54 59 20 |25. STY | 00000150: 24 30 34 30 30 2B 32 36 0D 0D 0D 0D 20 20 20 20 |$0400+26.... | 00000160: 20 20 20 20 20 4A 53 52 20 24 46 46 41 35 0D 0D | JSR $FFA5..| 00000170: 20 20 20 20 20 20 20 20 20 42 49 54 20 24 39 30 | BIT $90| 00000180: 0D 20 20 20 20 20 20 20 20 20 42 4E 45 20 45 4E |. BNE EN| 00000190: 44 45 0D 0D 0D 20 20 20 20 20 20 20 20 20 4C 44 |DE... LD| 000001A0: 59 20 23 24 30 30 0D 20 20 20 20 20 20 20 20 20 |Y #$00. | 000001B0: 53 45 49 0D 20 20 20 20 20 20 20 20 20 53 54 59 |SEI. STY| 000001C0: 20 24 30 31 0D 20 20 20 20 20 20 20 20 20 53 54 | $01. ST| 000001D0: 41 20 28 53 4C 4F 29 2C 59 0D 20 20 20 20 20 20 |A (SLO),Y. | 000001E0: 20 20 20 44 45 59 0D 20 20 20 20 20 20 20 20 20 | DEY. | 000001F0: 53 54 59 20 24 30 31 0D 20 20 20 20 20 20 20 20 |STY $01. | 00000200: 20 43 4C 49 0D 0D 0D 0D 20 20 20 20 20 20 20 20 | CLI.... | 00000210: 20 49 4E 43 20 53 4C 4F 0D 20 20 20 20 20 20 20 | INC SLO. | 00000220: 20 20 42 4E 45 20 4F 4B 0D 0D 20 20 20 20 20 20 | BNE OK.. | 00000230: 20 20 20 49 4E 43 20 53 48 49 0D 0D 4B 4B 42 20 | INC SHI..KKB | 00000240: 20 20 20 20 20 42 4E 45 20 4F 4B 0D 0D 45 4E 44 | BNE OK..END| 00000250: 45 20 20 20 20 20 4A 53 52 20 24 46 46 43 33 0D |E JSR $FFC3.| 00000260: 20 20 20 20 20 20 20 20 20 4A 53 52 20 24 46 46 | JSR $FF| 00000270: 45 37 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 |E7. JMP | 00000280: 24 46 36 34 32 0D 0D 0D 4E 41 4D 20 20 20 20 20 |$F642...NAM | 00000290: 20 2E 54 45 58 54 20 22 41 22 0D 0D 20 3B 52 4F | .TEXT "A".. ;RO| 000002A0: 55 54 49 4E 45 20 5A 55 52 20 41 55 53 47 41 42 |UTINE ZUR AUSGAB| 000002B0: 45 20 45 49 4E 45 53 20 42 59 54 45 53 0D 20 3B |E EINES BYTES. ;| 000002C0: 48 45 58 5A 41 48 4C 20 57 49 52 44 20 41 4C 53 |HEXZAHL WIRD ALS| 000002D0: 20 44 45 43 49 4D 41 4C 5A 41 48 4C 0D 20 3B 41 | DECIMALZAHL. ;A| 000002E0: 55 53 47 45 47 45 42 45 4E 2E 20 57 45 52 54 20 |USGEGEBEN. WERT | 000002F0: 4D 55 53 53 20 49 4D 20 41 4B 4B 55 20 53 54 45 |MUSS IM AKKU STE| 00000300: 48 45 4E 0D 20 3B 20 20 20 20 20 20 20 20 20 20 |HEN. ; | 00000310: 20 20 20 20 20 20 28 57 29 20 42 59 20 4D 57 53 | (W) BY MWS| 00000320: 0D 0D 0D 0D 48 45 58 20 20 20 20 20 20 50 48 41 |....HEX PHA| 00000330: 0D 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D |. LSR A.| 00000340: 20 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 | LSR A. | 00000350: 20 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 | LSR A. | 00000360: 20 20 20 20 20 20 20 4C 53 52 20 41 0D 20 20 20 | LSR A. | 00000370: 20 20 20 20 20 20 4A 53 52 20 4C 4F 4F 50 0D 20 | JSR LOOP. | 00000380: 20 20 20 20 20 20 20 20 54 41 58 0D 20 20 20 20 | TAX. | 00000390: 20 20 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 | PLA. | 000003A0: 20 20 4A 53 52 20 4C 4F 4F 50 0D 20 20 20 20 20 | JSR LOOP. | 000003B0: 20 20 20 20 54 41 59 0D 20 20 20 20 20 20 20 20 | TAY. | 000003C0: 20 52 54 53 0D 0D 4C 4F 4F 50 20 20 20 20 20 41 | RTS..LOOP A| 000003D0: 4E 44 20 23 24 30 46 0D 20 20 20 20 20 20 20 20 |ND #$0F. | 000003E0: 20 43 4D 50 20 23 24 30 41 0D 20 20 20 20 20 20 | CMP #$0A. | 000003F0: 20 20 20 43 4C 43 0D 20 20 20 20 20 20 20 20 20 | CLC. | 00000400: 42 4D 49 20 4D 49 4E 55 53 0D 20 20 20 20 20 20 |BMI MINUS. | 00000410: 20 20 20 41 44 43 20 23 24 30 37 0D 4D 49 4E 55 | ADC #$07.MINU| 00000420: 53 20 20 20 20 41 44 43 20 23 24 33 30 0D 20 20 |S ADC #$30. | 00000430: 20 20 20 20 20 20 20 41 4E 44 20 23 24 33 46 0D | AND #$3F.| 00000440: 20 20 20 20 20 20 20 20 20 52 54 53 0D 0D 0D 50 | RTS...P| 00000450: 52 49 4E 54 20 20 20 20 2E 54 45 58 54 20 22 93 |RINT .TEXT ".| 00000460: 4C 4F 41 44 49 4E 47 20 46 52 4F 4D 20 24 2E 2E |LOADING FROM $..| 00000470: 2E 2E 22 0D 20 20 20 20 20 20 20 20 20 2E 54 45 |..". .TE| 00000480: 58 54 20 22 20 54 4F 20 24 2E 2E 2E 2E 22 0D 20 |XT " TO $....". | 00000490: 20 20 20 20 20 20 20 20 2E 42 59 54 45 20 30 0D | .BYTE 0.| 000004A0: 0D |. |
$0400+16. STY $0400+17.
JSR $FFA5. STA SHI. JSR
HEX. STX $0400+14. STY
$0400+15..OK. JSR $FFE1.
BNE TRT. JMP ENDE...TRT LD
A $AF. JSR HEX. STX $040
0+23. STY $0400+24. LDA
$AE. JSR HEX. STX $0400+
25. STY $0400+26.... JSR
$FFA5.. BIT $90. BNE EN
DE... LDY #$00. SEI.
STY $01. STA (SLO),Y.
DEY. STY $01. CLI....
INC SLO. BNE OK..
INC SHI..KKB BNE OK..ENDE JS
R $FFC3. JSR $FFE7. JMP
$F642...NAM .TEXT "A".. ;ROUTINE ZU
R AUSGABE EINES BYTES. ;HEXZAHL WIRD ALS
DECIMALZAHL. ;AUSGEGEBEN. WERT MUSS IM
AKKU STEHEN. ; (W) BY MWS
....HEX PHA. LSR A.
LSR A. LSR A. LSR A.
JSR LOOP. TAX. PLA
. JSR LOOP. TAY.
RTS..LOOP AND #$0F. CMP #$0
A. CLC. BMI MINUS.
ADC #$07.MINUS ADC #$30. A
ND #$3F. RTS...PRINT .TEXT ".
LOADING FROM $....". .TEXT " TO
$....". .BYTE 0..
> CLICK IMAGE PREVIEW FOR FULL MODAL