SCROLLS
FILE INFORMATION
FILENAME(S): SCROLLS
FILE TYPE(S): PRG
FILE SIZE: 4.9K
FIRST SEEN: 2025-11-30 21:12:21
APPEARS ON: 2 disk(s)
FILE HASH
1e4417d2146a9307acde6944a13894474c0f7afdf50a11d71b114d5a24ac72b8
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RANS ISK1 | SCROLLS | PRG | DuncanTwain | 25 | 0 | DOWNLOAD FILE |
| RANS ISK2 | SCROLLS | PRG | DuncanTwain | 25 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 20 53 43 52 4F 4C 4C 53 20 |..).... SCROLLS |
00000010: 28 4D 41 52 20 33 30 2F 38 35 29 20 20 20 20 20 |(MAR 30/85) |
00000020: 20 20 20 20 20 20 20 20 3A 00 2F 08 01 00 3A 00 | :./...:.|
00000030: 4F 08 02 00 8F 20 34 20 53 54 41 54 45 4D 45 4E |O.... 4 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 34 00 78 08 05 00 3A 00 A0 08 06 00 8F 20 4B |24.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 55 53 43 52 4F 4C 20 |...... S/USCROL |
000000B0: 20 20 20 55 53 43 52 4F 20 20 20 20 35 32 36 30 | USCRO 5260|
000000C0: 20 20 20 20 30 36 37 00 EE 08 08 00 8F 20 53 2F | 067...... S/|
000000D0: 44 53 43 52 4F 4C 20 20 20 20 44 53 43 52 4F 20 |DSCROL DSCRO |
000000E0: 20 20 20 35 32 36 34 20 20 20 20 30 36 38 00 15 | 5264 068..|
000000F0: 09 09 00 8F 20 53 2F 4C 53 43 52 4F 4C 20 20 20 |.... S/LSCROL |
00000100: 20 4C 53 43 52 4F 20 20 20 20 35 32 36 38 20 20 | LSCRO 5268 |
00000110: 20 20 30 36 39 00 3B 09 0A 00 8F 20 53 2F 52 53 | 069.;.... S/RS|
00000120: 43 52 4F 4C 20 20 20 52 53 43 52 4F 20 20 20 20 |CROL RSCRO |
00000130: 35 32 37 32 20 20 20 20 30 37 30 00 41 09 0B 00 |5272 070.A...|
00000140: 3A 00 5B 09 0C 00 8F 20 55 2F 42 59 34 30 20 20 |:.[.... U/BY40 |
00000150: 20 28 35 36 34 36 2F 30 37 31 29 00 75 09 0D 00 | (5646/071).u...|
00000160: 8F 20 55 2F 44 45 46 57 44 57 20 28 35 36 36 38 |. U/DEFWDW (5668|
00000170: 2F 30 37 32 29 00 7B 09 0E 00 3A 00 A2 09 0F 00 |/072).{...:.....|
00000180: 8F 20 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |. ==============|
00000190: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000001A0: 3D 3D 00 A8 09 10 00 3A 00 BE 09 76 00 2E C6 20 |==.....:...v... |
000001B0: 22 55 53 43 52 4F CC 44 53 43 52 4F CC 22 00 D4 |"USCRO.DSCRO."..|
000001C0: 09 77 00 2E C6 20 22 4C 53 43 52 4F CC 52 53 43 |.w... "LSCRO.RSC|
000001D0: 52 4F CC 22 00 ED 09 5E 04 2E 57 B0 44 20 55 53 |RO."...^..W.D US|
000001E0: 43 52 4F AB 31 2C 44 53 43 52 4F AB 31 00 06 0A |CRO.1,DSCRO.1...|
000001F0: 5F 04 2E 57 B0 44 20 4C 53 43 52 4F AB 31 2C 52 |_..W.D LSCRO.1,R|
00000200: 53 43 52 4F AB 31 00 19 0A 8C 14 55 53 43 52 4F |SCRO.1.....USCRO|
00000210: 20 4C 44 58 20 23 24 34 30 00 2D 0A 8E 14 2E 42 | LDX #$40.-....B|
00000220: 59 54 45 20 24 32 43 20 20 20 20 20 20 00 40 0A |YTE $2C .@.|
00000230: 90 14 44 53 43 52 4F 20 4C 44 58 20 23 24 43 30 |..DSCRO LDX #$C0|
00000240: 00 4E 0A 92 14 2E 42 59 54 45 20 24 32 43 00 61 |.N....BYTE $2C.a|
00000250: 0A 94 14 4C 53 43 52 4F 20 4C 44 58 20 23 24 30 |...LSCRO LDX #$0|
00000260: 30 00 6F 0A 96 14 2E 42 59 54 45 20 24 32 43 00 |0.o....BYTE $2C.|
00000270: 82 0A 98 14 52 53 43 52 4F 20 4C 44 58 20 23 24 |....RSCRO LDX #$|
00000280: 38 30 00 88 0A 9A 14 3B 00 9C 0A 9C 14 53 54 58 |80.....;.....STX|
00000290: 20 53 43 52 44 49 52 20 20 20 20 20 00 B0 0A 9E | SCRDIR ....|
000002A0: 14 4C 44 58 20 23 30 20 20 20 20 20 20 20 20 20 |.LDX #0 |
000002B0: 00 C4 0A A0 14 43 4D 50 20 23 24 41 44 20 20 20 |.....CMP #$AD |
000002C0: 20 20 20 20 00 D2 0A A2 14 42 4E 45 20 53 43 52 | .....BNE SCR|
000002D0: 4F 31 00 E6 0A A4 14 4A 53 52 20 24 37 33 20 20 |O1.....JSR $73 |
000002E0: 20 20 20 20 20 20 00 FA 0A A6 14 4C 44 58 20 23 | .....LDX #|
000002F0: 24 38 30 20 20 20 20 20 20 20 00 0C 0B A8 14 53 |$80 .....S|
00000300: 43 52 4F 31 20 54 58 41 20 20 20 20 00 14 0B AA |CRO1 TXA ....|
00000310: 14 50 48 41 00 24 0B AC 14 4A 53 52 20 96 57 44 |.PHA.$...JSR .WD|
00000320: 57 20 20 20 00 2C 0B AE 14 50 4C 41 00 37 0B B0 |W .,...PLA.7..|
00000330: 14 53 54 41 20 54 32 00 48 0B B2 14 4C 44 41 20 |.STA T2.H...LDA |
00000340: 43 B0 4E 45 52 20 20 20 00 59 0B B4 14 4C 44 58 |C.NER .Y...LDX|
00000350: 20 43 B0 4E 45 52 AA 31 20 00 6A 0B B6 14 4C 44 | C.NER.1 .j...LD|
00000360: 59 20 43 4F 4C 43 B0 AA 31 20 00 75 0B B8 14 53 |Y COLC..1 .u...S|
00000370: 54 41 20 54 33 00 87 0B BA 14 53 54 41 20 54 35 |TA T3.....STA T5|
00000380: 20 20 20 20 20 20 20 00 99 0B BC 14 53 54 58 20 | .....STX |
00000390: 54 34 20 20 20 20 20 20 20 00 A4 0B BE 14 53 54 |T4 .....ST|
000003A0: 59 20 54 36 00 B3 0B C0 14 42 49 54 20 53 43 52 |Y T6.....BIT SCR|
000003B0: 44 49 52 00 C5 0B C2 14 42 56 43 20 53 43 52 4F |DIR.....BVC SCRO|
000003C0: 32 20 20 20 20 00 D7 0B C4 14 4A 4D 50 20 53 43 |2 .....JMP SC|
000003D0: 52 4F 31 34 20 20 20 00 EB 0B C6 14 53 43 52 4F |RO14 .....SCRO|
000003E0: 32 20 4C 44 58 20 23 30 20 20 20 00 FF 0B C8 14 |2 LDX #0 .....|
000003F0: 4C 44 59 20 53 43 52 44 49 52 20 20 20 20 20 00 |LDY SCRDIR .|
00000400: 13 0C CA 14 42 45 51 20 53 43 52 4F 33 20 20 20 |....BEQ SCRO3 |
00000410: 20 20 20 00 21 0C CC 14 4C 44 59 20 57 49 44 54 | .!...LDY WIDT|
00000420: 48 00 38 0C CE 14 53 43 52 4F 33 20 4C 44 41 20 |H.8...SCRO3 LDA |
00000430: 28 54 33 29 2C 59 20 20 00 4F 0C D0 14 53 54 41 |(T3),Y .O...STA|
00000440: 20 42 55 46 46 45 52 2C 58 20 20 20 20 20 20 00 | BUFFER,X .|
00000450: 66 0C D2 14 4C 44 41 20 28 54 35 29 2C 59 20 20 |f...LDA (T5),Y |
00000460: 20 20 20 20 20 20 00 7D 0C D4 14 53 54 41 20 43 | .}...STA C|
00000470: 4F 4C 42 55 46 2C 58 20 20 20 20 20 20 00 94 0C |OLBUF,X ...|
00000480: D6 14 49 4E 58 20 20 20 20 20 20 20 20 20 20 20 |..INX |
00000490: 20 20 20 20 00 A8 0C D8 14 4C 44 41 20 54 33 20 | .....LDA T3 |
000004A0: 20 20 20 20 20 20 20 20 00 BC 0C DA 14 43 4C 43 | .....CLC|
000004B0: 20 20 20 20 20 20 20 20 20 20 20 20 00 D0 0C DC | ....|
000004C0: 14 41 44 43 20 23 24 32 38 20 20 20 20 20 20 20 |.ADC #$28 |
000004D0: 00 DB 0C DE 14 53 54 41 20 54 33 00 E6 0C E0 14 |.....STA T3.....|
000004E0: 53 54 41 20 54 35 00 F4 0C E2 14 42 43 43 20 53 |STA T5.....BCC S|
000004F0: 43 52 4F 34 00 FF 0C E4 14 49 4E 43 20 54 34 00 |CRO4.....INC T4.|
00000500: 0A 0D E6 14 49 4E 43 20 54 36 00 1F 0D E8 14 53 |....INC T6.....S|
00000510: 43 52 4F 34 20 44 45 43 20 44 45 50 54 48 20 00 |CRO4 DEC DEPTH .|
00000520: 34 0D EA 14 42 50 4C 20 53 43 52 4F 33 20 20 20 |4...BPL SCRO3 |
00000530: 20 20 20 20 00 48 0D EC 14 53 43 52 4F 35 20 53 | .H...SCRO5 S|
00000540: 45 43 20 20 20 20 20 20 00 5C 0D EE 14 4C 44 41 |EC .\...LDA|
00000550: 20 54 33 20 20 20 20 20 20 20 20 20 00 70 0D F0 | T3 .p..|
00000560: 14 53 42 43 20 23 24 32 38 20 20 20 20 20 20 20 |.SBC #$28 |
00000570: 00 7B 0D F2 14 53 54 41 20 54 33 00 86 0D F4 14 |.{...STA T3.....|
00000580: 53 54 41 20 54 35 00 94 0D F6 14 42 43 53 20 53 |STA T5.....BCS S|
00000590: 43 52 4F 36 00 9F 0D F8 14 44 45 43 20 54 34 00 |CRO6.....DEC T4.|
000005A0: AA 0D FA 14 44 45 43 20 54 36 00 C0 0D FC 14 53 |....DEC T6.....S|
000005B0: 43 52 4F 36 20 44 45 58 20 20 20 20 20 20 20 20 |CRO6 DEX |
000005C0: 00 D6 0D FE 14 42 4D 49 20 53 43 52 4F 31 33 20 |.....BMI SCRO13 |
000005D0: 20 20 20 20 20 20 00 EB 0D 00 15 4C 44 59 20 53 | .....LDY S|
000005E0: 43 52 44 49 52 20 20 20 20 20 20 00 00 0E 02 15 |CRDIR .....|
000005F0: 42 4E 45 20 53 43 52 4F 38 20 20 20 20 20 20 20 |BNE SCRO8 |
00000600: 00 15 0E 04 15 53 43 52 4F 37 20 43 50 59 20 57 |.....SCRO7 CPY W|
00000610: 49 44 54 48 20 00 2A 0E 06 15 42 45 51 20 53 43 |IDTH .*...BEQ SC|
00000620: 52 4F 31 30 20 20 20 20 20 20 00 3F 0E 08 15 49 |RO10 .?...I|
00000630: 4E 59 20 20 20 20 20 20 20 20 20 20 20 20 20 00 |NY .|
00000640: 54 0E 0A 15 4C 44 41 20 28 54 33 29 2C 59 20 20 |T...LDA (T3),Y |
00000650: 20 20 20 20 00 5C 0E 0C 15 50 48 41 00 71 0E 0E | .\...PHA.q..|
00000660: 15 4C 44 41 20 28 54 35 29 2C 59 20 20 20 20 20 |.LDA (T5),Y |
00000670: 20 00 86 0E 10 15 44 45 59 20 20 20 20 20 20 20 | .....DEY |
00000680: 20 20 20 20 20 20 00 9B 0E 12 15 53 54 41 20 28 | .....STA (|
00000690: 54 35 29 2C 59 20 20 20 20 20 20 00 A3 0E 14 15 |T5),Y .....|
000006A0: 50 4C 41 00 B8 0E 16 15 53 54 41 20 28 54 33 29 |PLA.....STA (T3)|
000006B0: 2C 59 20 20 20 20 20 20 00 C0 0E 18 15 49 4E 59 |,Y .....INY|
000006C0: 00 D5 0E 1A 15 42 4E 45 20 53 43 52 4F 37 20 20 |.....BNE SCRO7 |
000006D0: 20 20 20 20 20 00 EA 0E 1C 15 53 43 52 4F 38 20 | .....SCRO8 |
000006E0: 4C 44 59 20 57 49 44 54 48 20 00 F9 0E 1E 15 42 |LDY WIDTH .....B|
000006F0: 45 51 20 53 43 52 4F 31 30 00 07 0F 20 15 53 43 |EQ SCRO10... .SC|
00000700: 52 4F 39 20 44 45 59 00 1C 0F 22 15 4C 44 41 20 |RO9 DEY...".LDA |
00000710: 28 54 33 29 2C 59 20 20 20 20 20 20 00 24 0F 24 |(T3),Y .$.$|
00000720: 15 50 48 41 00 39 0F 26 15 4C 44 41 20 28 54 35 |.PHA.9.&.LDA (T5|
00000730: 29 2C 59 20 20 20 20 20 20 00 4E 0F 28 15 49 4E |),Y .N.(.IN|
00000740: 59 20 20 20 20 20 20 20 20 20 20 20 20 20 00 63 |Y .c|
00000750: 0F 2A 15 53 54 41 20 28 54 35 29 2C 59 20 20 20 |.*.STA (T5),Y |
00000760: 20 20 20 00 6B 0F 2C 15 50 4C 41 00 80 0F 2E 15 | .k.,.PLA.....|
00000770: 53 54 41 20 28 54 33 29 2C 59 20 20 20 20 20 20 |STA (T3),Y |
00000780: 00 88 0F 30 15 44 45 59 00 9D 0F 32 15 42 4E 45 |...0.DEY...2.BNE|
00000790: 20 53 43 52 4F 39 20 20 20 20 20 20 20 00 B6 0F | SCRO9 ...|
000007A0: 34 15 53 43 52 4F 31 30 20 4C 44 41 20 42 55 46 |4.SCRO10 LDA BUF|
000007B0: 46 45 52 2C 58 20 00 CF 0F 36 15 50 48 41 20 20 |FER,X ...6.PHA |
000007C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 00 | .|
000007D0: E8 0F 38 15 4C 44 41 20 43 4F 4C 42 55 46 2C 58 |..8.LDA COLBUF,X|
000007E0: 20 20 20 20 20 20 20 20 00 FE 0F 3A 15 42 49 54 | ...:.BIT|
000007F0: 20 54 32 20 20 20 20 20 20 20 20 20 20 20 00 14 | T2 ..|
00000800: 10 3C 15 42 4D 49 20 53 43 52 4F 31 31 20 20 20 |.<.BMI SCRO11 |
00000810: 20 20 20 20 00 28 10 3E 15 50 4C 41 20 20 20 20 | .(.>.PLA |
00000820: 20 20 20 20 20 20 20 20 00 3C 10 40 15 4C 44 41 | .<.@.LDA|
00000830: 20 23 24 32 30 20 20 20 20 20 20 20 00 4B 10 42 | #$20 .K.B|
00000840: 15 42 4E 45 20 53 43 52 4F 31 32 00 62 10 44 15 |.BNE SCRO12.b.D.|
00000850: 53 43 52 4F 31 31 20 53 54 41 20 28 54 35 29 2C |SCRO11 STA (T5),|
00000860: 59 20 00 6A 10 46 15 50 4C 41 00 81 10 48 15 53 |Y .j.F.PLA...H.S|
00000870: 43 52 4F 31 32 20 53 54 41 20 28 54 33 29 2C 59 |CRO12 STA (T3),Y|
00000880: 20 00 89 10 4A 15 43 4C 43 00 9F 10 4C 15 42 43 | ...J.CLC...L.BC|
00000890: 43 20 53 43 52 4F 35 20 20 20 20 20 20 20 20 00 |C SCRO5 .|
000008A0: AE 10 4E 15 53 43 52 4F 31 33 20 52 54 53 00 C5 |..N.SCRO13 RTS..|
000008B0: 10 50 15 53 43 52 4F 31 34 20 4C 44 41 20 53 43 |.P.SCRO14 LDA SC|
000008C0: 52 44 49 52 20 00 DA 10 52 15 AF 20 23 24 38 30 |RDIR ...R.. #$80|
000008D0: 20 20 20 20 20 20 20 20 20 20 00 E2 10 54 15 54 | ...T.T|
000008E0: 41 59 00 F9 10 56 15 42 45 51 20 53 43 52 4F 31 |AY...V.BEQ SCRO1|
000008F0: 35 20 20 20 20 20 20 20 20 00 10 11 58 15 4C 44 |5 ...X.LD|
00000900: 59 20 44 45 50 54 48 20 20 20 20 20 20 20 20 20 |Y DEPTH |
00000910: 00 27 11 5A 15 53 43 52 4F 31 35 20 4A 53 52 20 |.'.Z.SCRO15 JSR |
00000920: 42 59 34 30 20 20 20 00 39 11 5C 15 43 4C 43 20 |BY40 .9.\.CLC |
00000930: 20 20 20 20 20 20 20 20 20 00 4A 11 5E 15 41 44 | .J.^.AD|
00000940: 43 20 43 B0 4E 45 52 20 20 20 00 55 11 60 15 53 |C C.NER .U.`.S|
00000950: 54 41 20 54 33 00 60 11 62 15 53 54 41 20 54 35 |TA T3.`.b.STA T5|
00000960: 00 72 11 64 15 50 48 50 20 20 20 20 20 20 20 20 |.r.d.PHP |
00000970: 20 20 00 84 11 66 15 54 58 41 20 20 20 20 20 20 | ...f.TXA |
00000980: 20 20 20 20 00 94 11 68 15 41 44 43 20 43 B0 4E | ...h.ADC C.N|
00000990: 45 52 AA 31 00 9F 11 6A 15 53 54 41 20 54 34 00 |ER.1...j.STA T4.|
000009A0: B1 11 6C 15 50 4C 50 20 20 20 20 20 20 20 20 20 |..l.PLP |
000009B0: 20 00 C3 11 6E 15 54 58 41 20 20 20 20 20 20 20 | ...n.TXA |
000009C0: 20 20 20 00 D3 11 70 15 41 44 43 20 43 4F 4C 43 | ...p.ADC COLC|
000009D0: B0 AA 31 00 DE 11 72 15 53 54 41 20 54 36 00 F2 |..1...r.STA T6..|
000009E0: 11 74 15 4C 44 59 20 57 49 44 54 48 20 20 20 20 |.t.LDY WIDTH |
000009F0: 20 20 00 09 12 76 15 53 43 52 4F 31 36 20 4C 44 | ...v.SCRO16 LD|
00000A00: 41 20 28 54 33 29 2C 59 20 00 20 12 78 15 53 54 |A (T3),Y . .x.ST|
00000A10: 41 20 42 55 46 46 45 52 2C 59 20 20 20 20 20 20 |A BUFFER,Y |
00000A20: 00 2F 12 7A 15 4C 44 41 20 28 54 35 29 2C 59 00 |./.z.LDA (T5),Y.|
00000A30: 40 12 7C 15 53 54 41 20 43 4F 4C 42 55 46 2C 59 |@.|.STA COLBUF,Y|
00000A40: 00 48 12 7E 15 44 45 59 00 57 12 80 15 42 50 4C |.H.~.DEY.W...BPL|
00000A50: 20 53 43 52 4F 31 36 00 65 12 82 15 4C 44 58 20 | SCRO16.e...LDX |
00000A60: 44 45 50 54 48 00 78 12 84 15 53 43 52 4F 31 37 |DEPTH.x...SCRO17|
00000A70: 20 44 45 58 20 20 20 20 00 87 12 86 15 42 4D 49 | DEX .....BMI|
00000A80: 20 53 43 52 4F 32 31 00 92 12 88 15 4C 44 41 20 | SCRO21.....LDA |
00000A90: 54 33 00 A5 12 8A 15 42 49 54 20 53 43 52 44 49 |T3.....BIT SCRDI|
00000AA0: 52 20 20 20 20 00 B8 12 8C 15 42 50 4C 20 53 43 |R .....BPL SC|
00000AB0: 52 4F 31 38 20 20 20 20 00 CB 12 8E 15 53 45 43 |RO18 .....SEC|
00000AC0: 20 20 20 20 20 20 20 20 20 20 20 00 DE 12 90 15 | .....|
00000AD0: 53 42 43 20 23 24 32 38 20 20 20 20 20 20 00 F1 |SBC #$28 ..|
00000AE0: 12 92 15 53 54 41 20 24 32 32 20 20 20 20 20 20 |...STA $22 |
00000AF0: 20 00 04 13 94 15 53 54 41 20 24 32 34 20 20 20 | .....STA $24 |
00000B00: 20 20 20 20 00 0F 13 96 15 4C 44 41 20 54 34 00 | .....LDA T4.|
00000B10: 1B 13 98 15 53 54 41 20 24 32 33 00 26 13 9A 15 |....STA $23.&...|
00000B20: 4C 44 41 20 54 36 00 32 13 9C 15 53 54 41 20 24 |LDA T6.2...STA $|
00000B30: 32 35 00 41 13 9E 15 42 43 53 20 53 43 52 4F 31 |25.A...BCS SCRO1|
00000B40: 39 00 4D 13 A0 15 44 45 43 20 24 32 33 00 59 13 |9.M...DEC $23.Y.|
00000B50: A2 15 44 45 43 20 24 32 35 00 68 13 A4 15 42 4E |..DEC $25.h...BN|
00000B60: 45 20 53 43 52 4F 31 39 00 7B 13 A6 15 53 43 52 |E SCRO19.{...SCR|
00000B70: 4F 31 38 20 43 4C 43 20 20 20 20 00 8E 13 A8 15 |O18 CLC .....|
00000B80: 41 44 43 20 23 24 32 38 20 20 20 20 20 20 00 9A |ADC #$28 ..|
00000B90: 13 AA 15 53 54 41 20 24 32 32 00 A6 13 AC 15 53 |...STA $22.....S|
00000BA0: 54 41 20 24 32 34 00 B1 13 AE 15 4C 44 41 20 54 |TA $24.....LDA T|
00000BB0: 34 00 BD 13 B0 15 53 54 41 20 24 32 33 00 C8 13 |4.....STA $23...|
00000BC0: B2 15 4C 44 41 20 54 36 00 D4 13 B4 15 53 54 41 |..LDA T6.....STA|
00000BD0: 20 24 32 35 00 E3 13 B6 15 42 43 43 20 53 43 52 | $25.....BCC SCR|
00000BE0: 4F 31 39 00 EF 13 B8 15 49 4E 43 20 24 32 33 00 |O19.....INC $23.|
00000BF0: FB 13 BA 15 49 4E 43 20 24 32 35 00 13 14 BC 15 |....INC $25.....|
00000C00: 53 43 52 4F 31 39 20 4C 44 59 20 57 49 44 54 48 |SCRO19 LDY WIDTH|
00000C10: 20 20 20 00 2B 14 BE 15 42 45 51 20 53 43 52 4F | .+...BEQ SCRO|
00000C20: 32 32 20 20 20 20 20 20 20 20 20 00 43 14 C0 15 |22 .C...|
00000C30: 53 43 52 4F 32 30 20 4C 44 41 20 28 24 32 32 29 |SCRO20 LDA ($22)|
00000C40: 2C 59 20 00 5B 14 C2 15 53 54 41 20 28 54 33 29 |,Y .[...STA (T3)|
00000C50: 2C 59 20 20 20 20 20 20 20 20 20 00 6B 14 C4 15 |,Y .k...|
00000C60: 4C 44 41 20 28 24 32 34 29 2C 59 00 7A 14 C6 15 |LDA ($24),Y.z...|
00000C70: 53 54 41 20 28 54 35 29 2C 59 00 82 14 C8 15 44 |STA (T5),Y.....D|
00000C80: 45 59 00 91 14 CA 15 42 50 4C 20 53 43 52 4F 32 |EY.....BPL SCRO2|
00000C90: 30 00 A1 14 CC 15 4C 44 41 20 24 32 32 20 20 20 |0.....LDA $22 |
00000CA0: 20 00 B1 14 CE 15 53 54 41 20 54 33 20 20 20 20 | .....STA T3 |
00000CB0: 20 00 BC 14 D0 15 53 54 41 20 54 35 00 C8 14 D2 | .....STA T5....|
00000CC0: 15 4C 44 41 20 24 32 33 00 D3 14 D4 15 53 54 41 |.LDA $23.....STA|
00000CD0: 20 54 34 00 DF 14 D6 15 4C 44 41 20 24 32 35 00 | T4.....LDA $25.|
00000CE0: EA 14 D8 15 53 54 41 20 54 36 00 F9 14 DA 15 42 |....STA T6.....B|
00000CF0: 4E 45 20 53 43 52 4F 31 37 00 10 15 DC 15 53 43 |NE SCRO17.....SC|
00000D00: 52 4F 32 31 20 4C 44 59 20 57 49 44 54 48 20 20 |RO21 LDY WIDTH |
00000D10: 00 29 15 DE 15 53 43 52 4F 32 32 20 4C 44 41 20 |.)...SCRO22 LDA |
00000D20: 42 55 46 46 45 52 2C 59 20 00 40 15 E0 15 50 48 |BUFFER,Y .@...PH|
00000D30: 41 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |A |
00000D40: 00 57 15 E2 15 4C 44 41 20 43 4F 4C 42 55 46 2C |.W...LDA COLBUF,|
00000D50: 59 20 20 20 20 20 20 00 6E 15 E4 15 42 49 54 20 |Y .n...BIT |
00000D60: 54 32 20 20 20 20 20 20 20 20 20 20 20 20 00 85 |T2 ..|
00000D70: 15 E6 15 42 4D 49 20 53 43 52 4F 32 33 20 20 20 |...BMI SCRO23 |
00000D80: 20 20 20 20 20 00 9C 15 E8 15 50 4C 41 20 20 20 | .....PLA |
00000D90: 20 20 20 20 20 20 20 20 20 20 20 20 00 B3 15 EA | ....|
00000DA0: 15 4C 44 41 20 23 24 32 30 20 20 20 20 20 20 20 |.LDA #$20 |
00000DB0: 20 20 20 00 CA 15 EC 15 53 54 41 20 28 54 33 29 | .....STA (T3)|
00000DC0: 2C 59 20 20 20 20 20 20 20 20 00 E1 15 EE 15 42 |,Y .....B|
00000DD0: 4E 45 20 53 43 52 4F 32 34 20 20 20 20 20 20 20 |NE SCRO24 |
00000DE0: 20 00 F8 15 F0 15 53 43 52 4F 32 33 20 53 54 41 | .....SCRO23 STA|
00000DF0: 20 28 54 35 29 2C 59 20 00 00 16 F2 15 50 4C 41 | (T5),Y .....PLA|
00000E00: 00 17 16 F4 15 53 54 41 20 28 54 33 29 2C 59 20 |.....STA (T3),Y |
00000E10: 20 20 20 20 20 20 20 00 2E 16 F6 15 53 43 52 4F | .....SCRO|
00000E20: 32 34 20 44 45 59 20 20 20 20 20 20 20 20 00 3D |24 DEY .=|
00000E30: 16 F8 15 42 50 4C 20 53 43 52 4F 32 32 00 45 16 |...BPL SCRO22.E.|
00000E40: FA 15 52 54 53 00 4B 16 FC 15 3B 00 5A 16 FE 15 |..RTS.K...;.Z...|
00000E50: 42 55 46 46 45 52 20 B2 AC 20 00 69 16 00 16 AC |BUFFER .. .i....|
00000E60: B2 20 AC AA 24 32 38 20 20 00 6F 16 02 16 3B 00 |. ..$28 .o...;.|
00000E70: 7E 16 04 16 43 4F 4C 42 55 46 20 B2 AC 20 00 8D |~...COLBUF .. ..|
00000E80: 16 06 16 AC B2 20 AC AA 24 32 38 20 20 00 93 16 |..... ..$28 ...|
00000E90: 08 16 3B 00 A7 16 0A 16 53 43 52 44 49 52 20 2E |..;.....SCRDIR .|
00000EA0: 42 59 54 45 20 30 20 00 AD 16 0C 16 3B 00 BE 16 |BYTE 0 .....;...|
00000EB0: 0E 16 42 59 34 30 20 4C 44 41 20 23 30 20 00 CF |..BY40 LDA #0 ..|
00000EC0: 16 10 16 54 41 58 20 20 20 20 20 20 20 20 20 00 |...TAX .|
00000ED0: E0 16 12 16 42 59 46 31 20 43 50 59 20 23 30 20 |....BYF1 CPY #0 |
00000EE0: 00 ED 16 14 16 42 45 51 20 42 59 46 32 00 FE 16 |.....BEQ BYF2...|
00000EF0: 16 16 44 45 59 20 20 20 20 20 20 20 20 20 00 0F |..DEY ..|
00000F00: 17 18 16 41 44 43 20 23 24 32 37 20 20 20 20 00 |...ADC #$27 .|
00000F10: 1C 17 1A 16 42 43 43 20 42 59 46 31 00 24 17 1C |....BCC BYF1.$..|
00000F20: 16 49 4E 58 00 31 17 1E 16 42 4E 45 20 42 59 46 |.INX.1...BNE BYF|
00000F30: 31 00 3E 17 20 16 42 59 46 32 20 52 54 53 00 44 |1.>. .BYF2 RTS.D|
00000F40: 17 22 16 3B 00 58 17 24 16 96 57 44 57 20 4A 53 |.".;.X.$..WDW JS|
00000F50: 52 20 24 42 37 39 45 20 00 66 17 26 16 53 54 58 |R $B79E .f.&.STX|
00000F60: 20 43 B0 4E 45 52 00 72 17 28 16 4A 53 52 20 24 | C.NER.r.(.JSR $|
00000F70: 37 39 00 7F 17 2A 16 43 4D 50 20 23 22 3B 22 00 |79...*.CMP #";".|
00000F80: 8C 17 2C 16 42 4E 45 20 44 46 57 32 00 A0 17 2E |..,.BNE DFW2....|
00000F90: 16 4A 53 52 20 24 42 37 39 42 20 20 20 20 20 20 |.JSR $B79B |
00000FA0: 00 B4 17 30 16 44 45 58 20 20 20 20 20 20 20 20 |...0.DEX |
00000FB0: 20 20 20 20 00 C8 17 32 16 42 4D 49 20 44 46 57 | ...2.BMI DFW|
00000FC0: 33 20 20 20 20 20 20 20 00 DB 17 34 16 44 46 57 |3 ...4.DFW|
00000FD0: 31 20 53 54 58 20 44 45 50 54 48 00 EE 17 36 16 |1 STX DEPTH...6.|
00000FE0: 4C 44 41 20 43 B0 4E 45 52 20 20 20 20 20 00 F6 |LDA C.NER ..|
00000FF0: 17 38 16 43 4C 43 00 04 18 3A 16 41 44 43 20 44 |.8.CLC...:.ADC D|
00001000: 45 50 54 48 00 18 18 3C 16 42 43 53 20 44 46 57 |EPTH...<.BCS DFW|
00001010: 33 20 20 20 20 20 20 20 00 2C 18 3E 16 43 4D 50 |3 .,.>.CMP|
00001020: 20 23 24 31 39 20 20 20 20 20 20 20 00 40 18 40 | #$19 .@.@|
00001030: 16 42 43 53 20 44 46 57 33 20 20 20 20 20 20 20 |.BCS DFW3 |
00001040: 00 4D 18 42 16 42 43 43 20 44 46 57 34 00 62 18 |.M.B.BCC DFW4.b.|
00001050: 44 16 44 46 57 32 20 4A 53 52 20 24 41 45 46 44 |D.DFW2 JSR $AEFD|
00001060: 20 20 00 77 18 46 16 4A 53 52 20 24 42 37 39 45 | .w.F.JSR $B79E|
00001070: 20 20 20 20 20 20 20 00 7F 18 48 16 54 58 41 00 | ...H.TXA.|
00001080: 87 18 4A 16 53 45 43 00 9B 18 4C 16 53 42 43 20 |..J.SEC...L.SBC |
00001090: 43 B0 4E 45 52 20 20 20 20 20 20 00 A3 18 4E 16 |C.NER ...N.|
000010A0: 54 41 58 00 B0 18 50 16 42 43 53 20 44 46 57 31 |TAX...P.BCS DFW1|
000010B0: 00 C3 18 52 16 44 46 57 33 20 4A 53 52 20 24 42 |...R.DFW3 JSR $B|
000010C0: 32 34 38 00 D7 18 54 16 44 46 57 34 20 4A 53 52 |248...T.DFW4 JSR|
000010D0: 20 24 41 45 46 44 20 00 EB 18 56 16 4A 53 52 20 | $AEFD ...V.JSR |
000010E0: 24 42 37 39 45 20 20 20 20 20 20 00 FB 18 58 16 |$B79E ...X.|
000010F0: 53 54 58 20 43 B0 4E 45 52 AA 31 00 07 19 5A 16 |STX C.NER.1...Z.|
00001100: 4A 53 52 20 24 37 39 00 14 19 5C 16 43 4D 50 20 |JSR $79...\.CMP |
00001110: 23 22 3B 22 00 21 19 5E 16 42 4E 45 20 44 46 57 |#";".!.^.BNE DFW|
00001120: 36 00 35 19 60 16 4A 53 52 20 24 42 37 39 42 20 |6.5.`.JSR $B79B |
00001130: 20 20 20 20 20 00 49 19 62 16 44 45 58 20 20 20 | .I.b.DEX |
00001140: 20 20 20 20 20 20 20 20 20 00 5D 19 64 16 42 4D | .].d.BM|
00001150: 49 20 44 46 57 33 20 20 20 20 20 20 20 00 70 19 |I DFW3 .p.|
00001160: 66 16 44 46 57 35 20 53 54 58 20 57 49 44 54 48 |f.DFW5 STX WIDTH|
00001170: 00 84 19 68 16 4C 44 41 20 43 B0 4E 45 52 AA 31 |...h.LDA C.NER.1|
00001180: 20 20 20 20 00 8C 19 6A 16 43 4C 43 00 A1 19 6C | ...j.CLC...l|
00001190: 16 41 44 43 20 57 49 44 54 48 20 20 20 20 20 20 |.ADC WIDTH |
000011A0: 20 00 B6 19 6E 16 42 43 53 20 44 46 57 33 20 20 | ...n.BCS DFW3 |
000011B0: 20 20 20 20 20 20 00 C3 19 70 16 43 4D 50 20 23 | ...p.CMP #|
000011C0: 24 32 38 00 D8 19 72 16 42 43 53 20 44 46 57 33 |$28...r.BCS DFW3|
000011D0: 20 20 20 20 20 20 20 20 00 E5 19 74 16 42 43 43 | ...t.BCC|
000011E0: 20 44 46 57 37 00 FA 19 76 16 44 46 57 36 20 4A | DFW7...v.DFW6 J|
000011F0: 53 52 20 24 41 45 46 44 20 20 00 0F 1A 78 16 4A |SR $AEFD ...x.J|
00001200: 53 52 20 24 42 37 39 45 20 20 20 20 20 20 20 00 |SR $B79E .|
00001210: 17 1A 7A 16 54 58 41 00 1F 1A 7C 16 53 45 43 00 |..z.TXA...|.SEC.|
00001220: 33 1A 7E 16 53 42 43 20 43 B0 4E 45 52 AA 31 20 |3.~.SBC C.NER.1 |
00001230: 20 20 20 00 3B 1A 80 16 54 41 58 00 48 1A 82 16 | .;...TAX.H...|
00001240: 42 43 53 20 44 46 57 35 00 55 1A 84 16 42 43 43 |BCS DFW5.U...BCC|
00001250: 20 44 46 57 33 00 69 1A 86 16 44 46 57 37 20 4C | DFW3.i...DFW7 L|
00001260: 44 59 20 43 B0 4E 45 52 20 00 78 1A 88 16 4A 53 |DY C.NER .x...JS|
00001270: 52 20 42 59 34 30 20 20 00 8D 1A 8A 16 43 4C 43 |R BY40 .....CLC|
00001280: 20 20 20 20 20 20 20 20 20 20 20 20 20 00 9D 1A | ...|
00001290: 8C 16 41 44 43 20 43 B0 4E 45 52 AA 31 00 AA 1A |..ADC C.NER.1...|
000012A0: 8E 16 42 43 43 20 44 46 57 38 00 B2 1A 90 16 49 |..BCC DFW8.....I|
000012B0: 4E 58 00 C6 1A 92 16 44 46 57 38 20 53 54 41 20 |NX.....DFW8 STA |
000012C0: 43 B0 4E 45 52 20 00 DA 1A 94 16 53 54 41 20 43 |C.NER .....STA C|
000012D0: 4F 4C 43 B0 20 20 20 20 20 20 00 E2 1A 96 16 54 |OLC. .....T|
000012E0: 58 41 00 F7 1A 98 16 50 48 41 20 20 20 20 20 20 |XA.....PHA |
000012F0: 20 20 20 20 20 20 20 00 FF 1A 9A 16 43 4C 43 00 | .....CLC.|
00001300: 13 1B 9C 16 41 44 43 20 23 24 44 38 20 20 20 20 |....ADC #$D8 |
00001310: 20 20 20 00 26 1B 9E 16 53 54 41 20 43 4F 4C 43 | .&...STA COLC|
00001320: B0 AA 31 20 20 20 00 3A 1B A0 16 50 4C 41 20 20 |..1 .:...PLA |
00001330: 20 20 20 20 20 20 20 20 20 20 00 42 1B A2 16 43 | .B...C|
00001340: 4C 43 00 56 1B A4 16 41 44 43 20 36 34 38 20 20 |LC.V...ADC 648 |
00001350: 20 20 20 20 20 20 00 69 1B A6 16 53 54 41 20 43 | .i...STA C|
00001360: B0 4E 45 52 AA 31 20 20 20 00 71 1B A8 16 52 54 |.NER.1 .q...RT|
00001370: 53 00 77 1B AA 16 3B 00 8B 1B AC 16 44 45 50 54 |S.w...;.....DEPT|
00001380: 48 20 20 2E 42 59 54 45 20 30 20 00 9F 1B AE 16 |H .BYTE 0 .....|
00001390: 57 49 44 54 48 20 20 2E 42 59 54 45 20 30 20 00 |WIDTH .BYTE 0 .|
000013A0: B1 1B B0 16 43 B0 4E 45 52 20 2E 57 B0 44 20 30 |....C.NER .W.D 0|
000013B0: 20 00 C3 1B B2 16 43 4F 4C 43 B0 20 2E 57 B0 44 | .....COLC. .W.D|
000013C0: 20 30 20 00 C9 1B B4 16 3B 00 00 00 | 0 .....;... |
..).... SCROLLS (MAR 30/85)
:./...:.O.... 4 STATEMENTS, 0 FUNCTIONS.
U...:.R.... KEYWORD CHARACTERS: 24.X...:
. .... KEYWORD ROUTINE LINE SER #
.G.... S/USCROL USCRO 5260 067.
..... S/DSCROL DSCRO 5264 068..
.... S/LSCROL LSCRO 5268 069.;.
... S/RSCROL RSCRO 5272 070.A...
:.[.... U/BY40 (5646/071).U.... U/DEFW
DW (5668/072).{...:...... ==============
==================.....:...V..F "USCROLD
SCROL".T.W..F "LSCROLRSCROL"...^..W.D US
CRO.1,DSCRO.1..._..W.D LSCRO.1,RSCRO.1..
...USCRO LDX #$40.-....BYTE $2C .@.
..DSCRO LDX #$C0.N....BYTE $2C.A...LSCRO
LDX #$00.O....BYTE $2C.....RSCRO LDX #$
80.....;.....STX SCRDIR .....LDX #0
.D. .CMP #$AD .R...BNE SCR
O1.....JSR $73 .....LDX #$80
.....SCRO1 TXA .....PHA.$...JSR .WD
W .,...PLA.7...STA T2.H...LDA C.NER
.Y...LDX C.NER.1 .J...LDY COLC..1 .U...S
TA T3.....STA T5 .....STX T4
.....STY T6.....BIT SCRDIR.E.B.BVC SCRO
2 .W.D.JMP SCRO14 ...F.SCRO2 LDX #0
...H.LDY SCRDIR ...J.BEQ SCRO3
.!.L.LDY WIDTH.8.N.SCRO3 LDA (T3),Y
.O.P.STA BUFFER,X .F.R.LDA (T5),Y
.}.T.STA COLBUF,X ...V.INX
...X.LDA T3 ...Z.CLC
.P...ADC #$28 .....STA
T3.....STA T5.....BCC SCRO4.....INC T4.
....INC T6.....SCRO4 DEC DEPTH .4...BPL
SCRO3 .H...SCRO5 SEC .\...LDA
T3 .P...SBC #$28 .{...STA
T3.....STA T5.....BCS SCRO6.....DEC T4.
....DEC T6.....SCRO6 DEX .V...BMI
SCRO13 .....LDY SCRDIR .....
BNE SCRO8 .....SCRO7 CPY WIDTH .*.
..BEQ SCRO10 .?...INY .
T...LDA (T3),Y .\...PHA.Q...LDA (T5
),Y .....DEY .....STA (
T5),Y .....PLA.....STA (T3),Y
.....INY.U...BNE SCRO7 .....SCRO8
LDY WIDTH .....BEQ SCRO10... .SCRO9 DEY.
..".LDA (T3),Y .$.$.PHA.9.&.LDA (T5
),Y .N.(.INY .C.*.STA (
T5),Y .K.,.PLA.....STA (T3),Y
...0.DEY...2.BNE SCRO9 ...4.SCRO10
LDA BUFFER,X .O.6.PHA .
..8.LDA COLBUF,X ...:.BIT T2
...<.BMI SCRO11 .(.>.PLA
.<.@.LDA #$20 .K.B.BNE SCR
O12.B.D.SCRO11 STA (T5),Y .J.F.PLA...H.S
CRO12 STA (T3),Y ...J.CLC...L.BCC SCRO5
...N.SCRO13 RTS.E.P.SCRO14 LDA SC
RDIR .Z.R.. #$80 ...T.TAY...V.B
EQ SCRO15 ...X.LDY DEPTH
.'.Z.SCRO15 JSR BY40 .9.\.CLC
.J.^.ADC C.NER .U.`.STA T3.`.B.STA T5
.R.D.PHP ...F.TXA ...H
.ADC C.NER.1...J.STA T4...L.PLP
.C.N.TXA .S.P.ADC COLC..1...R.
STA T6...T.LDY WIDTH ...V.SCRO16 LD
A (T3),Y . .X.STA BUFFER,Y ./.Z.LDA
(T5),Y.@.|.STA COLBUF,Y.H.~.DEY.W...BPL
SCRO16.E...LDX DEPTH.X...SCRO17 DEX
.....BMI SCRO21.....LDA T3.....BIT SCRDI
R .....BPL SCRO18 .K...SEC
.....SBC #$28 .....STA $22
.....STA $24 .....LDA T4.....STA
$23.&...LDA T6.2...STA $25.A...BCS SCRO1
9.M. .DEC $23.Y...DEC $25.H...BNE SCRO19
.{...SCRO18 CLC .....ADC #$28 ..
...STA $22.....STA $24.....LDA T4.....ST
A $23.H...LDA T6.T...STA $25.....BCC SCR
O19.....INC $23.....INC $25.....SCRO19 L
DY WIDTH .+...BEQ SCRO22 .C...
SCRO20 LDA ($22),Y .[.B.STA (T3),Y
.K.D.LDA ($24),Y.Z.F.STA (T5),Y...H.D
EY...J.BPL SCRO20...L.LDA $22 ...N.ST
A T3 ...P.STA T5.H.R.LDA $23.S.T.STA
T4...V.LDA $25...X.STA T6...Z.BNE SCRO1
7.....SCRO21 LDY WIDTH .)...SCRO22 LDA
BUFFER,Y .@...PHA .W...LDA
COLBUF,Y .N...BIT T2 ..
...BMI SCRO23 .....PLA
.....LDA #$20 .J...STA (T3)
,Y .....BNE SCRO24 .....SC
RO23 STA (T5),Y .....PLA.....STA (T3),Y
.....SCRO24 DEY .=...BPL S
CRO22.E...RTS.K...;.Z...BUFFER .. .I....
. ..$28 .O...;.~...COLBUF .. ....... ..
$28 .....;.....SCRDIR .BYTE 0 .....;...
..BY40 LDA #0 .O...TAX .....BYF1
CPY #0 .....BEQ BYF2.....DEY ..
...ADC #$27 .....BCC BYF1.$...INX.1..
.BNE BYF1.>. .BYF2 RTS.D.".;.X.$..WDW JS
R $B79E .F.&.STX C.NER.R.(.JSR $79..*.C
MP #";"...,.BNE DFW2. ...JSR $B79B
...0.DEX .H.2.BMI DFW3
...4.DFW1 STX DEPTH...6.LDA C.NER ..
.8.CLC...:.ADC DEPTH...<.BCS DFW3
.,.>.CMP #$19 .@.@.BCS DFW3
.M.B.BCC DFW4.B.D.DFW2 JSR $AEFD .W.F.J
SR $B79E ..H.TXA...J.SEC...L.SBC
C.NER ...N.TAX...P.BCS DFW1.C.R.DFW
3 JSR $B248.W.T.DFW4 JSR $AEFD ...V.JSR
$B79E ...X.STX C.NER.1...Z.JSR $79.
..\.CMP #";".!.^.BNE DFW6.5.`.JSR $B79B
.I.B.DEX .].D.BMI DFW3
.P.F.DFW5 STX WIDTH...H.LDA C.NER.1
...J.CLC...L.ADC WIDTH ...N.BC
S DFW3 .C.P.CMP #$28.X.R.BCS DFW3
...T.BCC DFW7...V.DFW6 JSR $AEFD
...X.JSR $B79E ...Z.TXA...|.SEC.
3.~.SBC C.NER.1 .;...TAX.H...BCS DFW5
.U...BCC DFW3.I...DFW7 LDY C.NER .X...JS
R BY40 .....CLC .....ADC C.
NER.1.....BCC DFW8.....INX.F...DFW8 STA
C.NER .Z...STA COLC. .....TXA.....P
HA .....CLC.....ADC #$D8
.&...STA COLC..1 .:. .PLA
.B...CLC.V...ADC 648 .I...STA C
.NER.1 .Q...RTS.W...;.....DEPTH .BYTE
0 .....WIDTH .BYTE 0 .....C.NER .W.D 0
.C...COLC. .W.D 0 .I...;...
> CLICK IMAGE PREVIEW FOR FULL MODAL