/ 8bitfiles.net/archives / archives.tar / archives / commodore-scene-files / Geos / GEOS128 / GeosD81 / cs15.d81 / display

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 20 52 6f 75 74 69 6e | 65 73 20 74 6f 20 70 72 |; Routin|es to pr|
|00000010| 69 6e 74 20 74 68 65 20 | 76 61 6c 75 65 73 00 3b |int the |values.;|
|00000020| 00 3b 00 44 69 73 70 6c | 61 79 00 20 6c 64 78 20 |.;.Displ|ay. ldx |
|00000030| 44 49 53 4c 45 4e 00 20 | 62 65 71 20 45 78 69 74 |DISLEN. |beq Exit|
|00000040| 00 20 73 74 78 20 54 65 | 6d 70 44 69 73 6c 65 6e |. stx Te|mpDislen|
|00000050| 00 20 6c 64 61 20 23 3c | 59 76 61 6c 75 65 00 20 |. lda #<|Yvalue. |
|00000060| 73 74 61 20 59 50 6f 73 | 00 20 6c 64 61 20 23 3c |sta YPos|. lda #<|
|00000070| 58 76 61 6c 75 65 00 20 | 73 74 61 20 58 50 6f 73 |Xvalue. |sta XPos|
|00000080| 00 20 6c 64 61 20 23 3e | 58 76 61 6c 75 65 00 20 |. lda #>|Xvalue. |
|00000090| 73 74 61 20 58 50 6f 73 | 2b 31 00 20 6c 64 61 20 |sta XPos|+1. lda |
|000000a0| 23 33 32 00 20 6a 6d 70 | 20 4c 6f 6f 70 7a 00 4c |#32. jmp| Loopz.L|
|000000b0| 6f 6f 70 00 20 64 65 63 | 20 54 65 6d 70 44 69 73 |oop. dec| TempDis|
|000000c0| 6c 65 6e 00 20 6c 64 78 | 20 54 65 6d 70 44 69 73 |len. ldx| TempDis|
|000000d0| 6c 65 6e 00 20 6c 64 61 | 20 44 58 53 42 55 46 2c |len. lda| DXSBUF,|
|000000e0| 58 00 4c 6f 6f 70 7a 00 | 20 50 48 41 00 20 6a 73 |X.Loopz.| PHA. js|
|000000f0| 72 20 47 65 74 43 68 61 | 72 57 69 64 74 68 00 20 |r GetCha|rWidth. |
|00000100| 73 74 61 20 63 75 72 43 | 68 61 72 57 69 64 74 68 |sta curC|harWidth|
|00000110| 00 20 6c 64 61 20 58 50 | 6f 73 00 20 73 65 63 00 |. lda XP|os. sec.|
|00000120| 20 73 62 63 20 63 75 72 | 43 68 61 72 57 69 64 74 | sbc cur|CharWidt|
|00000130| 68 00 20 73 74 61 20 58 | 50 6f 73 00 20 73 74 61 |h. sta X|Pos. sta|
|00000140| 20 41 50 31 00 20 64 65 | 63 20 41 50 31 00 20 73 | AP1. de|c AP1. s|
|00000150| 74 61 20 52 31 31 00 20 | 6c 64 61 20 58 50 6f 73 |ta R11. |lda XPos|
|00000160| 2b 31 00 20 73 74 61 20 | 52 31 31 2b 31 00 20 6c |+1. sta |R11+1. l|
|00000170| 64 61 20 59 50 6f 73 00 | 20 73 74 61 20 52 31 2b |da YPos.| sta R1+|
|00000180| 31 00 20 50 4c 41 00 20 | 6a 73 72 20 50 75 74 43 |1. PLA. |jsr PutC|
|00000190| 68 61 72 00 20 6c 64 78 | 20 54 65 6d 70 44 69 73 |har. ldx| TempDis|
|000001a0| 6c 65 6e 00 20 62 6e 65 | 20 4c 6f 6f 70 00 20 6a |len. bne| Loop. j|
|000001b0| 73 72 20 69 5f 52 65 63 | 74 61 6e 67 6c 65 00 20 |sr i_Rec|tangle. |
|000001c0| 2e 42 79 74 65 20 59 76 | 61 6c 75 65 2d 36 00 20 |.Byte Yv|alue-6. |
|000001d0| 2e 42 79 74 65 20 59 76 | 61 6c 75 65 2b 32 00 20 |.Byte Yv|alue+2. |
|000001e0| 2e 57 6f 72 64 20 58 76 | 61 6c 75 65 2d 38 35 00 |.Word Xv|alue-85.|
|000001f0| 41 50 31 00 20 2e 57 6f | 72 64 20 58 76 61 6c 75 |AP1. .Wo|rd Xvalu|
|00000200| 65 00 45 78 69 74 00 20 | 52 54 53 00 58 50 6f 73 |e.Exit. |RTS.XPos|
|00000210| 20 2e 42 79 74 65 20 30 | 2c 30 00 59 50 6f 73 20 | .Byte 0|,0.YPos |
|00000220| 2e 42 79 74 65 20 30 00 | 54 65 6d 70 44 69 73 6c |.Byte 0.|TempDisl|
|00000230| 65 6e 20 2e 42 79 74 65 | 20 30 00 63 75 72 43 68 |en .Byte| 0.curCh|
|00000240| 61 72 57 69 64 74 68 20 | 2e 42 79 74 65 20 30 00 |arWidth |.Byte 0.|
|00000250| 3b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 00 6b 65 79 70 72 |;-------|--.keypr|
|00000260| 65 73 73 20 2e 42 79 74 | 65 20 30 00 3b 00 49 63 |ess .Byt|e 0.;.Ic|
|00000270| 6f 6e 43 61 6c 6c 00 6c | 64 61 20 52 30 00 20 73 |onCall.l|da R0. s|
|00000280| 74 61 20 6b 65 79 70 72 | 65 73 73 00 49 63 6f 6e |ta keypr|ess.Icon|
|00000290| 43 61 6c 6c 32 00 20 6c | 64 61 20 6b 65 79 70 72 |Call2. l|da keypr|
|000002a0| 65 73 73 00 20 63 6d 70 | 20 23 31 36 00 20 62 63 |ess. cmp| #16. bc|
|000002b0| 73 20 53 6b 69 70 31 00 | 6c 64 78 20 4d 6f 64 65 |s Skip1.|ldx Mode|
|000002c0| 00 20 64 65 78 00 20 62 | 6d 69 20 62 69 6e 61 72 |. dex. b|mi binar|
|000002d0| 79 6c 70 00 20 62 6e 65 | 20 68 65 78 6c 70 00 64 |ylp. bne| hexlp.d|
|000002e0| 65 63 6c 70 00 20 63 6c | 63 00 20 63 6d 70 20 23 |eclp. cl|c. cmp #|
|000002f0| 31 30 00 20 62 63 73 20 | 6e 6f 74 64 65 63 63 68 |10. bcs |notdecch|
|00000300| 61 72 00 20 6a 73 72 20 | 4b 65 79 69 6e 00 20 6a |ar. jsr |Keyin. j|
|00000310| 73 72 20 44 45 43 42 49 | 4e 00 20 6a 73 72 20 42 |sr DECBI|N. jsr B|
|00000320| 49 4e 44 45 43 00 20 6a | 73 72 20 44 69 73 70 6c |INDEC. j|sr Displ|
|00000330| 61 79 00 6e 6f 74 64 65 | 63 63 68 61 72 00 53 6b |ay.notde|cchar.Sk|
|00000340| 69 70 31 00 20 72 74 73 | 00 3b 00 62 69 6e 61 72 |ip1. rts|.;.binar|
|00000350| 79 6c 70 00 63 6c 63 00 | 63 6d 70 20 23 32 00 20 |ylp.clc.|cmp #2. |
|00000360| 62 63 73 20 6e 6f 74 62 | 69 6e 63 68 61 72 00 20 |bcs notb|inchar. |
|00000370| 6a 73 72 20 4b 65 79 69 | 6e 00 20 6a 73 72 20 53 |jsr Keyi|n. jsr S|
|00000380| 54 32 42 49 4e 00 20 6a | 73 72 20 42 49 4e 32 53 |T2BIN. j|sr BIN2S|
|00000390| 54 00 20 6a 73 72 20 44 | 69 73 70 6c 61 79 00 6e |T. jsr D|isplay.n|
|000003a0| 6f 74 62 69 6e 63 68 61 | 72 00 20 72 74 73 00 3b |otbincha|r. rts.;|
|000003b0| 00 68 65 78 6c 70 00 20 | 6a 73 72 20 4b 65 79 69 |.hexlp. |jsr Keyi|
|000003c0| 6e 00 20 4a 73 72 20 48 | 45 58 42 49 4e 00 20 6a |n. Jsr H|EXBIN. j|
|000003d0| 73 72 20 42 49 4e 48 45 | 58 00 20 6a 73 72 20 44 |sr BINHE|X. jsr D|
|000003e0| 69 73 70 6c 61 79 00 20 | 52 54 53 00 3b 00 3b 00 |isplay. |RTS.;.;.|
|000003f0| 4b 65 79 69 6e 00 20 6c | 64 78 20 4d 6f 64 65 00 |Keyin. l|dx Mode.|
|00000400| 20 74 61 79 00 20 6c 64 | 61 20 4b 65 79 69 6e 6c | tay. ld|a Keyinl|
|00000410| 65 6e 00 20 63 6d 70 20 | 63 68 61 72 69 6e 6d 6f |en. cmp |charinmo|
|00000420| 64 65 2c 78 00 20 62 63 | 73 20 6e 6f 6d 6f 72 65 |de,x. bc|s nomore|
|00000430| 63 68 61 72 00 20 6c 64 | 78 20 4b 65 79 69 6e 6c |char. ld|x Keyinl|
|00000440| 65 6e 00 20 74 79 61 00 | 20 63 6c 63 00 20 61 64 |en. tya.| clc. ad|
|00000450| 63 20 23 34 38 00 20 63 | 6d 70 20 23 35 38 00 20 |c #48. c|mp #58. |
|00000460| 62 63 63 20 6f 6b 00 61 | 64 63 20 23 36 00 6f 6b |bcc ok.a|dc #6.ok|
|00000470| 00 20 73 74 61 20 4b 49 | 4e 42 55 46 2c 58 00 20 |. sta KI|NBUF,X. |
|00000480| 69 6e 63 20 4b 65 79 69 | 6e 6c 65 6e 00 6e 6f 6d |inc Keyi|nlen.nom|
|00000490| 6f 72 65 63 68 61 72 00 | 20 52 54 53 00 63 68 61 |orechar.| RTS.cha|
|000004a0| 72 69 6e 6d 6f 64 65 20 | 2e 42 79 74 65 20 31 36 |rinmode |.Byte 16|
|000004b0| 2c 35 2c 34 20 3b 20 6d | 6f 64 65 20 30 20 69 73 |,5,4 ; m|ode 0 is|
|000004c0| 20 62 69 6e 61 72 79 2c | 20 6d 6f 64 65 20 31 20 | binary,| mode 1 |
|000004d0| 69 73 20 64 65 63 69 6d | 61 6c 2c 00 3b 20 6d 6f |is decim|al,.; mo|
|000004e0| 64 65 20 32 20 69 73 20 | 68 65 78 00 4d 6f 64 65 |de 2 is |hex.Mode|
|000004f0| 20 2e 42 79 74 65 20 31 | 00 3b 00 54 65 78 74 53 | .Byte 1|.;.TextS|
|00000500| 74 72 69 6e 67 73 00 6a | 73 72 20 24 43 31 41 45 |trings.j|sr $C1AE|
|00000510| 20 3b 20 69 70 75 74 73 | 74 72 69 6e 67 00 2e 57 | ; iputs|tring..W|
|00000520| 6f 72 64 20 49 63 6f 6e | 5f 58 5f 50 6f 73 2a 38 |ord Icon|_X_Pos*8|
|00000530| 2b 38 00 2e 42 79 74 65 | 20 49 63 6f 6e 5f 59 5f |+8..Byte| Icon_Y_|
|00000540| 50 6f 73 2b 31 30 00 2e | 42 79 74 65 20 27 37 27 |Pos+10..|Byte '7'|
|00000550| 2c 32 30 2c 49 63 6f 6e | 5f 58 5f 50 6f 73 2a 38 |,20,Icon|_X_Pos*8|
|00000560| 2b 38 2b 33 2a 38 2c 30 | 00 2e 42 79 74 65 20 27 |+8+3*8,0|..Byte '|
|00000570| 38 27 2c 32 30 2c 49 63 | 6f 6e 5f 58 5f 50 6f 73 |8',20,Ic|on_X_Pos|
|00000580| 2a 38 2b 38 2b 36 2a 38 | 2c 30 00 2e 42 79 74 65 |*8+8+6*8|,0..Byte|
|00000590| 20 27 39 27 2c 32 30 2c | 49 63 6f 6e 5f 58 5f 50 | '9',20,|Icon_X_P|
|000005a0| 6f 73 2a 38 2b 38 2b 39 | 2a 38 2c 30 00 2e 42 79 |os*8+8+9|*8,0..By|
|000005b0| 74 65 20 27 46 27 2c 32 | 30 2c 49 63 6f 6e 5f 58 |te 'F',2|0,Icon_X|
|000005c0| 5f 50 6f 73 2a 38 2b 38 | 2b 31 32 2a 38 2c 30 00 |_Pos*8+8|+12*8,0.|
|000005d0| 2e 42 79 74 65 20 27 2f | 27 2c 30 00 3b 00 6a 73 |.Byte '/|',0.;.js|
|000005e0| 72 20 24 43 31 41 45 20 | 3b 20 69 70 75 74 73 74 |r $C1AE |; iputst|
|000005f0| 72 69 6e 67 00 2e 57 6f | 72 64 20 49 63 6f 6e 5f |ring..Wo|rd Icon_|
|00000600| 58 5f 50 6f 73 2a 38 2b | 38 00 2e 42 79 74 65 20 |X_Pos*8+|8..Byte |
|00000610| 49 63 6f 6e 5f 59 5f 50 | 6f 73 2b 31 30 2b 31 2a |Icon_Y_P|os+10+1*|
|00000620| 31 36 00 2e 42 79 74 65 | 20 27 34 27 2c 32 30 2c |16..Byte| '4',20,|
|00000630| 49 63 6f 6e 5f 58 5f 50 | 6f 73 2a 38 2b 38 2b 33 |Icon_X_P|os*8+8+3|
|00000640| 2a 38 2c 30 00 2e 42 79 | 74 65 20 27 35 27 2c 32 |*8,0..By|te '5',2|
|00000650| 30 2c 49 63 6f 6e 5f 58 | 5f 50 6f 73 2a 38 2b 38 |0,Icon_X|_Pos*8+8|
|00000660| 2b 36 2a 38 2c 30 00 2e | 42 79 74 65 20 27 36 27 |+6*8,0..|Byte '6'|
|00000670| 2c 32 30 2c 49 63 6f 6e | 5f 58 5f 50 6f 73 2a 38 |,20,Icon|_X_Pos*8|
|00000680| 2b 38 2b 39 2a 38 2c 30 | 00 2e 42 79 74 65 20 27 |+8+9*8,0|..Byte '|
|00000690| 45 27 2c 32 30 2c 49 63 | 6f 6e 5f 58 5f 50 6f 73 |E',20,Ic|on_X_Pos|
|000006a0| 2a 38 2b 38 2b 31 32 2a | 38 2c 30 00 2e 42 79 74 |*8+8+12*|8,0..Byt|
|000006b0| 65 20 27 2a 27 2c 30 00 | 3b 00 6a 73 72 20 24 43 |e '*',0.|;.jsr $C|
|000006c0| 31 41 45 20 3b 20 69 70 | 75 74 73 74 72 69 6e 67 |1AE ; ip|utstring|
|000006d0| 00 2e 57 6f 72 64 20 49 | 63 6f 6e 5f 58 5f 50 6f |..Word I|con_X_Po|
|000006e0| 73 2a 38 2b 38 00 2e 42 | 79 74 65 20 49 63 6f 6e |s*8+8..B|yte Icon|
|000006f0| 5f 59 5f 50 6f 73 2b 31 | 30 2b 32 2a 31 36 00 2e |_Y_Pos+1|0+2*16..|
|00000700| 42 79 74 65 20 27 31 27 | 2c 32 30 2c 49 63 6f 6e |Byte '1'|,20,Icon|
|00000710| 5f 58 5f 50 6f 73 2a 38 | 2b 38 2b 33 2a 38 2c 30 |_X_Pos*8|+8+3*8,0|
|00000720| 00 2e 42 79 74 65 20 27 | 32 27 2c 32 30 2c 49 63 |..Byte '|2',20,Ic|
|00000730| 6f 6e 5f 58 5f 50 6f 73 | 2a 38 2b 38 2b 36 2a 38 |on_X_Pos|*8+8+6*8|
|00000740| 2c 30 00 2e 42 79 74 65 | 20 27 33 27 2c 32 30 2c |,0..Byte| '3',20,|
|00000750| 49 63 6f 6e 5f 58 5f 50 | 6f 73 2a 38 2b 38 2b 39 |Icon_X_P|os*8+8+9|
|00000760| 2a 38 2c 30 00 2e 42 79 | 74 65 20 27 44 27 2c 32 |*8,0..By|te 'D',2|
|00000770| 30 2c 49 63 6f 6e 5f 58 | 5f 50 6f 73 2a 38 2b 38 |0,Icon_X|_Pos*8+8|
|00000780| 2b 31 32 2a 38 2c 30 00 | 2e 42 79 74 65 20 27 2d |+12*8,0.|.Byte '-|
|00000790| 27 2c 30 00 3b 00 6a 73 | 72 20 24 43 31 41 45 20 |',0.;.js|r $C1AE |
|000007a0| 3b 20 69 70 75 74 73 74 | 72 69 6e 67 00 2e 57 6f |; iputst|ring..Wo|
|000007b0| 72 64 20 49 63 6f 6e 5f | 58 5f 50 6f 73 2a 38 2b |rd Icon_|X_Pos*8+|
|000007c0| 38 00 2e 42 79 74 65 20 | 49 63 6f 6e 5f 59 5f 50 |8..Byte |Icon_Y_P|
|000007d0| 6f 73 2b 31 30 2b 33 2a | 31 36 00 2e 42 79 74 65 |os+10+3*|16..Byte|
|000007e0| 20 27 30 27 2c 32 30 2c | 49 63 6f 6e 5f 58 5f 50 | '0',20,|Icon_X_P|
|000007f0| 6f 73 2a 38 2b 38 2b 33 | 2a 38 2c 30 00 2e 42 79 |os*8+8+3|*8,0..By|
|00000800| 74 65 20 27 41 27 2c 32 | 30 2c 49 63 6f 6e 5f 58 |te 'A',2|0,Icon_X|
|00000810| 5f 50 6f 73 2a 38 2b 38 | 2b 36 2a 38 2c 30 00 2e |_Pos*8+8|+6*8,0..|
|00000820| 42 79 74 65 20 27 42 27 | 2c 32 30 2c 49 63 6f 6e |Byte 'B'|,20,Icon|
|00000830| 5f 58 5f 50 6f 73 2a 38 | 2b 38 2b 39 2a 38 2c 30 |_X_Pos*8|+8+9*8,0|
|00000840| 00 2e 42 79 74 65 20 27 | 43 27 2c 32 30 2c 49 63 |..Byte '|C',20,Ic|
|00000850| 6f 6e 5f 58 5f 50 6f 73 | 2a 38 2b 38 2b 31 32 2a |on_X_Pos|*8+8+12*|
|00000860| 38 2c 30 00 2e 42 79 74 | 65 20 27 2b 27 2c 30 00 |8,0..Byt|e '+',0.|
|00000870| 3b 00 6a 73 72 20 24 43 | 31 41 45 20 3b 20 69 70 |;.jsr $C|1AE ; ip|
|00000880| 75 74 73 74 72 69 6e 67 | 00 2e 57 6f 72 64 20 49 |utstring|..Word I|
|00000890| 63 6f 6e 5f 58 5f 50 6f | 73 2a 38 2b 32 00 2e 42 |con_X_Po|s*8+2..B|
|000008a0| 79 74 65 20 49 63 6f 6e | 5f 59 5f 50 6f 73 2b 30 |yte Icon|_Y_Pos+0|
|000008b0| 39 2b 34 2a 31 36 00 2e | 42 79 74 65 20 27 48 45 |9+4*16..|Byte 'HE|
|000008c0| 58 27 2c 32 30 2c 49 63 | 6f 6e 5f 58 5f 50 6f 73 |X',20,Ic|on_X_Pos|
|000008d0| 2a 38 2b 34 2b 33 2a 38 | 2c 30 00 2e 42 79 74 65 |*8+4+3*8|,0..Byte|
|000008e0| 20 27 44 45 43 27 2c 32 | 30 2c 49 63 6f 6e 5f 58 | 'DEC',2|0,Icon_X|
|000008f0| 5f 50 6f 73 2a 38 2b 34 | 2b 36 2a 38 2c 30 00 2e |_Pos*8+4|+6*8,0..|
|00000900| 42 79 74 65 20 27 42 49 | 4e 27 2c 32 30 2c 49 63 |Byte 'BI|N',20,Ic|
|00000910| 6f 6e 5f 58 5f 50 6f 73 | 2a 38 2b 38 2b 31 32 2a |on_X_Pos|*8+8+12*|
|00000920| 38 2c 30 00 2e 42 79 74 | 65 20 27 3d 27 2c 30 00 |8,0..Byt|e '=',0.|
|00000930| 3b 00 6a 73 72 20 24 43 | 31 41 45 20 3b 20 69 70 |;.jsr $C|1AE ; ip|
|00000940| 75 74 73 74 72 69 6e 67 | 00 2e 57 6f 72 64 20 49 |utstring|..Word I|
|00000950| 63 6f 6e 5f 58 5f 50 6f | 73 2a 38 2b 38 00 2e 42 |con_X_Po|s*8+8..B|
|00000960| 79 74 65 20 49 63 6f 6e | 5f 59 5f 50 6f 73 2b 31 |yte Icon|_Y_Pos+1|
|00000970| 30 2b 36 2a 31 36 00 2e | 42 79 74 65 20 27 43 27 |0+6*16..|Byte 'C'|
|00000980| 2c 32 30 2c 49 63 6f 6e | 5f 58 5f 50 6f 73 2a 38 |,20,Icon|_X_Pos*8|
|00000990| 2b 34 2b 33 2a 38 2c 30 | 00 2e 42 79 74 65 20 27 |+4+3*8,0|..Byte '|
|000009a0| 43 41 27 2c 32 30 2c 49 | 63 6f 6e 5f 58 5f 50 6f |CA',20,I|con_X_Po|
|000009b0| 73 2a 38 2b 34 2b 36 2a | 38 2c 30 00 2e 42 79 74 |s*8+4+6*|8,0..Byt|
|000009c0| 65 20 27 44 65 6c 27 2c | 32 30 2c 49 63 6f 6e 5f |e 'Del',|20,Icon_|
|000009d0| 58 5f 50 6f 73 2a 38 2b | 33 2b 39 2a 38 2c 30 00 |X_Pos*8+|3+9*8,0.|
|000009e0| 2e 42 79 74 65 20 27 45 | 78 69 74 27 2c 30 00 3b |.Byte 'E|xit',0.;|
|000009f0| 00 6a 73 72 20 24 43 31 | 41 45 20 3b 20 69 70 75 |.jsr $C1|AE ; ipu|
|00000a00| 74 73 74 72 69 6e 67 00 | 2e 57 6f 72 64 20 49 63 |tstring.|.Word Ic|
|00000a10| 6f 6e 5f 58 5f 50 6f 73 | 2a 38 2b 31 00 2e 42 79 |on_X_Pos|*8+1..By|
|00000a20| 74 65 20 49 63 6f 6e 5f | 59 5f 50 6f 73 2b 31 30 |te Icon_|Y_Pos+10|
|00000a30| 2b 35 2a 31 36 00 2e 42 | 79 74 65 20 27 41 4e 44 |+5*16..B|yte 'AND|
|00000a40| 27 2c 32 30 2c 49 63 6f | 6e 5f 58 5f 50 6f 73 2a |',20,Ico|n_X_Pos*|
|00000a50| 38 2b 32 2b 33 2a 38 2c | 30 00 2e 42 79 74 65 20 |8+2+3*8,|0..Byte |
|00000a60| 27 45 4f 52 27 2c 32 30 | 2c 49 63 6f 6e 5f 58 5f |'EOR',20|,Icon_X_|
|00000a70| 50 6f 73 2a 38 2b 31 2b | 36 2a 38 2c 30 00 2e 42 |Pos*8+1+|6*8,0..B|
|00000a80| 79 74 65 20 27 4f 52 41 | 27 2c 30 00 3b 00 52 54 |yte 'ORA|',0.;.RT|
|00000a90| 53 00 3b 2a 2a 2a 2a 2a | 00 43 6c 65 61 72 41 6c |S.;*****|.ClearAl|
|00000aa0| 6c 00 20 6c 64 61 20 23 | 30 00 20 73 74 61 20 53 |l. lda #|0. sta S|
|00000ab0| 54 4b 50 54 52 00 43 6c | 65 61 72 00 20 6c 64 61 |TKPTR.Cl|ear. lda|
|00000ac0| 20 23 30 00 20 73 74 61 | 20 52 45 53 55 4c 54 00 | #0. sta| RESULT.|
|00000ad0| 20 53 54 41 20 52 45 53 | 55 4c 54 2b 31 00 20 53 | STA RES|ULT+1. S|
|00000ae0| 54 41 20 4b 65 79 69 6e | 6c 65 6e 00 20 6c 64 61 |TA Keyin|len. lda|
|00000af0| 20 23 33 32 00 20 73 74 | 61 20 43 41 52 52 59 00 | #32. st|a CARRY.|
|00000b00| 20 6c 64 61 20 23 34 38 | 00 20 73 74 61 20 44 58 | lda #48|. sta DX|
|00000b10| 53 42 55 46 00 20 6c 64 | 61 20 23 31 00 20 73 74 |SBUF. ld|a #1. st|
|00000b20| 61 20 44 49 53 4c 45 4e | 00 20 6a 73 72 20 44 69 |a DISLEN|. jsr Di|
|00000b30| 73 70 6c 61 79 00 20 6c | 64 61 20 23 30 00 20 73 |splay. l|da #0. s|
|00000b40| 74 61 20 44 49 53 4c 45 | 4e 00 20 52 54 53 00 3b |ta DISLE|N. RTS.;|
|00000b50| 2d 2d 2d 2d 2d 2d 2d 2d | 00 53 57 49 54 43 48 4d |--------|.SWITCHM|
|00000b60| 4f 44 45 00 6c 64 61 20 | 52 30 00 20 73 74 61 20 |ODE.lda |R0. sta |
|00000b70| 6b 65 79 70 72 65 73 73 | 00 53 57 49 54 43 48 4d |keypress|.SWITCHM|
|00000b80| 4f 44 45 32 00 20 6c 64 | 61 20 6b 65 79 70 72 65 |ODE2. ld|a keypre|
|00000b90| 73 73 00 20 53 45 43 00 | 20 53 42 43 20 23 32 35 |ss. SEC.| SBC #25|
|00000ba0| 00 20 53 54 41 20 4d 6f | 64 65 00 20 53 57 43 48 |. STA Mo|de. SWCH|
|00000bb0| 4d 4f 44 45 32 00 20 4c | 44 41 20 52 45 53 55 4c |MODE2. L|DA RESUL|
|00000bc0| 54 00 20 6f 72 61 20 52 | 45 53 55 4c 54 2b 31 00 |T. ora R|ESULT+1.|
|00000bd0| 20 42 4e 45 20 4e 4f 5a | 45 52 4f 00 20 4a 53 52 | BNE NOZ|ERO. JSR|
|00000be0| 20 43 6c 65 61 72 00 20 | 4a 53 52 20 50 72 69 6e | Clear. |JSR Prin|
|00000bf0| 74 4d 6f 64 65 00 20 52 | 54 53 00 4e 4f 5a 45 52 |tMode. R|TS.NOZER|
|00000c00| 4f 00 20 4c 44 41 20 52 | 45 53 55 4c 54 00 20 53 |O. LDA R|ESULT. S|
|00000c10| 54 41 20 56 41 4c 55 45 | 00 20 4c 44 41 20 52 45 |TA VALUE|. LDA RE|
|00000c20| 53 55 4c 54 2b 31 00 20 | 53 54 41 20 56 41 4c 55 |SULT+1. |STA VALU|
|00000c30| 45 2b 31 00 20 4a 53 52 | 20 50 72 69 6e 74 4d 6f |E+1. JSR| PrintMo|
|00000c40| 64 65 00 20 4a 53 52 20 | 44 55 50 4c 49 43 41 54 |de. JSR |DUPLICAT|
|00000c50| 45 00 20 52 54 53 00 3b | 00 50 72 69 6e 74 4d 6f |E. RTS.;|.PrintMo|
|00000c60| 64 65 00 20 6c 64 78 20 | 4d 6f 64 65 00 20 64 65 |de. ldx |Mode. de|
|00000c70| 78 00 20 42 4d 49 20 42 | 49 4e 53 57 49 54 43 48 |x. BMI B|INSWITCH|
|00000c80| 00 20 42 4e 45 20 48 45 | 58 53 57 49 54 43 48 00 |. BNE HE|XSWITCH.|
|00000c90| 20 44 45 43 53 57 49 54 | 43 48 00 20 6a 73 72 20 | DECSWIT|CH. jsr |
|00000ca0| 42 49 4e 44 45 43 00 20 | 4a 53 52 20 69 5f 50 75 |BINDEC. |JSR i_Pu|
|00000cb0| 74 53 74 72 69 6e 67 00 | 20 2e 57 6f 72 64 20 58 |tString.| .Word X|
|00000cc0| 76 61 6c 75 65 2b 31 30 | 00 20 2e 42 79 74 65 20 |value+10|. .Byte |
|00000cd0| 59 76 61 6c 75 65 00 20 | 2e 42 79 74 65 20 27 20 |Yvalue. |.Byte ' |
|00000ce0| 44 45 43 20 27 2c 30 00 | 20 52 54 53 00 48 45 58 |DEC ',0.| RTS.HEX|
|00000cf0| 53 57 49 54 43 48 00 20 | 6a 73 72 20 42 49 4e 48 |SWITCH. |jsr BINH|
|00000d00| 45 58 00 20 4a 53 52 20 | 69 5f 50 75 74 53 74 72 |EX. JSR |i_PutStr|
|00000d10| 69 6e 67 00 20 2e 57 6f | 72 64 20 58 76 61 6c 75 |ing. .Wo|rd Xvalu|
|00000d20| 65 2b 31 30 00 20 2e 42 | 79 74 65 20 59 76 61 6c |e+10. .B|yte Yval|
|00000d30| 75 65 00 20 2e 42 79 74 | 65 20 27 20 48 45 58 20 |ue. .Byt|e ' HEX |
|00000d40| 27 2c 30 00 20 52 54 53 | 20 00 20 42 49 4e 53 57 |',0. RTS| . BINSW|
|00000d50| 49 54 43 48 00 20 6a 73 | 72 20 42 49 4e 32 53 54 |ITCH. js|r BIN2ST|
|00000d60| 00 20 4a 53 52 20 69 5f | 50 75 74 53 74 72 69 6e |. JSR i_|PutStrin|
|00000d70| 67 00 20 2e 57 6f 72 64 | 20 58 76 61 6c 75 65 2b |g. .Word| Xvalue+|
|00000d80| 31 30 00 20 2e 42 79 74 | 65 20 59 76 61 6c 75 65 |10. .Byt|e Yvalue|
|00000d90| 00 20 2e 42 79 74 65 20 | 27 20 42 49 4e 20 27 2c |. .Byte |' BIN ',|
|00000da0| 30 00 20 52 54 53 00 44 | 55 50 4c 49 43 41 54 45 |0. RTS.D|UPLICATE|
|00000db0| 00 20 6c 64 78 20 23 31 | 36 00 20 44 55 50 4c 4f |. ldx #1|6. DUPLO|
|00000dc0| 4f 50 00 20 6c 64 61 20 | 44 49 53 4c 45 4e 2c 58 |OP. lda |DISLEN,X|
|00000dd0| 00 20 73 74 61 20 4b 65 | 79 69 6e 6c 65 6e 2c 58 |. sta Ke|yinlen,X|
|00000de0| 00 20 64 65 78 00 20 62 | 70 6c 20 44 55 50 4c 4f |. dex. b|pl DUPLO|
|00000df0| 4f 50 00 20 4a 53 52 20 | 44 69 73 70 6c 61 79 00 |OP. JSR |Display.|
|00000e00| 20 52 54 53 20 00 3b 3d | 3d 3d 3d 3d 3d 3d 3d 00 | RTS .;=|=======.|
|00000e10| 44 65 6c 65 74 65 00 20 | 6c 64 78 20 4b 65 79 69 |Delete. |ldx Keyi|
|00000e20| 6e 6c 65 6e 00 20 62 65 | 71 20 45 58 49 54 44 45 |nlen. be|q EXITDE|
|00000e30| 4c 00 20 64 65 78 00 20 | 62 6e 65 20 44 45 4c 43 |L. dex. |bne DELC|
|00000e40| 4f 4e 54 00 20 73 74 78 | 20 4b 65 79 69 6e 6c 65 |ONT. stx| Keyinle|
|00000e50| 6e 00 20 6a 73 72 20 43 | 6c 65 61 72 00 20 52 54 |n. jsr C|lear. RT|
|00000e60| 53 00 3b 00 44 45 4c 43 | 4f 4e 54 00 20 73 74 78 |S.;.DELC|ONT. stx|
|00000e70| 20 4b 65 79 69 6e 6c 65 | 6e 00 20 6c 64 78 20 4d | Keyinle|n. ldx M|
|00000e80| 6f 64 65 00 20 64 65 78 | 00 20 62 6d 69 20 42 49 |ode. dex|. bmi BI|
|00000e90| 4e 44 45 4c 00 20 62 6e | 65 20 48 45 58 44 45 4c |NDEL. bn|e HEXDEL|
|00000ea0| 00 20 44 45 43 44 45 4c | 00 20 4a 53 52 20 44 45 |. DECDEL|. JSR DE|
|00000eb0| 43 42 49 4e 00 20 4a 4d | 50 20 45 4e 44 44 45 4c |CBIN. JM|P ENDDEL|
|00000ec0| 00 42 49 4e 44 45 4c 00 | 20 6a 73 72 20 53 54 32 |.BINDEL.| jsr ST2|
|00000ed0| 42 49 4e 00 20 6a 6d 70 | 20 45 4e 44 44 45 4c 00 |BIN. jmp| ENDDEL.|
|00000ee0| 48 45 58 44 45 4c 00 20 | 6a 73 72 20 48 45 58 42 |HEXDEL. |jsr HEXB|
|00000ef0| 49 4e 00 45 4e 44 44 45 | 4c 00 20 6a 73 72 20 53 |IN.ENDDE|L. jsr S|
|00000f00| 57 43 48 4d 4f 44 45 32 | 00 45 58 49 54 44 45 4c |WCHMODE2|.EXITDEL|
|00000f10| 00 20 52 54 53 00 00 00 |                         |. RTS...|        |
+--------+-------------------------+-------------------------+--------+--------+