/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C128Toolkit / VDCDEMO.ARC / VDCDEMO.S

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 70 0d 2a a0 62 59 a0 | 64 41 4c 45 a0 72 41 59 |.p.*.bY.|dALE.rAY|
|00000010| 0d 2a a0 64 2e 72 61 79 | 31 a0 4f 4e a0 67 65 4e |.*.d.ray|1.ON.geN|
|00000020| 49 45 0d 2a a0 64 41 4c | 45 a0 72 41 59 a0 4f 4e |IE.*.dAL|E.rAY.ON|
|00000030| a0 75 73 a0 62 6c 75 65 | 73 a0 62 62 73 0d 2a a0 |.us.blue|s.bbs.*.|
|00000040| 66 49 44 4f 2d 6e 45 54 | a0 31 3a 32 33 30 2f 31 |fIDO-nET|.1:230/1|
|00000050| 31 0d 0d 2a a0 76 64 63 | a0 50 52 4f 47 52 41 4d |1..*.vdc|.PROGRAM|
|00000060| 4d 49 4e 47 0d 2a a0 49 | 4e 43 4c 55 44 45 53 a0 |MING.*.I|NCLUDES.|
|00000070| 52 4f 55 54 49 4e 45 53 | a0 54 4f a0 53 45 4c 45 |ROUTINES|.TO.SELE|
|00000080| 43 54 0d 2a a0 41 a0 44 | 49 46 46 45 52 45 4e 54 |CT.*.A.D|IFFERENT|
|00000090| a0 53 43 52 45 45 4e a0 | 54 4f a0 44 49 53 50 4c |.SCREEN.|TO.DISPL|
|000000a0| 41 59 0d 2a a0 54 4f a0 | 53 41 56 45 a0 54 48 45 |AY.*.TO.|SAVE.THE|
|000000b0| a0 43 4f 4e 54 45 4e 54 | 53 a0 4f 46 a0 41 a0 57 |.CONTENT|S.OF.A.W|
|000000c0| 49 4e 44 4f 57 0d 2a a0 | 54 4f a0 41 a0 42 55 46 |INDOW.*.|TO.A.BUF|
|000000d0| 46 45 52 a0 49 4e a0 42 | 41 4e 4b a0 4f 4e 45 0d |FER.IN.B|ANK.ONE.|
|000000e0| 2a a0 41 4e 44 a0 54 4f | a0 49 4e 49 54 49 41 4c |*.AND.TO|.INITIAL|
|000000f0| 49 5a 45 a0 36 34 4b a0 | 76 64 63 a0 52 41 4d 0d |IZE.64K.|vdc.RAM.|
|00000100| 0d 20 6f 72 67 20 24 31 | 33 30 30 0d 0d 72 65 61 |. org $1|300..rea|
|00000110| 64 72 65 67 20 3d 20 24 | 63 64 64 61 0d 77 72 69 |dreg = $|cdda.wri|
|00000120| 74 65 72 65 67 20 3d 20 | 24 63 64 63 63 0d 73 63 |tereg = |$cdcc.sc|
|00000130| 72 6f 72 67 20 3d 20 24 | 63 63 35 62 0d 73 63 74 |rorg = $|cc5b.sct|
|00000140| 6f 70 20 3d 20 24 65 35 | 0d 73 63 6c 66 20 3d 20 |op = $e5|.sclf = |
|00000150| 24 65 36 0d 63 6c 72 20 | 3d 20 24 35 31 66 38 0d |$e6.clr |= $51f8.|
|00000160| 73 74 61 6c 6f 6e 67 20 | 3d 20 24 66 66 37 37 0d |stalong |= $ff77.|
|00000170| 6c 64 61 6c 6f 6e 67 20 | 3d 20 24 66 66 37 34 0d |ldalong |= $ff74.|
|00000180| 69 6e 69 74 38 30 20 3d | 20 24 63 65 30 63 0d 0d |init80 =| $ce0c..|
|00000190| 2a a0 74 48 45 53 45 a0 | 41 44 44 52 45 53 53 45 |*.tHESE.|ADDRESSE|
|000001a0| 53 a0 41 52 45 a0 55 53 | 45 44 a0 42 59 a0 54 48 |S.ARE.US|ED.BY.TH|
|000001b0| 45 a0 53 43 52 45 45 4e | a0 45 44 49 54 4f 52 0d |E.SCREEN|.EDITOR.|
|000001c0| 2a a0 54 4f a0 44 45 54 | 45 52 4d 49 4e 45 a0 57 |*.TO.DET|ERMINE.W|
|000001d0| 48 45 52 45 a0 54 4f a0 | 57 52 49 54 45 a0 49 4e |HERE.TO.|WRITE.IN|
|000001e0| a0 76 64 63 a0 4d 45 4d | 4f 52 59 0d 2a a0 57 48 |.vdc.MEM|ORY.*.WH|
|000001f0| 45 4e a0 59 4f 55 a0 50 | 52 49 4e 54 a0 41 4e 59 |EN.YOU.P|RINT.ANY|
|00000200| 54 48 49 4e 47 2e 0d 2a | a0 74 48 45 59 a0 41 52 |THING..*|.tHEY.AR|
|00000210| 45 a0 4e 4f 54 a0 55 50 | 44 41 54 45 44 a0 57 48 |E.NOT.UP|DATED.WH|
|00000220| 45 4e a0 59 4f 55 a0 43 | 48 41 4e 47 45 a0 54 48 |EN.YOU.C|HANGE.TH|
|00000230| 45 a0 41 44 44 52 45 53 | 53 45 53 0d 2a a0 48 45 |E.ADDRES|SES.*.HE|
|00000240| 4c 44 a0 49 4e a0 54 48 | 45 a0 56 44 43 a0 52 45 |LD.IN.TH|E.VDC.RE|
|00000250| 47 49 53 54 45 52 53 2e | a0 79 4f 55 a0 4d 55 53 |GISTERS.|.yOU.MUS|
|00000260| 54 a0 43 48 41 4e 47 45 | a0 54 48 45 53 45 0d 2a |T.CHANGE|.THESE.*|
|00000270| a0 59 4f 55 52 53 45 4c | 46 2e a0 74 48 49 53 a0 |.YOURSEL|F..tHIS.|
|00000280| 4d 41 4b 45 53 a0 49 54 | a0 50 4f 53 53 49 42 4c |MAKES.IT|.POSSIBL|
|00000290| 45 a0 54 4f a0 42 45 a0 | 57 52 49 54 49 4e 47 0d |E.TO.BE.|WRITING.|
|000002a0| 2a a0 54 4f a0 41 a0 4e | 4f 4e a0 41 43 54 49 56 |*.TO.A.N|ON.ACTIV|
|000002b0| 45 a0 53 43 52 45 45 4e | 2e 0d 0d 76 6d 33 20 3d |E.SCREEN|...vm3 =|
|000002c0| 20 24 61 32 65 20 3b 53 | 54 41 52 54 49 4e 47 a0 | $a2e ;S|TARTING.|
|000002d0| 50 41 47 45 a0 56 44 43 | a0 43 48 41 52 a0 41 44 |PAGE.VDC|.CHAR.AD|
|000002e0| 44 52 45 53 53 0d 76 6d | 34 20 3d 20 24 61 32 66 |DRESS.vm|4 = $a2f|
|000002f0| 20 3b 53 54 41 52 54 49 | 4e 47 a0 50 41 47 45 a0 | ;STARTI|NG.PAGE.|
|00000300| 56 44 43 a0 41 54 54 52 | a0 41 44 44 52 45 53 53 |VDC.ATTR|.ADDRESS|
|00000310| 0d 0d 2a a0 70 4f 49 4e | 54 45 52 a0 54 4f a0 42 |..*.pOIN|TER.TO.B|
|00000320| 55 46 46 45 52 a0 41 52 | 45 41 a0 54 4f a0 53 54 |UFFER.AR|EA.TO.ST|
|00000330| 4f 52 45 0d 2a a0 57 49 | 4e 44 4f 57 a0 43 4f 4e |ORE.*.WI|NDOW.CON|
|00000340| 54 45 4e 54 53 0d 0d 70 | 6f 69 6e 74 6c 6f 20 3d |TENTS..p|ointlo =|
|00000350| 20 24 66 61 0d 70 6f 69 | 6e 74 68 69 20 3d 20 24 | $fa.poi|nthi = $|
|00000360| 66 62 0d 0d 2a a0 54 48 | 49 53 a0 52 4f 55 54 49 |fb..*.TH|IS.ROUTI|
|00000370| 4e 45 a0 43 48 41 4e 47 | 45 53 a0 54 48 45 a0 41 |NE.CHANG|ES.THE.A|
|00000380| 44 44 52 45 53 53 0d 2a | a0 54 48 41 54 a0 54 48 |DDRESS.*|.THAT.TH|
|00000390| 45 a0 56 44 43 a0 43 48 | 49 50 a0 41 44 44 52 45 |E.VDC.CH|IP.ADDRE|
|000003a0| 53 53 45 53 a0 41 53 a0 | 54 48 45 0d 2a a0 43 55 |SSES.AS.|THE.*.CU|
|000003b0| 52 52 45 4e 54 a0 44 49 | 53 50 4c 41 59 0d 2a a0 |RRENT.DI|SPLAY.*.|
|000003c0| 43 41 4c 4c a0 57 49 54 | 48 a0 a0 53 59 53 a0 34 |CALL.WIT|H..SYS.4|
|000003d0| 38 36 34 2c 41 0d 2a a0 | 41 3d a0 54 48 45 a0 48 |864,A.*.|A=.THE.H|
|000003e0| 49 a0 42 59 54 45 a0 4f | 46 a0 54 48 45 a0 56 44 |I.BYTE.O|F.THE.VD|
|000003f0| 43 a0 52 41 4d a0 41 44 | 44 52 45 53 53 0d 2a a0 |C.RAM.AD|DRESS.*.|
|00000400| 59 4f 55 a0 57 41 4e 54 | a0 54 4f a0 42 45 a0 41 |YOU.WANT|.TO.BE.A|
|00000410| 43 54 49 56 45 0d 0d 20 | 73 74 61 20 73 63 61 64 |CTIVE.. |sta scad|
|00000420| 64 72 0d 20 6c 64 78 20 | 23 24 30 63 20 3b 53 45 |dr. ldx |#$0c ;SE|
|00000430| 54 a0 52 45 47 49 53 54 | 45 52 a0 31 32 0d 20 6a |T.REGIST|ER.12. j|
|00000440| 73 72 20 77 72 69 74 65 | 72 65 67 0d 20 6c 64 61 |sr write|reg. lda|
|00000450| 20 23 24 30 30 0d 20 69 | 6e 78 20 20 3b 53 45 54 | #$00. i|nx  ;SET|
|00000460| a0 52 45 47 a0 31 33 0d | 20 6a 73 72 20 77 72 69 |.REG.13.| jsr wri|
|00000470| 74 65 72 65 67 0d 20 6c | 64 61 20 73 63 61 64 64 |tereg. l|da scadd|
|00000480| 72 0d 20 63 6c 63 0d 20 | 61 64 63 20 23 24 30 38 |r. clc. |adc #$08|
|00000490| 0d 20 6c 64 78 20 23 24 | 31 34 20 3b 53 45 54 a0 |. ldx #$|14 ;SET.|
|000004a0| 52 45 47 49 53 54 45 52 | a0 32 30 0d 20 6a 73 72 |REGISTER|.20. jsr|
|000004b0| 20 77 72 69 74 65 72 65 | 67 0d 20 6c 64 61 20 23 | writere|g. lda #|
|000004c0| 24 30 30 0d 20 69 6e 78 | 20 20 3b 53 45 54 a0 52 |$00. inx|  ;SET.R|
|000004d0| 45 47 a0 32 31 0d 20 6a | 73 72 20 77 72 69 74 65 |EG.21. j|sr write|
|000004e0| 72 65 67 0d 20 72 74 73 | 0d 20 6e 6f 70 0d 20 6e |reg. rts|. nop. n|
|000004f0| 6f 70 0d 20 6e 6f 70 0d | 0d 2a a0 62 45 43 41 55 |op. nop.|.*.bECAU|
|00000500| 53 45 a0 59 4f 55 a0 4d | 41 59 a0 57 41 4e 54 a0 |SE.YOU.M|AY.WANT.|
|00000510| 54 4f a0 57 52 49 54 45 | a0 54 4f a0 41 a0 4e 4f |TO.WRITE|.TO.A.NO|
|00000520| 4e a0 41 43 54 49 56 45 | a0 53 43 52 45 45 4e 0d |N.ACTIVE|.SCREEN.|
|00000530| 2a a0 54 48 49 53 a0 49 | 53 a0 41 a0 53 45 50 45 |*.THIS.I|S.A.SEPE|
|00000540| 52 41 54 45 a0 52 4f 55 | 54 49 4e 45 2e a0 79 4f |RATE.ROU|TINE..yO|
|00000550| 55 a0 43 41 4e a0 43 48 | 41 4e 47 45 a0 54 48 45 |U.CAN.CH|ANGE.THE|
|00000560| a0 41 44 44 52 45 53 53 | 0d 2a a0 48 45 52 45 a0 |.ADDRESS|.*.HERE.|
|00000570| 57 49 54 48 4f 55 54 a0 | 43 48 41 4e 47 49 4e 47 |WITHOUT.|CHANGING|
|00000580| a0 54 48 45 a0 56 44 43 | a0 52 45 47 49 53 54 45 |.THE.VDC|.REGISTE|
|00000590| 52 53 2e a0 74 48 45 a0 | 53 59 4e 54 41 58 0d 2a |RS..tHE.|SYNTAX.*|
|000005a0| a0 49 53 a0 53 59 53 a0 | 34 38 39 39 2c 41 2e 0d |.IS.SYS.|4899,A..|
|000005b0| 2a a0 41 a0 3d a0 48 49 | a0 42 59 54 45 a0 4f 46 |*.A.=.HI|.BYTE.OF|
|000005c0| a0 56 44 43 a0 43 48 41 | 52 41 43 54 45 52 a0 49 |.VDC.CHA|RACTER.I|
|000005d0| 4e 46 4f 0d 2a a0 49 46 | a0 59 4f 55 a0 43 48 41 |NFO.*.IF|.YOU.CHA|
|000005e0| 4e 47 45 a0 54 48 45 a0 | 56 41 4c 55 45 53 a0 49 |NGE.THE.|VALUES.I|
|000005f0| 4e a0 54 48 45 a0 76 64 | 63 a0 52 45 47 49 53 54 |N.THE.vd|c.REGIST|
|00000600| 45 52 53 0d 2a a0 54 48 | 45 a0 53 43 52 45 45 4e |ERS.*.TH|E.SCREEN|
|00000610| a0 45 44 49 54 4f 52 a0 | 57 4f 4e 27 54 a0 50 52 |.EDITOR.|WON'T.PR|
|00000620| 49 4e 54 a0 4f 4e a0 54 | 48 41 54 a0 53 43 52 45 |INT.ON.T|HAT.SCRE|
|00000630| 45 4e 0d 2a a0 55 4e 54 | 49 4c a0 59 4f 55 a0 52 |EN.*.UNT|IL.YOU.R|
|00000640| 45 53 45 54 a0 54 48 45 | 53 45 a0 41 44 44 52 45 |ESET.THE|SE.ADDRE|
|00000650| 53 53 45 53 2e 0d 0d 20 | 73 74 61 20 76 6d 33 0d |SSES... |sta vm3.|
|00000660| 20 63 6c 63 0d 20 61 64 | 63 20 23 24 30 38 0d 20 | clc. ad|c #$08. |
|00000670| 73 74 61 20 76 6d 34 0d | 20 72 74 73 0d 20 6e 6f |sta vm4.| rts. no|
|00000680| 70 0d 20 6e 6f 70 0d 20 | 6e 6f 70 0d 0d 2a a0 4d |p. nop. |nop..*.M|
|00000690| 4f 56 45 a0 53 54 52 49 | 4e 47 a0 53 54 4f 52 41 |OVE.STRI|NG.STORA|
|000006a0| 47 45 a0 48 49 a0 50 4f | 49 4e 54 a0 44 4f 57 4e |GE.HI.PO|INT.DOWN|
|000006b0| a0 54 4f 0d 2a a0 41 4c | 4c 4f 43 41 54 45 a0 42 |.TO.*.AL|LOCATE.B|
|000006c0| 55 46 46 45 52 a0 41 52 | 45 41 a0 49 4e a0 42 41 |UFFER.AR|EA.IN.BA|
|000006d0| 4e 4b a0 4f 4e 45 0d 2a | a0 46 4f 52 a0 53 54 4f |NK.ONE.*|.FOR.STO|
|000006e0| 52 41 47 45 a0 4f 46 a0 | 57 49 4e 44 4f 57 a0 41 |RAGE.OF.|WINDOW.A|
|000006f0| 52 45 41 a0 43 4f 4e 54 | 45 4e 54 53 0d 2a a0 41 |REA.CONT|ENTS.*.A|
|00000700| 4c 53 4f a0 50 4c 41 43 | 45 53 a0 48 49 a0 41 4e |LSO.PLAC|ES.HI.AN|
|00000710| 44 a0 4c 4f a0 42 59 54 | 45 a0 4f 46 a0 42 55 46 |D.LO.BYT|E.OF.BUF|
|00000720| 46 45 52 0d 2a a0 41 52 | 45 41 a0 49 4e 54 4f a0 |FER.*.AR|EA.INTO.|
|00000730| 62 75 66 66 6c 6f a0 41 | 4e 44 a0 62 75 66 66 68 |bufflo.A|ND.buffh|
|00000740| 69 0d 2a a0 54 48 49 53 | a0 4d 55 53 54 a0 42 45 |i.*.THIS|.MUST.BE|
|00000750| a0 43 41 4c 4c 45 44 a0 | 42 45 46 4f 52 45 a0 55 |.CALLED.|BEFORE.U|
|00000760| 53 49 4e 47 a0 54 48 45 | a0 52 45 53 54 a0 4f 46 |SING.THE|.REST.OF|
|00000770| 0d 2a a0 54 48 45 a0 52 | 4f 55 54 49 4e 45 a0 54 |.*.THE.R|OUTINE.T|
|00000780| 4f a0 53 45 54 a0 54 48 | 45 a0 42 55 46 46 45 52 |O.SET.TH|E.BUFFER|
|00000790| a0 41 52 45 41 a0 41 44 | 44 52 45 53 53 0d 2a a0 |.AREA.AD|DRESS.*.|
|000007a0| 43 41 4c 4c a0 57 49 54 | 48 a0 53 59 53 a0 34 39 |CALL.WIT|H.SYS.49|
|000007b0| 31 32 2c 41 2c 58 0d 2a | a0 41 3d 4c 4f a0 42 59 |12,A,X.*|.A=LO.BY|
|000007c0| 54 45 a0 4f 46 a0 41 44 | 44 52 45 53 53 0d 2a a0 |TE.OF.AD|DRESS.*.|
|000007d0| 58 3d 48 49 a0 42 59 54 | 45 a0 4f 46 a0 41 44 44 |X=HI.BYT|E.OF.ADD|
|000007e0| 52 45 53 53 0d 0d 20 73 | 74 61 20 24 33 39 0d 20 |RESS.. s|ta $39. |
|000007f0| 73 74 61 20 62 75 66 66 | 6c 6f 0d 20 73 74 78 20 |sta buff|lo. stx |
|00000800| 24 33 61 0d 20 73 74 78 | 20 62 75 66 66 68 69 0d |$3a. stx| buffhi.|
|00000810| 20 6a 73 72 20 63 6c 72 | 0d 20 72 74 73 0d 0d 2a | jsr clr|. rts..*|
|00000820| a0 54 48 49 53 a0 52 4f | 55 54 49 4e 45 a0 53 41 |.THIS.RO|UTINE.SA|
|00000830| 56 45 53 2f 52 45 43 41 | 4c 4c 53 a0 54 48 45 a0 |VES/RECA|LLS.THE.|
|00000840| 43 4f 4e 54 45 4e 54 53 | 0d 2a a0 4f 46 a0 41 a0 |CONTENTS|.*.OF.A.|
|00000850| 57 49 4e 44 4f 57 a0 4f | 4e a0 54 48 45 a0 38 30 |WINDOW.O|N.THE.80|
|00000860| a0 43 4f 4c a0 53 43 52 | 45 45 4e 0d 2a a0 54 48 |.COL.SCR|EEN.*.TH|
|00000870| 45 a0 44 41 54 41 a0 49 | 53 a0 53 54 4f 52 45 44 |E.DATA.I|S.STORED|
|00000880| a0 49 4e a0 41 a0 42 55 | 46 46 45 52 a0 49 4e 0d |.IN.A.BU|FFER.IN.|
|00000890| 2a a0 42 41 4e 4b a0 4f | 4e 45 2e a0 43 41 4c 4c |*.BANK.O|NE..CALL|
|000008a0| a0 57 49 54 48 a0 53 59 | 53 a0 34 39 32 36 2c 41 |.WITH.SY|S.4926,A|
|000008b0| 0d 2a a0 49 46 a0 41 3d | 30 a0 54 48 45 4e a0 54 |.*.IF.A=|0.THEN.T|
|000008c0| 48 45 a0 4c 41 53 54 a0 | 57 49 4e 44 4f 57 a0 44 |HE.LAST.|WINDOW.D|
|000008d0| 45 46 49 4e 45 44 0d 2a | a0 57 49 4c 4c a0 42 45 |EFINED.*|.WILL.BE|
|000008e0| a0 53 41 56 45 44 2e a0 | 49 46 a0 41 3d 31 a0 54 |.SAVED..|IF.A=1.T|
|000008f0| 48 45 4e a0 54 48 45 a0 | 43 4f 4e 54 45 4e 54 53 |HEN.THE.|CONTENTS|
|00000900| 0d 2a a0 57 49 4c 4c a0 | 42 45 a0 52 45 53 54 4f |.*.WILL.|BE.RESTO|
|00000910| 52 45 44 2e 0d 0d 2a a0 | 66 4c 41 47 a0 46 4f 52 |RED...*.|fLAG.FOR|
|00000920| a0 52 45 41 44 2f 57 52 | 49 54 45 0d 0d 66 6c 61 |.READ/WR|ITE..fla|
|00000930| 67 20 3d 20 24 66 63 20 | 3b 30 a0 4d 45 41 4e 53 |g = $fc |;0.MEANS|
|00000940| a0 52 45 41 44 0d 20 20 | 20 3b 31 a0 4d 45 41 4e |.READ.  | ;1.MEAN|
|00000950| 53 a0 57 52 49 54 45 0d | 0d 20 73 74 61 20 66 6c |S.WRITE.|. sta fl|
|00000960| 61 67 20 3b 53 45 54 a0 | 46 4c 41 47 a0 42 59 a0 |ag ;SET.|FLAG.BY.|
|00000970| 4d 4f 56 49 4e 47 a0 41 | 43 43 a0 54 48 45 52 45 |MOVING.A|CC.THERE|
|00000980| 0d 0d 2a a0 54 48 49 53 | a0 52 4f 55 54 49 4e 45 |..*.THIS|.ROUTINE|
|00000990| a0 52 45 53 54 4f 52 45 | 53 a0 54 48 45 a0 50 4f |.RESTORE|S.THE.PO|
|000009a0| 49 4e 54 45 52 a0 54 4f | a0 54 48 45 a0 42 55 46 |INTER.TO|.THE.BUF|
|000009b0| 46 45 52 0d 2a a0 41 52 | 45 41 a0 54 4f a0 54 48 |FER.*.AR|EA.TO.TH|
|000009c0| 45 a0 53 54 41 52 54 a0 | 4f 46 a0 54 48 45 a0 42 |E.START.|OF.THE.B|
|000009d0| 55 46 46 45 52 a0 45 41 | 43 48 a0 54 49 4d 45 0d |UFFER.EA|CH.TIME.|
|000009e0| 2a a0 54 48 45 a0 52 4f | 55 54 49 4e 45 a0 49 53 |*.THE.RO|UTINE.IS|
|000009f0| a0 43 41 4c 4c 45 44 0d | 0d 20 6c 64 61 20 62 75 |.CALLED.|. lda bu|
|00000a00| 66 66 6c 6f 0d 20 73 74 | 61 20 70 6f 69 6e 74 6c |fflo. st|a pointl|
|00000a10| 6f 0d 20 6c 64 61 20 62 | 75 66 66 68 69 0d 20 73 |o. lda b|uffhi. s|
|00000a20| 74 61 20 70 6f 69 6e 74 | 68 69 0d 0d 2a a0 43 48 |ta point|hi..*.CH|
|00000a30| 45 43 4b a0 46 4f 52 a0 | 52 45 41 44 a0 4f 52 a0 |ECK.FOR.|READ.OR.|
|00000a40| 57 52 49 54 45 a0 4f 50 | 45 52 41 54 49 4f 4e 0d |WRITE.OP|ERATION.|
|00000a50| 0d 20 6c 64 61 20 23 24 | 30 30 20 3b 50 55 54 a0 |. lda #$|00 ;PUT.|
|00000a60| 5a 45 52 4f a0 49 4e a0 | 41 43 43 0d 20 63 6d 70 |ZERO.IN.|ACC. cmp|
|00000a70| 20 66 6c 61 67 20 3b 43 | 4f 4d 50 41 52 45 a0 54 | flag ;C|OMPARE.T|
|00000a80| 48 45 a0 5a 45 52 4f a0 | 54 4f a0 46 4c 41 47 0d |HE.ZERO.|TO.FLAG.|
|00000a90| 20 62 65 71 20 73 74 61 | 72 74 20 3b 49 46 a0 5a | beq sta|rt ;IF.Z|
|00000aa0| 45 52 4f a0 54 48 45 4e | a0 53 54 41 52 54 a0 52 |ERO.THEN|.START.R|
|00000ab0| 4f 55 54 49 4e 45 0d 20 | 6a 73 72 20 72 65 73 74 |OUTINE. |jsr rest|
|00000ac0| 6f 72 65 20 3b 49 46 a0 | 4e 4f 54 a0 52 45 53 54 |ore ;IF.|NOT.REST|
|00000ad0| 4f 52 45 a0 57 49 4e 44 | 4f 57 a0 43 4f 4e 54 45 |ORE.WIND|OW.CONTE|
|00000ae0| 4e 54 53 0d 20 72 74 73 | 20 20 3b 52 45 54 55 52 |NTS. rts|  ;RETUR|
|00000af0| 4e a0 57 48 45 4e a0 44 | 4f 4e 45 a0 52 45 53 54 |N.WHEN.D|ONE.REST|
|00000b00| 4f 52 49 4e 47 0d 0d 2a | a0 67 45 54 a0 63 48 41 |ORING..*|.gET.cHA|
|00000b10| 52 41 43 54 45 52 a0 41 | 4e 44 a0 61 54 54 52 49 |RACTER.A|ND.aTTRI|
|00000b20| 42 55 54 45 a0 53 54 41 | 52 54 49 4e 47 a0 41 44 |BUTE.STA|RTING.AD|
|00000b30| 44 52 45 53 53 0d 2a a0 | 74 48 49 53 a0 49 53 a0 |DRESS.*.|tHIS.IS.|
|00000b40| 54 48 45 a0 41 44 44 52 | 45 53 53 a0 4f 46 a0 54 |THE.ADDR|ESS.OF.T|
|00000b50| 48 45 a0 48 4f 4d 45 a0 | 50 4f 53 49 54 49 4f 4e |HE.HOME.|POSITION|
|00000b60| a0 57 49 54 48 0d 2a a0 | 41 a0 46 55 4c 4c a0 57 |.WITH.*.|A.FULL.W|
|00000b70| 49 4e 44 4f 57 0d 0d 73 | 74 61 72 74 20 6c 64 78 |INDOW..s|tart ldx|
|00000b80| 20 23 24 30 63 20 3b 53 | 45 4c 45 43 54 a0 52 45 | #$0c ;S|ELECT.RE|
|00000b90| 47 49 53 54 45 52 a0 31 | 32 0d 20 6a 73 72 20 72 |GISTER.1|2. jsr r|
|00000ba0| 65 61 64 72 65 67 20 3b | 52 45 41 44 a0 48 49 a0 |eadreg ;|READ.HI.|
|00000bb0| 42 59 54 45 a0 4f 46 a0 | 43 48 41 52 a0 41 44 44 |BYTE.OF.|CHAR.ADD|
|00000bc0| 52 45 53 53 0d 20 73 74 | 61 20 63 68 61 72 68 69 |RESS. st|a charhi|
|00000bd0| 20 3b 53 54 4f 52 45 a0 | 48 49 a0 42 59 54 45 0d | ;STORE.|HI.BYTE.|
|00000be0| 20 6c 64 78 20 23 24 30 | 64 20 3b 53 45 4c 45 43 | ldx #$0|d ;SELEC|
|00000bf0| 54 a0 52 45 47 49 53 54 | 45 52 a0 31 33 0d 20 6a |T.REGIST|ER.13. j|
|00000c00| 73 72 20 72 65 61 64 72 | 65 67 20 3b 52 45 41 44 |sr readr|eg ;READ|
|00000c10| a0 4c 4f a0 42 59 54 45 | a0 4f 46 a0 43 48 41 52 |.LO.BYTE|.OF.CHAR|
|00000c20| a0 41 44 44 52 45 53 53 | 0d 20 73 74 61 20 63 68 |.ADDRESS|. sta ch|
|00000c30| 61 72 6c 6f 20 3b 53 54 | 4f 52 45 a0 4c 4f a0 42 |arlo ;ST|ORE.LO.B|
|00000c40| 59 54 45 0d 0d 20 6c 64 | 78 20 23 24 31 34 20 3b |YTE.. ld|x #$14 ;|
|00000c50| 53 45 4c 45 43 54 a0 52 | 45 47 49 53 54 45 52 a0 |SELECT.R|EGISTER.|
|00000c60| 32 30 0d 20 6a 73 72 20 | 72 65 61 64 72 65 67 20 |20. jsr |readreg |
|00000c70| 3b 52 45 41 44 a0 48 49 | a0 42 59 54 45 a0 4f 46 |;READ.HI|.BYTE.OF|
|00000c80| a0 41 54 54 52 a0 41 44 | 44 52 45 53 53 0d 20 73 |.ATTR.AD|DRESS. s|
|00000c90| 74 61 20 61 74 74 72 68 | 69 20 3b 53 54 4f 52 45 |ta attrh|i ;STORE|
|00000ca0| a0 48 49 a0 42 59 54 45 | 0d 20 6c 64 78 20 23 24 |.HI.BYTE|. ldx #$|
|00000cb0| 31 35 20 3b 53 45 4c 45 | 43 54 a0 52 45 47 49 53 |15 ;SELE|CT.REGIS|
|00000cc0| 54 45 52 a0 32 31 0d 20 | 6a 73 72 20 72 65 61 64 |TER.21. |jsr read|
|00000cd0| 72 65 67 20 3b 52 45 41 | 44 a0 4c 4f a0 42 59 54 |reg ;REA|D.LO.BYT|
|00000ce0| 45 a0 4f 46 a0 41 54 54 | 52 a0 41 44 44 52 45 53 |E.OF.ATT|R.ADDRES|
|00000cf0| 53 0d 20 73 74 61 20 61 | 74 74 72 6c 6f 20 3b 53 |S. sta a|ttrlo ;S|
|00000d00| 54 4f 52 45 a0 4c 4f a0 | 42 59 54 45 0d 0d 2a a0 |TORE.LO.|BYTE..*.|
|00000d10| 63 4f 4d 50 55 54 45 a0 | 53 54 41 52 54 49 4e 47 |cOMPUTE.|STARTING|
|00000d20| a0 41 44 44 52 45 53 53 | a0 4f 46 a0 43 48 41 52 |.ADDRESS|.OF.CHAR|
|00000d30| 41 43 54 45 52 a0 41 4e | 44 a0 41 54 54 52 49 42 |ACTER.AN|D.ATTRIB|
|00000d40| 55 54 45 a0 49 4e 46 4f | 0d 2a a0 46 4f 52 a0 43 |UTE.INFO|.*.FOR.C|
|00000d50| 55 52 52 45 4e 54 a0 57 | 49 4e 44 4f 57 27 53 a0 |URRENT.W|INDOW'S.|
|00000d60| 48 4f 4d 45 a0 50 4f 53 | 49 54 49 4f 4e 0d 2a a0 |HOME.POS|ITION.*.|
|00000d70| 74 48 49 53 a0 53 45 54 | 53 a0 54 48 45 a0 41 44 |tHIS.SET|S.THE.AD|
|00000d80| 44 52 45 53 53 45 53 a0 | 54 4f a0 54 48 45 a0 53 |DRESSES.|TO.THE.S|
|00000d90| 54 41 52 54 a0 4f 46 a0 | 54 48 45 a0 46 49 52 53 |TART.OF.|THE.FIRS|
|00000da0| 54 a0 52 4f 57 0d 2a a0 | 4f 46 a0 54 48 45 a0 57 |T.ROW.*.|OF.THE.W|
|00000db0| 49 4e 44 4f 57 0d 0d 20 | 6c 64 61 20 23 24 30 30 |INDOW.. |lda #$00|
|00000dc0| 20 3b 50 55 54 a0 5a 45 | 52 4f a0 49 4e a0 41 43 | ;PUT.ZE|RO.IN.AC|
|00000dd0| 43 55 4d 55 4c 41 54 4f | 52 0d 20 63 6d 70 20 73 |CUMULATO|R. cmp s|
|00000de0| 63 74 6f 70 20 3b 49 46 | a0 53 43 52 45 45 4e a0 |ctop ;IF|.SCREEN.|
|00000df0| 54 4f 50 a0 45 51 55 41 | 4c 53 a0 5a 45 52 4f a0 |TOP.EQUA|LS.ZERO.|
|00000e00| 54 48 45 4e 0d 20 62 65 | 71 20 61 64 64 63 6f 6c |THEN. be|q addcol|
|00000e10| 20 3b 53 4b 49 50 a0 52 | 4f 57 a0 49 4e 43 52 45 | ;SKIP.R|OW.INCRE|
|00000e20| 4d 45 4e 54 49 4e 47 0d | 0d 20 6c 64 78 20 23 24 |MENTING.|. ldx #$|
|00000e30| 30 30 20 3b 49 4e 49 54 | 49 41 4c 49 5a 45 a0 43 |00 ;INIT|IALIZE.C|
|00000e40| 4f 55 4e 54 45 52 0d 63 | 68 61 72 72 6f 77 20 63 |OUNTER.c|harrow c|
|00000e50| 6c 63 20 20 3b 43 4c 45 | 41 52 a0 43 41 52 52 59 |lc  ;CLE|AR.CARRY|
|00000e60| 0d 20 6c 64 61 20 63 68 | 61 72 6c 6f 0d 20 61 64 |. lda ch|arlo. ad|
|00000e70| 63 20 23 24 35 30 20 3b | 41 44 44 a0 44 45 43 49 |c #$50 ;|ADD.DECI|
|00000e80| 4d 41 4c a0 38 30 a0 46 | 4f 52 a0 45 41 43 48 a0 |MAL.80.F|OR.EACH.|
|00000e90| 52 4f 57 0d 20 73 74 61 | 20 63 68 61 72 6c 6f 20 |ROW. sta| charlo |
|00000ea0| 3b 47 52 45 41 54 45 52 | a0 54 48 41 4e a0 31 a0 |;GREATER|.THAN.1.|
|00000eb0| 4f 46 a0 57 49 4e 44 4f | 57 0d 20 6c 64 61 20 63 |OF.WINDO|W. lda c|
|00000ec0| 68 61 72 68 69 20 3b 49 | 4e 43 52 45 4d 45 4e 54 |harhi ;I|NCREMENT|
|00000ed0| a0 48 49 a0 42 59 54 45 | a0 4f 46 a0 41 44 44 52 |.HI.BYTE|.OF.ADDR|
|00000ee0| 45 53 53 0d 20 61 64 63 | 20 23 24 30 30 20 3b 49 |ESS. adc| #$00 ;I|
|00000ef0| 46 a0 43 41 52 52 59 a0 | 53 45 54 0d 20 73 74 61 |F.CARRY.|SET. sta|
|00000f00| 20 63 68 61 72 68 69 0d | 20 69 6e 78 20 20 3b 49 | charhi.| inx  ;I|
|00000f10| 4e 43 52 45 4d 45 4e 54 | a0 43 4f 55 4e 54 45 52 |NCREMENT|.COUNTER|
|00000f20| 0d 20 63 70 78 20 73 63 | 74 6f 70 20 3b 49 46 a0 |. cpx sc|top ;IF.|
|00000f30| 43 4f 55 4e 54 45 52 a0 | 44 4f 45 53 a0 4e 4f 54 |COUNTER.|DOES.NOT|
|00000f40| a0 45 51 55 41 4c a0 54 | 48 45 0d 20 62 6e 65 20 |.EQUAL.T|HE. bne |
|00000f50| 63 68 61 72 72 6f 77 20 | 3b 53 43 52 45 45 4e a0 |charrow |;SCREEN.|
|00000f60| 54 4f 50 a0 56 41 4c 55 | 45 a0 54 48 45 4e a0 47 |TOP.VALU|E.THEN.G|
|00000f70| 4f a0 42 41 43 4b 0d 20 | 20 20 3b 41 4e 44 a0 44 |O.BACK. |  ;AND.D|
|00000f80| 4f a0 41 4e 4f 54 48 45 | 52 0d 0d 20 6c 64 78 20 |O.ANOTHE|R.. ldx |
|00000f90| 23 24 30 30 20 3b 52 45 | 53 45 54 a0 43 4f 55 4e |#$00 ;RE|SET.COUN|
|00000fa0| 54 45 52 0d 61 74 74 72 | 72 6f 77 20 63 6c 63 0d |TER.attr|row clc.|
|00000fb0| 20 6c 64 61 20 61 74 74 | 72 6c 6f 0d 20 61 64 63 | lda att|rlo. adc|
|00000fc0| 20 23 24 35 30 0d 20 73 | 74 61 20 61 74 74 72 6c | #$50. s|ta attrl|
|00000fd0| 6f 0d 20 6c 64 61 20 61 | 74 74 72 68 69 0d 20 61 |o. lda a|ttrhi. a|
|00000fe0| 64 63 20 23 24 30 30 0d | 20 73 74 61 20 61 74 74 |dc #$00.| sta att|
|00000ff0| 72 68 69 0d 20 69 6e 78 | 0d 20 63 70 78 20 73 63 |rhi. inx|. cpx sc|
|00001000| 74 6f 70 0d 20 62 6e 65 | 20 61 74 74 72 72 6f 77 |top. bne| attrrow|
|00001010| 0d 0d 2a a0 74 48 49 53 | a0 53 45 54 53 a0 54 48 |..*.tHIS|.SETS.TH|
|00001020| 45 a0 41 44 44 52 45 53 | 53 45 53 a0 54 4f a0 54 |E.ADDRES|SES.TO.T|
|00001030| 48 45 a0 43 4f 52 52 45 | 43 54 a0 43 4f 4c 55 4d |HE.CORRE|CT.COLUM|
|00001040| 4e 0d 0d 61 64 64 63 6f | 6c 20 6c 64 61 20 23 24 |N..addco|l lda #$|
|00001050| 30 30 20 3b 5a 45 52 4f | a0 49 4e a0 41 43 43 55 |00 ;ZERO|.IN.ACCU|
|00001060| 4d 55 4c 41 54 4f 52 0d | 20 63 6d 70 20 73 63 6c |MULATOR.| cmp scl|
|00001070| 66 20 3b 49 46 a0 53 43 | 52 45 45 4e a0 4c 45 46 |f ;IF.SC|REEN.LEF|
|00001080| 54 a0 45 51 55 41 4c 53 | a0 5a 45 52 4f 0d 20 62 |T.EQUALS|.ZERO. b|
|00001090| 65 71 20 73 69 7a 65 20 | 3b 54 48 45 4e a0 53 4b |eq size |;THEN.SK|
|000010a0| 49 50 a0 54 48 49 53 a0 | 52 4f 55 54 49 4e 45 0d |IP.THIS.|ROUTINE.|
|000010b0| 0d 20 63 6c 63 0d 20 6c | 64 61 20 63 68 61 72 6c |. clc. l|da charl|
|000010c0| 6f 20 3b 47 45 54 a0 4c | 4f a0 42 59 54 45 0d 20 |o ;GET.L|O.BYTE. |
|000010d0| 61 64 63 20 73 63 6c 66 | 20 3b 41 44 44 a0 43 4f |adc sclf| ;ADD.CO|
|000010e0| 4c 55 4d 4e a0 4f 46 46 | 53 45 54 0d 20 73 74 61 |LUMN.OFF|SET. sta|
|000010f0| 20 63 68 61 72 6c 6f 20 | 3b 53 54 4f 52 45 a0 4e | charlo |;STORE.N|
|00001100| 45 57 a0 41 44 44 52 45 | 53 53 0d 20 6c 64 61 20 |EW.ADDRE|SS. lda |
|00001110| 63 68 61 72 68 69 0d 20 | 61 64 63 20 23 24 30 30 |charhi. |adc #$00|
|00001120| 20 3b 41 44 44 a0 43 41 | 52 52 59 a0 49 46 a0 53 | ;ADD.CA|RRY.IF.S|
|00001130| 45 54 0d 20 73 74 61 20 | 63 68 61 72 68 69 0d 20 |ET. sta |charhi. |
|00001140| 63 6c 63 0d 20 6c 64 61 | 20 61 74 74 72 6c 6f 0d |clc. lda| attrlo.|
|00001150| 20 61 64 63 20 73 63 6c | 66 0d 20 73 74 61 20 61 | adc scl|f. sta a|
|00001160| 74 74 72 6c 6f 0d 20 6c | 64 61 20 61 74 74 72 68 |ttrlo. l|da attrh|
|00001170| 69 0d 20 61 64 63 20 23 | 24 30 30 0d 20 73 74 61 |i. adc #|$00. sta|
|00001180| 20 61 74 74 72 68 69 0d | 0d 0d 2a a0 64 45 54 45 | attrhi.|..*.dETE|
|00001190| 52 4d 49 4e 45 a0 53 43 | 52 45 45 4e a0 53 49 5a |RMINE.SC|REEN.SIZ|
|000011a0| 45 a0 49 4e a0 52 4f 57 | 53 a0 41 4e 44 a0 43 4f |E.IN.ROW|S.AND.CO|
|000011b0| 4c 53 0d 0d 73 69 7a 65 | 20 6a 73 72 20 73 63 72 |LS..size| jsr scr|
|000011c0| 6f 72 67 20 3b 43 41 4c | 43 55 4c 41 54 45 a0 57 |org ;CAL|CULATE.W|
|000011d0| 49 4e 44 4f 57 a0 53 49 | 5a 45 0d 20 20 20 3b 49 |INDOW.SI|ZE.   ;I|
|000011e0| 4e a0 52 4f 57 53 a0 41 | 4e 44 a0 43 4f 4c 53 0d |N.ROWS.A|ND.COLS.|
|000011f0| 20 20 20 3b 48 41 56 45 | a0 54 4f a0 41 44 44 a0 |   ;HAVE|.TO.ADD.|
|00001200| 31 a0 54 4f a0 54 48 45 | a0 52 45 53 55 4c 54 0d |1.TO.THE|.RESULT.|
|00001210| 20 20 20 3b 42 45 43 41 | 55 53 45 a0 54 48 45 a0 |   ;BECA|USE.THE.|
|00001220| 52 4f 57 2f 43 4f 4c a0 | 23 53 0d 20 20 20 3b 53 |ROW/COL.|#S.   ;S|
|00001230| 54 41 52 54 a0 57 49 54 | 48 a0 5a 45 52 4f 0d 20 |TART.WIT|H.ZERO. |
|00001240| 69 6e 79 20 20 3b 0d 20 | 73 74 79 20 68 65 69 67 |iny  ;. |sty heig|
|00001250| 68 74 20 3b 53 54 4f 52 | 45 a0 23 a0 4f 46 a0 52 |ht ;STOR|E.#.OF.R|
|00001260| 4f 57 53 0d 20 69 6e 78 | 20 20 3b 0d 20 73 74 78 |OWS. inx|  ;. stx|
|00001270| 20 77 69 64 74 68 20 3b | 53 54 4f 52 45 a0 23 a0 | width ;|STORE.#.|
|00001280| 4f 46 a0 43 4f 4c 53 0d | 0d 0d 2a a0 53 41 56 45 |OF.COLS.|..*.SAVE|
|00001290| 53 a0 57 49 4e 44 4f 57 | a0 43 4f 4e 54 45 4e 54 |S.WINDOW|.CONTENT|
|000012a0| 53 a0 54 4f a0 42 55 46 | 46 45 52 0d 0d 73 61 76 |S.TO.BUF|FER..sav|
|000012b0| 65 20 6a 73 72 20 69 6e | 69 74 20 3b 43 41 4c 4c |e jsr in|it ;CALL|
|000012c0| a0 49 4e 49 54 a0 54 4f | a0 5a 45 52 4f a0 43 4f |.INIT.TO|.ZERO.CO|
|000012d0| 55 4e 54 45 52 53 0d 20 | 20 20 3b 41 4e 44 a0 50 |UNTERS. |  ;AND.P|
|000012e0| 4f 49 4e 54 45 52 53 0d | 20 6a 73 72 20 63 68 61 |OINTERS.| jsr cha|
|000012f0| 72 20 3b 50 55 54 a0 41 | 44 44 52 45 53 53 a0 4f |r ;PUT.A|DDRESS.O|
|00001300| 46 a0 43 48 41 52 a0 49 | 4e 46 4f a0 49 4e a0 56 |F.CHAR.I|NFO.IN.V|
|00001310| 44 43 0d 20 6a 73 72 20 | 72 65 61 64 20 3b 52 45 |DC. jsr |read ;RE|
|00001320| 41 44 a0 43 48 41 52 a0 | 49 4e 46 4f 0d 20 6c 64 |AD.CHAR.|INFO. ld|
|00001330| 61 20 23 24 30 30 20 3b | 52 45 53 45 54 a0 44 4f |a #$00 ;|RESET.DO|
|00001340| 4e 45 a0 46 4c 41 47 a0 | 46 4f 52 a0 41 54 54 52 |NE.FLAG.|FOR.ATTR|
|00001350| 49 42 55 54 45 0d 20 73 | 74 61 20 64 6f 6e 65 20 |IBUTE. s|ta done |
|00001360| 3b 50 41 53 53 a0 54 48 | 52 55 a0 4c 4f 4f 50 0d |;PASS.TH|RU.LOOP.|
|00001370| 20 6a 73 72 20 61 74 74 | 72 20 3b 50 55 54 a0 41 | jsr att|r ;PUT.A|
|00001380| 54 54 52 a0 41 44 44 52 | 45 53 53 a0 49 4e 54 4f |TTR.ADDR|ESS.INTO|
|00001390| a0 56 44 43 0d 20 6a 73 | 72 20 72 65 61 64 20 3b |.VDC. js|r read ;|
|000013a0| 52 45 41 44 a0 41 54 54 | 52 a0 49 4e 46 4f 0d 20 |READ.ATT|R.INFO. |
|000013b0| 72 74 73 20 20 3b 52 45 | 54 55 52 4e a0 54 4f a0 |rts  ;RE|TURN.TO.|
|000013c0| 50 52 4f 47 52 41 4d 0d | 0d 2a a0 52 45 53 54 4f |PROGRAM.|.*.RESTO|
|000013d0| 52 45 53 a0 57 49 4e 44 | 4f 57 a0 43 4f 4e 54 45 |RES.WIND|OW.CONTE|
|000013e0| 4e 54 53 0d 0d 72 65 73 | 74 6f 72 65 20 6a 73 72 |NTS..res|tore jsr|
|000013f0| 20 69 6e 69 74 20 3b 41 | 4c 4d 4f 53 54 a0 54 48 | init ;A|LMOST.TH|
|00001400| 45 a0 53 41 4d 45 a0 41 | 53 a0 73 61 76 65 0d 20 |E.SAME.A|S.save. |
|00001410| 6a 73 72 20 63 68 61 72 | 0d 20 6a 73 72 20 77 72 |jsr char|. jsr wr|
|00001420| 69 74 65 0d 20 6c 64 61 | 20 23 24 30 30 0d 20 73 |ite. lda| #$00. s|
|00001430| 74 61 20 64 6f 6e 65 0d | 20 6a 73 72 20 61 74 74 |ta done.| jsr att|
|00001440| 72 0d 20 6a 73 72 20 77 | 72 69 74 65 0d 20 72 74 |r. jsr w|rite. rt|
|00001450| 73 0d 0d 2a a0 49 4e 49 | 54 49 41 4c 49 5a 45 53 |s..*.INI|TIALIZES|
|00001460| a0 52 4f 57 43 4f 55 4e | 54 2c a0 43 4f 4c 43 4f |.ROWCOUN|T,.COLCO|
|00001470| 55 4e 54 2c a0 41 4e 44 | a0 42 55 46 46 45 52 a0 |UNT,.AND|.BUFFER.|
|00001480| 50 4f 49 4e 54 45 52 0d | 0d 69 6e 69 74 20 6c 64 |POINTER.|.init ld|
|00001490| 61 20 23 24 30 30 0d 20 | 73 74 61 20 72 6f 77 63 |a #$00. |sta rowc|
|000014a0| 6f 75 6e 74 0d 20 73 74 | 61 20 63 6f 6c 63 6f 75 |ount. st|a colcou|
|000014b0| 6e 74 0d 20 73 74 61 20 | 64 6f 6e 65 0d 20 6c 64 |nt. sta |done. ld|
|000014c0| 61 20 70 6f 69 6e 74 6c | 6f 0d 20 74 61 79 0d 20 |a pointl|o. tay. |
|000014d0| 72 74 73 0d 0d 2a a0 50 | 55 54 53 a0 43 48 41 52 |rts..*.P|UTS.CHAR|
|000014e0| a0 41 44 44 52 45 53 53 | a0 49 4e 54 4f a0 4c 4f |.ADDRESS|.INTO.LO|
|000014f0| 43 41 54 49 4f 4e 53 a0 | 55 53 45 44 0d 2a a0 42 |CATIONS.|USED.*.B|
|00001500| 59 a0 52 45 41 44 2f 57 | 52 49 54 45 a0 52 4f 55 |Y.READ/W|RITE.ROU|
|00001510| 54 49 4e 45 53 0d 0d 63 | 68 61 72 20 6c 64 61 20 |TINES..c|har lda |
|00001520| 63 68 61 72 68 69 0d 20 | 73 74 61 20 76 64 63 68 |charhi. |sta vdch|
|00001530| 69 0d 20 6c 64 61 20 63 | 68 61 72 6c 6f 0d 20 73 |i. lda c|harlo. s|
|00001540| 74 61 20 76 64 63 6c 6f | 0d 20 6a 73 72 20 75 70 |ta vdclo|. jsr up|
|00001550| 64 61 74 65 0d 20 72 74 | 73 0d 0d 2a a0 50 55 54 |date. rt|s..*.PUT|
|00001560| 53 a0 41 54 54 52 a0 41 | 44 44 52 45 53 53 a0 49 |S.ATTR.A|DDRESS.I|
|00001570| 4e 54 4f a0 4c 4f 43 41 | 54 49 4f 4e 53 a0 55 53 |NTO.LOCA|TIONS.US|
|00001580| 45 44 0d 2a a0 42 59 a0 | 52 45 41 44 2f 57 52 49 |ED.*.BY.|READ/WRI|
|00001590| 54 45 a0 52 4f 55 54 49 | 4e 45 53 0d 0d 61 74 74 |TE.ROUTI|NES..att|
|000015a0| 72 20 6c 64 61 20 61 74 | 74 72 68 69 0d 20 73 74 |r lda at|trhi. st|
|000015b0| 61 20 76 64 63 68 69 0d | 20 6c 64 61 20 61 74 74 |a vdchi.| lda att|
|000015c0| 72 6c 6f 0d 20 73 74 61 | 20 76 64 63 6c 6f 0d 20 |rlo. sta| vdclo. |
|000015d0| 6a 73 72 20 75 70 64 61 | 74 65 0d 20 72 74 73 0d |jsr upda|te. rts.|
|000015e0| 0d 2a a0 53 45 4e 44 a0 | 41 44 44 52 45 53 53 a0 |.*.SEND.|ADDRESS.|
|000015f0| 43 4f 4e 54 41 49 4e 45 | 44 a0 49 4e 0d 2a a0 56 |CONTAINE|D.IN.*.V|
|00001600| 44 43 48 49 a0 41 4e 44 | a0 56 44 43 4c 4f a0 54 |DCHI.AND|.VDCLO.T|
|00001610| 4f a0 56 44 43 0d 2a a0 | 52 45 47 49 53 54 45 52 |O.VDC.*.|REGISTER|
|00001620| 53 a0 31 38 a0 41 4e 44 | a0 31 39 0d 0d 75 70 64 |S.18.AND|.19..upd|
|00001630| 61 74 65 20 6c 64 78 20 | 23 24 31 32 20 3b 52 45 |ate ldx |#$12 ;RE|
|00001640| 47 a0 31 38 0d 20 6c 64 | 61 20 76 64 63 68 69 0d |G.18. ld|a vdchi.|
|00001650| 20 6a 73 72 20 77 72 69 | 74 65 72 65 67 0d 20 6c | jsr wri|tereg. l|
|00001660| 64 78 20 23 24 31 33 20 | 3b 52 45 47 a0 31 39 0d |dx #$13 |;REG.19.|
|00001670| 20 6c 64 61 20 76 64 63 | 6c 6f 0d 20 6a 73 72 20 | lda vdc|lo. jsr |
|00001680| 77 72 69 74 65 72 65 67 | 0d 20 72 74 73 0d 0d 2a |writereg|. rts..*|
|00001690| a0 52 45 41 44 53 a0 54 | 48 45 a0 56 44 43 a0 49 |.READS.T|HE.VDC.I|
|000016a0| 4e 46 4f a0 49 4e 54 4f | a0 54 48 45 a0 42 55 46 |NFO.INTO|.THE.BUF|
|000016b0| 46 45 52 a0 41 52 45 41 | 0d 0d 72 65 61 64 20 6c |FER.AREA|..read l|
|000016c0| 64 78 20 23 24 31 66 20 | 3b 53 45 54 a0 52 45 47 |dx #$1f |;SET.REG|
|000016d0| a0 33 31 0d 20 6a 73 72 | 20 72 65 61 64 72 65 67 |.31. jsr| readreg|
|000016e0| 20 3b 47 45 54 a0 56 41 | 4c 55 45 a0 46 52 4f 4d | ;GET.VA|LUE.FROM|
|000016f0| a0 56 44 43 a0 52 41 4d | a0 49 4e 54 4f a0 41 43 |.VDC.RAM|.INTO.AC|
|00001700| 43 0d 20 6c 64 78 20 23 | 70 6f 69 6e 74 6c 6f 20 |C. ldx #|pointlo |
|00001710| 3b 50 55 54 a0 50 4f 49 | 4e 54 45 52 a0 49 4e a0 |;PUT.POI|NTER.IN.|
|00001720| 58 a0 52 45 47 0d 20 73 | 74 78 20 24 32 62 39 20 |X.REG. s|tx $2b9 |
|00001730| 3b 4d 4f 56 45 a0 50 4f | 49 4e 54 45 52 0d 20 6c |;MOVE.PO|INTER. l|
|00001740| 64 78 20 23 24 30 31 20 | 3b 42 41 4e 4b a0 4e 55 |dx #$01 |;BANK.NU|
|00001750| 4d 42 45 52 0d 20 6a 73 | 72 20 73 74 61 6c 6f 6e |MBER. js|r stalon|
|00001760| 67 20 3b 50 55 54 a0 42 | 59 54 45 a0 54 48 45 52 |g ;PUT.B|YTE.THER|
|00001770| 45 0d 0d 20 6a 73 72 20 | 74 65 73 74 20 3b 47 4f |E.. jsr |test ;GO|
|00001780| a0 44 4f a0 4f 55 52 a0 | 48 4f 55 53 45 4b 45 45 |.DO.OUR.|HOUSEKEE|
|00001790| 50 49 4e 47 0d 0d 20 6c | 64 61 20 23 24 30 31 20 |PING.. l|da #$01 |
|000017a0| 3b 54 45 53 54 a0 54 4f | a0 53 45 45 a0 49 46 a0 |;TEST.TO|.SEE.IF.|
|000017b0| 57 45 a0 41 52 45 a0 54 | 48 52 55 0d 20 63 6d 70 |WE.ARE.T|HRU. cmp|
|000017c0| 20 64 6f 6e 65 20 3b 0d | 20 62 6e 65 20 72 65 61 | done ;.| bne rea|
|000017d0| 64 20 3b 49 46 a0 4e 4f | 54 a0 47 4f a0 47 45 54 |d ;IF.NO|T.GO.GET|
|000017e0| a0 41 4e 4f 54 48 45 52 | a0 42 59 54 45 0d 20 72 |.ANOTHER|.BYTE. r|
|000017f0| 74 73 20 20 3b 49 46 a0 | 54 48 52 55 a0 47 4f a0 |ts  ;IF.|THRU.GO.|
|00001800| 42 41 43 4b 0d 0d 0d 2a | a0 57 52 49 54 45 53 a0 |BACK...*|.WRITES.|
|00001810| 54 48 45 a0 42 55 46 46 | 45 52 a0 42 41 43 4b a0 |THE.BUFF|ER.BACK.|
|00001820| 49 4e 54 4f a0 54 48 45 | a0 56 44 43 0d 0d 77 72 |INTO.THE|.VDC..wr|
|00001830| 69 74 65 20 6c 64 61 20 | 23 70 6f 69 6e 74 6c 6f |ite lda |#pointlo|
|00001840| 20 3b 53 41 4d 45 a0 4c | 4f 47 49 43 a0 41 53 a0 | ;SAME.L|OGIC.AS.|
|00001850| 72 65 61 64 0d 20 6c 64 | 78 20 23 24 30 31 20 3b |read. ld|x #$01 ;|
|00001860| 45 58 43 45 50 54 a0 54 | 48 41 54 a0 57 45 a0 41 |EXCEPT.T|HAT.WE.A|
|00001870| 52 45 a0 53 45 4e 44 49 | 4e 47 a0 44 41 54 41 0d |RE.SENDI|NG.DATA.|
|00001880| 20 6a 73 72 20 6c 64 61 | 6c 6f 6e 67 20 3b 54 4f | jsr lda|long ;TO|
|00001890| a0 54 48 45 a0 56 44 43 | 0d 20 6c 64 78 20 23 24 |.THE.VDC|. ldx #$|
|000018a0| 31 66 0d 20 6a 73 72 20 | 77 72 69 74 65 72 65 67 |1f. jsr |writereg|
|000018b0| 0d 0d 20 6a 73 72 20 74 | 65 73 74 0d 0d 20 6c 64 |.. jsr t|est.. ld|
|000018c0| 61 20 23 24 30 31 0d 20 | 63 6d 70 20 64 6f 6e 65 |a #$01. |cmp done|
|000018d0| 0d 20 62 6e 65 20 77 72 | 69 74 65 0d 20 72 74 73 |. bne wr|ite. rts|
|000018e0| 0d 0d 2a a0 50 52 45 46 | 4f 52 4d 53 a0 43 48 45 |..*.PREF|ORMS.CHE|
|000018f0| 43 4b 53 a0 46 4f 52 a0 | 54 48 45 a0 72 65 61 64 |CKS.FOR.|THE.read|
|00001900| a0 41 4e 44 a0 77 72 69 | 74 65 a0 52 4f 55 54 49 |.AND.wri|te.ROUTI|
|00001910| 4e 45 53 0d 0d 74 65 73 | 74 20 69 6e 79 20 20 3b |NES..tes|t iny  ;|
|00001920| 49 4e 43 52 45 4d 45 4e | 54 a0 50 4f 49 4e 54 45 |INCREMEN|T.POINTE|
|00001930| 52 0d 20 69 6e 63 20 63 | 6f 6c 63 6f 75 6e 74 20 |R. inc c|olcount |
|00001940| 3b 49 4e 43 52 45 4d 45 | 4e 54 a0 43 4f 4c 55 4d |;INCREME|NT.COLUM|
|00001950| 4e a0 43 4f 55 4e 54 0d | 20 63 70 79 20 62 75 66 |N.COUNT.| cpy buf|
|00001960| 66 6c 6f 20 3b 48 41 53 | a0 59 a0 52 4f 4c 4c 45 |flo ;HAS|.Y.ROLLE|
|00001970| 44 a0 4f 56 45 52 a0 54 | 4f a0 3d a0 42 55 46 46 |D.OVER.T|O.=.BUFF|
|00001980| 4c 4f 3f 0d 20 62 6e 65 | 20 3a 65 6e 64 72 6f 77 |LO?. bne| :endrow|
|00001990| 20 3b 49 46 a0 4e 4f 54 | a0 47 4f 54 4f a0 45 4e | ;IF.NOT|.GOTO.EN|
|000019a0| 44 a0 4f 46 a0 52 4f 57 | a0 43 48 45 43 4b 0d 20 |D.OF.ROW|.CHECK. |
|000019b0| 69 6e 63 20 24 66 62 20 | 3b 49 46 a0 59 a0 48 41 |inc $fb |;IF.Y.HA|
|000019c0| 53 a0 52 4f 4c 4c 45 44 | a0 4f 56 45 52 2c a0 54 |S.ROLLED|.OVER,.T|
|000019d0| 48 45 4e 0d 20 20 3b 57 | 45 a0 49 4e 43 52 45 4d |HEN.  ;W|E.INCREM|
|000019e0| 45 4e 54 a0 54 48 45 a0 | 48 49 a0 42 59 54 45 0d |ENT.THE.|HI.BYTE.|
|000019f0| 20 20 3b 4f 46 a0 54 48 | 45 a0 50 4f 49 4e 54 45 |  ;OF.TH|E.POINTE|
|00001a00| 52 0d 0d 3a 65 6e 64 72 | 6f 77 20 6c 64 61 20 77 |R..:endr|ow lda w|
|00001a10| 69 64 74 68 20 3b 50 55 | 54 a0 57 49 44 54 48 a0 |idth ;PU|T.WIDTH.|
|00001a20| 49 4e a0 41 43 43 0d 20 | 63 6d 70 20 63 6f 6c 63 |IN.ACC. |cmp colc|
|00001a30| 6f 75 6e 74 20 3b 43 4f | 4d 50 41 52 45 a0 57 49 |ount ;CO|MPARE.WI|
|00001a40| 54 48 a0 57 49 44 54 48 | 0d 20 62 6e 65 20 3a 72 |TH.WIDTH|. bne :r|
|00001a50| 65 74 75 72 6e 20 3b 49 | 46 a0 4e 4f 54 a0 44 4f |eturn ;I|F.NOT.DO|
|00001a60| 4e 45 a0 57 49 54 48 a0 | 54 48 49 53 a0 52 4f 57 |NE.WITH.|THIS.ROW|
|00001a70| 0d 20 20 20 3b 54 48 45 | 4e a0 47 4f a0 42 41 43 |.   ;THE|N.GO.BAC|
|00001a80| 4b a0 41 4e 44 a0 47 45 | 54 a0 41 4e 4f 54 48 45 |K.AND.GE|T.ANOTHE|
|00001a90| 52 0d 20 20 20 3b 43 48 | 41 52 41 43 54 45 52 0d |R.   ;CH|ARACTER.|
|00001aa0| 0d 20 69 6e 63 20 72 6f | 77 63 6f 75 6e 74 20 3b |. inc ro|wcount ;|
|00001ab0| 49 46 a0 49 54 a0 46 41 | 4c 4c 53 a0 54 48 52 55 |IF.IT.FA|LLS.THRU|
|00001ac0| a0 54 48 45 a0 52 4f 57 | a0 49 53 a0 44 4f 4e 45 |.THE.ROW|.IS.DONE|
|00001ad0| 0d 20 6c 64 61 20 68 65 | 69 67 68 74 20 3b 50 55 |. lda he|ight ;PU|
|00001ae0| 54 a0 48 45 49 47 48 54 | a0 49 4e a0 41 43 43 0d |T.HEIGHT|.IN.ACC.|
|00001af0| 20 63 6d 70 20 72 6f 77 | 63 6f 75 6e 74 20 3b 43 | cmp row|count ;C|
|00001b00| 4f 4d 50 41 52 45 a0 57 | 49 54 48 a0 52 4f 57 43 |OMPARE.W|ITH.ROWC|
|00001b10| 4f 55 4e 54 0d 20 62 65 | 71 20 3a 65 78 69 74 20 |OUNT. be|q :exit |
|00001b20| 20 3b 49 46 a0 45 51 55 | 41 4c a0 57 45 a0 41 52 | ;IF.EQU|AL.WE.AR|
|00001b30| 45 a0 44 4f 4e 45 0d 0d | 20 6c 64 61 20 23 24 30 |E.DONE..| lda #$0|
|00001b40| 30 20 3b 57 45 a0 57 45 | 52 45 4e 27 54 a0 44 4f |0 ;WE.WE|REN'T.DO|
|00001b50| 4e 45 a0 53 4f a0 57 45 | 0d 20 73 74 61 20 63 6f |NE.SO.WE|. sta co|
|00001b60| 6c 63 6f 75 6e 74 20 3b | 48 41 56 45 a0 54 4f a0 |lcount ;|HAVE.TO.|
|00001b70| 52 45 53 45 54 a0 54 48 | 45 a0 43 4f 4c 55 4d 4e |RESET.TH|E.COLUMN|
|00001b80| a0 43 4f 55 4e 54 0d 0d | 20 63 6c 63 20 20 3b 41 |.COUNT..| clc  ;A|
|00001b90| 4e 44 a0 49 4e 43 52 45 | 4d 45 4e 54 a0 54 48 45 |ND.INCRE|MENT.THE|
|00001ba0| a0 41 44 44 52 45 53 53 | a0 57 45 a0 41 52 45 0d |.ADDRESS|.WE.ARE.|
|00001bb0| 20 6c 64 61 20 23 24 35 | 30 20 3b 57 45 a0 41 52 | lda #$5|0 ;WE.AR|
|00001bc0| 45 a0 52 45 41 44 49 4e | 47 a0 46 52 4f 4d a0 42 |E.READIN|G.FROM.B|
|00001bd0| 59 a0 38 30 0d 20 61 64 | 63 20 76 64 63 6c 6f 0d |Y.80. ad|c vdclo.|
|00001be0| 20 73 74 61 20 76 64 63 | 6c 6f 0d 20 6c 64 61 20 | sta vdc|lo. lda |
|00001bf0| 23 24 30 30 0d 20 61 64 | 63 20 76 64 63 68 69 0d |#$00. ad|c vdchi.|
|00001c00| 20 73 74 61 20 76 64 63 | 68 69 0d 20 6a 73 72 20 | sta vdc|hi. jsr |
|00001c10| 75 70 64 61 74 65 20 3b | 53 45 4e 44 a0 54 48 45 |update ;|SEND.THE|
|00001c20| a0 4e 45 58 54 a0 52 4f | 57 53 a0 53 54 41 52 54 |.NEXT.RO|WS.START|
|00001c30| a0 41 44 44 52 45 53 53 | 0d 20 20 20 3b 54 4f a0 |.ADDRESS|.   ;TO.|
|00001c40| 54 48 45 a0 56 44 43 a0 | 43 48 49 50 0d 0d 3a 72 |THE.VDC.|CHIP..:r|
|00001c50| 65 74 75 72 6e 20 72 74 | 73 20 3b 47 4f a0 42 41 |eturn rt|s ;GO.BA|
|00001c60| 43 4b a0 46 4f 52 a0 41 | 4e 4f 54 48 45 52 a0 52 |CK.FOR.A|NOTHER.R|
|00001c70| 4f 57 0d 0d 3a 65 78 69 | 74 20 6c 64 61 20 23 24 |OW..:exi|t lda #$|
|00001c80| 30 30 20 3b 52 45 53 45 | 54 a0 54 48 45 a0 43 4f |00 ;RESE|T.THE.CO|
|00001c90| 55 4e 54 45 52 53 a0 54 | 4f a0 5a 45 52 4f 0d 20 |UNTERS.T|O.ZERO. |
|00001ca0| 73 74 61 20 72 6f 77 63 | 6f 75 6e 74 20 3b 4f 52 |sta rowc|ount ;OR|
|00001cb0| a0 45 4c 53 45 a0 57 48 | 45 a0 57 45 a0 43 4f 4d |.ELSE.WH|E.WE.COM|
|00001cc0| 45 a0 42 41 43 4b 0d 20 | 73 74 61 20 63 6f 6c 63 |E.BACK. |sta colc|
|00001cd0| 6f 75 6e 74 20 3b 57 45 | a0 57 49 4c 4c a0 4b 45 |ount ;WE|.WILL.KE|
|00001ce0| 45 50 a0 52 45 41 44 49 | 4e 47 0d 20 20 20 3b 54 |EP.READI|NG.   ;T|
|00001cf0| 49 4c a0 54 48 45 a0 43 | 4f 55 4e 54 a0 57 52 41 |IL.THE.C|OUNT.WRA|
|00001d00| 50 53 a0 42 41 43 4b 0d | 0d 20 6c 64 61 20 23 24 |PS.BACK.|. lda #$|
|00001d10| 30 31 20 3b 50 55 54 a0 | 41 a0 4f 4e 45 a0 49 4e |01 ;PUT.|A.ONE.IN|
|00001d20| a0 64 6f 6e 65 a0 53 4f | 0d 20 73 74 61 20 64 6f |.done.SO|. sta do|
|00001d30| 6e 65 20 3b 57 45 a0 43 | 41 4e a0 54 45 53 54 a0 |ne ;WE.C|AN.TEST.|
|00001d40| 54 4f a0 53 45 45 a0 49 | 46 a0 57 45 a0 46 49 4e |TO.SEE.I|F.WE.FIN|
|00001d50| 49 53 48 45 44 0d 20 20 | 20 3b 54 48 49 53 a0 50 |ISHED.  | ;THIS.P|
|00001d60| 41 53 53 0d 20 72 74 73 | 20 20 3b 47 4f a0 42 41 |ASS. rts|  ;GO.BA|
|00001d70| 43 4b 0d 20 6e 6f 70 0d | 20 6e 6f 70 0d 20 6e 6f |CK. nop.| nop. no|
|00001d80| 70 0d 0d 2a a0 52 45 53 | 45 54 53 a0 76 64 63 a0 |p..*.RES|ETS.vdc.|
|00001d90| 43 4f 4e 46 49 47 55 52 | 41 54 49 4f 4e a0 46 4f |CONFIGUR|ATION.FO|
|00001da0| 52 a0 36 34 6b a0 4d 45 | 4d 4f 52 59 0d 2a a0 43 |R.64k.ME|MORY.*.C|
|00001db0| 41 4c 4c a0 57 49 54 48 | a0 53 59 53 a0 35 33 31 |ALL.WITH|.SYS.531|
|00001dc0| 33 0d 0d 20 6c 64 78 20 | 23 24 31 63 20 3b 53 45 |3.. ldx |#$1c ;SE|
|00001dd0| 54 a0 52 45 47 a0 32 38 | 0d 20 6a 73 72 20 72 65 |T.REG.28|. jsr re|
|00001de0| 61 64 72 65 67 20 3b 52 | 45 41 44 a0 43 55 52 52 |adreg ;R|EAD.CURR|
|00001df0| 45 4e 54 a0 56 41 4c 55 | 45 0d 20 6f 72 61 20 23 |ENT.VALU|E. ora #|
|00001e00| 24 31 30 20 3b 53 45 54 | a0 42 49 54 a0 34 2c a0 |$10 ;SET|.BIT.4,.|
|00001e10| 49 46 a0 4e 4f 54 a0 53 | 45 54 a0 41 4c 52 45 41 |IF.NOT.S|ET.ALREA|
|00001e20| 44 59 0d 20 6a 73 72 20 | 77 72 69 74 65 72 65 67 |DY. jsr |writereg|
|00001e30| 20 3b 57 52 49 54 45 a0 | 49 54 a0 42 41 43 4b 0d | ;WRITE.|IT.BACK.|
|00001e40| 20 6a 73 72 20 69 6e 69 | 74 38 30 20 3b 52 45 49 | jsr ini|t80 ;REI|
|00001e50| 4e 49 54 49 41 4c 49 5a | 45 a0 43 48 41 52 41 43 |NITIALIZ|E.CHARAC|
|00001e60| 54 45 52 a0 53 45 54 0d | 20 72 74 73 0d 0d 2a a0 |TER.SET.| rts..*.|
|00001e70| 44 41 54 41 a0 53 54 4f | 52 41 47 45 0d 0d 64 61 |DATA.STO|RAGE..da|
|00001e80| 74 61 0d 0d 20 64 75 6d | 20 64 61 74 61 20 3b 44 |ta.. dum| data ;D|
|00001e90| 41 54 41 a0 4c 4f 43 41 | 54 49 4f 4e 53 0d 0d 73 |ATA.LOCA|TIONS..s|
|00001ea0| 63 61 64 64 72 20 64 66 | 62 20 30 0d 63 68 61 72 |caddr df|b 0.char|
|00001eb0| 68 69 20 64 66 62 20 30 | 0d 63 68 61 72 6c 6f 20 |hi dfb 0|.charlo |
|00001ec0| 64 66 62 20 30 0d 61 74 | 74 72 68 69 20 64 66 62 |dfb 0.at|trhi dfb|
|00001ed0| 20 30 0d 61 74 74 72 6c | 6f 20 64 66 62 20 30 0d | 0.attrl|o dfb 0.|
|00001ee0| 76 64 63 68 69 20 64 66 | 62 20 30 0d 76 64 63 6c |vdchi df|b 0.vdcl|
|00001ef0| 6f 20 64 66 62 20 30 0d | 77 69 64 74 68 20 64 66 |o dfb 0.|width df|
|00001f00| 62 20 30 0d 68 65 69 67 | 68 74 20 64 66 62 20 30 |b 0.heig|ht dfb 0|
|00001f10| 0d 72 6f 77 63 6f 75 6e | 74 20 64 66 62 20 30 0d |.rowcoun|t dfb 0.|
|00001f20| 63 6f 6c 63 6f 75 6e 74 | 20 64 66 62 20 30 0d 62 |colcount| dfb 0.b|
|00001f30| 75 66 66 6c 6f 20 64 66 | 62 20 30 0d 62 75 66 66 |ufflo df|b 0.buff|
|00001f40| 68 69 20 64 66 62 20 30 | 0d 64 6f 6e 65 20 64 66 |hi dfb 0|.done df|
|00001f50| 62 20 30 0d 0d 20 64 65 | 6e 64 0d                |b 0.. de|nd.     |
+--------+-------------------------+-------------------------+--------+--------+