TWIN-80.BUD
FILE INFORMATION
FILENAME(S): TWIN-80.BUD
FILE TYPE(S): PRG
FILE SIZE: 5.5K
FIRST SEEN: 2025-11-30 21:12:51
APPEARS ON: 1 disk(s)
FILE HASH
85c49194db01a775fa4fc07b1610806deb8a247a44005810b8a476151fdd0c19
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TRANSACTOR DISK | TWIN-80.BUD | PRG | DuncanTwain | 30 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 1D 1C E8 03 F2 22 54 57 49 4E 2F 38 30 22 |......."TWIN/80"|
00000010: 3A EF 22 54 57 49 4E 2F 38 30 22 3A 80 00 23 1C |:."TWIN/80":..#.|
00000020: F2 03 3B 00 29 1C FC 03 3B 00 44 1C 06 04 3B 20 |..;.)...;.D...; |
00000030: 20 20 20 20 20 20 20 20 20 54 57 49 4E AB 38 30 | TWIN.80|
00000040: 2E 41 53 4D 00 4A 1C 10 04 3B 00 70 1C 1A 04 3B |.ASM.J...;.p...;|
00000050: 20 20 20 20 20 20 53 55 42 4D 49 54 54 45 44 20 | SUBMITTED |
00000060: 42 59 3A 20 44 2E 20 4A 2E 20 4D B0 52 49 53 53 |BY: D. J. M.RISS|
00000070: 00 9C 1C 24 04 3B 20 20 20 20 20 20 20 20 20 20 |...$.; |
00000080: 20 20 20 20 20 20 20 20 20 20 37 36 39 20 43 4F | 769 CO|
00000090: 58 57 45 4C 4C 20 41 56 45 4E 55 45 00 C1 1C 2E |XWELL AVENUE....|
000000A0: 04 3B 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.; |
000000B0: 20 20 20 20 20 20 A4 52 91 A4 20 91 54 41 52 49 | .R.. .TARI|
000000C0: 4F 00 E2 1C 38 04 3B 20 20 20 20 20 20 20 20 20 |O...8.; |
000000D0: 20 20 20 20 20 20 20 20 20 20 20 4D 34 43 20 33 | M4C 3|
000000E0: 43 36 00 11 1D 42 04 3B 20 20 20 20 20 20 20 20 |C6...B.; |
000000F0: 20 20 20 20 20 20 20 20 20 20 20 20 28 34 31 36 | (416|
00000100: 29 20 34 36 36 20 32 37 39 31 20 28 48 4F 4D 45 |) 466 2791 (HOME|
00000110: 29 00 3F 1D 4C 04 3B 20 20 20 20 20 20 20 20 20 |).?.L.; |
00000120: 20 20 20 20 20 20 20 20 20 20 20 28 34 31 36 29 | (416)|
00000130: 20 39 36 37 20 31 32 31 32 20 28 57 B0 4B 29 00 | 967 1212 (W.K).|
00000140: 67 1D 56 04 3B 20 20 20 20 20 20 20 20 20 20 20 |g.V.; |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 | E|
00000160: 58 54 20 33 32 37 36 00 71 1D 60 04 9E 34 30 30 |XT 3276.q.`..400|
00000170: 30 00 B3 1D 6A 04 3B AC AC AC AC AC AC AC AC AC |0...j.;.........|
00000180: 20 20 56 41 52 49 41 42 4C 45 20 54 41 42 4C 45 | VARIABLE TABLE|
00000190: 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC | ...............|
000001A0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000001B0: AC AC AC 00 B9 1D 74 04 3A 00 EB 1D 7E 04 4D 4F |......t.:...~.MO|
000001C0: 44 45 20 20 20 20 20 20 20 B2 20 24 44 37 20 20 |DE . $D7 |
000001D0: 20 20 20 20 3B 20 42 49 54 20 37 20 B2 20 31 20 | ; BIT 7 . 1 |
000001E0: 81 20 38 30 20 43 4F 4C 55 4D 4E 00 2C 1E 88 04 |. 80 COLUMN.,...|
000001F0: 50 4E 54 20 20 20 20 20 20 20 20 B2 20 24 45 30 |PNT . $E0|
00000200: 20 20 20 20 20 20 3B 20 53 54 41 52 54 20 4F 46 | ; START OF|
00000210: 20 5A 45 52 4F 20 50 41 47 45 20 53 43 52 45 45 | ZERO PAGE SCREE|
00000220: 4E 20 50 41 52 41 4D 45 54 45 52 53 00 68 1E 92 |N PARAMETERS.h..|
00000230: 04 45 53 43 56 45 43 20 20 20 20 20 B2 20 24 30 |.ESCVEC . $0|
00000240: 33 33 38 20 20 20 20 3B 20 4C 4F 43 41 54 49 91 |338 ; LOCATI.|
00000250: 20 4F 46 20 45 53 43 41 50 45 20 52 4F 55 54 49 | OF ESCAPE ROUTI|
00000260: 4E 45 20 57 45 44 47 45 00 AB 1E 9C 04 54 41 42 |NE WEDGE.....TAB|
00000270: 4D 41 50 20 20 20 20 20 B2 20 24 30 33 35 34 20 |MAP . $0354 |
00000280: 20 20 20 3B 20 53 54 41 52 54 20 4F 46 20 41 43 | ; START OF AC|
00000290: 54 49 56 45 20 53 43 52 45 45 4E 20 54 B6 20 AF |TIVE SCREEN T. .|
000002A0: 20 4C 49 4E 45 20 4C 49 4E 4B 53 00 DD 1E A6 04 | LINE LINKS.....|
000002B0: 43 55 52 4D 4F 44 20 20 20 20 20 B2 20 24 30 41 |CURMOD . $0A|
000002C0: 32 42 20 20 20 20 3B 20 53 48 41 EB 57 20 81 20 |2B ; SHA.W . |
000002D0: 56 44 43 20 52 45 47 20 23 20 24 30 41 00 14 1F |VDC REG # $0A...|
000002E0: B0 04 56 4D 33 20 20 20 20 20 20 20 20 B2 20 24 |..VM3 . $|
000002F0: 30 41 32 45 20 20 20 20 3B 20 52 41 4D 20 53 48 |0A2E ; RAM SH|
00000300: 41 EB 57 20 81 20 48 49 20 42 59 54 45 20 4F 46 |A.W . HI BYTE OF|
00000310: 20 56 44 43 00 4B 1F BA 04 3A 20 20 20 20 20 20 | VDC.K...: |
00000320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3B | ;|
00000330: 20 20 20 20 20 20 20 20 20 20 20 20 53 54 41 52 | STAR|
00000340: 54 20 4F 46 20 53 43 52 45 45 4E 00 82 1F C4 04 |T OF SCREEN.....|
00000350: 56 4D 34 20 20 20 20 20 20 20 20 B2 20 24 30 41 |VM4 . $0A|
00000360: 32 46 20 20 20 20 3B 20 52 41 4D 20 53 48 41 EB |2F ; RAM SHA.|
00000370: 57 20 81 20 48 49 20 42 59 54 45 20 4F 46 20 56 |W . HI BYTE OF V|
00000380: 44 43 00 BD 1F CE 04 3A 20 20 20 20 20 20 20 20 |DC.....: |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 20 | ; |
000003A0: 20 20 20 20 20 20 20 20 20 20 53 54 41 52 54 20 | START |
000003B0: 4F 46 20 41 54 54 52 49 42 55 54 45 53 00 F5 1F |OF ATTRIBUTES...|
000003C0: D8 04 45 53 43 41 50 45 20 20 20 20 20 B2 20 24 |..ESCAPE . $|
000003D0: 43 39 43 31 20 20 20 20 3B 20 4E B0 4D 41 4C 20 |C9C1 ; N.MAL |
000003E0: 45 53 43 41 50 45 20 48 AF 4C 49 4E 47 20 52 4F |ESCAPE H.LING RO|
000003F0: 55 54 49 4E 45 00 27 20 E2 04 57 52 49 54 45 52 |UTINE.' ..WRITER|
00000400: 45 47 20 20 20 B2 20 24 43 44 43 43 20 20 20 20 |EG . $CDCC |
00000410: 3B 20 57 52 49 54 45 53 20 A4 20 56 44 43 20 52 |; WRITES . VDC R|
00000420: 45 47 49 53 54 45 52 00 55 20 EC 04 87 52 45 47 |EGISTER.U ...REG|
00000430: 20 20 20 20 B2 20 24 43 44 44 41 20 20 20 20 3B | . $CDDA ;|
00000440: 20 87 53 20 46 52 4F 4D 20 56 44 43 20 52 45 47 | .S FROM VDC REG|
00000450: 49 53 54 45 52 00 86 20 F6 04 4D 4D 55 43 52 20 |ISTER.. ..MMUCR |
00000460: 20 20 20 20 20 B2 20 24 46 46 30 30 20 20 20 20 | . $FF00 |
00000470: 3B 20 46 49 4E 44 20 FE 02 20 53 45 54 54 49 4E |; FIND .. SETTIN|
00000480: 47 20 48 45 52 45 00 B3 20 00 05 4A 42 53 4F 55 |G HERE.. ..JBSOU|
00000490: 54 20 20 20 20 20 B2 20 24 46 46 44 32 20 20 20 |T . $FFD2 |
000004A0: 20 3B 20 4B 45 52 4E 41 4C 20 99 20 52 4F 55 54 | ; KERNAL . ROUT|
000004B0: 49 4E 45 00 E7 20 0A 05 54 41 42 4C 45 27 31 27 |INE.. ..TABLE'1'|
000004C0: C3 47 54 48 20 B2 20 32 36 20 20 20 3B 20 4E 55 |.GTH . 26 ; NU|
000004D0: 4D 42 45 52 20 4F 46 20 C5 55 45 53 20 49 4E 20 |MBER OF .UES IN |
000004E0: 54 41 42 4C 45 20 31 00 1B 21 14 05 54 41 42 4C |TABLE 1..!..TABL|
000004F0: 45 27 32 27 C3 47 54 48 20 B2 20 31 34 20 20 20 |E'2'.GTH . 14 |
00000500: 3B 20 4E 55 4D 42 45 52 20 4F 46 20 C5 55 45 53 |; NUMBER OF .UES|
00000510: 20 49 4E 20 54 41 42 4C 45 20 32 00 54 21 1E 05 | IN TABLE 2.T!..|
00000520: 54 41 42 4C 45 27 33 27 C3 47 54 48 20 B2 20 37 |TABLE'3'.GTH . 7|
00000530: 20 20 20 20 3B 20 4E 55 4D 42 45 52 20 4F 46 20 | ; NUMBER OF |
00000540: C5 55 45 53 20 49 4E 20 54 41 42 4C 45 53 20 33 |.UES IN TABLES 3|
00000550: 20 AF 20 34 00 5A 21 28 05 3A 00 97 21 32 05 3B | . 4.Z!(.:..!2.;|
00000560: AC AC AC AC AC AC AC AC AC 20 20 80 20 4F 46 20 |......... . OF |
00000570: 56 41 52 49 41 42 4C 45 53 20 AC AC AC AC AC AC |VARIABLES ......|
00000580: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000590: AC AC AC AC AC AC AC 00 CC 21 3C 05 2E B0 47 20 |.........!<...G |
000005A0: 24 31 33 30 30 20 20 20 20 20 20 20 20 20 20 20 |$1300 |
000005B0: 20 20 20 20 3B 20 41 53 53 45 4D 42 4C 45 53 20 | ; ASSEMBLES |
000005C0: B5 4F 20 45 4D 50 54 59 20 52 41 4D 00 D5 21 46 |.O EMPTY RAM..!F|
000005D0: 05 2E 4D 45 4D 00 15 22 50 05 3B AC AC AC AC AC |..MEM.."P.;.....|
000005E0: AC AC AC AC AC AC 20 53 45 54 AB 55 50 20 52 4F |...... SET.UP RO|
000005F0: 55 54 49 4E 45 20 AC AC AC AC AC AC AC AC AC AC |UTINE ..........|
00000600: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000610: AC AC AC AC AC 00 1B 22 5A 05 3A 00 50 22 64 05 |......."Z.:.P"d.|
00000620: 3A 20 20 20 20 20 20 20 20 20 20 4C 44 41 20 23 |: LDA #|
00000630: B3 A2 27 48 AF 4C 45 52 20 20 20 20 3B 20 52 45 |..'H.LER ; RE|
00000640: 53 45 54 20 45 53 43 41 50 45 20 56 45 43 A4 52 |SET ESCAPE VEC.R|
00000650: 00 80 22 6E 05 3A 20 20 20 20 20 20 20 20 20 20 |.."n.: |
00000660: 53 54 41 20 45 53 43 56 45 43 20 20 20 20 20 20 |STA ESCVEC |
00000670: 20 20 20 20 20 3B 20 A4 20 50 4F B5 20 A4 20 A2 | ; . PO. . .|
00000680: 00 AA 22 78 05 3A 20 20 20 20 20 20 20 20 20 20 |.."x.: |
00000690: 4C 44 41 20 23 B1 A2 27 48 AF 4C 45 52 20 20 20 |LDA #..'H.LER |
000006A0: 20 3B 20 52 4F 55 54 49 4E 45 00 C6 22 82 05 3A | ; ROUTINE.."..:|
000006B0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 45 53 | STA ES|
000006C0: 43 56 45 43 AA 31 00 CC 22 8C 05 3A 00 FE 22 96 |CVEC.1.."..:..".|
000006D0: 05 3A 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 |.: JSR |
000006E0: 94 27 FE 02 20 20 20 20 20 20 20 20 3B 20 94 20 |.'.. ; . |
000006F0: FE 02 20 AF 20 53 45 54 20 FE 02 20 31 35 00 04 |.. . SET .. 15..|
00000700: 23 A0 05 3A 00 3B 23 AA 05 3A 20 20 20 20 20 20 |#..:.;#..: |
00000710: 20 20 20 20 4C 44 41 20 23 24 39 33 20 20 20 20 | LDA #$93 |
00000720: 20 20 20 20 20 20 20 20 20 3B 20 43 4C 45 41 52 | ; CLEAR|
00000730: 20 4C 4F 57 20 53 43 52 45 45 4E 00 55 23 B4 05 | LOW SCREEN.U#..|
00000740: 3A 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 4A |: JSR J|
00000750: 42 53 4F 55 54 00 5B 23 BE 05 3A 00 97 23 C8 05 |BSOUT.[#..:..#..|
00000760: 3A 20 20 20 20 20 20 20 20 20 20 4A 53 52 20 56 |: JSR V|
00000770: 44 43 27 A4 47 47 4C 45 20 20 20 20 20 20 20 3B |DC'.GGLE ;|
00000780: 20 43 91 46 49 47 55 52 45 20 81 20 48 49 47 48 | C.FIGURE . HIGH|
00000790: 20 53 43 52 45 45 4E 00 9D 23 D2 05 3A 00 D5 23 | SCREEN..#..:..#|
000007A0: DC 05 3A 20 20 20 20 20 20 20 20 20 20 4C 44 41 |..: LDA|
000007B0: 20 23 24 39 33 20 20 20 20 20 20 20 20 20 20 20 | #$93 |
000007C0: 20 20 3B 20 43 4C 45 41 52 20 48 49 47 48 20 53 | ; CLEAR HIGH S|
000007D0: 43 52 45 45 4E 00 EF 23 E6 05 3A 20 20 20 20 20 |CREEN..#..: |
000007E0: 20 20 20 20 20 4A 53 52 20 4A 42 53 4F 55 54 00 | JSR JBSOUT.|
000007F0: F5 23 F0 05 3A 00 32 24 FA 05 3A 20 20 20 20 20 |.#..:.2$..: |
00000800: 20 20 20 20 20 4A 53 52 20 56 44 43 27 A4 47 47 | JSR VDC'.GG|
00000810: 4C 45 20 20 20 20 20 20 20 3B 20 43 91 46 49 47 |LE ; C.FIG|
00000820: 55 52 45 20 81 20 4C 4F 57 20 53 43 52 45 45 4E |URE . LOW SCREEN|
00000830: 20 AF 00 63 24 04 06 3A 20 20 20 20 20 20 20 20 | ..c$..: |
00000840: 20 20 4A 4D 50 20 4F 4C 44 27 FE 02 20 20 20 20 | JMP OLD'.. |
00000850: 20 20 20 20 20 3B 20 8C 20 FE 02 20 53 45 54 54 | ; . .. SETT|
00000860: 49 4E 47 00 9B 24 0E 06 3A 20 20 20 20 20 20 20 |ING..$..: |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 3B 20 FB 20 52 54 53 20 | ; . RTS |
00000890: A4 20 A1 20 A4 20 42 41 53 49 43 00 A1 24 18 06 |. . . BASIC..$..|
000008A0: 3A 00 E8 24 22 06 3B AC AC AC AC AC AC AC AC AC |:..$".;.........|
000008B0: AC AC AC AC AC 20 80 20 4F 46 20 53 45 54 AB 55 |..... . OF SET.U|
000008C0: 50 20 52 4F 55 54 49 4E 45 20 AC AC AC AC AC AC |P ROUTINE ......|
000008D0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
000008E0: AC AC AC AC AC AC AC AC 00 EE 24 2C 06 3A 00 33 |..........$,.:.3|
000008F0: 25 36 06 3B AC AC AC AC AC AC AC AC AC AC AC AC |%6.;............|
00000900: AC AC 20 A2 20 45 43 41 50 45 20 48 AF 4C 49 4E |.. . ECAPE H.LIN|
00000910: 47 20 52 4F 55 54 49 4E 45 20 AC AC AC AC AC AC |G ROUTINE ......|
00000920: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00000930: AC AC AC 00 39 25 40 06 3A 00 49 25 4A 06 A2 27 |....9%@.:.I%J..'|
00000940: 48 AF 4C 45 52 20 B2 20 AC 00 7E 25 54 06 3A 20 |H.LER . ..~%T.: |
00000950: 20 20 20 20 20 20 20 20 20 43 4D 50 20 23 24 35 | CMP #$5|
00000960: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |E ; |
00000970: 49 53 20 49 54 20 55 50 20 41 52 52 4F 57 00 BF |IS IT UP ARROW..|
00000980: 25 5E 06 3A 20 20 20 20 20 20 20 20 20 20 42 45 |%^.: BE|
00000990: 51 20 EB 27 49 54 20 20 20 20 20 20 20 20 20 20 |Q .'IT |
000009A0: 20 20 3B 20 59 45 53 2C 20 53 4F 20 CB 20 A4 20 | ; YES, SO . . |
000009B0: 53 50 45 43 49 41 4C 20 52 4F 55 54 49 4E 45 00 |SPECIAL ROUTINE.|
000009C0: F9 25 68 06 4E B0 4D 27 4F 55 54 20 20 20 4A 4D |.%h.N.M'OUT JM|
000009D0: 50 20 45 53 43 41 50 45 20 20 20 20 20 20 20 20 |P ESCAPE |
000009E0: 20 20 20 3B 20 4E 4F 2C 20 53 4F 20 CB 20 4E B0 | ; NO, SO . N.|
000009F0: 4D 41 4C 20 52 4F 55 54 45 00 FF 25 72 06 3A 00 |MAL ROUTE..%r.:.|
00000A00: 3C 26 7C 06 EB 27 49 54 20 20 20 20 20 20 4C 44 |<&|..'IT LD|
00000A10: 41 20 4D 4F 44 45 20 20 20 20 20 20 20 20 20 20 |A MODE |
00000A20: 20 20 20 3B 20 49 53 20 38 30 AB 43 4F 4C 55 4D | ; IS 80.COLUM|
00000A30: 4E 20 42 45 49 4E 47 20 55 53 45 44 00 58 26 86 |N BEING USED.X&.|
00000A40: 06 3A 20 20 20 20 20 20 20 20 20 20 AF 20 23 25 |.: . #%|
00000A50: 31 30 30 30 30 30 30 30 00 92 26 90 06 3A 20 20 |10000000..&..: |
00000A60: 20 20 20 20 20 20 20 20 42 45 51 20 4E B0 4D 27 | BEQ N.M'|
00000A70: 4F 55 54 20 20 20 20 20 20 20 20 20 3B 20 4E 4F |OUT ; NO|
00000A80: 2C 20 53 4F 20 CB 20 4E B0 4D 41 4C 20 52 4F 55 |, SO . N.MAL ROU|
00000A90: 54 45 00 98 26 9A 06 3A 00 C8 26 A4 06 3A 20 20 |TE..&..:..&..: |
00000AA0: 20 20 20 20 20 20 20 20 4A 53 52 20 94 27 FE 02 | JSR .'..|
00000AB0: 20 20 20 20 20 20 20 20 3B 20 94 20 FE 02 20 AF | ; . .. .|
00000AC0: 20 CB 20 FE 02 20 31 35 00 CE 26 AE 06 3A 00 02 | . .. 15..&..:..|
00000AD0: 27 B8 06 3A 20 20 20 20 20 20 20 20 20 20 4A 53 |'..: JS|
00000AE0: 52 20 56 44 43 27 A4 47 47 4C 45 20 20 20 20 20 |R VDC'.GGLE |
00000AF0: 20 20 3B 20 53 57 49 54 43 48 20 4D 45 4D B0 49 | ; SWITCH MEM.I|
00000B00: 45 53 00 08 27 C2 06 3A 00 45 27 CC 06 3A 20 20 |ES..'..:.E'..: |
00000B10: 20 20 20 20 20 20 20 20 20 4C 44 41 20 43 55 52 | LDA CUR|
00000B20: 4D 4F 44 20 20 20 20 20 20 20 20 20 20 3B 20 53 |MOD ; S|
00000B30: 57 49 54 43 48 20 43 55 52 4D 4F 44 20 AF 20 54 |WITCH CURMOD . T|
00000B40: 41 42 4C 45 30 00 60 27 D6 06 3A 20 20 20 20 20 |ABLE0.`'..: |
00000B50: 20 20 20 20 20 20 4C 44 58 20 54 41 42 4C 45 30 | LDX TABLE0|
00000B60: 00 7B 27 E0 06 3A 20 20 20 20 20 20 20 20 20 20 |.{'..: |
00000B70: 20 53 54 58 20 43 55 52 4D 4F 44 00 96 27 EA 06 | STX CURMOD..'..|
00000B80: 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 |: STA |
00000B90: 54 41 42 4C 45 30 00 9C 27 F4 06 3A 00 D4 27 FE |TABLE0..'..:..'.|
00000BA0: 06 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 58 |.: LDX|
00000BB0: 20 23 54 41 42 4C 45 27 31 27 C3 47 54 48 AB 31 | #TABLE'1'.GTH.1|
00000BC0: 20 3B 20 B5 45 52 43 48 41 4E 47 45 20 C5 55 45 | ; .ERCHANGE .UE|
00000BD0: 53 20 49 4E 00 0B 28 08 07 EC 31 20 20 20 20 20 |S IN..(...1 |
00000BE0: 20 20 4C 44 41 20 50 4E 54 2C 58 20 20 20 20 20 | LDA PNT,X |
00000BF0: 20 20 20 20 20 20 3B 20 54 41 42 4C 45 20 31 20 | ; TABLE 1 |
00000C00: 57 49 54 48 20 50 41 47 45 20 30 00 40 28 12 07 |WITH PAGE 0.@(..|
00000C10: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |: LDY |
00000C20: 54 41 42 4C 45 31 2C 58 20 20 20 20 20 20 20 20 |TABLE1,X |
00000C30: 3B 20 46 52 4F 4D 20 24 45 30 20 A4 20 24 46 39 |; FROM $E0 . $F9|
00000C40: 00 5D 28 1C 07 3A 20 20 20 20 20 20 20 20 20 20 |.](..: |
00000C50: 20 53 54 41 20 54 41 42 4C 45 31 2C 58 00 77 28 | STA TABLE1,X.w(|
00000C60: 26 07 3A 20 20 20 20 20 20 20 20 20 20 20 53 54 |&.: ST|
00000C70: 59 20 50 4E 54 2C 58 00 8B 28 30 07 3A 20 20 20 |Y PNT,X..(0.: |
00000C80: 20 20 20 20 20 20 20 20 44 45 58 00 A2 28 3A 07 | DEX..(:.|
00000C90: 3A 20 20 20 20 20 20 20 20 20 20 20 42 50 4C 20 |: BPL |
00000CA0: EC 31 00 A8 28 44 07 3A 00 E7 28 4E 07 3A 20 20 |.1..(D.:..(N.: |
00000CB0: 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 54 41 | LDX #TA|
00000CC0: 42 4C 45 27 32 27 C3 47 54 48 AB 31 20 20 20 3B |BLE'2'.GTH.1 ;|
00000CD0: 20 B5 45 52 43 48 41 4E 47 45 20 54 48 45 20 54 | .ERCHANGE THE T|
00000CE0: 41 42 20 4D 41 50 53 00 1B 29 58 07 EC 32 20 20 |AB MAPS..)X..2 |
00000CF0: 20 20 20 20 20 4C 44 41 20 54 41 42 4D 41 50 2C | LDA TABMAP,|
00000D00: 58 20 20 20 20 20 20 20 20 3B 20 AF 20 4C 49 4E |X ; . LIN|
00000D10: 45 20 4C 49 4E 4B 20 4D 41 50 53 00 56 29 62 07 |E LINK MAPS.V)b.|
00000D20: 3A 20 20 20 20 20 20 20 20 20 20 20 4C 44 59 20 |: LDY |
00000D30: 54 41 42 4C 45 32 2C 58 20 20 20 20 20 20 20 20 |TABLE2,X |
00000D40: 3B 20 57 49 54 48 20 C5 55 45 53 20 49 4E 20 54 |; WITH .UES IN T|
00000D50: 41 42 4C 45 20 32 00 73 29 6C 07 3A 20 20 20 20 |ABLE 2.s)l.: |
00000D60: 20 20 20 20 20 20 20 53 54 41 20 54 41 42 4C 45 | STA TABLE|
00000D70: 32 2C 58 00 87 29 76 07 3A 20 20 20 20 20 20 20 |2,X..)v.: |
00000D80: 20 20 20 20 54 59 41 00 A4 29 80 07 3A 20 20 20 | TYA..)..: |
00000D90: 20 20 20 20 20 20 20 20 53 54 41 20 54 41 42 4D | STA TABM|
00000DA0: 41 50 2C 58 00 B8 29 8A 07 3A 20 20 20 20 20 20 |AP,X..)..: |
00000DB0: 20 20 20 20 20 44 45 58 00 CF 29 94 07 3A 20 20 | DEX..)..: |
00000DC0: 20 20 20 20 20 20 20 20 20 42 50 4C 20 EC 32 00 | BPL .2.|
00000DD0: D5 29 9E 07 3A 00 F9 29 A8 07 3A 20 20 20 20 20 |.)..:..)..: |
00000DE0: 20 20 20 20 20 20 4C 44 59 20 23 54 41 42 4C 45 | LDY #TABLE|
00000DF0: 27 33 27 C3 47 54 48 AB 31 00 2F 2A B2 07 EC 33 |'3'.GTH.1./*...3|
00000E00: 20 20 20 20 20 20 20 4C 44 58 20 54 41 42 4C 45 | LDX TABLE|
00000E10: 33 2C 59 20 20 20 20 20 20 20 20 3B 20 B5 45 52 |3,Y ; .ER|
00000E20: 43 48 41 4E 47 45 20 54 48 45 20 C5 55 45 53 00 |CHANGE THE .UES.|
00000E30: 66 2A BC 07 3A 20 20 20 20 20 20 20 20 20 20 20 |f*..: |
00000E40: 4A 53 52 20 87 52 45 47 20 20 20 20 20 20 20 20 |JSR .REG |
00000E50: 20 3B 20 49 4E 20 54 41 42 4C 45 20 34 20 57 49 | ; IN TABLE 4 WI|
00000E60: 54 48 20 54 48 45 00 A1 2A C6 07 3A 20 20 20 20 |TH THE..*..: |
00000E70: 20 20 20 20 20 20 20 50 48 41 20 20 20 20 20 20 | PHA |
00000E80: 20 20 20 20 20 20 20 20 20 20 20 3B 20 C5 55 45 | ; .UE|
00000E90: 53 20 49 4E 20 53 45 4C 45 43 54 45 44 20 56 44 |S IN SELECTED VD|
00000EA0: 43 00 D1 2A D0 07 3A 20 20 20 20 20 20 20 20 20 |C..*..: |
00000EB0: 20 20 4C 44 41 20 54 41 42 4C 45 34 2C 59 20 20 | LDA TABLE4,Y |
00000EC0: 20 20 20 20 20 20 3B 20 52 45 47 49 53 54 45 52 | ; REGISTER|
00000ED0: 53 00 0C 2B DA 07 3A 20 20 20 20 20 20 20 20 20 |S..+..: |
00000EE0: 20 20 4A 53 52 20 57 52 49 54 45 52 45 47 20 20 | JSR WRITEREG |
00000EF0: 20 20 20 20 20 20 3B 20 52 45 47 49 53 54 45 52 | ; REGISTER|
00000F00: 53 20 41 52 45 20 9B 45 44 20 49 4E 00 3A 2B E4 |S ARE .ED IN.:+.|
00000F10: 07 3A 20 20 20 20 20 20 20 20 20 20 20 50 4C 41 |.: PLA|
00000F20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F30: 20 3B 20 54 41 42 4C 45 20 33 00 57 2B EE 07 3A | ; TABLE 3.W+..:|
00000F40: 20 20 20 20 20 20 20 20 20 20 20 53 54 41 20 54 | STA T|
00000F50: 41 42 4C 45 34 2C 59 00 6B 2B F8 07 3A 20 20 20 |ABLE4,Y.k+..: |
00000F60: 20 20 20 20 20 20 20 20 44 45 59 00 82 2B 02 08 | DEY..+..|
00000F70: 3A 20 20 20 20 20 20 20 20 20 20 20 42 50 4C 20 |: BPL |
00000F80: EC 33 00 88 2B 0C 08 3A 00 C0 2B 16 08 3A 20 20 |.3..+..:..+..: |
00000F90: 20 20 20 20 20 20 20 20 4A 4D 50 20 4F 4C 44 27 | JMP OLD'|
00000FA0: FE 02 20 20 20 20 20 20 20 20 20 3B 20 A1 20 4F |.. ; . O|
00000FB0: 4C 44 20 FE 02 2C 20 AF 20 55 53 45 20 49 54 53 |LD .., . USE ITS|
00000FC0: 00 F6 2B 20 08 3A 20 20 20 20 20 20 20 20 20 20 |..+ .: |
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000FE0: 20 20 20 20 20 3B 20 52 54 53 20 A4 20 8E 20 A4 | ; RTS . . .|
00000FF0: 20 42 41 53 49 43 00 2D 2C 2A 08 3B AC AC AC AC | BASIC.-,*.;....|
00001000: AC AC AC AC AC AC AC 20 80 20 4F 46 20 A2 20 48 |....... . OF . H|
00001010: AF 4C 45 52 20 52 4F 55 54 49 4E 45 20 AC AC AC |.LER ROUTINE ...|
00001020: AC AC AC AC AC AC AC AC AC AC AC AC AC 00 33 2C |..............3,|
00001030: 34 08 3A 00 74 2C 3E 08 3B AC AC AC AC AC AC AC |4.:.t,>.;.......|
00001040: AC AC AC AC AC AC AC 20 53 55 42 52 4F 55 54 49 |....... SUBROUTI|
00001050: 4E 45 53 20 AC AC AC AC AC AC AC AC AC AC AC AC |NES ............|
00001060: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001070: AC AC AC AC 00 B1 2C 48 08 3B AC AC AC AC AC AC |......,H.;......|
00001080: AC AC AC AC 20 52 4F 55 54 49 4E 45 20 A4 20 FE |.... ROUTINE . .|
00001090: 1F 20 FE 02 20 26 20 53 45 54 20 FE 02 20 A4 20 |. .. & SET .. . |
000010A0: 31 35 20 AC AC AC AC AC AC AC AC AC AC AC AC AC |15 .............|
000010B0: AC 00 DA 2C 52 08 94 27 FE 02 20 20 4C 44 41 20 |...,R..'.. LDA |
000010C0: 4D 4D 55 43 52 20 20 20 20 20 20 20 20 20 20 20 |MMUCR |
000010D0: 20 3B 20 94 20 FE 02 20 49 4E 00 0F 2D 5C 08 3A | ; . .. IN..-\.:|
000010E0: 20 20 20 20 20 20 20 20 20 20 53 54 41 20 54 41 | STA TA|
000010F0: 42 4C 45 30 AA 31 20 20 20 20 20 20 20 20 20 3B |BLE0.1 ;|
00001100: 20 54 41 42 4C 45 20 30 2C 20 A7 20 53 45 54 00 | TABLE 0, . SET.|
00001110: 3D 2D 66 08 3A 20 20 20 20 20 20 20 20 20 20 4C |=-f.: L|
00001120: 44 41 20 23 24 30 30 20 20 20 20 20 20 20 20 20 |DA #$00 |
00001130: 20 20 20 20 3B 20 A4 20 FE 02 20 31 35 00 56 2D | ; . .. 15.V-|
00001140: 70 08 3A 20 20 20 20 20 20 20 20 20 20 53 54 41 |p.: STA|
00001150: 20 4D 4D 55 43 52 00 69 2D 7A 08 3A 20 20 20 20 | MMUCR.i-z.: |
00001160: 20 20 20 20 20 20 52 54 53 00 6F 2D 84 08 3A 00 | RTS.o-..:.|
00001170: AA 2D 8E 08 3B AC AC AC AC AC AC AC AC AC AC AC |.-..;...........|
00001180: AC 20 52 4F 55 54 49 4E 45 20 A4 20 FE 21 20 AF |. ROUTINE . .! .|
00001190: 20 52 45 53 45 54 20 4F 4C 44 20 FE 02 20 AC AC | RESET OLD .. ..|
000011A0: AC AC AC AC AC AC AC AC AC AC 00 D7 2D 98 08 4F |............-..O|
000011B0: 4C 44 27 FE 02 20 20 20 4C 44 41 20 54 41 42 4C |LD'.. LDA TABL|
000011C0: 45 30 AA 31 20 20 20 20 20 20 20 20 20 3B 20 A1 |E0.1 ; .|
000011D0: 20 4F 4C 44 20 FE 02 00 0B 2E A2 08 3A 20 20 20 | OLD .......: |
000011E0: 20 20 20 20 20 20 20 53 54 41 20 4D 4D 55 43 52 | STA MMUCR|
000011F0: 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 AF 20 | ; . |
00001200: 53 A4 52 45 20 49 4E 20 4D 4D 55 00 1E 2E AC 08 |S.RE IN MMU.....|
00001210: 3A 20 20 20 20 20 20 20 20 20 20 52 54 53 00 24 |: RTS.$|
00001220: 2E B6 08 3A 00 6B 2E C0 08 3B AC AC AC AC AC AC |...:.k...;......|
00001230: AC AC AC AC AC AC AC 20 52 4F 55 54 49 4E 45 20 |....... ROUTINE |
00001240: A4 20 A4 47 47 4C 45 20 42 45 54 57 45 45 4E 20 |. .GGLE BETWEEN |
00001250: 53 43 52 45 45 4E 53 20 49 4E 20 56 44 43 20 4D |SCREENS IN VDC M|
00001260: 45 4D B0 59 20 AC AC AC AC AC AC 00 A1 2E CA 08 |EM.Y ...........|
00001270: 56 44 43 27 A4 47 47 4C 45 20 20 4C 44 41 20 56 |VDC'.GGLE LDA V|
00001280: 4D 33 20 20 20 20 20 20 20 20 20 20 20 20 20 3B |M3 ;|
00001290: 20 A4 47 47 4C 45 20 C5 55 45 20 4F 46 20 56 4D | .GGLE .UE OF VM|
000012A0: 33 00 D8 2E D4 08 3A 20 20 20 20 20 20 20 20 20 |3.....: |
000012B0: 20 20 45 B0 20 23 24 31 30 20 20 20 20 20 20 20 | E. #$10 |
000012C0: 20 20 20 20 20 3B 20 42 45 54 57 45 45 4E 20 24 | ; BETWEEN $|
000012D0: 30 30 20 AF 20 24 31 30 00 F0 2E DE 08 3A 20 20 |00 . $10.....: |
000012E0: 20 20 20 20 20 20 20 20 20 53 54 41 20 56 4D 33 | STA VM3|
000012F0: 00 24 2F E8 08 3A 20 20 20 20 20 20 20 20 20 20 |.$/..: |
00001300: 20 4C 44 58 20 23 24 30 43 20 20 20 20 20 20 20 | LDX #$0C |
00001310: 20 20 20 20 20 3B 20 53 A4 52 45 20 A2 20 C5 55 | ; S.RE . .U|
00001320: 45 20 49 4E 00 5D 2F F2 08 3A 20 20 20 20 20 20 |E IN.]/..: |
00001330: 20 20 20 20 20 4A 53 52 20 57 52 49 54 45 52 45 | JSR WRITERE|
00001340: 47 20 20 20 20 20 20 20 20 3B 20 56 44 43 20 52 |G ; VDC R|
00001350: 45 47 49 53 54 45 52 20 23 20 24 30 43 00 63 2F |EGISTER # $0C.c/|
00001360: FC 08 3A 00 9A 2F 06 09 3A 20 20 20 20 20 20 20 |..:../..: |
00001370: 20 20 20 20 4C 44 41 20 56 4D 34 20 20 20 20 20 | LDA VM4 |
00001380: 20 20 20 20 20 20 20 20 3B 20 A4 47 47 4C 45 20 | ; .GGLE |
00001390: C5 55 45 20 4F 46 20 56 4D 34 00 D1 2F 10 09 3A |.UE OF VM4../..:|
000013A0: 20 20 20 20 20 20 20 20 20 20 20 45 B0 20 23 24 | E. #$|
000013B0: 31 30 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |10 ; |
000013C0: 42 45 54 57 45 45 4E 20 24 30 38 20 AF 20 24 31 |BETWEEN $08 . $1|
000013D0: 38 00 E9 2F 1A 09 3A 20 20 20 20 20 20 20 20 20 |8../..: |
000013E0: 20 20 53 54 41 20 56 4D 34 00 1D 30 24 09 3A 20 | STA VM4..0$.: |
000013F0: 20 20 20 20 20 20 20 20 20 20 4C 44 58 20 23 24 | LDX #$|
00001400: 31 34 20 20 20 20 20 20 20 20 20 20 20 20 3B 20 |14 ; |
00001410: 53 A4 52 45 20 A2 20 C5 55 45 20 49 4E 00 56 30 |S.RE . .UE IN.V0|
00001420: 2E 09 3A 20 20 20 20 20 20 20 20 20 20 20 4A 53 |..: JS|
00001430: 52 20 57 52 49 54 45 52 45 47 20 20 20 20 20 20 |R WRITEREG |
00001440: 20 20 3B 20 56 44 43 20 52 45 47 49 53 54 45 52 | ; VDC REGISTER|
00001450: 20 23 20 24 31 34 00 6A 30 38 09 3A 20 20 20 20 | # $14.j08.: |
00001460: 20 20 20 20 20 20 20 52 54 53 00 AA 30 42 09 3B | RTS..0B.;|
00001470: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................|
00001480: 20 80 20 4F 46 20 53 55 42 52 4F 55 54 49 4E 45 | . OF SUBROUTINE|
00001490: 53 20 AC AC AC AC AC AC AC AC AC AC AC AC AC AC |S ..............|
000014A0: AC AC AC AC AC AC AC AC AC AC 00 B0 30 4C 09 3A |............0L.:|
000014B0: 00 BF 30 56 09 54 41 42 4C 45 30 20 B2 20 AC 00 |..0V.TABLE0 . ..|
000014C0: CE 30 60 09 2E 42 59 54 45 20 39 36 2C 30 00 DD |.0`..BYTE 96,0..|
000014D0: 30 6A 09 54 41 42 4C 45 31 20 B2 20 AC 00 23 31 |0j.TABLE1 . ..#1|
000014E0: 74 09 2E 42 59 54 45 20 30 2C 31 36 2C 30 2C 31 |t..BYTE 0,16,0,1|
000014F0: 38 2C 32 34 2C 30 2C 30 2C 37 39 2C 30 2C 30 2C |8,24,0,0,79,0,0,|
00001500: 33 2C 30 2C 30 2C 32 34 2C 37 39 2C 39 34 2C 32 |3,0,0,24,79,94,2|
00001510: 37 2C 37 2C 37 2C 30 2C 30 2C 30 2C 30 2C 30 2C |7,7,7,0,0,0,0,0,|
00001520: 30 2C 30 00 32 31 7E 09 54 41 42 4C 45 32 20 B2 |0,0.21~.TABLE2 .|
00001530: 20 AC 00 6C 31 88 09 2E 42 59 54 45 20 31 32 38 | ..l1...BYTE 128|
00001540: 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 |,128,128,128,128|
00001550: 2C 31 32 38 2C 31 32 38 2C 31 32 38 2C 31 32 38 |,128,128,128,128|
00001560: 2C 31 32 38 2C 30 2C 30 2C 30 2C 30 00 7B 31 92 |,128,0,0,0,0.{1.|
00001570: 09 54 41 42 4C 45 33 20 B2 20 AC 00 9A 31 9C 09 |.TABLE3 . ...1..|
00001580: 2E 42 59 54 45 20 31 30 2C 31 31 2C 31 34 2C 31 |.BYTE 10,11,14,1|
00001590: 35 2C 32 36 2C 32 34 2C 32 39 00 A9 31 A6 09 54 |5,26,24,29..1..T|
000015A0: 41 42 4C 45 34 20 B2 20 AC 00 CB 31 B0 09 2E 42 |ABLE4 . ...1...B|
000015B0: 59 54 45 20 31 36 30 2C 32 33 31 2C 31 36 2C 30 |YTE 160,231,16,0|
000015C0: 2C 32 34 30 2C 33 32 2C 32 33 31 00 D2 31 BA 09 |,240,32,231..1..|
000015D0: 2E 80 00 00 00 |..... |
......."TWIN/80":."TWIN/80":..#...;.)...
;.D...; TWIN.80.ASM.J...;.P...;
SUBMITTED BY: D. J. M.RISS...$.;
769 COXWELL AVENUE.A..
.; .R.. .TARIO...8.;
M4C 3C6...B.;
(416) 466 2791 (HOME).?.L.;
(416) 967 1212 (W.K).
G.V.; EXT 3276.
Q.`..4000...J.;......... VARIABLE TABLE
.....................................T.
:...~.MODE . $D7 ; BIT 7 . 1
. 80 COLUMN.,...PNT . $E0 ;
START OF ZERO PAGE SCREEN PARAMETERS.H..
.ESCVEC . $0338 ; LOCATI. OF ESCA
PE ROUTINE WEDGE.....TABMAP . $0354
; START OF ACTIVE SCREEN T. . LINE LI
NKS.....CURMOD . $0A2B ; SHA.W .
VDC REG # $0A.....VM3 . $0A2E
; RAM SHA.W . HI BYTE OF VDC.K...:
; START OF SCR
EEN...D.VM4 . $0A2F ; RAM SHA.
W . HI BYTE OF VDC...N.:
; START OF ATTRIBUTES...
X.ESCAPE . $C9C1 ; N.MAL ESCAPE H
.LING ROUTINE.' ..WRITEREG . $CDCC
; WRITES . VDC REGISTER.U ...REG . $C
DDA ; .S FROM VDC REGISTER.. ..MMUCR
. $FF00 ; FIND .. SETTING HERE..
..JBSOUT . $FFD2 ; KERNAL . ROUT
INE.. ..TABLE'1'CGTH . 26 ; NUMBER OF
EUES IN TABLE 1..!..TABLE'2'CGTH . 14
; NUMBER OF EUES IN TABLE 2.T!..TABLE'3'
CGTH . 7 ; NUMBER OF EUES IN TABLES 3
. 4.Z!(.:..!2.;......... . OF VARIABLE
S ..............................L!<...G
$1300 ; ASSEMBLES .O EMPTY
RAM.U!F..MEM.."P.;........... SET.UP RO
UTINE ................................."
Z.:.P"D.: LDA #..'H.LER ; RE
SET ESCAPE VEC.R.."N.: STA ESCV
EC ; . PO. . ..."X.:
LDA #..'H.LER ; ROUTINE.F"..:
STA ESCVEC.1.L"..:.."..: JSR
.'.. ; . .. . SET .. 15..# .:.;#.
.: LDA #$93 ; CLEAR
LOW SCREEN.U#..: JSR JBSOUT.[#
..:..#H.: JSR VDC'.GGLE ;
C.FIGURE . HIGH SCREEN..#R.:.U#..:
LDA #$93 ; CLEAR HIGH S
CREEN..#..: JSR JBSOUT..#..:.2$
..: JSR VDC'.GGLE ; C.FIG
URE . LOW SCREEN ..C$..: JMP OL
D'.. ; . .. SETTING..$..:
; . RTS . . . BA
SIC..$..:..$".;.............. . OF SET.U
P ROUTINE ..............................
..$,.:.3%6.;.............. . ECAPE H.LIN
G ROUTINE ..........................9%@.
:.I%J..'H.LER . ..~%T.: CMP #$5
E ; IS IT UP ARROW..%^.:
BEQ .'IT ; YES, SO K .
SPECIAL ROUTINE..%H.N.M'OUT JMP ESCAPE
; NO, SO K N.MAL ROUTE..%R.:.
<&|..'IT LDA MODE ; IS
80.COLUMN BEING USED.X&..: . #%
10000000..&..: BEQ N.M'OUT
; NO, SO K N.MAL ROUTE..&..:.H&..:
JSR .'.. ; . .. . K .. 15
.N&..:..'..: JSR VDC'.GGLE
; SWITCH MEM.IES..'B.:.E'L.:
LDA CURMOD ; SWITCH CURMOD . T
ABLE0.`'V.: LDX TABLE0.{'..:
STX CURMOD..'..: STA
TABLE0..'..:.T'..: LDX #TABLE'
1'CGTH.1 ; .ERCHANGE EUES IN..(...1
LDA PNT,X ; TABLE 1 WITH PAG
E 0.@(..: LDY TABLE1,X
; FROM $E0 . $F9.](..: STA TAB
LE1,X.W(&.: STY PNT,X..(0.:
DEX..(:.: BPL .1..(D.:
..(N.: LDX #TABLE'2'CGTH.1 ;
.ERCHANGE THE TAB MAPS..)X..2 LDA
TABMAP,X ; . LINE LINK MAPS.V)B.
: LDY TABLE2,X ; WITH E
UES IN TABLE 2.S)L.: STA TABLE
2,X..)V.: TYA..)..:
STA TABMAP,X..)..: DEX.O)..:
BPL .2.U)..:..)..: LD
Y #TABLE'3'CGTH.1./*...3 LDX TABLE
3,Y ; .ERCHANGE THE EUES.F*..:
JSR .REG ; IN TABLE 4 WI
TH THE..*F.: PHA
; EUES IN SELECTED VDC.Q*P.:
LDA TABLE4,Y ; REGISTERS..+Z.:
JSR WRITEREG ; REGISTER
S ARE .ED IN.:+..: PLA
; TABLE 3.W+..: STA T
ABLE4,Y.K+..: DEY..+..:
BPL .3..+..:..+..: JMP OLD'
.. ; . OLD .., . USE ITS..+ .:
; RTS . . .
BASIC.-,*.;........... . OF . H.LER ROU
TINE .................3,4.:.T,>.;.......
....... SUBROUTINES ....................
..............,H.;.......... ROUTINE . .
. .. & SET .. . 15 ...............Z,R..'
.. LDA MMUCR ; . .. IN..-\.:
STA TABLE0.1 ; TABLE 0
, . SET.=-F.: LDA #$00
; . .. 15.V-P.: STA MMUCR.I
-Z.: RTS.O-..:..-..;...........
. ROUTINE . .! . RESET OLD .. ..........
...W-..OLD'.. LDA TABLE0.1 ; .
OLD .......: STA MMUCR
; . S.RE IN MMU.....: RTS.$
...:.K...;............. ROUTINE . .GGLE
BETWEEN SCREENS IN VDC MEM.Y .........J.
VDC'.GGLE LDA VM3 ; .GGLE E
UE OF VM3.X.T.: E. #$10
; BETWEEN $00 . $10.....:
STA VM3.$/..: LDX #$0C
; S.RE . EUE IN.]/..: JSR
WRITEREG ; VDC REGISTER # $0C.C/
..:../..: LDA VM4
; .GGLE EUE OF VM4.Q/..: E. #$
10 ; BETWEEN $08 . $18../..:
STA VM4..0$.: LDX #$
14 ; S.RE . EUE IN.V0..:
JSR WRITEREG ; VDC REGISTER
# $14.J08.: RTS..0B.;........
........ . OF SUBROUTINES ..............
............0L.:..0V.TABLE0 . ..N0`..BYT
E 96,0..0J.TABLE1 . ..#1T..BYTE 0,16,0,1
8,24,0,0,79,0,0,3,0,0,24,79,94,27,7,7,0,
0,0,0,0,0,0.21~.TABLE2 . ..L1...BYTE 128
,128,128,128,128,128,128,128,128,128,0,0
,0,0.{1..TABLE3 . ...1...BYTE 10,11,14,1
5,26,24,29..1..TABLE4 . ..K1...BYTE 160,
231,16,0,240,32,231.R1.......
> CLICK IMAGE PREVIEW FOR FULL MODAL