> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 53 43 52 45 45 4E 20 54 |..).... SCREEN T|
00000010: 48 49 4E 47 53 20 28 41 55 47 20 32 35 2F 38 34 |HINGS (AUG 25/84|
00000020: 29 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 |) :./...:.|
00000030: 4F 08 02 00 8F 20 35 20 53 54 41 54 45 4D 45 4E |O.... 5 STATEMEN|
00000040: 54 53 2C 20 30 20 46 55 4E 43 54 49 4F 4E 53 00 |TS, 0 FUNCTIONS.|
00000050: 55 08 03 00 3A 00 72 08 04 00 8F 20 4B 45 59 57 |U...:.r.... KEYW|
00000060: 4F 52 44 20 43 48 41 52 41 43 54 45 52 53 3A 20 |ORD CHARACTERS: |
00000070: 32 32 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |22.x...:...... K|
00000080: 45 59 57 4F 52 44 20 20 20 20 20 52 4F 55 54 49 |EYWORD ROUTI|
00000090: 4E 45 20 20 4C 49 4E 45 20 20 20 53 45 52 20 23 |NE LINE SER #|
000000A0: 00 C7 08 07 00 8F 20 53 2F 47 52 4F 55 4E 44 20 |...... S/GROUND |
000000B0: 20 20 20 47 52 44 20 20 20 20 20 20 32 37 34 30 | GRD 2740|
000000C0: 20 20 20 20 30 31 33 00 EE 08 08 00 8F 20 53 2F | 013...... S/|
000000D0: 46 52 41 4D 45 20 20 20 20 20 46 52 41 4D 20 20 |FRAME FRAM |
000000E0: 20 20 20 32 37 34 38 20 20 20 20 30 31 34 00 15 | 2748 014..|
000000F0: 09 09 00 8F 20 53 2F 54 45 58 54 20 20 20 20 20 |.... S/TEXT |
00000100: 20 54 45 58 20 20 20 20 20 20 32 37 35 36 20 20 | TEX 2756 |
00000110: 20 20 30 31 35 00 3B 09 0A 00 8F 20 53 2F 43 52 | 015.;.... S/CR|
00000120: 41 4D 20 20 20 20 20 43 46 49 4C 4C 20 20 20 20 |AM CFILL |
00000130: 32 37 36 38 20 20 20 20 30 31 36 00 61 09 0B 00 |2768 016.a...|
00000140: 8F 20 53 2F 43 4C 53 20 20 20 20 20 20 43 4C 45 |. S/CLS CLE|
00000150: 41 20 20 20 20 20 32 37 39 30 20 20 20 20 30 31 |A 2790 01|
00000160: 37 00 67 09 0C 00 3A 00 8E 09 0D 00 8F 20 3D 3D |7.g...:...... ==|
00000170: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000180: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 00 94 |==============..|
00000190: 09 0E 00 3A 00 AD 09 68 00 2E C6 20 22 47 52 4F |...:...h... "GRO|
000001A0: 55 4E C4 46 52 41 4D C5 54 45 58 D4 22 00 BE 09 |UN.FRAM.TEX."...|
000001B0: 69 00 2E C6 20 22 43 52 41 CD 43 4C D3 22 00 DA |i... "CRA.CL."..|
000001C0: 09 50 04 2E 57 B0 44 20 47 52 44 AB 31 2C 46 52 |.P..W.D GRD.1,FR|
000001D0: 41 4D AB 31 2C 54 45 58 AB 31 00 F2 09 51 04 2E |AM.1,TEX.1...Q..|
000001E0: 57 B0 44 20 43 46 49 4C 4C AB 31 2C 43 4C 45 41 |W.D CFILL.1,CLEA|
000001F0: AB 31 00 04 0A B4 0A 47 52 44 20 4A 53 52 20 24 |.1.....GRD JSR $|
00000200: 42 37 39 45 00 12 0A B6 0A 53 54 58 20 24 44 30 |B79E.....STX $D0|
00000210: 32 31 00 1A 0A B8 0A 52 54 53 00 20 0A BA 0A 3B |21.....RTS. ...;|
00000220: 00 33 0A BC 0A 46 52 41 4D 20 4A 53 52 20 24 42 |.3...FRAM JSR $B|
00000230: 37 39 45 00 41 0A BE 0A 53 54 58 20 24 44 30 32 |79E.A...STX $D02|
00000240: 30 00 49 0A C0 0A 52 54 53 00 4F 0A C2 0A 3B 00 |0.I...RTS.O...;.|
00000250: 61 0A C4 0A 54 45 58 20 4A 53 52 20 24 42 37 39 |a...TEX JSR $B79|
00000260: 45 00 69 0A C6 0A 54 58 41 00 74 0A C8 0A AF 20 |E.i...TXA.t.... |
00000270: 23 24 30 46 00 81 0A CA 0A 53 54 41 20 24 32 38 |#$0F.....STA $28|
00000280: 36 00 89 0A CC 0A 52 54 53 00 8F 0A CE 0A 3B 00 |6.....RTS.....;.|
00000290: A3 0A D0 0A 43 46 49 4C 4C 20 4A 53 52 20 24 42 |....CFILL JSR $B|
000002A0: 37 39 45 00 AB 0A D2 0A 54 58 41 00 B6 0A D4 0A |79E.....TXA.....|
000002B0: 4C 44 59 20 23 30 00 CA 0A D6 0A 43 46 31 20 53 |LDY #0.....CF1 S|
000002C0: 54 41 20 24 44 38 30 30 2C 59 00 DA 0A D8 0A 53 |TA $D800,Y.....S|
000002D0: 54 41 20 24 44 39 30 30 2C 59 00 EA 0A DA 0A 53 |TA $D900,Y.....S|
000002E0: 54 41 20 24 44 41 30 30 2C 59 00 FA 0A DC 0A 53 |TA $DA00,Y.....S|
000002F0: 54 41 20 24 44 42 30 30 2C 59 00 02 0B DE 0A 49 |TA $DB00,Y.....I|
00000300: 4E 59 00 0E 0B E0 0A 42 4E 45 20 43 46 31 00 16 |NY.....BNE CF1..|
00000310: 0B E2 0A 52 54 53 00 1C 0B E4 0A 3B 00 2E 0B E6 |...RTS.....;....|
00000320: 0A 43 4C 45 41 20 42 4E 45 20 43 4C 45 31 00 3C |.CLEA BNE CLE1.<|
00000330: 0B E8 0A 4A 4D 50 20 24 45 35 34 34 00 4F 0B EA |...JMP $E544.O..|
00000340: 0A 43 4C 45 31 20 4A 53 52 20 24 42 37 39 45 00 |.CLE1 JSR $B79E.|
00000350: 5B 0B EC 0A 53 54 58 20 24 31 34 00 68 0B EE 0A |[...STX $14.h...|
00000360: 43 50 58 20 23 24 31 39 00 75 0B F0 0A 42 43 53 |CPX #$19.u...BCS|
00000370: 20 43 4C 45 35 00 81 0B F2 0A 4A 53 52 20 24 37 | CLE5.....JSR $7|
00000380: 39 00 8E 0B F4 0A 42 45 51 20 43 4C 45 33 00 9C |9.....BEQ CLE3..|
00000390: 0B F6 0A 4A 53 52 20 24 41 45 46 44 00 AA 0B F8 |...JSR $AEFD....|
000003A0: 0A 4A 53 52 20 24 42 37 39 45 00 BB 0B FA 0A 43 |.JSR $B79E.....C|
000003B0: 4C 45 32 20 43 50 58 20 24 31 34 00 C8 0B FC 0A |LE2 CPX $14.....|
000003C0: 42 43 43 20 43 4C 45 34 00 D5 0B FE 0A 43 50 58 |BCC CLE4.....CPX|
000003D0: 20 23 24 31 39 00 E2 0B 00 0B 42 43 53 20 43 4C | #$19.....BCS CL|
000003E0: 45 35 00 F0 0B 02 0B 2E 42 59 54 45 20 24 32 43 |E5......BYTE $2C|
000003F0: 00 02 0C 04 0B 43 4C 45 33 20 4C 44 58 20 23 24 |.....CLE3 LDX #$|
00000400: 31 38 00 10 0C 06 0B 4A 53 52 20 24 45 39 46 46 |18.....JSR $E9FF|
00000410: 00 18 0C 08 0B 44 45 58 00 25 0C 0A 0B 42 50 4C |.....DEX.%...BPL|
00000420: 20 43 4C 45 32 00 38 0C 0C 0B 43 4C 45 34 20 4A | CLE2.8...CLE4 J|
00000430: 4D 50 20 24 45 35 36 43 00 4B 0C 0E 0B 43 4C 45 |MP $E56C.K...CLE|
00000440: 35 20 4A 4D 50 20 24 42 32 34 38 00 51 0C 10 0B |5 JMP $B248.Q...|
00000450: 3B 00 00 00 |;... |
..).... SCREEN THINGS (AUG 25/84)
:./...:.O.... 5 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 22.X...:
. .... KEYWORD ROUTINE LINE SER #
.G.... S/GROUND GRD 2740 013.
..... S/FRAME FRAM 2748 014..
.... S/TEXT TEX 2756 015.;.
... S/CRAM CFILL 2768 016.A...
. S/CLS CLEA 2790 017.G...:.
..... ================================..
...:...H..F "GROUNDFRAMETEXT"...I..F "CR
AMCLS".Z.P..W.D GRD.1,FRAM.1,TEX.1...Q..
W.D CFILL.1,CLEA.1.....GRD JSR $B79E....
.STX $D021.....RTS. ...;.3...FRAM JSR $B
79E.A...STX $D020.I...RTS.O.B.;.A.D.TEX
JSR $B79E.I.F.TXA.T.H.. #$0F...J.STA $28
6...L.RTS...N.;...P.CFILL JSR $B79E...R.
TXA...T.LDY #0.J.V.CF1 STA $D800,Y.Z.X.S
TA $D900,Y...Z.STA $DA00,Y.....STA $DB00
,Y.....INY.....BNE CF1.....RTS.....;....
.CLEA BNE CLE1.<...JMP $E544.O...CLE1 JS
R $B79E.[...STX $14.H...CPX #$19.U...BCS
CLE5.....JSR $79.....BEQ CLE3.....JSR $
AEFD.....JSR $B79E.....CLE2 CPX $14.H...
BCC CLE4.U...CPX #$19.....BCS CLE5......
BYTE $2C.....CLE3 LDX #$18.....JSR $E9FF
.....DEX.%...BPL CLE2.8...CLE4 JMP $E56C
.K...CLE5 JMP $B248.Q...;...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL