SS.PAL

FILE INFORMATION

FILENAME(S): SS.PAL

FILE TYPE(S): PRG

FILE SIZE: 2.4K

FIRST SEEN: 2025-11-30 18:12:10

APPEARS ON: 1 disk(s)

FILE HASH

8ef5263cb7a4aa111f840c0f666cb5f085bc8b914b48f41a0319a403940ef71f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
LOADSTAR 65 S 1	SS.PAL	PRG	Sailor, Ganheden	30	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 1D 08 64 00 8F 20  4F 50 45 4E 32 2C 38 2C  |....d.. OPEN2,8,|
00000010: 31 2C 22 53 53 20 42 41  42 59 2E 4F 22 00 26 08  |1,"SS BABY.O".&.|
00000020: 6E 00 9E 37 30 30 00 2C  08 78 00 3B 00 38 08 82  |n..700.,.x.;.8..|
00000030: 00 2E 4F 50 54 20 4F 4F  00 3E 08 8C 00 3B 00 50  |..OPT OO.>...;.P|
00000040: 08 96 00 4D 45 4D 43 54  52 4C 20 B2 20 24 30 31  |...MEMCTRL . $01|
00000050: 00 68 08 A0 00 4D 41 53  4B 4F 55 54 20 B2 20 25  |.h...MASKOUT . %|
00000060: 31 31 31 31 31 31 30 31  00 7F 08 AA 00 4D 41 53  |11111101.....MAS|
00000070: 4B 49 4E 20 B2 20 25 30  30 30 30 30 30 31 30 00  |KIN . %00000010.|
00000080: 92 08 B4 00 46 52 4D 45  56 4C 20 B2 20 24 41 44  |....FRMEVL . $AD|
00000090: 39 45 00 A5 08 BE 00 A1  43 4F 4D 4D 41 20 B2 20  |9E......COMMA . |
000000A0: 24 41 45 46 44 00 B8 08  C8 00 43 91 56 45 52 54  |$AEFD.....C.VERT|
000000B0: 20 B2 20 24 42 31 41 41  00 CC 08 D2 00 49 4C 4C  | . $B1AA.....ILL|
000000C0: 51 55 41 4E 20 B2 20 24  42 32 34 38 00 DC 08 DC  |QUAN . $B248....|
000000D0: 00 50 4E 54 52 31 20 B2  20 24 46 42 00 F2 08 E6  |.PNTR1 . $FB....|
000000E0: 00 50 4E 54 52 32 20 B2  20 50 4E 54 52 31 20 AA  |.PNTR2 . PNTR1 .|
000000F0: 20 32 00 F8 08 F0 00 3B  00 0D 09 FA 00 44 55 4D  | 2.....;.....DUM|
00000100: 4D 59 4C 4F 43 20 B2 20  24 46 46 30 30 00 1C 09  |MYLOC . $FF00...|
00000110: 04 01 4B 49 4C 4C 20 B2  20 24 36 30 00 30 09 0E  |..KILL . $60.0..|
00000120: 01 54 48 45 45 4E 4D 49  20 B2 20 24 46 46 46 41  |.THEENMI . $FFFA|
00000130: 00 36 09 18 01 3B 00 52  09 22 01 43 4C 43 20 3B  |.6...;.R.".CLC ;|
00000140: 20 50 52 45 53 45 52 56  45 20 41 20 53 43 52 45  | PRESERVE A SCRE|
00000150: 45 4E 00 5C 09 2C 01 4E  4F 50 20 3B 00 6A 09 36  |EN.\.,.NOP ;.j.6|
00000160: 01 2E 42 59 54 45 20 24  32 34 00 70 09 40 01 3B  |..BYTE $24.p.@.;|
00000170: 00 85 09 4A 01 53 45 43  20 3B 20 8C 20 41 20 53  |...J.SEC ; . A S|
00000180: 43 52 45 45 4E 00 8B 09  54 01 3B 00 9D 09 5E 01  |CREEN...T.;...^.|
00000190: 50 48 50 20 3B 20 94 20  46 4C 41 47 53 00 B5 09  |PHP ; . FLAGS...|
000001A0: 68 01 53 45 49 20 3B 20  44 49 53 41 42 4C 45 20  |h.SEI ; DISABLE |
000001B0: 49 52 51 27 53 00 BB 09  72 01 3B 00 DD 09 7C 01  |IRQ'S...r.;...|.|
000001C0: 4C 44 58 20 23 30 20 3B  20 49 4E 49 54 20 56 45  |LDX #0 ; INIT VE|
000001D0: 43 A4 52 20 A4 20 44 49  53 41 42 4C 45 00 F6 09  |C.R . DISABLE...|
000001E0: 86 01 53 54 58 20 54 48  45 45 4E 4D 49 20 3B 20  |..STX THEENMI ; |
000001F0: 20 4E 4D 49 27 53 00 00  0A 90 01 44 45 58 20 3B  | NMI'S.....DEX ;|
00000200: 00 14 0A 9A 01 53 54 58  20 54 48 45 45 4E 4D 49  |.....STX THEENMI|
00000210: AA 31 20 3B 00 1A 0A A4  01 3B 00 3A 0A AE 01 4C  |.1 ;.....;.:...L|
00000220: 44 41 20 23 4B 49 4C 4C  20 3B 20 50 55 54 20 41  |DA #KILL ; PUT A|
00000230: 4E 20 27 52 54 49 27 20  41 54 00 5C 0A B8 01 53  |N 'RTI' AT.\...S|
00000240: 54 41 20 44 55 4D 4D 59  4C 4F 43 20 3B 20 20 44  |TA DUMMYLOC ;  D|
00000250: 55 4D 4D 59 20 4C 4F 43  41 54 49 91 00 62 0A C2  |UMMY LOCATI..b..|
00000260: 01 3B 00 85 0A CC 01 4C  44 41 20 50 4E 54 52 31  |.;.....LDA PNTR1|
00000270: 20 3B 20 50 52 45 53 45  52 56 45 20 54 48 45 20  | ; PRESERVE THE |
00000280: 9A 45 4E 54 53 00 A5 0A  D6 01 50 48 41 20 3B 20  |.ENTS.....PHA ; |
00000290: 20 4F 46 20 54 57 4F 20  31 36 AB 42 49 54 20 50  | OF TWO 16.BIT P|
000002A0: 4F B5 45 52 53 00 B7 0A  E0 01 4C 44 41 20 50 4E  |O.ERS.....LDA PN|
000002B0: 54 52 31 AA 31 20 3B 00  C1 0A EA 01 50 48 41 20  |TR1.1 ;.....PHA |
000002C0: 3B 00 D1 0A F4 01 4C 44  41 20 50 4E 54 52 32 20  |;.....LDA PNTR2 |
000002D0: 3B 00 DB 0A FE 01 50 48  41 20 3B 00 ED 0A 08 02  |;.....PHA ;.....|
000002E0: 4C 44 41 20 50 4E 54 52  32 AA 31 20 3B 00 F7 0A  |LDA PNTR2.1 ;...|
000002F0: 12 02 50 48 41 20 3B 00  FD 0A 1C 02 3B 00 12 0B  |..PHA ;.....;...|
00000300: 26 02 50 48 50 20 3B 20  94 20 A1 AD 8C 20 46 4C  |&.PHP ; . ... FL|
00000310: 41 47 00 18 0B 30 02 3B  00 39 0B 3A 02 4A 53 52  |AG...0.;.9.:.JSR|
00000320: 20 A1 43 4F 4D 4D 41 20  3B 20 53 4B 49 50 20 50  | .COMMA ; SKIP P|
00000330: 41 53 54 20 43 4F 4D 4D  41 00 59 0B 44 02 4A 53  |AST COMMA.Y.D.JS|
00000340: 52 20 46 52 4D 45 56 4C  20 3B 20 45 C5 55 41 54  |R FRMEVL ; E.UAT|
00000350: 45 20 BD 52 45 53 53 49  91 00 6A 0B 4E 02 4A 53  |E .RESSI..j.N.JS|
00000360: 52 20 43 91 56 45 52 54  20 3B 00 70 0B 58 02 3B  |R C.VERT ;.p.X.;|
00000370: 00 8A 0B 62 02 3B 20 91  20 8E 20 AB AB 20 41 B2  |...b.; . . .. A.|
00000380: 4D 53 42 2C 20 59 B2 4C  53 42 00 AF 0B 6C 02 3B  |MSB, Y.LSB...l.;|
00000390: 20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000003A0: 4F 46 20 B5 45 47 45 52  20 4E 55 4D 42 45 52 00  |OF .EGER NUMBER.|
000003B0: B5 0B 76 02 3B 00 CF 0B  80 02 54 41 58 20 3B 20  |..v.;.....TAX ; |
000003C0: 45 58 49 54 20 8B 20 41  43 43 20 21 B2 20 30 00  |EXIT . ACC !. 0.|
000003D0: DE 0B 8A 02 42 4E 45 20  45 52 52 B0 20 3B 00 E4  |....BNE ERR. ;..|
000003E0: 0B 94 02 3B 00 0B 0C 9E  02 53 54 41 20 50 4E 54  |...;.....STA PNT|
000003F0: 52 31 20 3B 20 43 4C 45  41 52 20 4C 53 42 20 4F  |R1 ; CLEAR LSB O|
00000400: 46 20 45 41 43 48 20 50  4E 54 52 00 1B 0C A8 02  |F EACH PNTR.....|
00000410: 53 54 41 20 50 4E 54 52  32 20 3B 00 21 0C B2 02  |STA PNTR2 ;.!...|
00000420: 3B 00 2B 0C BC 02 54 59  41 20 3B 00 43 0C C6 02  |;.+...TYA ;.C...|
00000430: AF 20 23 37 20 3B 20 4D  41 53 4B 20 54 48 45 20  |. #7 ; MASK THE |
00000440: 4C 53 42 00 61 0C D0 02  42 45 51 20 45 52 52 B0  |LSB.a...BEQ ERR.|
00000450: 20 3B 20 45 58 49 54 20  8B 20 41 43 43 20 B2 20  | ; EXIT . ACC . |
00000460: 30 00 67 0C DA 02 3B 00  83 0C E4 02 41 53 4C 20  |0.g...;.....ASL |
00000470: 3B 20 4D 55 4C 54 49 50  4C 59 20 42 59 20 45 49  |; MULTIPLY BY EI|
00000480: 47 48 54 00 8D 0C EE 02  41 53 4C 20 3B 00 97 0C  |GHT.....ASL ;...|
00000490: F8 02 41 53 4C 20 3B 00  9D 0C 02 03 3B 00 C2 0C  |..ASL ;.....;...|
000004A0: 0C 03 43 4D 50 20 23 25  30 30 31 30 31 30 30 30  |..CMP #%00101000|
000004B0: 20 3B 20 44 45 54 45 52  4D 49 4E 45 20 57 48 49  | ; DETERMINE WHI|
000004C0: 43 48 00 E3 0C 16 03 42  43 43 20 4C 45 53 53 20  |CH.....BCC LESS |
000004D0: 3B 20 20 52 4F 4D 20 A4  20 4C 4F 4F 4B 20 55 4E  |;  ROM . LOOK UN|
000004E0: 44 45 52 00 05 0D 20 03  41 44 43 20 23 24 42 37  |DER... .ADC #$B7|
000004F0: 20 3B 20 8B 20 B1 20 23  24 32 30 2C 20 A7 20 4B  | ; . . #$20, . K|
00000500: 45 52 4E 41 4C 00 13 0D  2A 03 2E 42 59 54 45 20  |ERNAL...*..BYTE |
00000510: 24 32 43 00 36 0D 34 03  4C 45 53 53 20 41 44 43  |$2C.6.4.LESS ADC|
00000520: 20 23 24 39 38 20 3B 20  45 4C 53 45 20 42 41 53  | #$98 ; ELSE BAS|
00000530: 49 43 20 52 4F 4D 00 48  0D 3E 03 53 54 41 20 50  |IC ROM.H.>.STA P|
00000540: 4E 54 52 32 AA 31 20 3B  00 4E 0D 48 03 3B 00 6C  |NTR2.1 ;.N.H.;.l|
00000550: 0D 52 03 4C 44 59 20 36  34 38 20 3B 20 A1 20 4D  |.R.LDY 648 ; . M|
00000560: 53 42 20 4F 46 20 53 43  52 45 45 4E 00 7B 0D 5C  |SB OF SCREEN.{.\|
00000570: 03 42 45 51 20 45 52 52  B0 20 3B 00 8D 0D 66 03  |.BEQ ERR. ;...f.|
00000580: 53 54 59 20 50 4E 54 52  31 AA 31 20 3B 00 93 0D  |STY PNTR1.1 ;...|
00000590: 70 03 3B 00 BA 0D 7A 03  4C 44 41 20 4D 45 4D 43  |p.;...z.LDA MEMC|
000005A0: 54 52 4C 20 3B 20 53 57  49 54 43 48 20 4F 55 54  |TRL ; SWITCH OUT|
000005B0: 20 42 4F 54 48 20 52 4F  4D 53 00 CB 0D 84 03 AF  | BOTH ROMS......|
000005C0: 20 23 4D 41 53 4B 4F 55  54 20 3B 00 DD 0D 8E 03  | #MASKOUT ;.....|
000005D0: 53 54 41 20 4D 45 4D 43  54 52 4C 20 3B 00 E3 0D  |STA MEMCTRL ;...|
000005E0: 98 03 3B 00 FC 0D A2 03  50 4C 50 20 3B 20 46 45  |..;.....PLP ; FE|
000005F0: 54 43 48 20 A1 AD 8C 20  46 4C 41 47 00 02 0E AC  |TCH ... FLAG....|
00000600: 03 3B 00 0F 0E B6 03 4C  44 58 20 23 34 20 3B 00  |.;.....LDX #4 ;.|
00000610: 1C 0E C0 03 4C 44 59 20  23 30 20 3B 00 22 0E CA  |....LDY #0 ;."..|
00000620: 03 3B 00 33 0E D4 03 42  43 53 20 52 45 43 41 4C  |.;.3...BCS RECAL|
00000630: 4C 20 3B 00 39 0E DE 03  3B 00 50 0E E8 03 4C 31  |L ;.9...;.P...L1|
00000640: 20 4C 44 41 20 28 50 4E  54 52 31 29 2C 59 20 3B  | LDA (PNTR1),Y ;|
00000650: 00 64 0E F2 03 53 54 41  20 28 50 4E 54 52 32 29  |.d...STA (PNTR2)|
00000660: 2C 59 20 3B 00 6E 0E FC  03 49 4E 59 20 3B 00 7B  |,Y ;.n...INY ;.{|
00000670: 0E 06 04 42 4E 45 20 4C  31 20 3B 00 8D 0E 10 04  |...BNE L1 ;.....|
00000680: 49 4E 43 20 50 4E 54 52  31 AA 31 20 3B 00 9F 0E  |INC PNTR1.1 ;...|
00000690: 1A 04 49 4E 43 20 50 4E  54 52 32 AA 31 20 3B 00  |..INC PNTR2.1 ;.|
000006A0: A9 0E 24 04 44 45 58 20  3B 00 B6 0E 2E 04 42 4E  |..$.DEX ;.....BN|
000006B0: 45 20 4C 31 20 3B 00 C5  0E 38 04 4C 44 41 20 23  |E L1 ;...8.LDA #|
000006C0: 24 44 38 20 3B 00 D7 0E  42 04 53 54 41 20 50 4E  |$D8 ;...B.STA PN|
000006D0: 54 52 31 AA 31 20 3B 00  E4 0E 4C 04 4C 44 58 20  |TR1.1 ;...L.LDX |
000006E0: 23 34 20 3B 00 FB 0E 56  04 4C 32 20 4C 44 41 20  |#4 ;...V.L2 LDA |
000006F0: 28 50 4E 54 52 31 29 2C  59 20 3B 00 0F 0F 60 04  |(PNTR1),Y ;...`.|
00000700: 53 54 41 20 28 50 4E 54  52 32 29 2C 59 20 3B 00  |STA (PNTR2),Y ;.|
00000710: 19 0F 6A 04 49 4E 59 20  3B 00 26 0F 74 04 42 4E  |..j.INY ;.&.t.BN|
00000720: 45 20 4C 32 20 3B 00 38  0F 7E 04 49 4E 43 20 50  |E L2 ;.8.~.INC P|
00000730: 4E 54 52 31 AA 31 20 3B  00 4A 0F 88 04 49 4E 43  |NTR1.1 ;.J...INC|
00000740: 20 50 4E 54 52 32 AA 31  20 3B 00 54 0F 92 04 44  | PNTR2.1 ;.T...D|
00000750: 45 58 20 3B 00 61 0F 9C  04 42 4E 45 20 4C 32 20  |EX ;.a...BNE L2 |
00000760: 3B 00 70 0F A6 04 42 45  51 20 45 58 49 54 20 3B  |;.p...BEQ EXIT ;|
00000770: 00 76 0F B0 04 3B 00 7C  0F BA 04 3B 00 8B 0F C4  |.v...;.|...;....|
00000780: 04 45 52 52 B0 20 50 4C  41 20 3B 00 95 0F CE 04  |.ERR. PLA ;.....|
00000790: 43 4C 56 20 3B 00 A4 0F  D8 04 42 56 43 20 45 58  |CLV ;.....BVC EX|
000007A0: 49 54 20 3B 00 AA 0F E2  04 3B 00 B0 0F EC 04 3B  |IT ;.....;.....;|
000007B0: 00 BF 0F F6 04 52 45 43  41 4C 4C 20 B2 20 AC 00  |.....RECALL . ..|
000007C0: D3 0F 00 05 4C 44 41 20  28 50 4E 54 52 32 29 2C  |....LDA (PNTR2),|
000007D0: 59 20 3B 00 E7 0F 0A 05  53 54 41 20 28 50 4E 54  |Y ;.....STA (PNT|
000007E0: 52 31 29 2C 59 20 3B 00  F1 0F 14 05 49 4E 59 20  |R1),Y ;.....INY |
000007F0: 3B 00 02 10 1E 05 42 4E  45 20 52 45 43 41 4C 4C  |;.....BNE RECALL|
00000800: 20 3B 00 14 10 28 05 49  4E 43 20 50 4E 54 52 31  | ;...(.INC PNTR1|
00000810: AA 31 20 3B 00 26 10 32  05 49 4E 43 20 50 4E 54  |.1 ;.&.2.INC PNT|
00000820: 52 32 AA 31 20 3B 00 30  10 3C 05 44 45 58 20 3B  |R2.1 ;.0.<.DEX ;|
00000830: 00 41 10 46 05 42 4E 45  20 52 45 43 41 4C 4C 20  |.A.F.BNE RECALL |
00000840: 3B 00 4E 10 50 05 4C 44  58 20 23 34 20 3B 00 5D  |;.N.P.LDX #4 ;.]|
00000850: 10 5A 05 4C 44 41 20 23  24 44 38 20 3B 00 6F 10  |.Z.LDA #$D8 ;.o.|
00000860: 64 05 53 54 41 20 50 4E  54 52 31 AA 31 20 3B 00  |d.STA PNTR1.1 ;.|
00000870: 86 10 6E 05 4C 33 20 4C  44 41 20 28 50 4E 54 52  |..n.L3 LDA (PNTR|
00000880: 32 29 2C 59 20 3B 00 9A  10 78 05 53 54 41 20 28  |2),Y ;...x.STA (|
00000890: 50 4E 54 52 31 29 2C 59  20 3B 00 A4 10 82 05 49  |PNTR1),Y ;.....I|
000008A0: 4E 59 20 3B 00 B1 10 8C  05 42 4E 45 20 4C 33 20  |NY ;.....BNE L3 |
000008B0: 3B 00 C3 10 96 05 49 4E  43 20 50 4E 54 52 31 AA  |;.....INC PNTR1.|
000008C0: 31 20 3B 00 D5 10 A0 05  49 4E 43 20 50 4E 54 52  |1 ;.....INC PNTR|
000008D0: 32 AA 31 20 3B 00 DF 10  AA 05 44 45 58 20 3B 00  |2.1 ;.....DEX ;.|
000008E0: EC 10 B4 05 42 4E 45 20  4C 33 20 3B 00 F2 10 BE  |....BNE L3 ;....|
000008F0: 05 3B 00 09 11 C8 05 45  58 49 54 20 4C 44 41 20  |.;.....EXIT LDA |
00000900: 4D 45 4D 43 54 52 4C 20  3B 00 1A 11 D2 05 B0 41  |MEMCTRL ;......A|
00000910: 20 23 4D 41 53 4B 49 4E  20 3B 00 2C 11 DC 05 53  | #MASKIN ;.,...S|
00000920: 54 41 20 4D 45 4D 43 54  52 4C 20 3B 00 32 11 E6  |TA MEMCTRL ;.2..|
00000930: 05 3B 00 3C 11 F0 05 50  4C 41 20 3B 00 4E 11 FA  |.;.<...PLA ;.N..|
00000940: 05 53 54 41 20 50 4E 54  52 32 AA 32 20 3B 00 58  |.STA PNTR2.2 ;.X|
00000950: 11 04 06 50 4C 41 20 3B  00 68 11 0E 06 53 54 41  |...PLA ;.h...STA|
00000960: 20 50 4E 54 52 32 20 3B  00 72 11 18 06 50 4C 41  | PNTR2 ;.r...PLA|
00000970: 20 3B 00 84 11 22 06 53  54 41 20 50 4E 54 52 31  | ;...".STA PNTR1|
00000980: AA 31 20 3B 00 8E 11 2C  06 50 4C 41 20 3B 00 9E  |.1 ;...,.PLA ;..|
00000990: 11 36 06 53 54 41 20 50  4E 54 52 31 20 3B 00 A8  |.6.STA PNTR1 ;..|
000009A0: 11 40 06 50 4C 50 20 3B  00 B2 11 4A 06 52 54 53  |.@.PLP ;...J.RTS|
000009B0: 20 3B 00 00 00                                    | ;...           |

....D.. OPEN2,8,1,"SS BABY.O".&.N..700.,
.X.;.8....OPT OO.>...;.P...MEMCTRL . $01
.H. .MASKOUT . %11111101....MASKIN . %0
0000010.....FRMEVL . $AD9E......COMMA . 
$AEFD...H.C.VERT . $B1AA.L.R.ILLQUAN . $
B248.....PNTR1 . $FB.....PNTR2 . PNTR1 .
 2.....;.....DUMMYLOC . $FF00.....KILL .
 $60.0...THEENMI . $FFFA.6...;.R.".CLC ;
 PRESERVE A SCREEN.\.,.NOP ;.J.6..BYTE $
24.P.@.;...J.SEC ; . A SCREEN...T.;...^.
PHP ; . FLAGS...H.SEI ; DISABLE IRQ'S...
R.;...|.LDX #0 ; INIT VEC.R . DISABLE...
..STX THEENMI ;  NMI'S.....DEX ;.....STX
 THEENMI.1 ;.....;.:...LDA #KILL ; PUT A
N 'RTI' AT.\...STA DUMMYLOC ;  DUMMY LOC
ATI..B.B.;...L.LDA PNTR1 ; PRESERVE THE 
.ENTS...V.PHA ;  OF TWO 16.BIT PO.ERS...
..LDA PNTR1.1 ;.A...PHA ;.Q...LDA PNTR2 
;.....PHA ;.....LDA PNTR2.1 ;.....PHA ;.
....;...&.PHP ; . ... FLAG...0.;.9.:.JSR
 .COMMA ; SKIP PAST COMMA.Y.D.JSR FRMEVL
 ; EEUATE .RESSI..J.N.JSR C.VERT ;.P.X.;
...B.; . . .. A.MSB, Y.LSB...L.;        
        OF .EGER NUMBER...V.;.O...TAX ; 
EXIT . ACC !. 0.....BNE ERR. ;.....;....
.STA PNTR1 ; CLEAR LSB OF EACH PNTR.....
STA PNTR2 ;.!...;.+...TYA ;.C.F.. #7 ; M
ASK THE LSB.A.P.BEQ ERR. ; EXIT . ACC . 
0.G.Z.;.....ASL ; MULTIPLY BY EIGHT.....
ASL ;.....ASL ;.....;.B...CMP #%00101000
 ; DETERMINE WHICH.....BCC LESS ;  ROM .
 LOOK UNDER... .ADC #$B7 ; . . #$20, . K
ERNAL...*..BYTE $2C.6.4.LESS ADC #$98 ; 
ELSE BASIC ROM.H.>.STA PNTR2.1 ;.N.H.;.L
.R.LDY 648 ; . MSB OF SCREEN.{.\.BEQ ERR
. ;...F.STY PNTR1.1 ;...P.;...Z.LDA MEMC
TRL ; SWITCH OUT BOTH ROMS.K.... #MASKOU
T ;.....STA MEMCTRL ;.....;.....PLP ; FE
TCH ... FLAG.....;.....LDX #4 ;.....LDY 
#0 ;.".J.;.3.T.BCS RECALL ;.9...;.P...L1
 LDA (PNTR1),Y ;.D...STA (PNTR2),Y ;.N..
.INY ;.{...BNE L1 ;.....INC PNTR1.1 ;...
..INC PNTR2.1 ;...$.DEX ;.....BNE L1 ;.E
.8.LDA #$D8 ;.W.B.STA PNTR1.1 ;...L.LDX 
#4 ;...V.L2 LDA (PNTR1),Y ;...`.STA (PNT
R2),Y ;...J.INY ;.&.T.BNE L2 ;.8.~.INC P
NTR1.1 ;.J...INC PNTR2.1 ;.T...DEX ;.A..
.BNE L2 ;.P...BEQ EXIT ;.V...;.|...;...D
.ERR. PLA ;...N.CLV ;...X.BVC EXIT ;....
.;.....;.....RECALL . ..S...LDA (PNTR2),
Y ;.....STA (PNTR1),Y ;.....INY ;.....BN
E RECALL ;...(.INC PNTR1.1 ;.&.2.INC PNT
R2.1 ;.0.<.DEX ;.A.F.BNE RECALL ;.N.P.LD
X #4 ;.].Z.LDA #$D8 ;.O.D.STA PNTR1.1 ;.
..N.L3 LDA (PNTR2),Y ;...X.STA (PNTR1),Y
 ;.....INY ;.....BNE L3 ;.C...INC PNTR1.
1 ;.U. .INC PNTR2.1 ;.....DEX ;.....BNE 
L3 ;.....;...H.EXIT LDA MEMCTRL ;...R..A
 #MASKIN ;.,...STA MEMCTRL ;.2...;.<...P
LA ;.N...STA PNTR2.2 ;.X...PLA ;.H...STA
 PNTR2 ;.R...PLA ;...".STA PNTR1.1 ;...,
.PLA ;...6.STA PNTR1 ;...@.PLP ;...J.RTS
 ;...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL