ASS CRT VIC-20

FILE INFORMATION

FILENAME(S): ASS CRT VIC-20

FILE TYPE(S): PRG

FILE SIZE: 883b

FIRST SEEN: 2025-11-30 21:07:02

APPEARS ON: 1 disk(s)

FILE HASH

32b554927b8d97f0256324ecafa3076d18e642323482a0c8760ec7c8efd1952f

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
VIC 20	ASS CRT VIC-20	PRG	DuncanTwain	19	8	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: D8 1F E6 1F 64 00 2E 42  41 20 24 37 30 30 30 00  |....d..BA $7000.|
00000010: FC 1F 6E 00 2E 45 51 20  43 52 54 41 44 20 3D 20  |..n..EQ CRTAD = |
00000020: 24 39 38 30 30 00 12 20  78 00 2E 45 51 20 43 52  |$9800.. x..EQ CR|
00000030: 54 44 41 20 3D 20 24 39  38 30 31 00 28 20 82 00  |TDA = $9801.( ..|
00000040: 2E 45 51 20 56 49 44 45  4F 20 3D 20 24 42 38 30  |.EQ VIDEO = $B80|
00000050: 30 00 37 20 C8 00 49 4E  49 43 52 54 20 53 45 49  |0.7 ..INICRT SEI|
00000060: 00 44 20 D2 00 20 4C 44  58 23 24 30 30 00 54 20  |.D .. LDX#$00.T |
00000070: DC 00 4C 31 20 53 54 58  43 52 54 41 44 00 65 20  |..L1 STXCRTAD.e |
00000080: E6 00 20 4C 44 41 43 52  54 54 41 42 2C 58 00 73  |.. LDACRTTAB,X.s|
00000090: 20 F0 00 20 53 54 41 43  52 54 44 41 00 7C 20 FA  | .. STACRTDA.| .|
000000A0: 00 20 49 4E 58 00 89 20  04 01 20 43 50 58 23 24  |. INX.. .. CPX#$|
000000B0: 31 33 00 94 20 0E 01 20  42 4E 45 4C 31 00 9A 20  |13.. .. BNEL1.. |
000000C0: 2B 01 3B 00 A9 20 2C 01  3B 56 49 44 45 4F 2D 52  |+.;.. ,.;VIDEO-R|
000000D0: 41 4D 00 B6 20 36 01 20  4C 44 58 23 24 30 30 00  |AM.. 6. LDX#$00.|
000000E0: C3 20 3B 01 20 4C 44 41  23 24 33 32 00 D5 20 40  |. ;. LDA#$32.. @|
000000F0: 01 4C 32 20 53 54 41 56  49 44 45 4F 2C 58 00 EA  |.L2 STAVIDEO,X..|
00000100: 20 45 01 20 53 54 41 56  49 44 45 4F 2B 24 34 30  | E. STAVIDEO+$40|
00000110: 30 2C 58 00 FF 20 4A 01  20 53 54 41 56 49 44 45  |0,X.. J. STAVIDE|
00000120: 4F 2B 24 31 30 30 2C 58  00 14 21 4F 01 20 53 54  |O+$100,X..!O. ST|
00000130: 41 56 49 44 45 4F 2B 24  35 30 30 2C 58 00 29 21  |AVIDEO+$500,X.)!|
00000140: 54 01 20 53 54 41 56 49  44 45 4F 2B 24 32 30 30  |T. STAVIDEO+$200|
00000150: 2C 58 00 3E 21 59 01 20  53 54 41 56 49 44 45 4F  |,X.>!Y. STAVIDEO|
00000160: 2B 24 36 30 30 2C 58 00  53 21 5E 01 20 53 54 41  |+$600,X.S!^. STA|
00000170: 56 49 44 45 4F 2B 24 33  30 30 2C 58 00 68 21 63  |VIDEO+$300,X.h!c|
00000180: 01 20 53 54 41 56 49 44  45 4F 2B 24 37 30 30 2C  |. STAVIDEO+$700,|
00000190: 58 00 71 21 68 01 20 49  4E 58 00 7C 21 72 01 20  |X.q!h. INX.|!r. |
000001A0: 42 4E 45 4C 32 00 85 21  7C 01 20 43 4C 49 00 8E  |BNEL2..!|. CLI..|
000001B0: 21 86 01 20 52 54 53 00  94 21 E7 03 3B 00 9F 21  |!.. RTS..!..;..!|
000001C0: E8 03 43 52 54 54 41 42  00 B4 21 ED 03 2E 42 59  |..CRTTAB..!...BY|
000001D0: 20 24 38 30 20 3B 48 4F  52 2E 54 4F 54 00 C9 21  | $80 ;HOR.TOT..!|
000001E0: F2 03 2E 42 59 20 24 35  30 20 3B 48 4F 52 2E 44  |...BY $50 ;HOR.D|
000001F0: 49 53 00 DF 21 F7 03 2E  42 59 20 24 36 30 20 3B  |IS..!...BY $60 ;|
00000200: 48 4F 52 2E 53 59 4E 43  00 F7 21 FC 03 2E 42 59  |HOR.SYNC..!...BY|
00000210: 20 24 30 38 20 3B 53 59  4E 43 2E 57 49 44 54 48  | $08 ;SYNC.WIDTH|
00000220: 00 0D 22 01 04 2E 42 59  20 24 32 30 20 3B 56 45  |.."...BY $20 ;VE|
00000230: 52 54 2E 54 4F 54 00 23  22 03 04 2E 42 59 20 24  |RT.TOT.#"...BY $|
00000240: 30 38 20 3B 56 45 52 54  2E 41 44 4A 00 38 22 06  |08 ;VERT.ADJ.8".|
00000250: 04 2E 42 59 20 24 31 41  20 3B 56 45 52 2E 44 49  |..BY $1A ;VER.DI|
00000260: 53 00 4E 22 0B 04 2E 42  59 20 24 31 43 20 3B 56  |S.N"...BY $1C ;V|
00000270: 45 52 2E 53 59 4E 43 00  64 22 10 04 2E 42 59 20  |ER.SYNC.d"...BY |
00000280: 24 30 30 20 3B 4D 4F 44  45 2E 43 4F 4E 00 7E 22  |$00 ;MODE.CON.~"|
00000290: 15 04 2E 42 59 20 24 30  38 20 3B 53 43 41 4E 2E  |...BY $08 ;SCAN.|
000002A0: 4C 49 4E 45 53 2D 31 00  98 22 1A 04 2E 42 59 20  |LINES-1.."...BY |
000002B0: 24 30 37 20 3B 43 55 52  53 4F 52 2E 53 54 41 52  |$07 ;CURSOR.STAR|
000002C0: 54 00 B0 22 1F 04 2E 42  59 20 24 30 39 20 3B 43  |T.."...BY $09 ;C|
000002D0: 55 52 53 4F 52 2E 45 4E  44 00 CB 22 24 04 2E 42  |URSOR.END.."$..B|
000002E0: 59 20 24 30 30 20 3B 44  49 53 50 4C 41 59 20 53  |Y $00 ;DISPLAY S|
000002F0: 54 41 52 54 00 E6 22 29  04 2E 42 59 20 24 30 30  |TART..")..BY $00|
00000300: 20 3B 44 49 53 50 4C 41  59 20 53 54 41 52 54 00  | ;DISPLAY START.|
00000310: FE 22 2E 04 2E 42 59 20  24 30 30 20 3B 43 55 52  |."...BY $00 ;CUR|
00000320: 53 4F 52 20 50 4F 53 00  16 23 33 04 2E 42 59 20  |SOR POS..#3..BY |
00000330: 24 30 30 20 3B 43 55 52  53 4F 52 20 50 4F 53 00  |$00 ;CURSOR POS.|
00000340: 2D 23 38 04 2E 42 59 20  24 35 30 20 3B 43 48 41  |-#8..BY $50 ;CHA|
00000350: 52 2F 4C 49 4E 45 00 47  23 3D 04 2E 42 59 20 24  |R/LINE.G#=..BY $|
00000360: 31 41 20 3B 4C 49 4E 45  53 2F 53 43 52 45 45 4E  |1A ;LINES/SCREEN|
00000370: 00 00 00                                          |...             |

X...D..BA $7000...N..EQ CRTAD = $9800.. 
X..EQ CRTDA = $9801.( ...EQ VIDEO = $B80
0.7 H.INICRT SEI.D R. LDX#$00.T ..L1 STX
CRTAD.E .. LDACRTTAB,X.S .. STACRTDA.| .
. INX.. .. CPX#$13.. .. BNEL1.. +.;.. ,.
;VIDEO-RAM.. 6. LDX#$00.C ;. LDA#$32.U @
.L2 STAVIDEO,X.. E. STAVIDEO+$400,X.. J.
 STAVIDEO+$100,X..!O. STAVIDEO+$500,X.)!
T. STAVIDEO+$200,X.>!Y. STAVIDEO+$600,X.
S!^. STAVIDEO+$300,X.H!C. STAVIDEO+$700,
X.Q!H. INX.|!R. BNEL2..!|. CLI..!.. RTS.
.!..;..!..CRTTAB..!...BY $80 ;HOR.TOT.I!
...BY $50 ;HOR.DIS..!...BY $60 ;HOR.SYNC
..!...BY $08 ;SYNC.WIDTH.."...BY $20 ;VE
RT.TOT.#"...BY $08 ;VERT.ADJ.8"...BY $1A
 ;VER.DIS.N"...BY $1C ;VER.SYNC.D"...BY 
$00 ;MODE.CON.~"...BY $08 ;SCAN.LINES-1.
."...BY $07 ;CURSOR.START.."...BY $09 ;C
URSOR.END.K"$..BY $00 ;DISPLAY START..")
..BY $00 ;DISPLAY START.."...BY $00 ;CUR
SOR POS..#3..BY $00 ;CURSOR POS.-#8..BY 
$50 ;CHAR/LINE.G#=..BY $1A ;LINES/SCREEN
...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL