GET/PRINT .SRC
FILE INFORMATION
FILENAME(S): GET/PRINT .SRC
FILE TYPE(S): SEQ
FILE SIZE: 1.3K
FIRST SEEN: 2025-12-01 13:59:19
APPEARS ON: 1 disk(s)
FILE HASH
3f21c54d6bd2fd449bb0ec149bc54ab1906c0dd0494d6d6cb99e78e9a9b108b0
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DN PRG SERVICE | GET/PRINT .SRC | SEQ | HOL2001, OUG | 1 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D 0D |................| 00000010: 0D 0D 0D 0D 47 45 54 20 20 20 20 20 20 53 54 41 |....GET STA| 00000020: 20 24 30 32 0D 20 20 20 20 20 20 20 20 20 53 54 | $02. ST| 00000030: 58 20 41 4E 46 2B 31 0D 20 20 20 20 20 20 20 20 |X ANF+1. | 00000040: 20 53 54 59 20 45 4E 44 2B 31 0D 20 20 20 20 20 | STY END+1. | 00000050: 20 20 20 20 4C 44 59 20 24 44 33 0D 20 20 20 20 | LDY $D3. | 00000060: 20 20 20 20 20 53 54 59 20 24 30 33 0D 0D 4B 45 | STY $03..KE| 00000070: 59 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 |Y. LDY $| 00000080: 44 33 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 |D3. LDA | 00000090: 23 24 32 30 0D 20 20 20 20 20 20 20 20 20 53 54 |#$20. ST| 000000A0: 41 20 28 24 44 31 29 2C 59 0D 0D 20 20 20 20 20 |A ($D1),Y.. | 000000B0: 20 20 20 20 4C 44 41 20 23 24 30 30 0D 20 20 20 | LDA #$00. | 000000C0: 20 20 20 20 20 20 53 54 41 20 24 43 43 0D 20 20 | STA $CC. | 000000D0: 20 20 20 20 20 20 20 53 54 41 20 24 43 36 0D 4B | STA $C6.K| 000000E0: 45 59 31 0D 20 20 20 20 20 20 20 20 20 4C 44 41 |EY1. LDA| 000000F0: 20 24 43 36 0D 20 20 20 20 20 20 20 20 20 42 45 | $C6. BE| 00000100: 51 20 4B 45 59 31 0D 0D 0D 20 20 20 20 20 20 20 |Q KEY1... | 00000110: 20 20 4C 44 41 20 24 30 32 37 37 0D 20 20 20 20 | LDA $0277. | 00000120: 20 20 20 20 20 43 4D 50 20 23 24 31 34 0D 20 20 | CMP #$14. | 00000130: 20 20 20 20 20 20 20 42 4E 45 20 52 45 54 55 52 | BNE RETUR| 00000140: 4E 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 |N. LDY $| 00000150: 44 33 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 |D3. CPY | 00000160: 24 30 33 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$03. BEQ| 00000170: 20 4B 45 59 0D 20 20 20 20 20 20 20 20 20 4C 44 | KEY. LD| 00000180: 41 20 23 24 32 30 0D 20 20 20 20 20 20 20 20 20 |A #$20. | 00000190: 53 54 41 20 28 24 44 31 29 2C 59 0D 20 20 20 20 |STA ($D1),Y. | 000001A0: 20 20 20 20 20 44 45 43 20 24 44 33 0D 20 20 20 | DEC $D3. | 000001B0: 20 20 20 20 20 20 49 4E 43 20 24 30 32 0D 20 20 | INC $02. | 000001C0: 20 20 20 20 20 20 20 4A 4D 50 20 4B 45 59 0D 0D | JMP KEY..| 000001D0: 0D 0D 52 45 54 55 52 4E 0D 0D 20 20 20 20 20 20 |..RETURN.. | 000001E0: 20 20 20 43 4D 50 20 23 24 30 44 0D 20 20 20 20 | CMP #$0D. | 000001F0: 20 20 20 20 20 42 4E 45 20 41 55 53 47 41 42 45 | BNE AUSGABE| 00000200: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 44 |. LDY $D| 00000210: 33 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 24 |3. CPY $| 00000220: 30 33 0D 20 20 20 20 20 20 20 20 20 42 45 51 20 |03. BEQ | 00000230: 4B 45 59 0D 0D 20 20 20 20 20 20 20 20 20 4A 4D |KEY.. JM| 00000240: 50 20 45 4E 44 45 0D 0D 0D 41 55 53 47 41 42 45 |P ENDE...AUSGABE| 00000250: 0D 20 20 20 20 20 20 20 20 20 4C 44 59 20 24 30 |. LDY $0| 00000260: 32 0D 20 20 20 20 20 20 20 20 20 43 50 59 20 23 |2. CPY #| 00000270: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 45 51 |$FF. BEQ| 00000280: 20 4B 45 59 0D 0D 41 4E 46 20 20 20 20 20 20 43 | KEY..ANF C| 00000290: 4D 50 20 23 24 32 30 0D 20 20 20 20 20 20 20 20 |MP #$20. | 000002A0: 20 42 4D 49 20 4B 45 59 0D 45 4E 44 20 20 20 20 | BMI KEY.END | 000002B0: 20 20 43 4D 50 20 23 24 36 30 0D 20 20 20 20 20 | CMP #$60. | 000002C0: 20 20 20 20 42 50 4C 20 4B 45 59 0D 0D 20 20 20 | BPL KEY.. | 000002D0: 20 20 20 20 20 20 41 4E 44 20 23 24 33 46 0D 20 | AND #$3F. | 000002E0: 20 20 20 20 20 20 20 20 4C 44 59 20 24 44 33 0D | LDY $D3.| 000002F0: 20 20 20 20 20 20 20 20 20 53 54 41 20 28 24 44 | STA ($D| 00000300: 31 29 2C 59 0D 20 20 20 20 20 20 20 20 20 49 4E |1),Y. IN| 00000310: 43 20 24 44 33 0D 20 20 20 20 20 20 20 20 20 44 |C $D3. D| 00000320: 45 43 20 24 30 32 0D 20 20 20 20 20 20 20 20 20 |EC $02. | 00000330: 4A 4D 50 20 4B 45 59 0D 0D 45 4E 44 45 0D 20 20 |JMP KEY..ENDE. | 00000340: 20 20 20 20 20 20 20 4C 44 41 20 24 30 34 0D 20 | LDA $04. | 00000350: 20 20 20 20 20 20 20 20 42 45 51 20 52 52 52 0D | BEQ RRR.| 00000360: 0D 20 20 20 20 20 20 20 20 20 4C 44 41 20 24 30 |. LDA $0| 00000370: 32 0D 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 |2. CMP #| 00000380: 24 46 46 0D 20 20 20 20 20 20 20 20 20 42 4E 45 |$FF. BNE| 00000390: 20 4B 45 59 0D 0D 52 52 52 0D 20 20 20 20 20 20 | KEY..RRR. | 000003A0: 20 20 20 4C 44 41 20 23 24 30 31 0D 20 20 20 20 | LDA #$01. | 000003B0: 20 20 20 20 20 53 54 41 20 24 43 43 0D 0D 0D 20 | STA $CC... | 000003C0: 20 20 20 20 20 20 20 20 4C 44 41 20 23 24 32 30 | LDA #$20| 000003D0: 0D 20 20 20 20 20 20 20 20 20 4A 4D 50 20 24 46 |. JMP $F| 000003E0: 46 44 32 0D 0D 0D 55 4D 0D 0D 20 20 20 20 20 20 |FD2...UM.. | 000003F0: 20 20 20 50 48 41 0D 20 20 20 20 20 20 20 20 20 | PHA. | 00000400: 4C 44 41 20 24 46 42 0D 20 20 20 20 20 20 20 20 |LDA $FB. | 00000410: 20 4A 53 52 20 55 4D 57 0D 20 20 20 20 20 20 20 | JSR UMW. | 00000420: 20 20 53 54 41 20 24 46 42 0D 20 20 20 20 20 20 | STA $FB. | 00000430: 20 20 20 50 4C 41 0D 20 20 20 20 20 20 20 20 20 | PLA. | 00000440: 4A 53 52 20 55 4D 57 0D 20 20 20 20 20 20 20 20 |JSR UMW. | 00000450: 20 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 | ASL A. | 00000460: 41 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 |ASL A. A| 00000470: 53 4C 20 41 0D 20 20 20 20 20 20 20 20 20 41 53 |SL A. AS| 00000480: 4C 20 41 0D 20 20 20 20 20 20 20 20 20 4F 52 41 |L A. ORA| 00000490: 20 24 46 42 0D 20 20 20 20 20 20 20 20 20 52 54 | $FB. RT| 000004A0: 53 0D 0D 55 4D 57 20 20 20 20 20 20 43 4D 50 20 |S..UMW CMP | 000004B0: 23 24 34 31 0D 20 20 20 20 20 20 20 20 20 53 45 |#$41. SE| 000004C0: 43 0D 20 20 20 20 20 20 20 20 20 42 4D 49 20 59 |C. BMI Y| 000004D0: 45 53 0D 20 20 20 20 20 20 20 20 20 53 42 43 20 |ES. SBC | 000004E0: 23 24 30 37 0D 59 45 53 20 20 20 20 20 20 53 42 |#$07.YES SB| 000004F0: 43 20 23 24 33 30 0D 20 20 20 20 20 20 20 20 20 |C #$30. | 00000500: 52 54 53 0D 0D |RTS.. |
....................GET STA $02.
STX ANF+1. STY END+1.
LDY $D3. STY $03..KEY.
LDY $D3. LDA #$20. ST
A ($D1),Y.. LDA #$00. ST
A $CC. STA $C6.KEY1. LDA
$C6. BEQ KEY1... LDA $0
277. CMP #$14. BNE RETUR
N. LDY $D3. CPY $03.
BEQ KEY. LDA #$20.
STA ($D1),Y. DEC $D3. IN
C $02. JMP KEY....RETURN..
CMP #$0D. BNE AUSGABE.
LDY $D3. CPY $03. BEQ
KEY.. JMP ENDE...AUSGABE.
LDY $02. CPY #$FF. BEQ
KEY..ANF CMP #$20. BMI KEY
.END CMP #$60. BPL KEY..
AND #$3F. LDY $D3.
STA ($D1),Y. INC $D3. D
EC $02. JMP KEY..ENDE. L
DA $04. BEQ RRR.. LDA $0
2. CMP #$FF. BNE KEY..RR
R. LDA #$01. STA $CC...
LDA #$20. JMP $FFD2...UM
.. PHA. LDA $FB.
JSR UMW. STA $FB. PLA.
JSR UMW. ASL A.
ASL A. ASL A. ASL A.
ORA $FB. RTS..UMW CMP
#$41. SEC. BMI YES.
SBC #$07.YES SBC #$30.
RTS..
> CLICK IMAGE PREVIEW FOR FULL MODAL