> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 42 49 54 20 54 57 49 44 |..).... BIT TWID|
00000010: 44 4C 45 52 53 20 28 53 45 50 54 20 34 2F 38 34 |DLERS (SEPT 4/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 33 20 53 54 41 54 45 4D 45 4E |O.... 3 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: 31 32 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |12.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 53 45 54 20 20 20 20 |...... S/SET |
000000B0: 20 20 20 42 53 45 20 20 20 20 20 20 32 36 39 38 | BSE 2698|
000000C0: 20 20 20 20 30 30 39 00 EE 08 08 00 8F 20 53 2F | 009...... S/|
000000D0: 43 4C 45 41 52 20 20 20 20 20 42 43 4C 52 20 20 |CLEAR BCLR |
000000E0: 20 20 20 32 37 30 38 20 20 20 20 30 31 30 00 15 | 2708 010..|
000000F0: 09 09 00 8F 20 53 2F 46 4C 49 50 20 20 20 20 20 |.... S/FLIP |
00000100: 20 46 4C 49 20 20 20 20 20 20 32 37 32 30 20 20 | FLI 2720 |
00000110: 20 20 30 31 31 00 1B 09 0A 00 3A 00 34 09 0B 00 | 011.....:.4...|
00000120: 8F 20 55 2F 42 50 52 45 50 20 28 32 37 33 30 2F |. U/BPREP (2730/|
00000130: 30 31 32 29 00 3A 09 0C 00 3A 00 61 09 0D 00 8F |012).:...:.a....|
00000140: 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D | ===============|
00000150: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00000160: 3D 00 67 09 0E 00 3A 00 7D 09 67 00 2E C6 20 22 |=.g...:.}.g... "|
00000170: 53 45 D4 43 4C 45 41 D2 46 4C 49 D0 22 00 97 09 |SE.CLEA.FLI."...|
00000180: 4F 04 2E 57 B0 44 20 42 53 45 AB 31 2C 42 9C AB |O..W.D BSE.1,B..|
00000190: 31 2C 46 4C 49 AB 31 00 AA 09 8A 0A 42 53 45 20 |1,FLI.1.....BSE |
000001A0: 4A 53 52 20 42 50 52 45 50 20 00 BC 09 8C 0A B0 |JSR BPREP ......|
000001B0: 41 20 28 24 31 34 29 2C 59 20 20 20 00 CF 09 8E |A ($14),Y ....|
000001C0: 0A 53 54 41 20 28 24 31 34 29 2C 59 20 20 20 00 |.STA ($14),Y .|
000001D0: D7 09 90 0A 52 54 53 00 DD 09 92 0A 3B 00 EF 09 |....RTS.....;...|
000001E0: 94 0A 42 9C 20 4A 53 52 20 42 50 52 45 50 20 00 |..B. JSR BPREP .|
000001F0: 02 0A 96 0A 45 B0 20 23 24 46 46 20 20 20 20 20 |....E. #$FF |
00000200: 20 20 00 14 0A 98 0A AF 20 28 24 31 34 29 2C 59 | ...... ($14),Y|
00000210: 20 20 20 20 00 28 0A 9A 0A 53 54 41 20 28 24 31 | .(...STA ($1|
00000220: 34 29 2C 59 20 20 20 20 00 30 0A 9C 0A 52 54 53 |4),Y .0...RTS|
00000230: 00 36 0A 9E 0A 3B 00 4A 0A A0 0A 46 4C 49 20 4A |.6...;.J...FLI J|
00000240: 53 52 20 42 50 52 45 50 20 20 00 5D 0A A2 0A 45 |SR BPREP .]...E|
00000250: B0 20 28 24 31 34 29 2C 59 20 20 20 20 00 71 0A |. ($14),Y .q.|
00000260: A4 0A 53 54 41 20 28 24 31 34 29 2C 59 20 20 20 |..STA ($14),Y |
00000270: 20 00 79 0A A6 0A 52 54 53 00 7F 0A A8 0A 3B 00 | .y...RTS.....;.|
00000280: 94 0A AA 0A 42 50 52 45 50 20 4A 53 52 20 24 42 |....BPREP JSR $B|
00000290: 37 45 42 20 00 A9 0A AC 0A 54 58 41 20 20 20 20 |7EB .....TXA |
000002A0: 20 20 20 20 20 20 20 20 20 00 BE 0A AE 0A 4C 44 | .....LD|
000002B0: 59 20 23 30 20 20 20 20 20 20 20 20 20 20 00 C6 |Y #0 ..|
000002C0: 0A B0 0A 52 54 53 00 CC 0A B2 0A 3B 00 00 00 |...RTS.....;... |
..).... BIT TWIDDLERS (SEPT 4/84)
:./...:.O.... 3 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 12.X...:
. .... KEYWORD ROUTINE LINE SER #
.G.... S/SET BSE 2698 009.
..... S/CLEAR BCLR 2708 010..
.... S/FLIP FLI 2720 011...
..:.4.... U/BPREP (2730/012).:...:.A....
================================.G...:.
}.G..F "SETCLEARFLIP"...O..W.D BSE.1,B..
1,FLI.1.....BSE JSR BPREP ......A ($14),
Y .O...STA ($14),Y .W...RTS.....;...
..B. JSR BPREP .....E. #$FF ......
($14),Y .(...STA ($14),Y .0...RTS
.6...;.J. .FLI JSR BPREP .]...E. ($14),
Y .Q...STA ($14),Y .Y...RTS....;.
....BPREP JSR $B7EB .....TXA
.....LDY #0 .F...RTS.L...;...
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL