S01.STARTER
FILE INFORMATION
FILENAME(S): S01.STARTER
FILE TYPE(S): SEQ
FILE SIZE: 1.1K
FIRST SEEN: 2025-11-30 20:14:53
APPEARS ON: 1 disk(s)
FILE HASH
ff2494b04d9aef89a504197a29065fc006d5ce65c517c5446cc538f77e3986b7
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| DIETER I | S01.STARTER | SEQ | Curtcool, LPN | 7 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 4F 52 47 20 24 30 38 30 31 0D 3B 2A 2A 2A 2A 2A |ORG $0801.;*****| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 0D 3B 2A 20 C2 41 53 49 43 2D C1 4E 46 41 |**.;* .ASIC-.NFA| 00000030: 4E 47 20 20 20 20 20 20 20 20 2A 0D 3B 2A 20 48 |NG *.;* H| 00000040: 45 52 41 55 46 53 45 54 5A 45 4E 20 20 20 20 20 |ERAUFSETZEN | 00000050: 20 20 20 2A 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A | *.;**********| 00000060: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 0D |*************.;.| 00000070: 3A 43 48 4B 4F 4D 20 20 20 3D 20 20 24 41 45 46 |:CHKOM = $AEF| 00000080: 44 0D 3A 47 45 54 43 4F 52 20 20 3D 20 20 24 42 |D.:GETCOR = $B| 00000090: 37 45 42 0D 3A 50 4C 4F 54 43 55 52 20 3D 20 20 |7EB.:PLOTCUR = | 000000A0: 24 45 35 31 30 0D 3A 50 52 49 4E 54 20 20 20 3D |$E510.:PRINT =| 000000B0: 20 20 24 41 41 41 30 0D 3A 49 4C 4C 51 55 20 20 | $AAA0.:ILLQU | 000000C0: 20 3D 20 20 24 42 32 34 38 0D 3A 53 50 41 4C 54 | = $B248.:SPALT| 000000D0: 45 20 20 3D 20 20 24 44 33 0D 3A 5A 45 49 4C 45 |E = $D3.:ZEILE| 000000E0: 20 20 20 3D 20 20 24 44 36 0D 3B 0D 3B C2 C1 D3 | = $D6.;.;...| 000000F0: C9 C3 2D D3 D9 D3 2D DA 45 49 4C 45 0D 3B 0D 3A |..-...-.EILE.;.:| 00000100: 42 45 47 49 4E 20 20 20 20 57 20 53 54 41 52 54 |BEGIN W START| 00000110: 2B 31 0D 20 20 20 20 20 20 20 20 20 20 57 20 31 |+1. W 1| 00000120: 39 38 37 0D 20 20 20 20 20 20 20 20 20 20 42 20 |987. B | 00000130: 24 39 45 2C 22 32 35 36 22 2C 24 41 43 2C 24 43 |$9E,"256",$AC,$C| 00000140: 32 2C 24 32 38 2C 22 34 34 22 2C 24 32 39 2C 24 |2,$28,"44",$29,$| 00000150: 41 41 0D 20 20 20 20 20 20 20 20 20 20 42 20 24 |AA. B $| 00000160: 43 32 2C 24 32 38 2C 22 34 33 22 2C 24 32 39 2C |C2,$28,"43",$29,| 00000170: 24 41 41 2C 22 32 36 22 0D 3A 53 54 41 52 54 20 |$AA,"26".:START | 00000180: 20 20 20 42 20 30 2C 30 2C 30 0D 3B 0D 3A 53 45 | B 0,0,0.;.:SE| 00000190: 54 42 41 53 49 43 20 4C 44 41 20 34 34 0D 20 20 |TBASIC LDA 44. | 000001A0: 20 20 20 20 20 20 20 20 43 4C 43 0D 20 20 20 20 | CLC. | 000001B0: 20 20 20 20 20 20 41 44 43 20 23 3E 45 4E 44 45 | ADC #>ENDE| 000001C0: 2D 42 45 47 49 4E 2B 32 35 36 0D 20 20 20 20 20 |-BEGIN+256. | 000001D0: 20 20 20 20 20 53 54 41 20 34 34 0D 20 20 20 20 | STA 44. | 000001E0: 20 20 20 20 20 20 50 48 41 0D 20 20 20 20 20 20 | PHA. | 000001F0: 20 20 20 20 53 45 43 0D 20 20 20 20 20 20 20 20 | SEC. | 00000200: 20 20 53 42 43 20 23 31 0D 20 20 20 20 20 20 20 | SBC #1. | 00000210: 20 20 20 53 54 41 20 34 34 0D 20 20 20 20 20 20 | STA 44. | 00000220: 20 20 20 20 4C 44 59 20 32 35 35 0D 20 20 20 20 | LDY 255. | 00000230: 20 20 20 20 20 20 4C 44 41 20 23 30 0D 20 20 20 | LDA #0. | 00000240: 20 20 20 20 20 20 20 53 54 41 20 28 34 33 29 2C | STA (43),| 00000250: 59 0D 20 20 20 20 20 20 20 20 20 20 50 4C 41 0D |Y. PLA.| 00000260: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 34 34 | STA 44| 00000270: 0D 20 20 20 20 20 20 20 20 20 20 53 45 43 0D 20 |. SEC. | 00000280: 20 20 20 20 20 20 20 20 20 4C 44 41 20 34 36 0D | LDA 46.| 00000290: 20 20 20 20 20 20 20 20 20 20 53 42 43 20 34 34 | SBC 44| 000002A0: 0D 20 20 20 20 20 20 20 20 20 20 42 43 53 20 52 |. BCS R| 000002B0: 55 4E 0D 20 20 20 20 20 20 20 20 20 20 4C 44 41 |UN. LDA| 000002C0: 20 23 30 0D 20 20 20 20 20 20 20 20 20 20 4A 53 | #0. JS| 000002D0: 52 20 24 41 36 34 32 0D 3A 52 55 4E 20 20 20 20 |R $A642.:RUN | 000002E0: 20 20 4A 53 52 20 24 41 36 35 39 0D 20 20 20 20 | JSR $A659. | 000002F0: 20 20 20 20 20 20 4A 4D 50 20 24 41 37 41 45 0D | JMP $A7AE.| 00000300: 3B 0D 3B 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |;.;*************| 00000310: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 0D 3B 2A |*************.;*| 00000320: 20 C8 49 45 52 20 CD 41 53 43 48 49 4E 45 4E 2D | .IER .ASCHINEN-| 00000330: D0 52 47 20 20 20 20 20 2A 0D 3B 2A 2A 2A 2A 2A |.RG *.;*****| 00000340: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000350: 2A 2A 2A 2A 2A 0D 3B 0D 3A 50 52 49 4E 54 41 54 |*****.;.:PRINTAT| 00000360: 20 20 4A 53 52 20 43 48 4B 4F 4D 0D 20 20 20 20 | JSR CHKOM. | 00000370: 20 20 20 20 20 20 4A 53 52 20 47 45 54 43 4F 52 | JSR GETCOR| 00000380: 0D 20 20 20 20 20 20 20 20 20 20 43 50 58 20 23 |. CPX #| 00000390: 34 30 0D 20 20 20 20 20 20 20 20 20 20 42 43 53 |40. BCS| 000003A0: 20 5A 55 47 52 4F 53 53 0D 20 20 20 20 20 20 20 | ZUGROSS. | 000003B0: 20 20 20 4C 44 41 20 24 31 34 0D 20 20 20 20 20 | LDA $14. | 000003C0: 20 20 20 20 20 43 4D 50 20 23 32 35 0D 20 20 20 | CMP #25. | 000003D0: 20 20 20 20 20 20 20 42 43 53 20 5A 55 47 52 4F | BCS ZUGRO| 000003E0: 53 53 0D 20 20 20 20 20 20 20 20 20 20 53 54 58 |SS. STX| 000003F0: 20 53 50 41 4C 54 45 0D 20 20 20 20 20 20 20 20 | SPALTE. | 00000400: 20 20 53 54 41 20 5A 45 49 4C 45 0D 20 20 20 20 | STA ZEILE. | 00000410: 20 20 20 20 20 20 4A 53 52 20 50 4C 4F 54 43 55 | JSR PLOTCU| 00000420: 52 0D 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |R. JSR | 00000430: 43 48 4B 4F 4D 0D 20 20 20 20 20 20 20 20 20 20 |CHKOM. | 00000440: 4A 4D 50 20 50 52 49 4E 54 0D 3A 5A 55 47 52 4F |JMP PRINT.:ZUGRO| 00000450: 53 53 20 20 4A 4D 50 20 49 4C 4C 51 55 0D 3A 45 |SS JMP ILLQU.:E| 00000460: 4E 44 45 0D |NDE. |
ORG $0801.;***********************.;* BA
SIC-ANFANG *.;* HERAUFSETZEN
*.;***********************.;.:CHKOM
= $AEFD.:GETCOR = $B7EB.:PLOTCUR =
$E510.:PRINT = $AAA0.:ILLQU = $B24
8.:SPALTE = $D3.:ZEILE = $D6.;.;BAS
IC-SYS-ZEILE.;.:BEGIN W START+1.
W 1987. B $9E,"256",$AC,$C
2,$28,"44",$29,$AA. B $C2,$28,"
43",$29,$AA,"26".:START B 0,0,0.;.:SE
TBASIC LDA 44. CLC. AD
C #>ENDE-BEGIN+256. STA 44.
PHA. SEC. SBC #1
. STA 44. LDY 255.
LDA #0. STA (43),Y.
PLA. STA 44. SEC.
LDA 46. SBC 44.
BCS RUN. LDA #0. JS
R $A642.:RUN JSR $A659. JM
P $A7AE.;.;**************************.;*
HIER MASCHINEN-PRG *.;*************
*************.;.:PRINTAT JSR CHKOM.
JSR GETCOR. CPX #40.
BCS ZUGROSS. LDA $14.
CMP #25. BCS ZUGROSS.
STX SPALTE. STA ZEILE.
JSR PLOTCUR. JSR CHKOM.
JMP PRINT.:ZUGROSS JMP ILLQU.:E
NDE.
> CLICK IMAGE PREVIEW FOR FULL MODAL