PRG1.S4
FILE INFORMATION
FILENAME(S): PRG1.S4
FILE TYPE(S): PRG
FILE SIZE: 1.9K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 2 disk(s)
FILE HASH
68e8ee283ca82373dd3d9b42c35de277277e4eacad1b1053add5f4c0b43b02d8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11906 SONDERDISK | PRG1.S4 | PRG | C64er | 12 | 10 | DOWNLOAD FILE |
| 10906 SEITE B | PRG1.S4 | PRG | DuncanTwain | 12 | 10 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 15 08 64 00 9F 31 2C 38 2C 31 2C 22 50 52 |....d..1,8,1,"PR| 00000010: 47 31 2F 41 22 00 3B 08 6E 00 9E 37 AC 34 30 39 |G1/A".;.n..7.409| 00000020: 36 3A 20 20 20 20 20 3B 20 41 53 53 45 4D 42 4C |6: ; ASSEMBL| 00000030: 45 52 20 41 55 46 52 55 46 45 4E 00 62 08 78 00 |ER AUFRUFEN.b.x.| 00000040: 42 44 4F 53 20 B2 24 41 30 30 30 20 20 20 20 3B |BDOS .$A000 ;| 00000050: 20 53 54 41 52 54 41 44 52 45 53 53 45 20 42 44 | STARTADRESSE BD| 00000060: 4F 53 00 8A 08 82 00 50 52 47 20 20 B2 31 20 20 |OS.....PRG .1 | 00000070: 20 20 20 20 20 20 3B 20 46 55 45 52 20 49 4E 43 | ; FUER INC| 00000080: 4C 55 44 45 AB 44 41 54 45 49 00 AA 08 8C 00 2E |LUDE.DATEI......| 00000090: 49 43 4C 20 38 2C 22 42 44 53 2A 20 20 20 3B 20 |ICL 8,"BDS* ; | 000000A0: 53 54 52 55 4B 54 55 52 45 4E 00 CC 08 96 00 2E |STRUKTUREN......| 000000B0: 49 43 4C 20 38 2C 22 42 44 4A 2A 20 20 20 3B 20 |ICL 8,"BDJ* ; | 000000C0: 4A 55 4D 50 2D 54 41 42 45 4C 4C 45 00 F0 08 AA |JUMP-TABELLE....| 000000D0: 00 2E 4F 50 54 20 4F 31 20 20 20 20 20 20 20 20 |..OPT O1 | 000000E0: 3B 20 43 4F 44 45 20 49 4E 20 46 49 4C 45 20 31 |; CODE IN FILE 1| 000000F0: 00 16 09 B4 00 AC B2 24 37 30 30 30 20 20 20 20 |.......$7000 | 00000100: 20 20 20 20 3B 20 53 54 41 52 54 41 44 52 45 53 | ; STARTADRES| 00000110: 53 45 20 50 52 47 00 1C 09 BE 00 3B 00 50 09 C8 |SE PRG.....;.P..| 00000120: 00 3B 20 20 20 4A 53 52 20 49 4E 49 54 20 20 20 |.; JSR INIT | 00000130: 3B 20 49 4E 49 54 20 42 44 4F 53 2C 20 42 45 49 |; INIT BDOS, BEI| 00000140: 20 50 52 4F 4D 50 54 20 56 45 52 42 4F 54 45 4E | PROMPT VERBOTEN| 00000150: 00 56 09 D2 00 3B 00 76 09 DC 00 4C 44 41 20 23 |.V...;.v...LDA #| 00000160: 30 20 20 20 20 20 20 20 20 20 3B 20 4C 41 55 46 |0 ; LAUF| 00000170: 57 45 52 4B 20 41 00 92 09 E6 00 53 45 43 20 20 |WERK A.....SEC | 00000180: 20 20 20 20 20 20 20 20 20 20 3B 20 53 45 54 5A | ; SETZ| 00000190: 45 4E 00 B6 09 F0 00 4A 53 52 20 53 47 44 52 49 |EN.....JSR SGDRI| 000001A0: 56 45 20 20 20 20 3B 20 55 4E 44 20 41 55 53 46 |VE ; UND AUSF| 000001B0: 55 45 48 52 45 4E 00 BC 09 FA 00 3B 00 DD 09 04 |UEHREN.....;....| 000001C0: 01 4C 44 41 20 23 B3 44 54 50 20 20 20 20 20 20 |.LDA #.DTP | 000001D0: 3B 20 41 44 52 45 53 53 45 20 44 45 53 00 01 0A |; ADRESSE DES...| 000001E0: 0E 01 4C 44 59 20 23 B1 44 54 50 20 20 20 20 20 |..LDY #.DTP | 000001F0: 20 3B 20 44 49 53 4B AB 54 52 41 4E 53 46 45 52 | ; DISK.TRANSFER| 00000200: AB 00 1E 0A 18 01 53 45 43 20 20 20 20 20 20 20 |......SEC | 00000210: 20 20 20 20 20 3B 20 50 55 46 46 45 52 53 00 3A | ; PUFFERS.:| 00000220: 0A 22 01 4A 53 52 20 53 47 44 54 41 20 20 20 20 |.".JSR SGDTA | 00000230: 20 20 3B 20 53 45 54 5A 45 4E 00 40 0A 2C 01 3B | ; SETZEN.@.,.;| 00000240: 00 5B 0A 36 01 4C 44 41 20 23 22 2A 22 20 20 20 |.[.6.LDA #"*" | 00000250: 20 20 20 20 3B 20 4A 4F 4B 45 52 00 7A 0A 40 01 | ; JOKER.z.@.| 00000260: 53 54 41 20 44 54 50 AA 44 53 4E 41 4D 45 20 3B |STA DTP.DSNAME ;| 00000270: 20 46 55 45 52 20 4E 41 4D 45 00 9C 0A 4A 01 53 | FUER NAME...J.S| 00000280: 54 41 20 44 54 50 AA 44 53 45 58 54 20 20 3B 20 |TA DTP.DSEXT ; | 00000290: 55 4E 44 20 45 58 54 45 4E 53 49 91 00 BA 0A 54 |UND EXTENSI....T| 000002A0: 01 4C 44 41 20 23 25 30 30 31 31 31 31 31 30 20 |.LDA #%00111110 | 000002B0: 3B 20 41 54 54 52 49 42 55 54 00 D6 0A 5E 01 53 |; ATTRIBUT...^.S| 000002C0: 54 41 20 44 54 50 AA 44 53 41 54 54 52 20 3B 20 |TA DTP.DSATTR ; | 000002D0: 53 45 54 5A 45 4E 00 F8 0A 68 01 4A 53 52 20 53 |SETZEN...h.JSR S| 000002E0: 46 49 52 53 54 20 20 20 20 20 3B 20 45 52 53 54 |FIRST ; ERST| 000002F0: 45 4E 20 45 B5 52 41 47 00 20 0B 72 01 4A 4D 50 |EN E.RAG. .r.JMP| 00000300: 20 4C 4F 4F 50 31 20 20 20 20 20 20 3B 20 53 55 | LOOP1 ; SU| 00000310: 43 48 45 4E 20 55 4E 44 20 44 52 55 43 4B 45 4E |CHEN UND DRUCKEN| 00000320: 00 26 0B 7C 01 3B 00 43 0B 86 01 4C 4F 4F 50 20 |.&.|.;.C...LOOP | 00000330: 20 20 20 20 20 20 20 20 20 20 3B 20 53 43 48 4C | ; SCHL| 00000340: 45 8B 45 00 65 0B 90 01 4A 53 52 20 53 82 20 20 |E.E.e...JSR S. | 00000350: 20 20 20 20 3B 20 4E 41 45 43 48 53 54 45 52 20 | ; NAECHSTER | 00000360: 45 B5 52 41 47 00 6F 0B 9A 01 4C 4F 4F 50 31 00 |E.RAG.o...LOOP1.| 00000370: 91 0B A4 01 42 4E 45 20 80 44 49 52 20 20 20 20 |....BNE .DIR | 00000380: 20 3B 20 4E 49 43 48 54 20 47 45 46 55 4E 44 45 | ; NICHT GEFUNDE| 00000390: 4E 00 97 0B AE 01 3B 00 AF 0B B8 01 4C 44 41 20 |N.....;.....LDA | 000003A0: 23 31 33 20 20 20 20 20 20 20 20 3B 20 43 52 00 |#13 ; CR.| 000003B0: CD 0B C2 01 4A 53 52 20 24 46 46 44 32 20 20 20 |....JSR $FFD2 | 000003C0: 20 20 20 3B 20 41 55 53 47 45 42 45 4E 00 ED 0B | ; AUSGEBEN...| 000003D0: CC 01 4C 44 59 20 23 30 20 20 20 20 20 20 20 20 |..LDY #0 | 000003E0: 20 3B 20 49 4E 44 45 58 20 4E 41 4D 45 00 F6 0B | ; INDEX NAME...| 000003F0: D6 01 4E 41 4D 45 00 0B 0C E0 01 4C 44 41 20 44 |..NAME.....LDA D| 00000400: 54 50 AA 44 47 4E 41 4D 45 2C 59 00 2F 0C EA 01 |TP.DGNAME,Y./...| 00000410: 4A 53 52 20 24 46 46 44 32 20 20 20 20 20 20 3B |JSR $FFD2 ;| 00000420: 20 4E 41 4D 45 4E 20 41 55 53 47 45 42 45 4E 00 | NAMEN AUSGEBEN.| 00000430: 37 0C F4 01 49 4E 59 00 42 0C FE 01 43 50 59 20 |7...INY.B...CPY | 00000440: 23 38 00 4F 0C 08 02 42 4E 45 20 4E 41 4D 45 00 |#8.O...BNE NAME.| 00000450: 55 0C 12 02 3B 00 79 0C 1C 02 4C 44 59 20 23 30 |U...;.y...LDY #0| 00000460: 20 20 20 20 20 20 20 20 20 3B 20 49 4E 44 45 58 | ; INDEX| 00000470: 20 45 58 54 45 4E 53 49 91 00 83 0C 26 02 45 58 | EXTENSI....&.EX| 00000480: 54 45 4E 00 97 0C 30 02 4C 44 41 20 44 54 50 AA |TEN...0.LDA DTP.| 00000490: 44 47 45 58 54 2C 59 00 BE 0C 3A 02 4A 53 52 20 |DGEXT,Y...:.JSR | 000004A0: 24 46 46 44 32 20 20 20 20 20 20 3B 20 45 58 54 |$FFD2 ; EXT| 000004B0: 45 4E 53 49 91 20 41 55 53 47 45 42 45 4E 00 C6 |ENSI. AUSGEBEN..| 000004C0: 0C 44 02 49 4E 59 00 D1 0C 4E 02 43 50 59 20 23 |.D.INY...N.CPY #| 000004D0: 33 00 DF 0C 58 02 42 4E 45 20 45 58 54 45 4E 00 |3...X.BNE EXTEN.| 000004E0: E5 0C 62 02 3B 00 00 0D 6C 02 4C 44 41 20 23 22 |..b.;...l.LDA #"| 000004F0: 20 22 20 20 20 20 20 20 20 3B 20 53 50 41 43 45 | " ; SPACE| 00000500: 00 1E 0D 76 02 4A 53 52 20 24 46 46 44 32 20 20 |...v.JSR $FFD2 | 00000510: 20 20 20 20 3B 20 41 55 53 47 45 42 45 4E 00 3C | ; AUSGEBEN.<| 00000520: 0D 80 02 4C 44 41 20 44 54 50 AA 44 47 41 54 54 |...LDA DTP.DGATT| 00000530: 52 20 3B 20 41 54 54 52 49 42 55 54 00 44 0D 8A |R ; ATTRIBUT.D..| 00000540: 02 54 41 58 00 67 0D 94 02 AF 20 23 38 20 20 20 |.TAX.g.... #8 | 00000550: 20 20 20 20 20 20 3B 20 4D 41 53 4B 45 20 44 49 | ; MASKE DI| 00000560: 53 4B AB 4E 41 4D 45 00 75 0D 9E 02 42 45 51 20 |SK.NAME.u...BEQ | 00000570: 4E 91 41 4D 45 00 82 0D A8 02 4C 44 41 20 23 22 |N.AME.....LDA #"| 00000580: 4E 22 00 90 0D B2 02 4A 53 52 20 24 46 46 44 32 |N".....JSR $FFD2| 00000590: 00 9A 0D BC 02 4E 91 41 4D 45 00 A0 0D C6 02 3B |.....N.AME.....;| 000005A0: 00 A8 0D D0 02 54 58 41 00 C8 0D DA 02 AF 20 23 |.....TXA...... #| 000005B0: 31 36 20 20 20 20 20 20 20 20 3B 20 4D 41 53 4B |16 ; MASK| 000005C0: 45 20 53 55 42 44 49 52 00 D6 0D E4 02 42 45 51 |E SUBDIR.....BEQ| 000005D0: 20 4E 4F 44 49 52 00 E3 0D EE 02 4C 44 41 20 23 | NODIR.....LDA #| 000005E0: 22 44 22 00 F1 0D F8 02 4A 53 52 20 24 46 46 44 |"D".....JSR $FFD| 000005F0: 32 00 FB 0D 02 03 4E 4F 44 49 52 00 01 0E 0C 03 |2.....NODIR.....| 00000600: 3B 00 09 0E 16 03 54 58 41 00 2B 0E 20 03 AF 20 |;.....TXA.+. .. | 00000610: 23 34 20 20 20 20 20 20 20 20 20 3B 20 4D 41 53 |#4 ; MAS| 00000620: 4B 45 20 9E 54 45 4D 46 49 4C 45 00 37 0E 2A 03 |KE .TEMFILE.7.*.| 00000630: 42 45 51 20 4E 4F 9E 00 44 0E 34 03 4C 44 41 20 |BEQ NO..D.4.LDA | 00000640: 23 22 53 22 00 52 0E 3E 03 4A 53 52 20 24 46 46 |#"S".R.>.JSR $FF| 00000650: 44 32 00 5A 0E 48 03 4E 4F 9E 00 60 0E 52 03 3B |D2.Z.H.NO..`.R.;| 00000660: 00 6D 0E 5C 03 4A 4D 50 20 4C 4F 4F 50 00 73 0E |.m.\.JMP LOOP.s.| 00000670: 66 03 3B 00 7C 0E 70 03 80 44 49 52 00 94 0E 7A |f.;.|.p..DIR...z| 00000680: 03 4C 44 41 20 23 31 33 20 20 20 20 20 20 20 20 |.LDA #13 | 00000690: 3B 20 43 52 00 B2 0E 84 03 4A 53 52 20 24 46 46 |; CR.....JSR $FF| 000006A0: 44 32 20 20 20 20 20 20 3B 20 41 55 53 47 45 42 |D2 ; AUSGEB| 000006B0: 45 4E 00 E6 0E 8E 03 3B 20 20 4A 53 52 20 45 58 |EN.....; JSR EX| 000006C0: 49 54 20 20 20 20 3B 20 42 45 49 20 41 55 46 52 |IT ; BEI AUFR| 000006D0: 55 46 20 41 55 53 20 50 52 4F 4D 50 54 20 56 45 |UF AUS PROMPT VE| 000006E0: 52 42 4F 54 45 4E 00 15 0F 98 03 4C 44 41 20 23 |RBOTEN.....LDA #| 000006F0: 30 20 20 20 20 20 20 20 20 20 3B 20 46 45 48 4C |0 ; FEHL| 00000700: 45 52 4D 45 4C 44 55 4E 47 20 46 55 45 52 20 50 |ERMELDUNG FUER P| 00000710: 52 4F 4D 50 54 00 1D 0F A2 03 52 54 53 00 25 0F |ROMPT.....RTS.%.| 00000720: AC 03 44 54 50 00 38 0F B6 03 2E 57 B0 44 20 30 |..DTP.8....W.D 0| 00000730: 2C 30 2C 30 2C 30 2C 30 00 4B 0F C0 03 2E 57 B0 |,0,0,0,0.K....W.| 00000740: 44 20 30 2C 30 2C 30 2C 30 2C 30 00 5E 0F CA 03 |D 0,0,0,0,0.^...| 00000750: 2E 57 B0 44 20 30 2C 30 2C 30 2C 30 2C 30 00 71 |.W.D 0,0,0,0,0.q| 00000760: 0F D4 03 2E 57 B0 44 20 30 2C 30 2C 30 2C 30 2C |....W.D 0,0,0,0,| 00000770: 30 00 84 0F DE 03 2E 57 B0 44 20 30 2C 30 2C 30 |0......W.D 0,0,0| 00000780: 2C 30 2C 30 00 00 00 |,0,0... |
....D..1,8,1,"PRG1/A".;.N..7.4096: ;
ASSEMBLER AUFRUFEN.B.X.BDOS .$A000 ;
STARTADRESSE BDOS.....PRG .1 ;
FUER INCLUDE.DATEI......ICL 8,"BDS* ;
STRUKTUREN.L....ICL 8,"BDJ* ; JUMP-TAB
ELLE......OPT O1 ; CODE IN FILE 1
.......$7000 ; STARTADRESSE PRG..
...;.P.H.; JSR INIT ; INIT BDOS, BEI
PROMPT VERBOTEN.V.R.;.V...LDA #0
; LAUFWERK A.....SEC ; SETZ
EN.....JSR SGDRIVE ; UND AUSFUEHREN..
...;.....LDA #.DTP ; ADRESSE DES...
..LDY #.DTP ; DISK.TRANSFER......SE
C ; PUFFERS.:.".JSR SGDTA
; SETZEN.@.,.;.[.6.LDA #"*" ; JO
KER.Z.@.STA DTP.DSNAME ; FUER NAME...J.S
TA DTP.DSEXT ; UND EXTENSI....T.LDA #%0
0111110 ; ATTRIBUT.V.^.STA DTP.DSATTR ;
SETZEN...H.JSR SFIRST ; ERSTEN E.RAG
. .R.JMP LOOP1 ; SUCHEN UND DRUCKEN
.&.|.;.C...LOOP ; SCHLE.E.E...
JSR S. ; NAECHSTER E.RAG.O...LOOP1.
....BNE .DIR ; NICHT GEFUNDEN.....;.
....LDA #13 ; CR.M.B.JSR $FFD2
; AUSGEBEN...L.LDY #0 ; INDEX
NAME...V.NAME.....LDA DTP.DGNAME,Y./...
JSR $FFD2 ; NAMEN AUSGEBEN.7...INY.
B...CPY #8.O...BNE NAME.U...;.Y...LDY #0
; INDEX EXTENSI....&.EXTEN...0.
LDA DTP.DGEXT,Y...:.JSR $FFD2 ; EXT
ENSI. AUSGEBEN.F.D.INY.Q.N.CPY #3...X.BN
E EXTEN...B.;...L.LDA #" " ; SPACE
...V.JSR $FFD2 ; AUSGEBEN.<...LDA D
TP.DGATTR ; ATTRIBUT.D...TAX.G.... #8
; MASKE DISK.NAME.U...BEQ N.AME...
..LDA #"N".....JSR $FFD2.....N.AME. .F.;
...P.TXA.H.Z.. #16 ; MASKE SUBDIR
.V...BEQ NODIR.....LDA #"D".....JSR $FFD
2.....NODIR.....;.....TXA.+. .. #4
; MASKE .TEMFILE.7.*.BEQ NO..D.4.LDA
#"S".R.>.JSR $FFD2.Z.H.NO..`.R.;.M.\.JMP
LOOP.S.F.;.|.P..DIR...Z.LDA #13
; CR.....JSR $FFD2 ; AUSGEBEN.....;
JSR EXIT ; BEI AUFRUF AUS PROMPT VE
RBOTEN.....LDA #0 ; FEHLERMELDUN
G FUER PROMPT.....RTS.%...DTP.8....W.D 0
,0,0,0,0.K....W.D 0,0,0,0,0.^.J..W.D 0,0
,0,0,0.Q.T..W.D 0,0,0,0,0......W.D 0,0,0
,0,0...
> CLICK IMAGE PREVIEW FOR FULL MODAL