CLEAR-HIR
FILE INFORMATION
FILENAME(S): CLEAR-HIR
FILE TYPE(S): PRG
FILE SIZE: 697b
FIRST SEEN: 2025-11-30 21:24:06
APPEARS ON: 1 disk(s)
FILE HASH
292ba59ef2b1b97ebeee98dcf0244df22e15b296476dea0ffa0d8ef2ec712506
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HERMAN | CLEAR-HIR | PRG | DuncanTwain | 9 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 0B 08 0A 00 4F 55 54 20 34 00 25 08 14 00 |......OUT 4.%...| 00000010: AC B2 24 43 30 30 30 20 21 43 4C 45 41 52 20 48 |..$C000 !CLEAR H| 00000020: 49 AB 52 45 53 00 3E 08 19 00 4C 44 58 20 23 24 |I.RES.>...LDX #$| 00000030: 46 42 20 21 93 20 4C 4F 20 41 44 52 45 53 00 57 |FB !. LO ADRES.W| 00000040: 08 1E 00 4C 44 41 20 23 24 32 30 20 21 93 20 53 |...LDA #$20 !. S| 00000050: 45 43 20 41 44 52 53 00 72 08 28 00 53 54 41 20 |EC ADRS.r.(.STA | 00000060: 24 46 43 20 20 21 49 4E 20 5A 45 52 4F 20 50 41 |$FC !IN ZERO PA| 00000070: 47 45 00 7F 08 32 00 4C 44 41 20 23 24 30 30 00 |GE...2.LDA #$00.| 00000080: 8B 08 3C 00 53 54 41 20 24 46 42 00 9B 08 46 00 |..<.STA $FB...F.| 00000090: 41 31 20 4C 44 41 20 23 24 30 30 00 AE 08 50 00 |A1 LDA #$00...P.| 000000A0: 53 54 41 20 28 24 30 2C 58 29 20 21 41 31 00 BA |STA ($0,X) !A1..| 000000B0: 08 5A 00 49 4E 43 20 24 46 42 00 D1 08 64 00 43 |.Z.INC $FB...d.C| 000000C0: 4D 50 20 24 46 42 20 21 43 4D 50 20 4D 45 4D AB |MP $FB !CMP MEM.| 000000D0: 30 00 DC 08 6E 00 42 4E 45 20 41 31 00 E8 08 78 |0...n.BNE A1...x| 000000E0: 00 49 4E 43 20 24 46 43 00 F5 08 82 00 4C 44 41 |.INC $FC.....LDA| 000000F0: 20 23 24 34 30 00 01 09 8C 00 43 4D 50 20 24 46 | #$40.....CMP $F| 00000100: 43 00 20 09 96 00 42 4E 45 20 41 31 20 21 45 49 |C. ...BNE A1 !EI| 00000110: 4E 44 45 20 43 4C 45 41 52 20 53 43 48 45 52 4D |NDE CLEAR SCHERM| 00000120: 00 3B 09 A0 00 4C 44 41 20 23 24 30 30 20 21 53 |.;...LDA #$00 !S| 00000130: 54 41 52 54 20 93 20 43 4F 4C B0 00 54 09 AA 00 |TART . COL..T...| 00000140: 53 54 41 20 24 46 42 20 21 53 45 54 20 4C 4F AB |STA $FB !SET LO.| 00000150: 43 4F 44 45 00 6F 09 B4 00 4C 44 41 20 23 24 30 |CODE.o...LDA #$0| 00000160: 34 20 21 31 30 32 34 20 A4 54 20 32 30 32 34 00 |4 !1024 .T 2024.| 00000170: 88 09 BE 00 53 54 41 20 24 46 43 20 21 53 45 54 |....STA $FC !SET| 00000180: 20 48 49 AB 43 4F 44 45 00 A8 09 C8 00 4C 44 58 | HI.CODE.....LDX| 00000190: 20 23 24 46 42 20 21 53 45 54 20 58 20 4F 50 20 | #$FB !SET X OP | 000001A0: 49 4E 44 49 52 45 43 54 00 CB 09 D2 00 41 32 20 |INDIRECT.....A2 | 000001B0: 4C 44 41 20 23 24 30 33 20 21 53 45 54 20 4F 50 |LDA #$03 !SET OP| 000001C0: 20 4B 4C 45 55 52 20 43 59 41 4E 00 DA 09 DC 00 | KLEUR CYAN.....| 000001D0: 53 54 41 20 28 24 30 2C 58 29 00 E6 09 E6 00 49 |STA ($0,X).....I| 000001E0: 4E 43 20 24 46 42 00 F3 09 F0 00 4C 44 41 20 23 |NC $FB.....LDA #| 000001F0: 24 30 30 00 FF 09 F5 00 43 4D 50 20 24 46 42 00 |$00.....CMP $FB.| 00000200: 0A 0A FA 00 42 4E 45 20 41 32 00 16 0A 04 01 49 |....BNE A2.....I| 00000210: 4E 43 20 24 46 43 00 22 0A 0E 01 4C 44 41 20 23 |NC $FC."...LDA #| 00000220: 24 37 00 38 0A 18 01 43 4D 50 20 24 46 43 20 21 |$7.8...CMP $FC !| 00000230: 54 53 54 20 45 49 4E 44 00 43 0A 22 01 42 4E 45 |TST EIND.C.".BNE| 00000240: 20 41 32 00 5D 0A 2C 01 41 33 20 4C 44 41 20 23 | A2.].,.A3 LDA #| 00000250: 24 30 33 20 21 53 45 54 20 43 4F 4C B0 00 6C 0A |$03 !SET COL..l.| 00000260: 36 01 53 54 41 20 28 24 30 2C 58 29 00 78 0A 3B |6.STA ($0,X).x.;| 00000270: 01 49 4E 43 20 24 46 42 00 85 0A 40 01 4C 44 41 |.INC $FB...@.LDA| 00000280: 20 23 24 45 38 00 91 0A 4A 01 43 4D 50 20 24 46 | #$E8...J.CMP $F| 00000290: 42 00 A8 0A 54 01 42 4E 45 20 41 33 20 21 54 53 |B...T.BNE A3 !TS| 000002A0: 54 20 4F 50 20 37 45 37 00 B0 0A 5E 01 52 54 53 |T OP 7E7...^.RTS| 000002B0: 00 B6 0A 68 01 80 00 00 00 |...h..... |
......OUT 4.%.....$C000 !CLEAR HI.RES.>. ..LDX #$FB !. LO ADRES.W...LDA #$20 !. S EC ADRS.R.(.STA $FC !IN ZERO PAGE..2.L DA #$00...<.STA $FB...F.A1 LDA #$00...P. STA ($0,X) !A1...Z.INC $FB.Q.D.CMP $FB ! CMP MEM.0...N.BNE A1...X.INC $FC.....LDA #$40.....CMP $FC. ...BNE A1 !EINDE CLEA R SCHERM.;. .LDA #$00 !START . COL..T... STA $FB !SET LO.CODE.O...LDA #$04 !1024 .T 2024.....STA $FC !SET HI.CODE...H.LDX #$FB !SET X OP INDIRECT.K.R.A2 LDA #$03 !SET OP KLEUR CYAN.Z...STA ($0,X).....I NC $FB.....LDA #$00.....CMP $FB.....BNE A2.....INC $FC."...LDA #$7.8...CMP $FC ! TST EIND.C.".BNE A2.].,.A3 LDA #$03 !SET COL..L.6.STA ($0,X).X.;.INC $FB...@.LDA #$E8...J.CMP $FB...T.BNE A3 !TST OP 7E7 ...^.RTS...H.....
> CLICK IMAGE PREVIEW FOR FULL MODAL