S-FLOPRW.S5
FILE INFORMATION
FILENAME(S): S-FLOPRW.S5
FILE TYPE(S): PRG
FILE SIZE: 1.5K
FIRST SEEN: 2025-11-30 01:13:10
APPEARS ON: 2 disk(s)
FILE HASH
9d2807ad75fc516c9401963bc39455ac05594779c9f3b2b0d620ab5d766bedea
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 11906 SONDERDISK | S-FLOPRW.S5 | PRG | C64er | 23 | 8 | DOWNLOAD FILE |
| 10906 SEITE B | S-FLOPRW.S5 | PRG | DuncanTwain | 23 | 8 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 1C 08 5A 00 9F 31 2C 38 2C 31 2C 22 53 2D |....Z..1,8,1,"S-| 00000010: 46 4C 4F 50 52 57 20 37 45 2F 41 22 00 38 08 64 |FLOPRW 7E/A".8.d| 00000020: 00 9E 37 AC 34 30 39 36 3A 2E 4F 50 54 20 4F 31 |..7.4096:.OPT O1| 00000030: 3A AC B2 24 37 45 30 30 00 43 08 6E 00 50 52 47 |:..$7E00.C.n.PRG| 00000040: 20 B2 31 00 53 08 78 00 42 44 4F 53 20 B2 24 41 | .1.S.x.BDOS .$A| 00000050: 30 30 30 00 63 08 7D 00 2E 8B 20 23 3A 2E 89 20 |000.c.}... #:.. | 00000060: 32 31 30 00 74 08 82 00 2E 49 43 4C 20 38 2C 22 |210.t....ICL 8,"| 00000070: 42 44 53 2A 00 85 08 8C 00 2E 49 43 4C 20 38 2C |BDS*......ICL 8,| 00000080: 22 42 44 4B 2A 00 96 08 96 00 2E 49 43 4C 20 38 |"BDK*......ICL 8| 00000090: 2C 22 42 44 4A 2A 00 A7 08 A0 00 2E 49 43 4C 20 |,"BDJ*......ICL | 000000A0: 38 2C 22 42 44 45 2A 00 B8 08 AA 00 43 55 52 53 |8,"BDE*.....CURS| 000000B0: B0 20 B2 24 46 46 46 30 00 C6 08 D2 00 3B AC AC |. .$FFF0.....;..| 000000C0: AC AC AC AC AC AC 00 F4 08 DC 00 52 44 49 4E 49 |...........RDINI| 000000D0: 54 20 4A 53 52 20 56 45 52 53 49 91 3A 53 54 58 |T JSR VERSI.:STX| 000000E0: 20 52 57 42 5A 45 49 3A 53 54 59 20 52 57 42 5A | RWBZEI:STY RWBZ| 000000F0: 45 49 AA 31 00 2E 09 E6 00 4C 44 59 20 23 56 45 |EI.1.....LDY #VE| 00000100: 4A 4D 50 41 44 52 AA 31 3A 4C 44 41 20 28 52 57 |JMPADR.1:LDA (RW| 00000110: 42 5A 45 49 29 2C 59 3A 54 41 58 3A 44 45 59 3A |BZEI),Y:TAX:DEY:| 00000120: 4C 44 41 20 28 52 57 42 5A 45 49 29 2C 59 00 4A |LDA (RWBZEI),Y.J| 00000130: 09 F0 00 53 54 41 20 52 57 42 5A 45 49 3A 53 54 |...STA RWBZEI:ST| 00000140: 58 20 52 57 42 5A 45 49 AA 31 00 55 09 FA 00 4C |X RWBZEI.1.U...L| 00000150: 44 58 20 23 30 00 69 09 04 01 4C 31 20 4C 44 59 |DX #0.i...L1 LDY| 00000160: 20 4A 4D 50 41 44 52 2C 58 00 89 09 0E 01 4C 44 | JMPADR,X.....LD| 00000170: 41 20 28 52 57 42 5A 45 49 29 2C 59 3A 53 54 41 |A (RWBZEI),Y:STA| 00000180: 20 4A 4D 50 4F 4C 44 2C 58 00 A7 09 18 01 4C 44 | JMPOLD,X.....LD| 00000190: 41 20 4A 4D 50 A2 2C 58 3A 53 54 41 20 28 52 57 |A JMP.,X:STA (RW| 000001A0: 42 5A 45 49 29 2C 59 00 B3 09 22 01 49 4E 58 3A |BZEI),Y...".INX:| 000001B0: 49 4E 59 00 D3 09 2C 01 4C 44 41 20 28 52 57 42 |INY...,.LDA (RWB| 000001C0: 5A 45 49 29 2C 59 3A 53 54 41 20 4A 4D 50 4F 4C |ZEI),Y:STA JMPOL| 000001D0: 44 2C 58 00 F1 09 36 01 4C 44 41 20 4A 4D 50 A2 |D,X...6.LDA JMP.| 000001E0: 2C 58 3A 53 54 41 20 28 52 57 42 5A 45 49 29 2C |,X:STA (RWBZEI),| 000001F0: 59 00 FD 09 40 01 49 4E 58 3A 49 4E 59 00 24 0A |Y...@.INX:INY.$.| 00000200: 4A 01 43 50 58 20 23 41 4E 5A A2 AC 32 3B 20 41 |J.CPX #ANZ..2; A| 00000210: 4E 5A 41 48 4C 20 4E 45 55 45 52 20 52 4F 55 54 |NZAHL NEUER ROUT| 00000220: 49 4E 45 4E 00 2F 0A 54 01 42 43 43 20 4C 31 00 |INEN./.T.BCC L1.| 00000230: 41 0A 59 01 54 80 20 4C 44 41 20 23 30 3A 52 54 |A.Y.T. LDA #0:RT| 00000240: 53 00 50 0A E7 03 3B AC AC AC AC AC AC AC AC AC |S.P...;.........| 00000250: 00 82 0A E8 03 54 46 4C 4F 50 52 57 20 53 54 41 |.....TFLOPRW STA| 00000260: 20 5A 45 49 3A 53 54 59 20 5A 45 49 AA 31 3A 50 | ZEI:STY ZEI.1:P| 00000270: 48 41 3A 54 59 41 3A 50 48 41 3A 54 58 41 3A 50 |HA:TYA:PHA:TXA:P| 00000280: 48 41 00 A9 0A ED 03 53 45 43 3A 4A 53 52 20 43 |HA.....SEC:JSR C| 00000290: 55 52 53 B0 3A 53 54 58 20 5A 45 49 4C 45 3A 53 |URS.:STX ZEILE:S| 000002A0: 54 59 20 53 50 41 4C 54 45 00 CA 0A F2 03 4C 44 |TY SPALTE.....LD| 000002B0: 58 20 23 30 3A 4C 44 59 20 23 31 38 3A 43 4C 43 |X #0:LDY #18:CLC| 000002C0: 3A 4A 53 52 20 43 55 52 53 B0 00 02 0B FC 03 4C |:JSR CURS......L| 000002D0: 44 59 20 23 50 42 52 57 46 4C 41 47 3A 4C 44 41 |DY #PBRWFLAG:LDA| 000002E0: 20 28 5A 45 49 29 2C 59 3A 42 45 51 20 4C 31 41 | (ZEI),Y:BEQ L1A| 000002F0: 3A 4C 44 41 20 23 22 57 22 3A 2E 42 59 54 20 24 |:LDA #"W":.BYT $| 00000300: 32 43 00 27 0B 06 04 4C 31 41 20 4C 44 41 20 23 |2C.'...L1A LDA #| 00000310: 22 52 22 3A 4A 53 52 20 42 53 4F 55 54 3A 4A 53 |"R":JSR BSOUT:JS| 00000320: 52 20 53 50 4F 55 54 00 50 0B 10 04 4C 44 59 20 |R SPOUT.P...LDY | 00000330: 23 50 42 44 52 49 56 45 3A 4C 44 41 20 28 5A 45 |#PBDRIVE:LDA (ZE| 00000340: 49 29 2C 59 3A 4A 53 52 20 48 45 58 53 4F 55 54 |I),Y:JSR HEXSOUT| 00000350: 00 78 0B 1A 04 4C 44 59 20 23 50 42 53 49 44 45 |.x...LDY #PBSIDE| 00000360: 3A 4C 44 41 20 28 5A 45 49 29 2C 59 3A 4A 53 52 |:LDA (ZEI),Y:JSR| 00000370: 20 48 45 58 53 4F 55 54 00 A1 0B 24 04 4C 44 59 | HEXSOUT...$.LDY| 00000380: 20 23 50 42 54 52 41 43 4B 3A 4C 44 41 20 28 5A | #PBTRACK:LDA (Z| 00000390: 45 49 29 2C 59 3A 4A 53 52 20 48 45 58 53 4F 55 |EI),Y:JSR HEXSOU| 000003A0: 54 00 CA 0B 2E 04 4C 44 59 20 23 50 42 53 45 43 |T.....LDY #PBSEC| 000003B0: A4 52 3A 4C 44 41 20 28 5A 45 49 29 2C 59 3A 4A |.R:LDA (ZEI),Y:J| 000003C0: 53 52 20 48 45 58 53 4F 55 54 00 F5 0B 38 04 4C |SR HEXSOUT...8.L| 000003D0: 44 59 20 23 50 42 42 55 46 46 45 52 AA 31 3A 4C |DY #PBBUFFER.1:L| 000003E0: 44 41 20 28 5A 45 49 29 2C 59 3A 4A 53 52 20 48 |DA (ZEI),Y:JSR H| 000003F0: 45 58 4F 55 54 00 15 0C 42 04 44 45 59 3A 4C 44 |EXOUT...B.DEY:LD| 00000400: 41 20 28 5A 45 49 29 2C 59 3A 4A 53 52 20 48 45 |A (ZEI),Y:JSR HE| 00000410: 58 53 4F 55 54 00 3C 0C 4C 04 4C 44 59 20 23 50 |XSOUT.<.L.LDY #P| 00000420: 42 42 41 4E 4B 3A 4C 44 41 20 28 5A 45 49 29 2C |BBANK:LDA (ZEI),| 00000430: 59 3A 4A 53 52 20 48 45 58 4F 55 54 00 56 0C 56 |Y:JSR HEXOUT.V.V| 00000440: 04 4C 31 42 20 4A 53 52 20 24 46 46 45 34 3A 42 |.L1B JSR $FFE4:B| 00000450: 45 51 20 4C 31 42 00 7D 0C B0 04 4C 44 58 20 5A |EQ L1B.}...LDX Z| 00000460: 45 49 4C 45 3A 4C 44 59 20 53 50 41 4C 54 45 3A |EILE:LDY SPALTE:| 00000470: 43 4C 43 3A 4A 53 52 20 43 55 52 53 B0 00 A3 0C |CLC:JSR CURS....| 00000480: 6C 07 50 4C 41 3A 54 41 58 3A 50 4C 41 3A 54 41 |l.PLA:TAX:PLA:TA| 00000490: 59 3A 50 4C 41 3A 4A 4D 50 20 28 56 46 4C 4F 50 |Y:PLA:JMP (VFLOP| 000004A0: 52 57 29 00 B4 0C C6 07 5A 45 49 4C 45 20 2E 42 |RW).....ZEILE .B| 000004B0: 59 54 20 30 00 C6 0C C7 07 53 50 41 4C 54 45 20 |YT 0.....SPALTE | 000004C0: 2E 42 59 54 20 30 00 D1 0C CF 07 3B AC AC AC AC |.BYT 0.....;....| 000004D0: AC 00 FB 0C D0 07 48 45 58 4F 55 54 20 50 48 41 |......HEXOUT PHA| 000004E0: 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 3A 4C 53 52 |:LSR:LSR:LSR:LSR| 000004F0: 3A 4A 53 52 20 4E 49 42 4F 55 54 00 0A 0D DA 07 |:JSR NIBOUT.....| 00000500: 50 4C 41 3A AF 20 23 24 30 46 00 36 0D E4 07 4E |PLA:. #$0F.6...N| 00000510: 49 42 4F 55 54 20 43 4C 43 3A 41 44 43 20 23 22 |IBOUT CLC:ADC #"| 00000520: 30 22 3A 43 4D 50 20 23 22 39 22 AA 31 3A 42 43 |0":CMP #"9".1:BC| 00000530: 43 20 4E 49 42 31 00 50 0D EE 07 41 44 43 20 23 |C NIB1.P...ADC #| 00000540: 36 3A 4E 49 42 31 20 4A 4D 50 20 42 53 4F 55 54 |6:NIB1 JMP BSOUT| 00000550: 00 80 0D F8 07 48 45 58 53 4F 55 54 20 4A 53 52 |.....HEXSOUT JSR| 00000560: 20 48 45 58 4F 55 54 3A 53 50 4F 55 54 20 4C 44 | HEXOUT:SPOUT LD| 00000570: 41 20 23 22 20 22 3A 4A 4D 50 20 42 53 4F 55 54 |A #" ":JMP BSOUT| 00000580: 00 90 0D 1F 4E 3B AC AC AC AC AC AC AC AC AC AC |....N;..........| 00000590: 00 9C 0D 2A 4E 41 4E 5A A2 20 B2 31 00 A7 0D 34 |...*NANZ. .1...4| 000005A0: 4E 4A 4D 50 41 44 52 00 C3 0D 3E 4E 2E 57 B0 44 |NJMPADR...>N.W.D| 000005B0: 20 20 46 4C 4F 50 52 57 20 20 AB 42 44 4F 53 AC | FLOPRW .BDOS.| 000005C0: 32 AD 33 00 CC 0D 66 4E 4A 4D 50 A2 00 DE 0D 70 |2.3...fNJMP....p| 000005D0: 4E 2E 57 B0 44 20 20 54 46 4C 4F 50 52 57 00 E9 |N.W.D TFLOPRW..| 000005E0: 0D 98 4E 4A 4D 50 4F 4C 44 00 FD 0D A2 4E 56 46 |..NJMPOLD....NVF| 000005F0: 4C 4F 50 52 57 20 20 2E 57 B0 44 20 30 00 00 00 |LOPRW .W.D 0...|
....Z..1,8,1,"S-FLOPRW 7E/A".8.D..7.4096 :.OPT O1:..$7E00.C.N.PRG .1.S.X.BDOS .$A 000.C.}... #:.. 210.T....ICL 8,"BDS*.... ..ICL 8,"BDK*......ICL 8,"BDJ*... ..ICL 8,"BDE*.....CURS. .$FFF0.F.R.;.......... ...RDINIT JSR VERSI.:STX RWBZEI:STY RWBZ EI.1.....LDY #VEJMPADR.1:LDA (RWBZEI),Y: TAX:DEY:LDA (RWBZEI),Y.J...STA RWBZEI:ST X RWBZEI.1.U...LDX #0.I...L1 LDY JMPADR, X.....LDA (RWBZEI),Y:STA JMPOLD,X.....LD A JMP.,X:STA (RWBZEI),Y...".INX:INY.S.,. LDA (RWBZEI),Y:STA JMPOLD,X...6.LDA JMP. ,X:STA (RWBZEI),Y...@.INX:INY.$.J.CPX #A NZ..2; ANZAHL NEUER ROUTINEN./.T.BCC L1. A.Y.T. LDA #0:RTS.P...;..............TFL OPRW STA ZEI:STY ZEI.1:PHA:TYA:PHA:TXA:P HA.....SEC:JSR CURS.:STX ZEILE:STY SPALT E.J...LDX #0:LDY #18:CLC:JSR CURS......L DY #PBRWFLAG:LDA (ZEI),Y:BEQ L1A:LDA #"W ":.BYT $2C.'...L1A LDA #"R":JSR BSOUT:JS R SPOUT.P...LDY #PBDRIVE:LDA (ZEI),Y:JSR HEXSOUT.X...LDY #PBSIDE:LDA (ZEI),Y:JSR HEXSOUT...$.LDY #PBTRACK:LDA (ZEI),Y:JS R HEXSOUT.J...LDY #PBSEC.R:LDA (ZEI),Y:J SR HEXSOUT...8.LDY #PBBUFFER.1:LDA (ZEI) ,Y:JSR HEXOUT...B.DEY:LDA (ZEI),Y:JSR HE XSOUT.<.L.LDY #PBBANK:LDA (ZEI),Y:JSR HE XOUT.V.V.L1B JSR $FFE4:BEQ L1B.}...LDX Z EILE:LDY SPALTE:CLC:JSR CURS....L.PLA:TA X:PLA:TAY:PLA:JMP (VFLOPRW)...F.ZEILE .B YT 0.F.G.SPALTE .BYT 0.Q.O.;........P.HE XOUT PHA:LSR:LSR:LSR:LSR:JSR NIBOUT...Z. PLA:. #$0F.6...NIBOUT CLC:ADC #"0":CMP # "9".1:BCC NIB1.P...ADC #6:NIB1 JMP BSOUT .....HEXSOUT JSR HEXOUT:SPOUT LDA #" ":J MP BSOUT....N;.............*NANZ. .1...4 NJMPADR.C.>N.W.D FLOPRW .BDOS.2.3.L.FN JMP....PN.W.D TFLOPRW....NJMPOLD....NVF LOPRW .W.D 0...
> CLICK IMAGE PREVIEW FOR FULL MODAL