home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LBR Archive (archive/lbr)
| magic
| Supported |
| 1%
| dexvert
| Micro Focus Cobol library (other/microFocusCobolLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
| 100%
| file
| LBR archive data
| default
| |
| 99%
| file
| data
| default
| |
| 87%
| TrID
| LU library
| default
| |
| 12%
| TrID
| C64 Hires bitmap
| default (weak)
| |
| 100%
| lsar
| LBR
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 06 00 |. | ....|
|00000010| fb 04 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 56 49 44 31 20 20 20 | 20 5a 38 30 06 00 06 00 |.VID1 | Z80....|
|00000030| eb 22 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |."......|........|
|00000040| 00 56 49 44 32 20 20 20 | 20 5a 38 30 0c 00 07 00 |.VID2 | Z80....|
|00000050| fd 52 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.R......|........|
|00000060| 00 56 49 44 33 20 20 20 | 20 5a 38 30 13 00 07 00 |.VID3 | Z80....|
|00000070| 1a 35 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.5......|........|
|00000080| 00 56 49 44 34 20 20 20 | 20 5a 38 30 1a 00 07 00 |.VID4 | Z80....|
|00000090| f5 40 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.@......|........|
|000000a0| 00 56 49 44 35 20 20 20 | 20 5a 38 30 21 00 07 00 |.VID5 | Z80!...|
|000000b0| 5a cf 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Z.......|........|
|000000c0| 00 56 49 44 36 20 20 20 | 20 5a 38 30 28 00 07 00 |.VID6 | Z80(...|
|000000d0| 73 18 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |s.......|........|
|000000e0| 00 56 49 44 37 20 20 20 | 20 5a 38 30 2f 00 29 00 |.VID7 | Z80/.).|
|000000f0| 2e 81 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 56 49 44 38 20 20 20 | 20 5a 38 30 58 00 05 00 |.VID8 | Z80X...|
|00000110| 86 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.c......|........|
|00000120| 00 56 49 44 39 20 20 20 | 20 5a 38 30 5d 00 0a 00 |.VID9 | Z80]...|
|00000130| 45 1b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.......|........|
|00000140| 00 56 49 44 41 20 20 20 | 20 5a 38 30 67 00 04 00 |.VIDA | Z80g...|
|00000150| a6 0e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| 00 56 49 44 42 20 20 20 | 20 5a 38 30 6b 00 06 00 |.VIDB | Z80k...|
|00000170| 3c 24 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |<$......|........|
|00000180| 00 56 4c 41 54 20 20 20 | 20 5a 38 30 71 00 05 00 |.VLAT | Z80q...|
|00000190| 6a a0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |j.......|........|
|000001a0| 00 56 4c 47 58 59 4d 53 | 47 5a 38 30 76 00 0c 00 |.VLGXYMS|GZ80v...|
|000001b0| ab 6c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.l......|........|
|000001c0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000001d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001e0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000001f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000210| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000230| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000250| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000260| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000270| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|00000290| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002a0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000002b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002c0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000002d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000002f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00000310| 20 4e 61 6d 65 3a 20 20 | 56 49 44 31 0d 0a 3b 20 | Name: |VID1..; |
|00000320| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00000330| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00000340| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00000350| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00000360| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00000370| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 63 |.1..;...|public.c|
|00000380| 6c 73 0d 0a 0d 0a 09 65 | 78 74 09 76 69 64 70 74 |ls.....e|xt.vidpt|
|00000390| 72 2c 76 69 64 6f 75 74 | 0d 0a 3b 0d 0a 3b 20 43 |r,vidout|..;..; C|
|000003a0| 6c 65 61 72 20 53 63 72 | 65 65 6e 0d 0a 3b 09 52 |lear Scr|een..;.R|
|000003b0| 65 74 75 72 6e 20 77 69 | 74 68 20 41 3d 30 20 61 |eturn wi|th A=0 a|
|000003c0| 6e 64 20 5a 65 72 6f 20 | 46 6c 61 67 20 53 65 74 |nd Zero |Flag Set|
|000003d0| 20 69 66 20 6e 6f 74 20 | 64 6f 6e 65 0d 0a 3b 0d | if not |done..;.|
|000003e0| 0a 63 6c 73 3a 0d 0a 09 | 70 75 73 68 09 68 6c 09 |.cls:...|push.hl.|
|000003f0| 09 3b 73 61 76 65 20 72 | 65 67 73 0d 0a 09 70 75 |.;save r|egs...pu|
|00000400| 73 68 09 64 65 0d 0a 09 | 6c 64 09 68 6c 2c 28 76 |sh.de...|ld.hl,(v|
|00000410| 69 64 70 74 72 29 09 3b | 70 74 20 74 6f 20 65 6e |idptr).;|pt to en|
|00000420| 76 69 72 6f 6e 6d 65 6e | 74 0d 0a 09 6c 64 09 61 |vironmen|t...ld.a|
|00000430| 2c 28 68 6c 29 09 09 3b | 6e 6f 20 74 65 72 6d 69 |,(hl)..;|no termi|
|00000440| 6e 61 6c 3f 0d 0a 09 63 | 70 09 27 20 27 2b 31 0d |nal?...c|p.' '+1.|
|00000450| 0a 09 6a 70 09 63 2c 63 | 6c 73 65 72 72 0d 0a 09 |..jp.c,c|lserr...|
|00000460| 6c 64 09 64 65 2c 31 34 | 68 09 09 3b 70 74 20 74 |ld.de,14|h..;pt t|
|00000470| 6f 20 63 6c 73 20 64 65 | 6c 61 79 0d 0a 09 61 64 |o cls de|lay...ad|
|00000480| 64 09 68 6c 2c 64 65 0d | 0a 09 6c 64 09 64 2c 28 |d.hl,de.|..ld.d,(|
|00000490| 68 6c 29 09 09 3b 67 65 | 74 20 69 74 0d 0a 09 69 |hl)..;ge|t it...i|
|000004a0| 6e 63 09 68 6c 09 09 3b | 70 74 20 74 6f 20 63 6c |nc.hl..;|pt to cl|
|000004b0| 73 20 73 74 72 69 6e 67 | 0d 0a 09 69 6e 63 09 68 |s string|...inc.h|
|000004c0| 6c 0d 0a 09 69 6e 63 09 | 68 6c 0d 0a 09 6c 64 09 |l...inc.|hl...ld.|
|000004d0| 61 2c 28 68 6c 29 09 09 | 3b 67 65 74 20 66 69 72 |a,(hl)..|;get fir|
|000004e0| 73 74 20 63 68 61 72 20 | 6f 66 20 73 74 72 69 6e |st char |of strin|
|000004f0| 67 0d 0a 09 6f 72 09 61 | 09 09 3b 69 66 20 6e 6f |g...or.a|..;if no|
|00000500| 20 73 74 72 69 6e 67 2c | 20 65 72 72 6f 72 0d 0a | string,| error..|
|00000510| 09 6a 70 09 7a 2c 63 6c | 73 65 72 72 0d 0a 09 63 |.jp.z,cl|serr...c|
|00000520| 61 6c 6c 09 76 69 64 6f | 75 74 09 09 3b 6f 75 74 |all.vido|ut..;out|
|00000530| 70 75 74 20 73 74 72 69 | 6e 67 20 77 69 74 68 20 |put stri|ng with |
|00000540| 64 65 6c 61 79 0d 0a 09 | 70 6f 70 09 64 65 09 09 |delay...|pop.de..|
|00000550| 3b 64 6f 6e 65 0d 0a 09 | 70 6f 70 09 68 6c 0d 0a |;done...|pop.hl..|
|00000560| 09 78 6f 72 09 61 09 09 | 3b 72 65 74 75 72 6e 20 |.xor.a..|;return |
|00000570| 4e 5a 0d 0a 09 64 65 63 | 09 61 0d 0a 09 72 65 74 |NZ...dec|.a...ret|
|00000580| 0d 0a 63 6c 73 65 72 72 | 3a 0d 0a 09 70 6f 70 09 |..clserr|:...pop.|
|00000590| 64 65 09 09 3b 64 6f 6e | 65 0d 0a 09 70 6f 70 09 |de..;don|e...pop.|
|000005a0| 68 6c 0d 0a 09 78 6f 72 | 09 61 09 09 3b 72 65 74 |hl...xor|.a..;ret|
|000005b0| 75 72 6e 20 5a 0d 0a 09 | 72 65 74 0d 0a 0d 0a 09 |urn Z...|ret.....|
|000005c0| 65 6e 64 0d 0a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |end.....|........|
|000005d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000005e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000005f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000600| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00000610| 20 4e 61 6d 65 3a 20 20 | 56 49 44 32 0d 0a 3b 20 | Name: |VID2..; |
|00000620| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00000630| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00000640| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00000650| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00000660| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00000670| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 65 |.1..;...|public.e|
|00000680| 72 65 6f 6c 0d 0a 0d 0a | 09 65 78 74 09 76 69 64 |reol....|.ext.vid|
|00000690| 70 74 72 2c 76 69 64 6f | 75 74 2c 76 69 64 73 6b |ptr,vido|ut,vidsk|
|000006a0| 70 0d 0a 3b 0d 0a 3b 20 | 45 72 61 73 65 20 74 6f |p..;..; |Erase to|
|000006b0| 20 45 6e 64 20 6f 66 20 | 4c 69 6e 65 0d 0a 3b 09 | End of |Line..;.|
|000006c0| 52 65 74 75 72 6e 20 77 | 69 74 68 20 41 3d 30 20 |Return w|ith A=0 |
|000006d0| 61 6e 64 20 5a 65 72 6f | 20 46 6c 61 67 20 53 65 |and Zero| Flag Se|
|000006e0| 74 20 69 66 20 6e 6f 74 | 20 64 6f 6e 65 0d 0a 3b |t if not| done..;|
|000006f0| 0d 0a 65 72 65 6f 6c 3a | 0d 0a 09 70 75 73 68 09 |..ereol:|...push.|
|00000700| 68 6c 09 09 3b 73 61 76 | 65 20 72 65 67 73 0d 0a |hl..;sav|e regs..|
|00000710| 09 70 75 73 68 09 64 65 | 0d 0a 09 6c 64 09 68 6c |.push.de|...ld.hl|
|00000720| 2c 28 76 69 64 70 74 72 | 29 09 3b 70 74 20 74 6f |,(vidptr|).;pt to|
|00000730| 20 65 6e 76 69 72 6f 6e | 6d 65 6e 74 0d 0a 09 6c | environ|ment...l|
|00000740| 64 09 61 2c 28 68 6c 29 | 09 09 3b 6e 6f 20 74 65 |d.a,(hl)|..;no te|
|00000750| 72 6d 69 6e 61 6c 3f 0d | 0a 09 63 70 09 27 20 27 |rminal?.|..cp.' '|
|00000760| 2b 31 0d 0a 09 6a 70 09 | 63 2c 65 72 72 0d 0a 09 |+1...jp.|c,err...|
|00000770| 6c 64 09 64 65 2c 31 36 | 68 09 09 3b 70 74 20 74 |ld.de,16|h..;pt t|
|00000780| 6f 20 65 72 65 6f 6c 20 | 64 65 6c 61 79 0d 0a 09 |o ereol |delay...|
|00000790| 61 64 64 09 68 6c 2c 64 | 65 0d 0a 09 6c 64 09 64 |add.hl,d|e...ld.d|
|000007a0| 2c 28 68 6c 29 09 09 3b | 67 65 74 20 69 74 0d 0a |,(hl)..;|get it..|
|000007b0| 09 69 6e 63 09 68 6c 09 | 09 3b 70 74 20 74 6f 20 |.inc.hl.|.;pt to |
|000007c0| 63 6c 73 20 73 74 72 69 | 6e 67 0d 0a 09 63 61 6c |cls stri|ng...cal|
|000007d0| 6c 09 76 69 64 73 6b 70 | 09 09 3b 73 6b 69 70 20 |l.vidskp|..;skip |
|000007e0| 6f 76 65 72 20 69 74 0d | 0a 09 63 61 6c 6c 09 76 |over it.|..call.v|
|000007f0| 69 64 73 6b 70 09 09 3b | 73 6b 69 70 20 6f 76 65 |idskp..;|skip ove|
|00000800| 72 20 43 4d 20 73 74 72 | 69 6e 67 0d 0a 09 6c 64 |r CM str|ing...ld|
|00000810| 09 61 2c 28 68 6c 29 09 | 09 3b 67 65 74 20 66 69 |.a,(hl).|.;get fi|
|00000820| 72 73 74 20 63 68 61 72 | 20 6f 66 20 65 72 65 6f |rst char| of ereo|
|00000830| 6c 20 73 74 72 69 6e 67 | 0d 0a 09 6f 72 09 61 09 |l string|...or.a.|
|00000840| 09 3b 69 66 20 6e 6f 20 | 73 74 72 69 6e 67 2c 20 |.;if no |string, |
|00000850| 65 72 72 6f 72 0d 0a 09 | 6a 70 09 7a 2c 65 72 72 |error...|jp.z,err|
|00000860| 0d 0a 09 63 61 6c 6c 09 | 76 69 64 6f 75 74 09 09 |...call.|vidout..|
|00000870| 3b 6f 75 74 70 75 74 20 | 73 74 72 69 6e 67 20 77 |;output |string w|
|00000880| 69 74 68 20 64 65 6c 61 | 79 0d 0a 09 70 6f 70 09 |ith dela|y...pop.|
|00000890| 64 65 09 09 3b 64 6f 6e | 65 0d 0a 09 70 6f 70 09 |de..;don|e...pop.|
|000008a0| 68 6c 0d 0a 09 78 6f 72 | 09 61 09 09 3b 72 65 74 |hl...xor|.a..;ret|
|000008b0| 75 72 6e 20 4e 5a 0d 0a | 09 64 65 63 09 61 0d 0a |urn NZ..|.dec.a..|
|000008c0| 09 72 65 74 0d 0a 65 72 | 72 3a 0d 0a 09 70 6f 70 |.ret..er|r:...pop|
|000008d0| 09 64 65 09 09 3b 64 6f | 6e 65 0d 0a 09 70 6f 70 |.de..;do|ne...pop|
|000008e0| 09 68 6c 0d 0a 09 78 6f | 72 09 61 09 09 3b 72 65 |.hl...xo|r.a..;re|
|000008f0| 74 75 72 6e 20 5a 0d 0a | 09 72 65 74 0d 0a 0d 0a |turn Z..|.ret....|
|00000900| 09 65 6e 64 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.end....|........|
|00000910| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000920| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000930| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000940| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000950| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000960| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000970| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000980| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00000990| 20 4e 61 6d 65 3a 20 20 | 56 49 44 33 0d 0a 3b 20 | Name: |VID3..; |
|000009a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000009b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000009c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000009d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000009e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000009f0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 73 |.1..;...|public.s|
|00000a00| 74 6e 64 6f 75 74 0d 0a | 0d 0a 09 65 78 74 09 76 |tndout..|...ext.v|
|00000a10| 69 64 70 74 72 2c 76 69 | 64 6f 75 74 2c 76 69 64 |idptr,vi|dout,vid|
|00000a20| 73 6b 70 0d 0a 3b 0d 0a | 3b 20 42 65 67 69 6e 20 |skp..;..|; Begin |
|00000a30| 53 74 61 6e 64 6f 75 74 | 20 4d 6f 64 65 0d 0a 3b |Standout| Mode..;|
|00000a40| 09 52 65 74 75 72 6e 20 | 77 69 74 68 20 41 3d 30 |.Return |with A=0|
|00000a50| 20 61 6e 64 20 5a 65 72 | 6f 20 46 6c 61 67 20 53 | and Zer|o Flag S|
|00000a60| 65 74 20 69 66 20 6e 6f | 74 20 64 6f 6e 65 0d 0a |et if no|t done..|
|00000a70| 3b 0d 0a 73 74 6e 64 6f | 75 74 3a 0d 0a 09 70 75 |;..stndo|ut:...pu|
|00000a80| 73 68 09 68 6c 09 09 3b | 73 61 76 65 20 72 65 67 |sh.hl..;|save reg|
|00000a90| 73 0d 0a 09 70 75 73 68 | 09 64 65 0d 0a 09 6c 64 |s...push|.de...ld|
|00000aa0| 09 68 6c 2c 28 76 69 64 | 70 74 72 29 09 3b 70 74 |.hl,(vid|ptr).;pt|
|00000ab0| 20 74 6f 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 0d | to envi|ronment.|
|00000ac0| 0a 09 6c 64 09 61 2c 28 | 68 6c 29 09 09 3b 6e 6f |..ld.a,(|hl)..;no|
|00000ad0| 20 74 65 72 6d 69 6e 61 | 6c 3f 0d 0a 09 63 70 09 | termina|l?...cp.|
|00000ae0| 27 20 27 2b 31 0d 0a 09 | 6a 70 09 63 2c 65 72 72 |' '+1...|jp.c,err|
|00000af0| 0d 0a 09 6c 64 09 64 65 | 2c 31 37 68 09 09 3b 70 |...ld.de|,17h..;p|
|00000b00| 74 20 74 6f 20 63 6c 73 | 20 73 74 72 69 6e 67 0d |t to cls| string.|
|00000b10| 0a 09 61 64 64 09 68 6c | 2c 64 65 0d 0a 09 6c 64 |..add.hl|,de...ld|
|00000b20| 09 64 2c 30 09 09 3b 6e | 6f 20 64 65 6c 61 79 0d |.d,0..;n|o delay.|
|00000b30| 0a 09 63 61 6c 6c 09 76 | 69 64 73 6b 70 09 09 3b |..call.v|idskp..;|
|00000b40| 73 6b 69 70 20 6f 76 65 | 72 20 43 4c 20 73 74 72 |skip ove|r CL str|
|00000b50| 69 6e 67 0d 0a 09 63 61 | 6c 6c 09 76 69 64 73 6b |ing...ca|ll.vidsk|
|00000b60| 70 09 09 3b 73 6b 69 70 | 20 6f 76 65 72 20 43 4d |p..;skip| over CM|
|00000b70| 20 73 74 72 69 6e 67 0d | 0a 09 63 61 6c 6c 09 76 | string.|..call.v|
|00000b80| 69 64 73 6b 70 09 09 3b | 73 6b 69 70 20 6f 76 65 |idskp..;|skip ove|
|00000b90| 72 20 43 45 20 73 74 72 | 69 6e 67 0d 0a 09 6c 64 |r CE str|ing...ld|
|00000ba0| 09 61 2c 28 68 6c 29 09 | 09 3b 67 65 74 20 66 69 |.a,(hl).|.;get fi|
|00000bb0| 72 73 74 20 63 68 61 72 | 20 6f 66 20 53 4f 20 73 |rst char| of SO s|
|00000bc0| 74 72 69 6e 67 0d 0a 09 | 6f 72 09 61 09 09 3b 69 |tring...|or.a..;i|
|00000bd0| 66 20 6e 6f 20 73 74 72 | 69 6e 67 2c 20 65 72 72 |f no str|ing, err|
|00000be0| 6f 72 0d 0a 09 6a 70 09 | 7a 2c 65 72 72 0d 0a 09 |or...jp.|z,err...|
|00000bf0| 63 61 6c 6c 09 76 69 64 | 6f 75 74 09 09 3b 6f 75 |call.vid|out..;ou|
|00000c00| 74 70 75 74 20 73 74 72 | 69 6e 67 20 77 69 74 68 |tput str|ing with|
|00000c10| 20 64 65 6c 61 79 0d 0a | 09 70 6f 70 09 64 65 09 | delay..|.pop.de.|
|00000c20| 09 3b 64 6f 6e 65 0d 0a | 09 70 6f 70 09 68 6c 0d |.;done..|.pop.hl.|
|00000c30| 0a 09 78 6f 72 09 61 09 | 09 3b 72 65 74 75 72 6e |..xor.a.|.;return|
|00000c40| 20 4e 5a 0d 0a 09 64 65 | 63 09 61 0d 0a 09 72 65 | NZ...de|c.a...re|
|00000c50| 74 0d 0a 65 72 72 3a 0d | 0a 09 70 6f 70 09 64 65 |t..err:.|..pop.de|
|00000c60| 09 09 3b 64 6f 6e 65 0d | 0a 09 70 6f 70 09 68 6c |..;done.|..pop.hl|
|00000c70| 0d 0a 09 78 6f 72 09 61 | 09 09 3b 72 65 74 75 72 |...xor.a|..;retur|
|00000c80| 6e 20 5a 0d 0a 09 72 65 | 74 0d 0a 0d 0a 09 65 6e |n Z...re|t.....en|
|00000c90| 64 0d 0a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |d.......|........|
|00000ca0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000cb0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000cc0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000cd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000ce0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000cf0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000d00| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00000d10| 20 4e 61 6d 65 3a 20 20 | 56 49 44 34 0d 0a 3b 20 | Name: |VID4..; |
|00000d20| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00000d30| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00000d40| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00000d50| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00000d60| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00000d70| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 73 |.1..;...|public.s|
|00000d80| 74 6e 64 65 6e 64 0d 0a | 0d 0a 09 65 78 74 09 76 |tndend..|...ext.v|
|00000d90| 69 64 70 74 72 2c 76 69 | 64 6f 75 74 2c 76 69 64 |idptr,vi|dout,vid|
|00000da0| 73 6b 70 0d 0a 3b 0d 0a | 3b 20 54 65 72 6d 69 6e |skp..;..|; Termin|
|00000db0| 61 74 65 20 53 74 61 6e | 64 6f 75 74 20 4d 6f 64 |ate Stan|dout Mod|
|00000dc0| 65 0d 0a 3b 09 52 65 74 | 75 72 6e 20 77 69 74 68 |e..;.Ret|urn with|
|00000dd0| 20 41 3d 30 20 61 6e 64 | 20 5a 65 72 6f 20 46 6c | A=0 and| Zero Fl|
|00000de0| 61 67 20 53 65 74 20 69 | 66 20 6e 6f 74 20 64 6f |ag Set i|f not do|
|00000df0| 6e 65 0d 0a 3b 0d 0a 73 | 74 6e 64 65 6e 64 3a 0d |ne..;..s|tndend:.|
|00000e00| 0a 09 70 75 73 68 09 68 | 6c 09 09 3b 73 61 76 65 |..push.h|l..;save|
|00000e10| 20 72 65 67 73 0d 0a 09 | 70 75 73 68 09 64 65 0d | regs...|push.de.|
|00000e20| 0a 09 6c 64 09 68 6c 2c | 28 76 69 64 70 74 72 29 |..ld.hl,|(vidptr)|
|00000e30| 09 3b 70 74 20 74 6f 20 | 65 6e 76 69 72 6f 6e 6d |.;pt to |environm|
|00000e40| 65 6e 74 0d 0a 09 6c 64 | 09 61 2c 28 68 6c 29 09 |ent...ld|.a,(hl).|
|00000e50| 09 3b 6e 6f 20 74 65 72 | 6d 69 6e 61 6c 3f 0d 0a |.;no ter|minal?..|
|00000e60| 09 63 70 09 27 20 27 2b | 31 0d 0a 09 6a 70 09 63 |.cp.' '+|1...jp.c|
|00000e70| 2c 65 72 72 0d 0a 09 6c | 64 09 64 65 2c 31 37 68 |,err...l|d.de,17h|
|00000e80| 09 09 3b 70 74 20 74 6f | 20 63 6c 73 20 73 74 72 |..;pt to| cls str|
|00000e90| 69 6e 67 0d 0a 09 61 64 | 64 09 68 6c 2c 64 65 0d |ing...ad|d.hl,de.|
|00000ea0| 0a 09 6c 64 09 64 2c 30 | 09 09 3b 6e 6f 20 64 65 |..ld.d,0|..;no de|
|00000eb0| 6c 61 79 0d 0a 09 63 61 | 6c 6c 09 76 69 64 73 6b |lay...ca|ll.vidsk|
|00000ec0| 70 09 09 3b 73 6b 69 70 | 20 6f 76 65 72 20 43 4c |p..;skip| over CL|
|00000ed0| 20 73 74 72 69 6e 67 0d | 0a 09 63 61 6c 6c 09 76 | string.|..call.v|
|00000ee0| 69 64 73 6b 70 09 09 3b | 73 6b 69 70 20 6f 76 65 |idskp..;|skip ove|
|00000ef0| 72 20 43 4d 20 73 74 72 | 69 6e 67 0d 0a 09 63 61 |r CM str|ing...ca|
|00000f00| 6c 6c 09 76 69 64 73 6b | 70 09 09 3b 73 6b 69 70 |ll.vidsk|p..;skip|
|00000f10| 20 6f 76 65 72 20 43 45 | 20 73 74 72 69 6e 67 0d | over CE| string.|
|00000f20| 0a 09 63 61 6c 6c 09 76 | 69 64 73 6b 70 09 09 3b |..call.v|idskp..;|
|00000f30| 73 6b 69 70 20 6f 76 65 | 72 20 53 4f 20 73 74 72 |skip ove|r SO str|
|00000f40| 69 6e 67 0d 0a 09 6c 64 | 09 61 2c 28 68 6c 29 09 |ing...ld|.a,(hl).|
|00000f50| 09 3b 67 65 74 20 66 69 | 72 73 74 20 63 68 61 72 |.;get fi|rst char|
|00000f60| 20 6f 66 20 53 45 20 73 | 74 72 69 6e 67 0d 0a 09 | of SE s|tring...|
|00000f70| 6f 72 09 61 09 09 3b 69 | 66 20 6e 6f 20 73 74 72 |or.a..;i|f no str|
|00000f80| 69 6e 67 2c 20 65 72 72 | 6f 72 0d 0a 09 6a 70 09 |ing, err|or...jp.|
|00000f90| 7a 2c 65 72 72 0d 0a 09 | 63 61 6c 6c 09 76 69 64 |z,err...|call.vid|
|00000fa0| 6f 75 74 09 09 3b 6f 75 | 74 70 75 74 20 73 74 72 |out..;ou|tput str|
|00000fb0| 69 6e 67 20 77 69 74 68 | 20 64 65 6c 61 79 0d 0a |ing with| delay..|
|00000fc0| 09 70 6f 70 09 64 65 09 | 09 3b 64 6f 6e 65 0d 0a |.pop.de.|.;done..|
|00000fd0| 09 70 6f 70 09 68 6c 0d | 0a 09 78 6f 72 09 61 09 |.pop.hl.|..xor.a.|
|00000fe0| 09 3b 72 65 74 75 72 6e | 20 4e 5a 0d 0a 09 64 65 |.;return| NZ...de|
|00000ff0| 63 09 61 0d 0a 09 72 65 | 74 0d 0a 65 72 72 3a 0d |c.a...re|t..err:.|
|00001000| 0a 09 70 6f 70 09 64 65 | 09 09 3b 64 6f 6e 65 0d |..pop.de|..;done.|
|00001010| 0a 09 70 6f 70 09 68 6c | 0d 0a 09 78 6f 72 09 61 |..pop.hl|...xor.a|
|00001020| 09 09 3b 72 65 74 75 72 | 6e 20 5a 0d 0a 09 72 65 |..;retur|n Z...re|
|00001030| 74 0d 0a 0d 0a 09 65 6e | 64 0d 0a 1a 1a 1a 1a 1a |t.....en|d.......|
|00001040| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001050| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001060| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001070| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001080| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00001090| 20 4e 61 6d 65 3a 20 20 | 56 49 44 35 0d 0a 3b 20 | Name: |VID5..; |
|000010a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000010b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000010c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000010d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000010e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000010f0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 74 |.1..;...|public.t|
|00001100| 69 6e 69 74 0d 0a 0d 0a | 09 65 78 74 09 76 69 64 |init....|.ext.vid|
|00001110| 70 74 72 2c 76 69 64 6f | 75 74 2c 76 69 64 73 6b |ptr,vido|ut,vidsk|
|00001120| 70 0d 0a 3b 0d 0a 3b 20 | 49 6e 69 74 69 61 6c 69 |p..;..; |Initiali|
|00001130| 7a 65 20 54 65 72 6d 69 | 6e 61 6c 0d 0a 3b 09 41 |ze Termi|nal..;.A|
|00001140| 66 66 65 63 74 20 4e 6f | 20 52 65 67 69 73 74 65 |ffect No| Registe|
|00001150| 72 73 0d 0a 3b 0d 0a 74 | 69 6e 69 74 3a 0d 0a 09 |rs..;..t|init:...|
|00001160| 70 75 73 68 09 68 6c 09 | 09 3b 73 61 76 65 20 72 |push.hl.|.;save r|
|00001170| 65 67 73 0d 0a 09 70 75 | 73 68 09 64 65 0d 0a 09 |egs...pu|sh.de...|
|00001180| 70 75 73 68 09 61 66 0d | 0a 09 6c 64 09 68 6c 2c |push.af.|..ld.hl,|
|00001190| 28 76 69 64 70 74 72 29 | 09 3b 70 74 20 74 6f 20 |(vidptr)|.;pt to |
|000011a0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 0d 0a 09 6c 64 |environm|ent...ld|
|000011b0| 09 61 2c 28 68 6c 29 09 | 09 3b 6e 6f 20 74 65 72 |.a,(hl).|.;no ter|
|000011c0| 6d 69 6e 61 6c 3f 0d 0a | 09 63 70 09 27 20 27 2b |minal?..|.cp.' '+|
|000011d0| 31 0d 0a 09 6a 70 09 63 | 2c 64 6f 6e 65 0d 0a 09 |1...jp.c|,done...|
|000011e0| 6c 64 09 64 65 2c 31 37 | 68 09 09 3b 70 74 20 74 |ld.de,17|h..;pt t|
|000011f0| 6f 20 63 6c 73 20 73 74 | 72 69 6e 67 0d 0a 09 61 |o cls st|ring...a|
|00001200| 64 64 09 68 6c 2c 64 65 | 0d 0a 09 6c 64 09 64 2c |dd.hl,de|...ld.d,|
|00001210| 30 09 09 3b 6e 6f 20 64 | 65 6c 61 79 0d 0a 09 63 |0..;no d|elay...c|
|00001220| 61 6c 6c 09 76 69 64 73 | 6b 70 09 09 3b 73 6b 69 |all.vids|kp..;ski|
|00001230| 70 20 6f 76 65 72 20 43 | 4c 20 73 74 72 69 6e 67 |p over C|L string|
|00001240| 0d 0a 09 63 61 6c 6c 09 | 76 69 64 73 6b 70 09 09 |...call.|vidskp..|
|00001250| 3b 73 6b 69 70 20 6f 76 | 65 72 20 43 4d 20 73 74 |;skip ov|er CM st|
|00001260| 72 69 6e 67 0d 0a 09 63 | 61 6c 6c 09 76 69 64 73 |ring...c|all.vids|
|00001270| 6b 70 09 09 3b 73 6b 69 | 70 20 6f 76 65 72 20 43 |kp..;ski|p over C|
|00001280| 45 20 73 74 72 69 6e 67 | 0d 0a 09 63 61 6c 6c 09 |E string|...call.|
|00001290| 76 69 64 73 6b 70 09 09 | 3b 73 6b 69 70 20 6f 76 |vidskp..|;skip ov|
|000012a0| 65 72 20 53 4f 20 73 74 | 72 69 6e 67 0d 0a 09 63 |er SO st|ring...c|
|000012b0| 61 6c 6c 09 76 69 64 73 | 6b 70 09 09 3b 73 6b 69 |all.vids|kp..;ski|
|000012c0| 70 20 6f 76 65 72 20 53 | 45 20 73 74 72 69 6e 67 |p over S|E string|
|000012d0| 0d 0a 09 6c 64 09 61 2c | 28 68 6c 29 09 09 3b 67 |...ld.a,|(hl)..;g|
|000012e0| 65 74 20 66 69 72 73 74 | 20 63 68 61 72 20 6f 66 |et first| char of|
|000012f0| 20 54 49 20 73 74 72 69 | 6e 67 0d 0a 09 6f 72 09 | TI stri|ng...or.|
|00001300| 61 09 09 3b 69 66 20 6e | 6f 20 73 74 72 69 6e 67 |a..;if n|o string|
|00001310| 2c 20 65 72 72 6f 72 0d | 0a 09 6a 70 09 7a 2c 64 |, error.|..jp.z,d|
|00001320| 6f 6e 65 0d 0a 09 63 61 | 6c 6c 09 76 69 64 6f 75 |one...ca|ll.vidou|
|00001330| 74 09 09 3b 6f 75 74 70 | 75 74 20 73 74 72 69 6e |t..;outp|ut strin|
|00001340| 67 20 77 69 74 68 20 64 | 65 6c 61 79 0d 0a 64 6f |g with d|elay..do|
|00001350| 6e 65 3a 0d 0a 09 70 6f | 70 09 61 66 09 09 3b 64 |ne:...po|p.af..;d|
|00001360| 6f 6e 65 0d 0a 09 70 6f | 70 09 64 65 0d 0a 09 70 |one...po|p.de...p|
|00001370| 6f 70 09 68 6c 0d 0a 09 | 72 65 74 0d 0a 0d 0a 09 |op.hl...|ret.....|
|00001380| 65 6e 64 0d 0a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |end.....|........|
|00001390| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000013f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001400| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00001410| 20 4e 61 6d 65 3a 20 20 | 56 49 44 36 0d 0a 3b 20 | Name: |VID6..; |
|00001420| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00001430| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00001440| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00001450| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00001460| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00001470| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 64 |.1..;...|public.d|
|00001480| 69 6e 69 74 0d 0a 0d 0a | 09 65 78 74 09 76 69 64 |init....|.ext.vid|
|00001490| 70 74 72 2c 76 69 64 6f | 75 74 2c 76 69 64 73 6b |ptr,vido|ut,vidsk|
|000014a0| 70 0d 0a 3b 0d 0a 3b 20 | 44 65 2d 49 6e 69 74 69 |p..;..; |De-Initi|
|000014b0| 61 6c 69 7a 65 20 54 65 | 72 6d 69 6e 61 6c 0d 0a |alize Te|rminal..|
|000014c0| 3b 09 41 66 66 65 63 74 | 20 4e 6f 20 52 65 67 69 |;.Affect| No Regi|
|000014d0| 73 74 65 72 73 0d 0a 3b | 0d 0a 64 69 6e 69 74 3a |sters..;|..dinit:|
|000014e0| 0d 0a 09 70 75 73 68 09 | 68 6c 09 09 3b 73 61 76 |...push.|hl..;sav|
|000014f0| 65 20 72 65 67 73 0d 0a | 09 70 75 73 68 09 64 65 |e regs..|.push.de|
|00001500| 0d 0a 09 70 75 73 68 09 | 61 66 0d 0a 09 6c 64 09 |...push.|af...ld.|
|00001510| 68 6c 2c 28 76 69 64 70 | 74 72 29 09 3b 70 74 20 |hl,(vidp|tr).;pt |
|00001520| 74 6f 20 65 6e 76 69 72 | 6f 6e 6d 65 6e 74 0d 0a |to envir|onment..|
|00001530| 09 6c 64 09 61 2c 28 68 | 6c 29 09 09 3b 6e 6f 20 |.ld.a,(h|l)..;no |
|00001540| 74 65 72 6d 69 6e 61 6c | 3f 0d 0a 09 63 70 09 27 |terminal|?...cp.'|
|00001550| 20 27 2b 31 0d 0a 09 6a | 70 09 63 2c 64 6f 6e 65 | '+1...j|p.c,done|
|00001560| 0d 0a 09 6c 64 09 64 65 | 2c 31 37 68 09 09 3b 70 |...ld.de|,17h..;p|
|00001570| 74 20 74 6f 20 63 6c 73 | 20 73 74 72 69 6e 67 0d |t to cls| string.|
|00001580| 0a 09 61 64 64 09 68 6c | 2c 64 65 0d 0a 09 6c 64 |..add.hl|,de...ld|
|00001590| 09 64 2c 30 09 09 3b 6e | 6f 20 64 65 6c 61 79 0d |.d,0..;n|o delay.|
|000015a0| 0a 09 63 61 6c 6c 09 76 | 69 64 73 6b 70 09 09 3b |..call.v|idskp..;|
|000015b0| 73 6b 69 70 20 6f 76 65 | 72 20 43 4c 20 73 74 72 |skip ove|r CL str|
|000015c0| 69 6e 67 0d 0a 09 63 61 | 6c 6c 09 76 69 64 73 6b |ing...ca|ll.vidsk|
|000015d0| 70 09 09 3b 73 6b 69 70 | 20 6f 76 65 72 20 43 4d |p..;skip| over CM|
|000015e0| 20 73 74 72 69 6e 67 0d | 0a 09 63 61 6c 6c 09 76 | string.|..call.v|
|000015f0| 69 64 73 6b 70 09 09 3b | 73 6b 69 70 20 6f 76 65 |idskp..;|skip ove|
|00001600| 72 20 43 45 20 73 74 72 | 69 6e 67 0d 0a 09 63 61 |r CE str|ing...ca|
|00001610| 6c 6c 09 76 69 64 73 6b | 70 09 09 3b 73 6b 69 70 |ll.vidsk|p..;skip|
|00001620| 20 6f 76 65 72 20 53 4f | 20 73 74 72 69 6e 67 0d | over SO| string.|
|00001630| 0a 09 63 61 6c 6c 09 76 | 69 64 73 6b 70 09 09 3b |..call.v|idskp..;|
|00001640| 73 6b 69 70 20 6f 76 65 | 72 20 53 45 20 73 74 72 |skip ove|r SE str|
|00001650| 69 6e 67 0d 0a 09 63 61 | 6c 6c 09 76 69 64 73 6b |ing...ca|ll.vidsk|
|00001660| 70 09 09 3b 73 6b 69 70 | 20 6f 76 65 72 20 54 49 |p..;skip| over TI|
|00001670| 20 73 74 72 69 6e 67 0d | 0a 09 6c 64 09 61 2c 28 | string.|..ld.a,(|
|00001680| 68 6c 29 09 09 3b 67 65 | 74 20 66 69 72 73 74 20 |hl)..;ge|t first |
|00001690| 63 68 61 72 20 6f 66 20 | 54 45 20 73 74 72 69 6e |char of |TE strin|
|000016a0| 67 0d 0a 09 6f 72 09 61 | 09 09 3b 69 66 20 6e 6f |g...or.a|..;if no|
|000016b0| 20 73 74 72 69 6e 67 2c | 20 65 72 72 6f 72 0d 0a | string,| error..|
|000016c0| 09 6a 70 09 7a 2c 64 6f | 6e 65 0d 0a 09 63 61 6c |.jp.z,do|ne...cal|
|000016d0| 6c 09 76 69 64 6f 75 74 | 09 09 3b 6f 75 74 70 75 |l.vidout|..;outpu|
|000016e0| 74 20 73 74 72 69 6e 67 | 20 77 69 74 68 20 64 65 |t string| with de|
|000016f0| 6c 61 79 0d 0a 64 6f 6e | 65 3a 0d 0a 09 70 6f 70 |lay..don|e:...pop|
|00001700| 09 61 66 09 09 3b 64 6f | 6e 65 0d 0a 09 70 6f 70 |.af..;do|ne...pop|
|00001710| 09 64 65 0d 0a 09 70 6f | 70 09 68 6c 0d 0a 09 72 |.de...po|p.hl...r|
|00001720| 65 74 0d 0a 0d 0a 09 65 | 6e 64 0d 0a 1a 1a 1a 1a |et.....e|nd......|
|00001730| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001740| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001750| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001760| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001770| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001780| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00001790| 20 4e 61 6d 65 3a 20 20 | 56 49 44 37 0d 0a 3b 20 | Name: |VID7..; |
|000017a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000017b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000017c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000017d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000017e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000017f0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 67 |.1..;...|public.g|
|00001800| 6f 74 6f 78 79 0d 0a 0d | 0a 09 65 78 74 09 76 69 |otoxy...|..ext.vi|
|00001810| 64 70 74 72 2c 76 69 64 | 73 6b 70 2c 76 69 64 65 |dptr,vid|skp,vide|
|00001820| 6c 61 79 2c 63 6f 75 74 | 0d 0a 3b 0d 0a 3b 20 47 |lay,cout|..;..; G|
|00001830| 4f 54 4f 20 58 59 0d 0a | 3b 09 48 4c 20 3d 20 52 |OTO XY..|;.HL = R|
|00001840| 6f 77 2f 43 6f 6c 2c 20 | 77 69 74 68 20 48 6f 6d |ow/Col, |with Hom|
|00001850| 65 3d 31 2f 31 0d 0a 3b | 09 52 65 74 75 72 6e 20 |e=1/1..;|.Return |
|00001860| 77 69 74 68 20 41 3d 30 | 20 61 6e 64 20 5a 65 72 |with A=0| and Zer|
|00001870| 6f 20 46 6c 61 67 20 53 | 65 74 20 69 66 20 6e 6f |o Flag S|et if no|
|00001880| 74 20 64 6f 6e 65 0d 0a | 3b 0d 0a 67 6f 74 6f 78 |t done..|;..gotox|
|00001890| 79 3a 0d 0a 09 70 75 73 | 68 09 62 63 09 09 3b 73 |y:...pus|h.bc..;s|
|000018a0| 61 76 65 20 72 65 67 73 | 0d 0a 09 70 75 73 68 09 |ave regs|...push.|
|000018b0| 64 65 0d 0a 09 70 75 73 | 68 09 68 6c 0d 0a 09 6c |de...pus|h.hl...l|
|000018c0| 64 09 68 6c 2c 28 76 69 | 64 70 74 72 29 09 3b 70 |d.hl,(vi|dptr).;p|
|000018d0| 74 20 74 6f 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |t to env|ironment|
|000018e0| 0d 0a 09 6c 64 09 61 2c | 28 68 6c 29 09 09 3b 6e |...ld.a,|(hl)..;n|
|000018f0| 6f 20 74 65 72 6d 69 6e | 61 6c 3f 0d 0a 09 63 70 |o termin|al?...cp|
|00001900| 09 27 20 27 2b 31 0d 0a | 09 6a 70 09 63 2c 65 72 |.' '+1..|.jp.c,er|
|00001910| 72 0d 0a 09 6c 64 09 64 | 65 2c 31 35 68 09 09 3b |r...ld.d|e,15h..;|
|00001920| 70 74 20 74 6f 20 43 4d | 20 64 65 6c 61 79 0d 0a |pt to CM| delay..|
|00001930| 09 61 64 64 09 68 6c 2c | 64 65 0d 0a 09 6c 64 09 |.add.hl,|de...ld.|
|00001940| 61 2c 28 68 6c 29 09 09 | 3b 67 65 74 20 69 74 0d |a,(hl)..|;get it.|
|00001950| 0a 09 6c 64 09 28 63 6d | 64 65 6c 61 79 29 2c 61 |..ld.(cm|delay),a|
|00001960| 09 3b 73 61 76 65 20 69 | 74 0d 0a 09 69 6e 63 09 |.;save i|t...inc.|
|00001970| 68 6c 09 09 3b 70 74 20 | 74 6f 20 43 4c 20 73 74 |hl..;pt |to CL st|
|00001980| 72 69 6e 67 0d 0a 09 69 | 6e 63 09 68 6c 0d 0a 09 |ring...i|nc.hl...|
|00001990| 63 61 6c 6c 09 76 69 64 | 73 6b 70 09 09 3b 73 6b |call.vid|skp..;sk|
|000019a0| 69 70 20 43 4c 20 73 74 | 72 69 6e 67 0d 0a 09 6c |ip CL st|ring...l|
|000019b0| 64 09 61 2c 28 68 6c 29 | 09 09 3b 67 65 74 20 66 |d.a,(hl)|..;get f|
|000019c0| 69 72 73 74 20 63 68 61 | 72 20 6f 66 20 43 4d 20 |irst cha|r of CM |
|000019d0| 73 74 72 69 6e 67 0d 0a | 09 6f 72 09 61 09 09 3b |string..|.or.a..;|
|000019e0| 69 66 20 6e 6f 20 73 74 | 72 69 6e 67 2c 20 65 72 |if no st|ring, er|
|000019f0| 72 6f 72 0d 0a 09 6a 70 | 09 7a 2c 65 72 72 0d 0a |ror...jp|.z,err..|
|00001a00| 09 65 78 09 64 65 2c 68 | 6c 09 09 3b 44 45 3d 61 |.ex.de,h|l..;DE=a|
|00001a10| 64 64 72 65 73 73 20 6f | 66 20 43 4d 20 73 74 72 |ddress o|f CM str|
|00001a20| 69 6e 67 0d 0a 09 70 6f | 70 09 68 6c 09 09 3b 67 |ing...po|p.hl..;g|
|00001a30| 65 74 20 63 6f 6f 72 64 | 69 6e 61 74 65 73 20 69 |et coord|inates i|
|00001a40| 6e 20 48 4c 0d 0a 09 70 | 75 73 68 09 68 6c 0d 0a |n HL...p|ush.hl..|
|00001a50| 09 63 61 6c 6c 09 67 78 | 79 09 09 3b 6f 75 74 70 |.call.gx|y..;outp|
|00001a60| 75 74 20 78 79 20 73 74 | 72 69 6e 67 20 77 69 74 |ut xy st|ring wit|
|00001a70| 68 20 64 65 6c 61 79 0d | 0a 09 6c 64 09 61 2c 28 |h delay.|..ld.a,(|
|00001a80| 63 6d 64 65 6c 61 79 29 | 09 3b 70 61 75 73 65 0d |cmdelay)|.;pause.|
|00001a90| 0a 09 63 61 6c 6c 09 76 | 69 64 65 6c 61 79 0d 0a |..call.v|idelay..|
|00001aa0| 09 70 6f 70 09 68 6c 09 | 09 3b 64 6f 6e 65 0d 0a |.pop.hl.|.;done..|
|00001ab0| 09 70 6f 70 09 64 65 0d | 0a 09 70 6f 70 09 62 63 |.pop.de.|..pop.bc|
|00001ac0| 0d 0a 09 78 6f 72 09 61 | 09 09 3b 72 65 74 75 72 |...xor.a|..;retur|
|00001ad0| 6e 20 4e 5a 0d 0a 09 64 | 65 63 09 61 0d 0a 09 72 |n NZ...d|ec.a...r|
|00001ae0| 65 74 0d 0a 65 72 72 3a | 0d 0a 09 70 6f 70 09 68 |et..err:|...pop.h|
|00001af0| 6c 09 09 3b 64 6f 6e 65 | 0d 0a 09 70 6f 70 09 64 |l..;done|...pop.d|
|00001b00| 65 0d 0a 09 70 6f 70 09 | 62 63 0d 0a 09 78 6f 72 |e...pop.|bc...xor|
|00001b10| 09 61 09 09 3b 72 65 74 | 75 72 6e 20 5a 0d 0a 09 |.a..;ret|urn Z...|
|00001b20| 72 65 74 0d 0a 0d 0a 3b | 0d 0a 3b 20 47 4f 54 4f |ret....;|..; GOTO|
|00001b30| 58 59 0d 0a 3b 20 20 20 | 4f 6e 20 69 6e 70 75 74 |XY..; |On input|
|00001b40| 2c 20 48 3d 52 6f 77 20 | 61 6e 64 20 4c 3d 43 6f |, H=Row |and L=Co|
|00001b50| 6c 75 6d 6e 20 74 6f 20 | 50 6f 73 69 74 69 6f 6e |lumn to |Position|
|00001b60| 20 54 6f 20 28 31 2c 31 | 20 69 73 20 48 6f 6d 65 | To (1,1| is Home|
|00001b70| 29 0d 0a 3b 20 20 20 4f | 6e 20 69 6e 70 75 74 2c |)..; O|n input,|
|00001b80| 20 44 45 3d 61 64 64 72 | 65 73 73 20 6f 66 20 43 | DE=addr|ess of C|
|00001b90| 4d 20 73 74 72 69 6e 67 | 0d 0a 3b 0d 0a 67 78 79 |M string|..;..gxy|
|00001ba0| 3a 0d 0a 09 64 65 63 09 | 68 09 09 3b 61 64 6a 75 |:...dec.|h..;adju|
|00001bb0| 73 74 20 74 6f 20 30 2c | 30 20 66 6f 72 20 68 6f |st to 0,|0 for ho|
|00001bc0| 6d 65 0d 0a 09 64 65 63 | 09 6c 0d 0a 09 78 6f 72 |me...dec|.l...xor|
|00001bd0| 09 61 09 09 3b 73 65 74 | 20 72 6f 77 2f 63 6f 6c |.a..;set| row/col|
|00001be0| 75 6d 6e 0d 0a 09 6c 64 | 09 28 72 63 6f 72 64 65 |umn...ld|.(rcorde|
|00001bf0| 72 29 2c 61 09 3b 72 6f | 77 20 62 65 66 6f 72 65 |r),a.;ro|w before|
|00001c00| 20 63 6f 6c 75 6d 6e 0d | 0a 09 6c 64 09 28 72 63 | column.|..ld.(rc|
|00001c10| 62 61 73 65 29 2c 61 09 | 3b 61 64 64 20 30 20 74 |base),a.|;add 0 t|
|00001c20| 6f 20 62 61 73 65 0d 0a | 3b 0d 0a 3b 20 43 79 63 |o base..|;..; Cyc|
|00001c30| 6c 65 20 74 68 72 75 20 | 73 74 72 69 6e 67 0d 0a |le thru |string..|
|00001c40| 3b 0d 0a 67 78 79 6c 6f | 6f 70 3a 0d 0a 09 6c 64 |;..gxylo|op:...ld|
|00001c50| 09 61 2c 28 64 65 29 09 | 09 3b 67 65 74 20 6e 65 |.a,(de).|.;get ne|
|00001c60| 78 74 20 63 68 61 72 0d | 0a 09 69 6e 63 09 64 65 |xt char.|..inc.de|
|00001c70| 09 09 3b 70 74 20 74 6f | 20 6e 65 78 74 0d 0a 09 |..;pt to| next...|
|00001c80| 6f 72 09 61 09 09 3b 64 | 6f 6e 65 3f 0d 0a 09 72 |or.a..;d|one?...r|
|00001c90| 65 74 09 7a 0d 0a 09 63 | 70 09 27 25 27 09 09 3b |et.z...c|p.'%'..;|
|00001ca0| 63 6f 6d 6d 61 6e 64 3f | 0d 0a 09 6a 70 09 7a 2c |command?|...jp.z,|
|00001cb0| 67 78 79 63 6d 64 0d 0a | 09 63 70 09 27 5c 27 09 |gxycmd..|.cp.'\'.|
|00001cc0| 09 3b 65 73 63 61 70 65 | 3f 0d 0a 09 6a 70 09 7a |.;escape|?...jp.z|
|00001cd0| 2c 67 78 79 65 73 63 0d | 0a 09 63 61 6c 6c 09 63 |,gxyesc.|..call.c|
|00001ce0| 6f 75 74 09 09 3b 73 65 | 6e 64 20 63 68 61 72 0d |out..;se|nd char.|
|00001cf0| 0a 09 6a 70 09 67 78 79 | 6c 6f 6f 70 0d 0a 0d 0a |..jp.gxy|loop....|
|00001d00| 3b 0d 0a 3b 20 45 73 63 | 61 70 65 20 2d 20 6f 75 |;..; Esc|ape - ou|
|00001d10| 74 70 75 74 20 66 6f 6c | 6c 6f 77 69 6e 67 20 62 |tput fol|lowing b|
|00001d20| 79 74 65 20 6c 69 74 65 | 72 61 6c 6c 79 0d 0a 3b |yte lite|rally..;|
|00001d30| 0d 0a 67 78 79 65 73 63 | 3a 0d 0a 09 6c 64 09 61 |..gxyesc|:...ld.a|
|00001d40| 2c 28 64 65 29 09 09 3b | 67 65 74 20 6e 65 78 74 |,(de)..;|get next|
|00001d50| 20 63 68 61 72 0d 0a 09 | 63 61 6c 6c 09 63 6f 75 | char...|call.cou|
|00001d60| 74 09 09 3b 6f 75 74 70 | 75 74 20 6c 69 74 65 72 |t..;outp|ut liter|
|00001d70| 61 6c 6c 79 0d 0a 09 69 | 6e 63 09 64 65 09 09 3b |ally...i|nc.de..;|
|00001d80| 70 74 20 74 6f 20 6e 65 | 78 74 0d 0a 09 6a 70 09 |pt to ne|xt...jp.|
|00001d90| 67 78 79 6c 6f 6f 70 0d | 0a 3b 0d 0a 3b 20 49 6e |gxyloop.|.;..; In|
|00001da0| 74 65 72 70 72 65 74 20 | 6e 65 78 74 20 63 68 61 |terpret |next cha|
|00001db0| 72 61 63 74 65 72 20 61 | 73 20 61 20 63 6f 6d 6d |racter a|s a comm|
|00001dc0| 61 6e 64 20 63 68 61 72 | 61 63 74 65 72 0d 0a 3b |and char|acter..;|
|00001dd0| 0d 0a 67 78 79 63 6d 64 | 3a 0d 0a 09 6c 64 09 61 |..gxycmd|:...ld.a|
|00001de0| 2c 28 64 65 29 09 09 3b | 67 65 74 20 63 6f 6d 6d |,(de)..;|get comm|
|00001df0| 61 6e 64 20 63 68 61 72 | 0d 0a 09 69 6e 63 09 64 |and char|...inc.d|
|00001e00| 65 09 09 3b 70 74 20 74 | 6f 20 6e 65 78 74 0d 0a |e..;pt t|o next..|
|00001e10| 09 63 70 09 27 64 27 09 | 09 3b 25 64 0d 0a 09 6a |.cp.'d'.|.;%d...j|
|00001e20| 70 09 7a 2c 67 78 79 6f | 75 74 31 0d 0a 09 63 70 |p.z,gxyo|ut1...cp|
|00001e30| 09 27 44 27 09 09 3b 25 | 44 0d 0a 09 6a 70 09 7a |.'D'..;%|D...jp.z|
|00001e40| 2c 67 78 79 6f 75 74 31 | 0d 0a 09 63 70 09 27 32 |,gxyout1|...cp.'2|
|00001e50| 27 09 09 3b 25 32 0d 0a | 09 6a 70 09 7a 2c 67 78 |'..;%2..|.jp.z,gx|
|00001e60| 79 6f 75 74 32 0d 0a 09 | 63 70 09 27 33 27 09 09 |yout2...|cp.'3'..|
|00001e70| 3b 25 33 0d 0a 09 6a 70 | 09 7a 2c 67 78 79 6f 75 |;%3...jp|.z,gxyou|
|00001e80| 74 33 0d 0a 09 63 70 09 | 27 2e 27 09 09 3b 25 2e |t3...cp.|'.'..;%.|
|00001e90| 0d 0a 09 6a 70 09 7a 2c | 67 78 79 6f 75 74 34 0d |...jp.z,|gxyout4.|
|00001ea0| 0a 09 63 70 09 27 2b 27 | 09 09 3b 25 2b 76 0d 0a |..cp.'+'|..;%+v..|
|00001eb0| 09 6a 70 09 7a 2c 67 78 | 79 6f 75 74 35 0d 0a 09 |.jp.z,gx|yout5...|
|00001ec0| 63 70 09 27 3e 27 09 09 | 3b 25 3e 78 79 0d 0a 09 |cp.'>'..|;%>xy...|
|00001ed0| 6a 70 09 7a 2c 67 78 79 | 67 74 0d 0a 09 63 70 09 |jp.z,gxy|gt...cp.|
|00001ee0| 27 72 27 09 09 3b 25 72 | 0d 0a 09 6a 70 09 7a 2c |'r'..;%r|...jp.z,|
|00001ef0| 67 78 79 72 65 76 0d 0a | 09 63 70 09 27 52 27 09 |gxyrev..|.cp.'R'.|
|00001f00| 09 3b 25 52 0d 0a 09 6a | 70 09 7a 2c 67 78 79 72 |.;%R...j|p.z,gxyr|
|00001f10| 65 76 0d 0a 09 63 70 09 | 27 69 27 09 09 3b 25 69 |ev...cp.|'i'..;%i|
|00001f20| 0d 0a 09 6a 70 09 7a 2c | 67 78 79 69 6e 63 0d 0a |...jp.z,|gxyinc..|
|00001f30| 09 63 70 09 27 49 27 09 | 09 3b 25 49 0d 0a 09 6a |.cp.'I'.|.;%I...j|
|00001f40| 70 09 7a 2c 67 78 79 69 | 6e 63 0d 0a 09 63 61 6c |p.z,gxyi|nc...cal|
|00001f50| 6c 09 63 6f 75 74 09 09 | 3b 6f 75 74 70 75 74 20 |l.cout..|;output |
|00001f60| 63 68 61 72 20 69 66 20 | 6e 6f 74 68 69 6e 67 20 |char if |nothing |
|00001f70| 65 6c 73 65 0d 0a 09 6a | 70 09 67 78 79 6c 6f 6f |else...j|p.gxyloo|
|00001f80| 70 0d 0a 3b 0d 0a 3b 20 | 53 65 74 20 72 6f 77 2f |p..;..; |Set row/|
|00001f90| 63 6f 6c 20 68 6f 6d 65 | 20 74 6f 20 31 2c 31 20 |col home| to 1,1 |
|00001fa0| 72 61 74 68 65 72 20 74 | 68 61 6e 20 30 2c 30 0d |rather t|han 0,0.|
|00001fb0| 0a 3b 0d 0a 67 78 79 69 | 6e 63 3a 0d 0a 09 6c 64 |.;..gxyi|nc:...ld|
|00001fc0| 09 61 2c 31 09 09 3b 73 | 65 74 20 72 63 62 61 73 |.a,1..;s|et rcbas|
|00001fd0| 65 20 74 6f 20 31 0d 0a | 09 6c 64 09 28 72 63 62 |e to 1..|.ld.(rcb|
|00001fe0| 61 73 65 29 2c 61 0d 0a | 09 6a 70 09 67 78 79 6c |ase),a..|.jp.gxyl|
|00001ff0| 6f 6f 70 0d 0a 3b 0d 0a | 3b 20 52 65 76 65 72 73 |oop..;..|; Revers|
|00002000| 65 20 6f 72 64 65 72 20 | 6f 66 20 6f 75 74 70 75 |e order |of outpu|
|00002010| 74 20 74 6f 20 63 6f 6c | 75 6d 6e 20 74 68 65 6e |t to col|umn then|
|00002020| 20 72 6f 77 20 28 64 65 | 66 61 75 6c 74 20 69 73 | row (de|fault is|
|00002030| 20 72 6f 77 20 74 68 65 | 6e 20 63 6f 6c 75 6d 6e | row the|n column|
|00002040| 29 0d 0a 3b 0d 0a 67 78 | 79 72 65 76 3a 0d 0a 09 |)..;..gx|yrev:...|
|00002050| 6c 64 09 61 2c 31 09 09 | 3b 73 65 74 20 63 6f 6c |ld.a,1..|;set col|
|00002060| 75 6d 6e 20 61 6e 64 20 | 72 6f 77 20 6f 72 64 65 |umn and |row orde|
|00002070| 72 0d 0a 09 6c 64 09 28 | 72 63 6f 72 64 65 72 29 |r...ld.(|rcorder)|
|00002080| 2c 61 0d 0a 09 6a 70 09 | 67 78 79 6c 6f 6f 70 0d |,a...jp.|gxyloop.|
|00002090| 0a 3b 0d 0a 3b 20 43 6f | 6d 6d 61 6e 64 3a 20 3e |.;..; Co|mmand: >|
|000020a0| 78 79 0d 0a 3b 20 20 20 | 49 66 20 76 61 6c 75 65 |xy..; |If value|
|000020b0| 20 6f 66 20 72 6f 77 2f | 63 6f 6c 20 69 73 20 67 | of row/|col is g|
|000020c0| 72 65 61 74 65 72 20 74 | 68 61 6e 20 78 2c 20 61 |reater t|han x, a|
|000020d0| 64 64 20 79 20 74 6f 20 | 69 74 0d 0a 3b 0d 0a 67 |dd y to |it..;..g|
|000020e0| 78 79 67 74 3a 0d 0a 09 | 63 61 6c 6c 09 67 65 74 |xygt:...|call.get|
|000020f0| 76 61 6c 09 09 3b 67 65 | 74 20 76 61 6c 75 65 0d |val..;ge|t value.|
|00002100| 0a 09 6c 64 09 63 2c 61 | 09 09 3b 73 61 76 65 20 |..ld.c,a|..;save |
|00002110| 76 61 6c 75 65 0d 0a 09 | 6c 64 09 61 2c 28 64 65 |value...|ld.a,(de|
|00002120| 29 09 09 3b 67 65 74 20 | 76 61 6c 75 65 20 74 6f |)..;get |value to|
|00002130| 20 74 65 73 74 0d 0a 09 | 69 6e 63 09 64 65 09 09 | test...|inc.de..|
|00002140| 3b 70 74 20 74 6f 20 6e | 65 78 74 0d 0a 09 63 70 |;pt to n|ext...cp|
|00002150| 09 63 09 09 3b 69 66 20 | 63 61 72 72 79 2c 20 76 |.c..;if |carry, v|
|00002160| 61 6c 75 65 3e 78 0d 0a | 09 6a 70 09 6e 63 2c 67 |alue>x..|.jp.nc,g|
|00002170| 78 79 67 74 31 0d 0a 09 | 6c 64 09 61 2c 28 64 65 |xygt1...|ld.a,(de|
|00002180| 29 09 09 3b 67 65 74 20 | 76 61 6c 75 65 20 74 6f |)..;get |value to|
|00002190| 20 61 64 64 0d 0a 09 61 | 64 64 09 61 2c 63 0d 0a | add...a|dd.a,c..|
|000021a0| 09 63 61 6c 6c 09 70 75 | 74 76 61 6c 09 09 3b 70 |.call.pu|tval..;p|
|000021b0| 75 74 20 76 61 6c 75 65 | 20 62 61 63 6b 0d 0a 67 |ut value| back..g|
|000021c0| 78 79 67 74 31 3a 0d 0a | 09 69 6e 63 09 64 65 09 |xygt1:..|.inc.de.|
|000021d0| 09 3b 70 74 20 74 6f 20 | 6e 65 78 74 0d 0a 09 6a |.;pt to |next...j|
|000021e0| 70 09 67 78 79 6c 6f 6f | 70 09 09 3b 72 65 73 75 |p.gxyloo|p..;resu|
|000021f0| 6d 65 0d 0a 3b 0d 0a 3b | 20 43 6f 6d 6d 61 6e 64 |me..;..;| Command|
|00002200| 3a 20 2b 6e 0d 0a 3b 20 | 20 20 41 64 64 20 6e 20 |: +n..; | Add n |
|00002210| 74 6f 20 6e 65 78 74 20 | 76 61 6c 75 65 20 61 6e |to next |value an|
|00002220| 64 20 6f 75 74 70 75 74 | 0d 0a 3b 0d 0a 67 78 79 |d output|..;..gxy|
|00002230| 6f 75 74 35 3a 0d 0a 09 | 6c 64 09 61 2c 28 64 65 |out5:...|ld.a,(de|
|00002240| 29 09 09 3b 67 65 74 20 | 76 61 6c 75 65 20 74 6f |)..;get |value to|
|00002250| 20 61 64 64 0d 0a 09 69 | 6e 63 09 64 65 09 09 3b | add...i|nc.de..;|
|00002260| 70 74 20 74 6f 20 6e 65 | 78 74 0d 0a 09 6c 64 09 |pt to ne|xt...ld.|
|00002270| 62 2c 61 09 09 3b 73 61 | 76 65 20 69 6e 20 42 0d |b,a..;sa|ve in B.|
|00002280| 0a 09 63 61 6c 6c 09 67 | 65 74 76 61 6c 09 09 3b |..call.g|etval..;|
|00002290| 67 65 74 20 76 61 6c 75 | 65 0d 0a 09 61 64 64 09 |get valu|e...add.|
|000022a0| 61 2c 62 09 09 3b 61 64 | 64 20 69 6e 20 42 0d 0a |a,b..;ad|d in B..|
|000022b0| 09 63 61 6c 6c 09 63 6f | 75 74 09 09 3b 6f 75 74 |.call.co|ut..;out|
|000022c0| 70 75 74 20 76 61 6c 75 | 65 0d 0a 72 63 6d 61 72 |put valu|e..rcmar|
|000022d0| 6b 3a 0d 0a 09 6c 64 09 | 61 2c 28 72 63 6f 72 64 |k:...ld.|a,(rcord|
|000022e0| 65 72 29 09 3b 6d 61 72 | 6b 20 6f 75 74 70 75 74 |er).;mar|k output|
|000022f0| 0d 0a 09 6f 72 09 38 30 | 68 0d 0a 09 6c 64 09 28 |...or.80|h...ld.(|
|00002300| 72 63 6f 72 64 65 72 29 | 2c 61 0d 0a 09 6a 70 09 |rcorder)|,a...jp.|
|00002310| 67 78 79 6c 6f 6f 70 0d | 0a 3b 0d 0a 3b 20 43 6f |gxyloop.|.;..; Co|
|00002320| 6d 6d 61 6e 64 3a 20 2e | 0d 0a 3b 20 20 20 4f 75 |mmand: .|..; Ou|
|00002330| 74 70 75 74 20 6e 65 78 | 74 20 76 61 6c 75 65 0d |tput nex|t value.|
|00002340| 0a 3b 0d 0a 67 78 79 6f | 75 74 34 3a 0d 0a 09 63 |.;..gxyo|ut4:...c|
|00002350| 61 6c 6c 09 67 65 74 76 | 61 6c 09 09 3b 67 65 74 |all.getv|al..;get|
|00002360| 20 76 61 6c 75 65 0d 0a | 09 63 61 6c 6c 09 63 6f | value..|.call.co|
|00002370| 75 74 09 09 3b 6f 75 74 | 70 75 74 20 76 61 6c 75 |ut..;out|put valu|
|00002380| 65 0d 0a 09 6a 70 09 72 | 63 6d 61 72 6b 0d 0a 3b |e...jp.r|cmark..;|
|00002390| 0d 0a 3b 20 43 6f 6d 6d | 61 6e 64 3a 20 33 0d 0a |..; Comm|and: 3..|
|000023a0| 3b 20 20 20 4f 75 74 70 | 75 74 20 6e 65 78 74 20 |; Outp|ut next |
|000023b0| 76 61 6c 75 65 20 61 73 | 20 33 20 64 65 63 69 6d |value as| 3 decim|
|000023c0| 61 6c 20 64 69 67 69 74 | 73 0d 0a 3b 0d 0a 67 78 |al digit|s..;..gx|
|000023d0| 79 6f 75 74 33 3a 0d 0a | 09 63 61 6c 6c 09 67 65 |yout3:..|.call.ge|
|000023e0| 74 76 61 6c 09 09 3b 67 | 65 74 20 76 61 6c 75 65 |tval..;g|et value|
|000023f0| 0d 0a 09 6c 64 09 62 2c | 31 30 30 09 09 3b 6f 75 |...ld.b,|100..;ou|
|00002400| 74 70 75 74 20 31 30 30 | 27 73 0d 0a 09 6c 64 09 |tput 100|'s...ld.|
|00002410| 63 2c 31 09 09 3b 6c 65 | 61 64 69 6e 67 20 7a 65 |c,1..;le|ading ze|
|00002420| 72 6f 65 73 0d 0a 09 63 | 61 6c 6c 09 64 69 67 6f |roes...c|all.digo|
|00002430| 75 74 0d 0a 67 78 79 6f | 74 33 3a 0d 0a 09 6c 64 |ut..gxyo|t3:...ld|
|00002440| 09 62 2c 31 30 09 09 3b | 6f 75 74 70 75 74 20 31 |.b,10..;|output 1|
|00002450| 30 27 73 0d 0a 09 6c 64 | 09 63 2c 31 09 09 3b 6c |0's...ld|.c,1..;l|
|00002460| 65 61 64 69 6e 67 20 7a | 65 72 6f 65 73 0d 0a 67 |eading z|eroes..g|
|00002470| 78 79 6f 74 32 3a 0d 0a | 09 63 61 6c 6c 09 64 69 |xyot2:..|.call.di|
|00002480| 67 6f 75 74 0d 0a 09 61 | 64 64 09 27 30 27 09 09 |gout...a|dd.'0'..|
|00002490| 3b 6f 75 74 70 75 74 20 | 31 27 73 0d 0a 09 63 61 |;output |1's...ca|
|000024a0| 6c 6c 09 63 6f 75 74 0d | 0a 09 6a 70 09 72 63 6d |ll.cout.|..jp.rcm|
|000024b0| 61 72 6b 0d 0a 3b 0d 0a | 3b 20 43 6f 6d 6d 61 6e |ark..;..|; Comman|
|000024c0| 64 3a 20 32 0d 0a 3b 20 | 20 20 4f 75 74 70 75 74 |d: 2..; | Output|
|000024d0| 20 6e 65 78 74 20 76 61 | 6c 75 65 20 61 73 20 32 | next va|lue as 2|
|000024e0| 20 64 65 63 69 6d 61 6c | 20 64 69 67 69 74 73 0d | decimal| digits.|
|000024f0| 0a 3b 0d 0a 67 78 79 6f | 75 74 32 3a 0d 0a 09 63 |.;..gxyo|ut2:...c|
|00002500| 61 6c 6c 09 67 65 74 76 | 61 6c 09 09 3b 67 65 74 |all.getv|al..;get|
|00002510| 20 76 61 6c 75 65 0d 0a | 09 6a 70 09 67 78 79 6f | value..|.jp.gxyo|
|00002520| 74 33 0d 0a 3b 0d 0a 3b | 20 43 6f 6d 6d 61 6e 64 |t3..;..;| Command|
|00002530| 3a 20 64 0d 0a 3b 20 20 | 20 4f 75 74 70 75 74 20 |: d..; | Output |
|00002540| 6e 65 78 74 20 76 61 6c | 75 65 20 61 73 20 6e 20 |next val|ue as n |
|00002550| 64 65 63 69 6d 61 6c 20 | 64 69 67 69 74 73 20 77 |decimal |digits w|
|00002560| 69 74 68 20 6e 6f 20 6c | 65 61 64 69 6e 67 20 7a |ith no l|eading z|
|00002570| 65 72 6f 65 73 0d 0a 3b | 0d 0a 67 78 79 6f 75 74 |eroes..;|..gxyout|
|00002580| 31 3a 0d 0a 09 63 61 6c | 6c 09 67 65 74 76 61 6c |1:...cal|l.getval|
|00002590| 09 09 3b 67 65 74 20 76 | 61 6c 75 65 0d 0a 09 6c |..;get v|alue...l|
|000025a0| 64 09 62 2c 31 30 30 09 | 09 3b 6f 75 74 70 75 74 |d.b,100.|.;output|
|000025b0| 20 31 30 30 27 73 0d 0a | 09 6c 64 09 63 2c 30 09 | 100's..|.ld.c,0.|
|000025c0| 09 3b 6e 6f 20 6c 65 61 | 64 69 6e 67 20 7a 65 72 |.;no lea|ding zer|
|000025d0| 6f 65 73 0d 0a 09 63 61 | 6c 6c 09 64 69 67 6f 75 |oes...ca|ll.digou|
|000025e0| 74 0d 0a 09 6c 64 09 62 | 2c 31 30 09 09 3b 6f 75 |t...ld.b|,10..;ou|
|000025f0| 74 70 75 74 20 31 30 27 | 73 0d 0a 09 6c 64 09 63 |tput 10'|s...ld.c|
|00002600| 2c 30 09 09 3b 6e 6f 20 | 6c 65 61 64 69 6e 67 20 |,0..;no |leading |
|00002610| 7a 65 72 6f 65 73 0d 0a | 09 6a 70 09 67 78 79 6f |zeroes..|.jp.gxyo|
|00002620| 74 32 0d 0a 3b 0d 0a 3b | 20 52 65 74 75 72 6e 20 |t2..;..;| Return |
|00002630| 6e 65 78 74 20 76 61 6c | 75 65 20 69 6e 20 41 0d |next val|ue in A.|
|00002640| 0a 3b 0d 0a 67 65 74 76 | 61 6c 3a 0d 0a 09 6c 64 |.;..getv|al:...ld|
|00002650| 09 61 2c 28 72 63 6f 72 | 64 65 72 29 09 3b 67 65 |.a,(rcor|der).;ge|
|00002660| 74 20 6f 72 64 65 72 20 | 66 6c 61 67 0d 0a 09 6f |t order |flag...o|
|00002670| 72 09 61 09 09 3b 61 6c | 72 65 61 64 79 20 6f 75 |r.a..;al|ready ou|
|00002680| 74 70 75 74 20 74 68 65 | 20 66 69 72 73 74 20 76 |tput the| first v|
|00002690| 61 6c 75 65 3f 0d 0a 09 | 6a 70 09 6d 2c 67 65 74 |alue?...|jp.m,get|
|000026a0| 76 61 6c 32 0d 0a 09 61 | 6e 64 09 31 09 09 3b 6c |val2...a|nd.1..;l|
|000026b0| 6f 6f 6b 20 61 74 20 6c | 73 62 0d 0a 09 6a 70 09 |ook at l|sb...jp.|
|000026c0| 7a 2c 67 65 74 76 61 6c | 72 09 3b 69 66 20 30 2c |z,getval|r.;if 0,|
|000026d0| 20 72 6f 77 20 66 69 72 | 73 74 0d 0a 67 65 74 76 | row fir|st..getv|
|000026e0| 61 6c 63 3a 0d 0a 09 6c | 64 09 61 2c 28 72 63 62 |alc:...l|d.a,(rcb|
|000026f0| 61 73 65 29 09 3b 67 65 | 74 20 62 61 73 65 20 6f |ase).;ge|t base o|
|00002700| 66 66 73 65 74 0d 0a 09 | 61 64 64 09 61 2c 6c 09 |ffset...|add.a,l.|
|00002710| 09 3b 67 65 74 20 63 6f | 6c 75 6d 6e 0d 0a 09 72 |.;get co|lumn...r|
|00002720| 65 74 0d 0a 67 65 74 76 | 61 6c 72 3a 0d 0a 09 6c |et..getv|alr:...l|
|00002730| 64 09 61 2c 28 72 63 62 | 61 73 65 29 09 3b 67 65 |d.a,(rcb|ase).;ge|
|00002740| 74 20 62 61 73 65 20 6f | 66 66 73 65 74 0d 0a 09 |t base o|ffset...|
|00002750| 61 64 64 09 61 2c 68 09 | 09 3b 67 65 74 20 72 6f |add.a,h.|.;get ro|
|00002760| 77 0d 0a 09 72 65 74 0d | 0a 67 65 74 76 61 6c 32 |w...ret.|.getval2|
|00002770| 3a 0d 0a 09 61 6e 64 09 | 31 09 09 3b 6c 6f 6f 6b |:...and.|1..;look|
|00002780| 20 61 74 20 6c 73 62 0d | 0a 09 6a 70 09 7a 2c 67 | at lsb.|..jp.z,g|
|00002790| 65 74 76 61 6c 63 0d 0a | 09 6a 70 09 67 65 74 76 |etvalc..|.jp.getv|
|000027a0| 61 6c 72 0d 0a 3b 0d 0a | 3b 20 53 74 6f 72 65 20 |alr..;..|; Store |
|000027b0| 41 20 61 73 20 6e 65 78 | 74 20 76 61 6c 75 65 0d |A as nex|t value.|
|000027c0| 0a 3b 0d 0a 70 75 74 76 | 61 6c 3a 0d 0a 09 6c 64 |.;..putv|al:...ld|
|000027d0| 09 63 2c 61 09 09 3b 73 | 61 76 65 20 76 61 6c 75 |.c,a..;s|ave valu|
|000027e0| 65 0d 0a 09 6c 64 09 61 | 2c 28 72 63 6f 72 64 65 |e...ld.a|,(rcorde|
|000027f0| 72 29 09 3b 67 65 74 20 | 6f 72 64 65 72 20 66 6c |r).;get |order fl|
|00002800| 61 67 0d 0a 09 6f 72 09 | 61 09 09 3b 61 6c 72 65 |ag...or.|a..;alre|
|00002810| 61 64 79 20 6f 75 74 70 | 75 74 20 74 68 65 20 66 |ady outp|ut the f|
|00002820| 69 72 73 74 20 76 61 6c | 75 65 3f 0d 0a 09 6a 70 |irst val|ue?...jp|
|00002830| 09 6d 2c 70 75 74 76 61 | 6c 32 0d 0a 09 61 6e 64 |.m,putva|l2...and|
|00002840| 09 31 09 09 3b 6c 6f 6f | 6b 20 61 74 20 6c 73 62 |.1..;loo|k at lsb|
|00002850| 0d 0a 09 6a 70 09 7a 2c | 70 75 74 76 61 6c 72 09 |...jp.z,|putvalr.|
|00002860| 3b 69 66 20 30 2c 20 72 | 6f 77 20 66 69 72 73 74 |;if 0, r|ow first|
|00002870| 0d 0a 70 75 74 76 61 6c | 63 3a 0d 0a 09 6c 64 09 |..putval|c:...ld.|
|00002880| 6c 2c 63 09 09 3b 73 65 | 74 20 63 6f 6c 75 6d 6e |l,c..;se|t column|
|00002890| 0d 0a 09 72 65 74 0d 0a | 70 75 74 76 61 6c 72 3a |...ret..|putvalr:|
|000028a0| 0d 0a 09 6c 64 09 68 2c | 63 09 09 3b 73 65 74 20 |...ld.h,|c..;set |
|000028b0| 72 6f 77 0d 0a 09 72 65 | 74 0d 0a 70 75 74 76 61 |row...re|t..putva|
|000028c0| 6c 32 3a 0d 0a 09 61 6e | 64 09 31 09 09 3b 6c 6f |l2:...an|d.1..;lo|
|000028d0| 6f 6b 20 61 74 20 6c 73 | 62 0d 0a 09 6a 70 09 7a |ok at ls|b...jp.z|
|000028e0| 2c 70 75 74 76 61 6c 63 | 0d 0a 09 6a 70 09 70 75 |,putvalc|...jp.pu|
|000028f0| 74 76 61 6c 72 0d 0a 3b | 0d 0a 3b 20 4f 75 74 70 |tvalr..;|..; Outp|
|00002900| 75 74 20 41 20 61 73 20 | 64 65 63 69 6d 61 6c 20 |ut A as |decimal |
|00002910| 64 69 67 69 74 20 63 68 | 61 72 0d 0a 3b 20 20 20 |digit ch|ar..; |
|00002920| 42 3d 51 75 61 6e 74 69 | 74 79 20 74 6f 20 53 75 |B=Quanti|ty to Su|
|00002930| 62 74 72 61 63 74 20 66 | 72 6f 6d 20 41 2c 20 43 |btract f|rom A, C|
|00002940| 3d 30 20 69 66 20 6e 6f | 20 6c 65 61 64 69 6e 67 |=0 if no| leading|
|00002950| 20 7a 65 72 6f 0d 0a 3b | 0d 0a 64 69 67 6f 75 74 | zero..;|..digout|
|00002960| 3a 0d 0a 09 70 75 73 68 | 09 64 65 09 09 3b 73 61 |:...push|.de..;sa|
|00002970| 76 65 20 44 45 0d 0a 09 | 6c 64 09 64 2c 27 30 27 |ve DE...|ld.d,'0'|
|00002980| 09 09 3b 63 68 61 72 0d | 0a 64 65 63 6f 74 31 3a |..;char.|.decot1:|
|00002990| 0d 0a 09 73 75 62 09 62 | 09 09 3b 73 75 62 74 72 |...sub.b|..;subtr|
|000029a0| 61 63 74 0d 0a 09 6a 70 | 09 63 2c 64 65 63 6f 74 |act...jp|.c,decot|
|000029b0| 32 0d 0a 09 69 6e 63 09 | 64 09 09 3b 69 6e 63 72 |2...inc.|d..;incr|
|000029c0| 65 6d 65 6e 74 20 63 68 | 61 72 0d 0a 09 6a 70 09 |ement ch|ar...jp.|
|000029d0| 64 65 63 6f 74 31 0d 0a | 64 65 63 6f 74 32 3a 0d |decot1..|decot2:.|
|000029e0| 0a 09 61 64 64 09 61 2c | 62 09 09 3b 61 64 64 20 |..add.a,|b..;add |
|000029f0| 62 61 63 6b 20 69 6e 0d | 0a 09 70 75 73 68 09 61 |back in.|..push.a|
|00002a00| 66 09 09 3b 73 61 76 65 | 20 72 65 73 75 6c 74 0d |f..;save| result.|
|00002a10| 0a 09 6c 64 09 61 2c 64 | 09 09 3b 67 65 74 20 64 |..ld.a,d|..;get d|
|00002a20| 69 67 69 74 0d 0a 09 63 | 70 09 27 30 27 09 09 3b |igit...c|p.'0'..;|
|00002a30| 7a 65 72 6f 3f 0d 0a 09 | 6a 70 09 6e 7a 2c 64 65 |zero?...|jp.nz,de|
|00002a40| 63 6f 74 33 0d 0a 09 6c | 64 09 61 2c 63 09 09 3b |cot3...l|d.a,c..;|
|00002a50| 67 65 74 20 7a 65 72 6f | 20 66 6c 61 67 0d 0a 09 |get zero| flag...|
|00002a60| 6f 72 09 61 09 09 3b 30 | 3d 6e 6f 20 7a 65 72 6f |or.a..;0|=no zero|
|00002a70| 0d 0a 09 6a 70 09 7a 2c | 64 65 63 6f 74 34 0d 0a |...jp.z,|decot4..|
|00002a80| 64 65 63 6f 74 33 3a 0d | 0a 09 6c 64 09 61 2c 64 |decot3:.|..ld.a,d|
|00002a90| 09 09 3b 67 65 74 20 64 | 69 67 69 74 0d 0a 09 63 |..;get d|igit...c|
|00002aa0| 61 6c 6c 09 63 6f 75 74 | 09 09 3b 70 72 69 6e 74 |all.cout|..;print|
|00002ab0| 20 69 74 0d 0a 64 65 63 | 6f 74 34 3a 0d 0a 09 70 | it..dec|ot4:...p|
|00002ac0| 6f 70 09 61 66 09 09 3b | 67 65 74 20 41 0d 0a 09 |op.af..;|get A...|
|00002ad0| 70 6f 70 09 64 65 09 09 | 3b 72 65 73 74 6f 72 65 |pop.de..|;restore|
|00002ae0| 20 44 45 0d 0a 09 72 65 | 74 0d 0a 3b 0d 0a 3b 20 | DE...re|t..;..; |
|00002af0| 47 58 59 20 42 75 66 66 | 65 72 73 0d 0a 3b 0d 0a |GXY Buff|ers..;..|
|00002b00| 72 63 6f 72 64 65 72 3a | 0d 0a 09 64 62 09 30 09 |rcorder:|...db.0.|
|00002b10| 09 3b 30 3d 72 6f 77 2f | 63 6f 6c 2c 20 65 6c 73 |.;0=row/|col, els|
|00002b20| 65 20 63 6f 6c 2f 72 6f | 77 0d 0a 72 63 62 61 73 |e col/ro|w..rcbas|
|00002b30| 65 3a 0d 0a 09 64 62 09 | 30 09 09 3b 30 3d 6f 72 |e:...db.|0..;0=or|
|00002b40| 67 20 69 73 20 30 2c 30 | 2c 20 65 6c 73 65 20 6f |g is 0,0|, else o|
|00002b50| 72 67 20 69 73 20 31 2c | 31 0d 0a 63 6d 64 65 6c |rg is 1,|1..cmdel|
|00002b60| 61 79 3a 0d 0a 09 64 62 | 09 30 09 09 3b 6e 75 6d |ay:...db|.0..;num|
|00002b70| 62 65 72 20 6f 66 20 6d | 69 6c 6c 69 73 65 63 6f |ber of m|illiseco|
|00002b80| 6e 64 73 20 74 6f 20 64 | 65 6c 61 79 20 66 6f 72 |nds to d|elay for|
|00002b90| 20 43 4d 0d 0a 0d 0a 09 | 65 6e 64 0d 0a 1a 1a 1a | CM.....|end.....|
|00002ba0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002bb0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002bc0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002bd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002be0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002bf0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002c00| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00002c10| 20 4e 61 6d 65 3a 20 20 | 56 49 44 38 0d 0a 3b 20 | Name: |VID8..; |
|00002c20| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00002c30| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00002c40| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00002c50| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00002c60| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00002c70| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 76 |.1..;...|public.v|
|00002c80| 69 64 6f 75 74 0d 0a 0d | 0a 09 65 78 74 09 63 6f |idout...|..ext.co|
|00002c90| 75 74 2c 76 69 64 65 6c | 61 79 0d 0a 0d 0a 3b 0d |ut,videl|ay....;.|
|00002ca0| 0a 3b 20 20 56 49 44 4f | 55 54 20 2d 20 4f 75 74 |.; VIDO|UT - Out|
|00002cb0| 70 75 74 20 76 69 64 65 | 6f 20 73 74 72 69 6e 67 |put vide|o string|
|00002cc0| 20 70 74 65 64 20 74 6f | 20 62 79 20 48 4c 0d 0a | pted to| by HL..|
|00002cd0| 3b 09 4f 75 74 70 75 74 | 20 61 6c 73 6f 20 61 20 |;.Output| also a |
|00002ce0| 64 65 6c 61 79 20 63 6f | 6e 74 61 69 6e 65 64 20 |delay co|ntained |
|00002cf0| 69 6e 20 74 68 65 20 44 | 20 72 65 67 69 73 74 65 |in the D| registe|
|00002d00| 72 0d 0a 3b 0d 0a 76 69 | 64 6f 75 74 3a 0d 0a 09 |r..;..vi|dout:...|
|00002d10| 6c 64 09 61 2c 28 68 6c | 29 09 09 3b 67 65 74 20 |ld.a,(hl|)..;get |
|00002d20| 6e 65 78 74 20 63 68 61 | 72 0d 0a 09 6f 72 09 61 |next cha|r...or.a|
|00002d30| 09 09 3b 64 6f 6e 65 20 | 69 66 20 7a 65 72 6f 0d |..;done |if zero.|
|00002d40| 0a 09 6a 70 09 7a 2c 76 | 69 64 32 0d 0a 09 69 6e |..jp.z,v|id2...in|
|00002d50| 63 09 68 6c 09 09 3b 70 | 74 20 74 6f 20 6e 65 78 |c.hl..;p|t to nex|
|00002d60| 74 0d 0a 09 63 70 09 27 | 5c 27 09 09 3b 6c 69 74 |t...cp.'|\'..;lit|
|00002d70| 65 72 61 6c 20 76 61 6c | 75 65 3f 0d 0a 09 6a 70 |eral val|ue?...jp|
|00002d80| 09 6e 7a 2c 76 69 64 31 | 0d 0a 09 6c 64 09 61 2c |.nz,vid1|...ld.a,|
|00002d90| 28 68 6c 29 09 09 3b 67 | 65 74 20 6c 69 74 65 72 |(hl)..;g|et liter|
|00002da0| 61 6c 20 63 68 61 72 0d | 0a 09 69 6e 63 09 68 6c |al char.|..inc.hl|
|00002db0| 09 09 3b 70 74 20 74 6f | 20 61 66 74 65 72 20 69 |..;pt to| after i|
|00002dc0| 74 0d 0a 76 69 64 31 3a | 0d 0a 09 63 61 6c 6c 09 |t..vid1:|...call.|
|00002dd0| 63 6f 75 74 09 09 3b 6f | 75 74 70 75 74 20 63 68 |cout..;o|utput ch|
|00002de0| 61 72 0d 0a 09 6a 70 09 | 76 69 64 6f 75 74 0d 0a |ar...jp.|vidout..|
|00002df0| 76 69 64 32 3a 0d 0a 09 | 6c 64 09 61 2c 64 09 09 |vid2:...|ld.a,d..|
|00002e00| 3b 6f 75 74 70 75 74 20 | 64 65 6c 61 79 0d 0a 09 |;output |delay...|
|00002e10| 6a 70 09 76 69 64 65 6c | 61 79 09 09 3b 6f 75 74 |jp.videl|ay..;out|
|00002e20| 70 75 74 20 64 65 6c 61 | 79 0d 0a 0d 0a 09 65 6e |put dela|y.....en|
|00002e30| 64 0d 0a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |d.......|........|
|00002e40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002e50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002e60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002e70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002e80| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00002e90| 20 4e 61 6d 65 3a 20 20 | 56 49 44 39 0d 0a 3b 20 | Name: |VID9..; |
|00002ea0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|00002eb0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|00002ec0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|00002ed0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|00002ee0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|00002ef0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 76 |.1..;...|public.v|
|00002f00| 69 64 65 6c 61 79 0d 0a | 0d 0a 09 65 78 74 09 65 |idelay..|...ext.e|
|00002f10| 6e 76 70 74 72 0d 0a 0d | 0a 3b 0d 0a 3b 09 56 49 |nvptr...|.;..;.VI|
|00002f20| 44 45 4c 41 59 20 70 61 | 75 73 65 73 20 66 6f 72 |DELAY pa|uses for|
|00002f30| 20 74 68 65 20 6e 75 6d | 62 65 72 20 6f 66 20 6d | the num|ber of m|
|00002f40| 69 6c 6c 69 73 65 63 6f | 6e 64 73 20 69 6e 64 69 |illiseco|nds indi|
|00002f50| 63 61 74 65 64 20 62 79 | 20 74 68 65 20 41 0d 0a |cated by| the A..|
|00002f60| 3b 20 72 65 67 69 73 74 | 65 72 2e 20 20 56 49 44 |; regist|er. VID|
|00002f70| 45 4c 41 59 20 61 73 73 | 75 6d 65 73 20 61 20 5a |ELAY ass|umes a Z|
|00002f80| 43 50 52 33 20 65 6e 76 | 69 72 6f 6e 6d 65 6e 74 |CPR3 env|ironment|
|00002f90| 20 61 6e 64 20 75 73 65 | 73 20 69 74 20 74 6f 20 | and use|s it to |
|00002fa0| 64 65 74 65 72 6d 69 6e | 65 0d 0a 3b 20 70 72 6f |determin|e..; pro|
|00002fb0| 63 65 73 73 6f 72 20 73 | 70 65 65 64 2e 0d 0a 3b |cessor s|peed...;|
|00002fc0| 0d 0a 76 69 64 65 6c 61 | 79 3a 0d 0a 09 70 75 73 |..videla|y:...pus|
|00002fd0| 68 09 61 66 09 09 3b 73 | 61 76 65 20 72 65 67 73 |h.af..;s|ave regs|
|00002fe0| 0d 0a 09 70 75 73 68 09 | 62 63 0d 0a 09 70 75 73 |...push.|bc...pus|
|00002ff0| 68 09 64 65 0d 0a 09 70 | 75 73 68 09 68 6c 0d 0a |h.de...p|ush.hl..|
|00003000| 09 6c 64 09 63 2c 61 09 | 09 3b 73 61 76 65 20 63 |.ld.c,a.|.;save c|
|00003010| 6f 75 6e 74 20 69 6e 20 | 43 0d 0a 09 6f 72 09 61 |ount in |C...or.a|
|00003020| 09 09 3b 6e 6f 20 64 65 | 6c 61 79 3f 0d 0a 09 6a |..;no de|lay?...j|
|00003030| 70 09 7a 2c 64 6f 6e 65 | 0d 0a 09 6c 64 09 68 6c |p.z,done|...ld.hl|
|00003040| 2c 28 65 6e 76 70 74 72 | 29 09 3b 70 74 20 74 6f |,(envptr|).;pt to|
|00003050| 20 65 6e 76 69 72 6f 6e | 6d 65 6e 74 0d 0a 09 6c | environ|ment...l|
|00003060| 64 09 64 65 2c 32 62 68 | 09 09 3b 6f 66 66 73 65 |d.de,2bh|..;offse|
|00003070| 74 20 74 6f 20 70 72 6f | 63 65 73 73 6f 72 20 73 |t to pro|cessor s|
|00003080| 70 65 65 64 0d 0a 09 61 | 64 64 09 68 6c 2c 64 65 |peed...a|dd.hl,de|
|00003090| 0d 0a 09 6c 64 09 61 2c | 28 68 6c 29 09 09 3b 67 |...ld.a,|(hl)..;g|
|000030a0| 65 74 20 70 72 6f 63 65 | 73 73 6f 72 20 73 70 65 |et proce|ssor spe|
|000030b0| 65 64 0d 0a 09 6f 72 09 | 61 09 09 3b 7a 65 72 6f |ed...or.|a..;zero|
|000030c0| 3f 0d 0a 09 6a 70 09 6e | 7a 2c 76 69 64 31 0d 0a |?...jp.n|z,vid1..|
|000030d0| 09 6c 64 09 61 2c 34 09 | 09 3b 61 73 73 75 6d 65 |.ld.a,4.|.;assume|
|000030e0| 20 34 20 4d 48 7a 0d 0a | 76 69 64 31 3a 0d 0a 09 | 4 MHz..|vid1:...|
|000030f0| 6c 64 09 62 2c 61 09 09 | 3b 70 72 6f 63 65 73 73 |ld.b,a..|;process|
|00003100| 6f 72 20 73 70 65 65 64 | 20 69 6e 20 42 0d 0a 76 |or speed| in B..v|
|00003110| 69 64 32 3a 0d 0a 09 70 | 75 73 68 09 62 63 09 09 |id2:...p|ush.bc..|
|00003120| 3b 64 65 6c 61 79 20 31 | 20 6d 73 0d 0a 09 63 61 |;delay 1| ms...ca|
|00003130| 6c 6c 09 64 65 6c 61 79 | 0d 0a 09 70 6f 70 09 62 |ll.delay|...pop.b|
|00003140| 63 0d 0a 09 64 65 63 09 | 63 09 09 3b 63 6f 75 6e |c...dec.|c..;coun|
|00003150| 74 20 64 6f 77 6e 0d 0a | 09 6a 70 09 6e 7a 2c 76 |t down..|.jp.nz,v|
|00003160| 69 64 32 0d 0a 64 6f 6e | 65 3a 0d 0a 09 70 6f 70 |id2..don|e:...pop|
|00003170| 09 68 6c 09 09 3b 72 65 | 73 74 6f 72 65 20 72 65 |.hl..;re|store re|
|00003180| 67 73 0d 0a 09 70 6f 70 | 09 64 65 0d 0a 09 70 6f |gs...pop|.de...po|
|00003190| 70 09 62 63 0d 0a 09 70 | 6f 70 09 61 66 0d 0a 09 |p.bc...p|op.af...|
|000031a0| 72 65 74 0d 0a 3b 0d 0a | 3b 20 20 44 65 6c 61 79 |ret..;..|; Delay|
|000031b0| 20 31 20 6d 73 20 61 74 | 20 43 6c 6f 63 6b 20 73 | 1 ms at| Clock s|
|000031c0| 70 65 65 64 0d 0a 3b 0d | 0a 64 65 6c 61 79 3a 0d |peed..;.|.delay:.|
|000031d0| 0a 09 63 61 6c 6c 09 64 | 65 6c 31 09 09 3b 64 65 |..call.d|el1..;de|
|000031e0| 6c 61 79 20 31 20 6d 73 | 20 61 74 20 31 4d 48 7a |lay 1 ms| at 1MHz|
|000031f0| 0d 0a 09 64 65 63 09 62 | 09 09 3b 63 6f 75 6e 74 |...dec.b|..;count|
|00003200| 20 64 6f 77 6e 20 63 6c | 6f 63 6b 20 73 70 65 65 | down cl|ock spee|
|00003210| 64 0d 0a 09 6a 70 09 6e | 7a 2c 64 65 6c 61 79 0d |d...jp.n|z,delay.|
|00003220| 0a 09 72 65 74 0d 0a 3b | 0d 0a 3b 20 20 44 65 6c |..ret..;|..; Del|
|00003230| 61 79 20 31 20 6d 73 20 | 61 74 20 31 4d 48 7a 0d |ay 1 ms |at 1MHz.|
|00003240| 0a 3b 0d 0a 64 65 6c 31 | 3a 0d 0a 09 6c 64 09 63 |.;..del1|:...ld.c|
|00003250| 2c 32 30 09 09 3b 32 30 | 20 6c 6f 6f 70 73 20 6f |,20..;20| loops o|
|00003260| 66 20 35 31 20 63 79 63 | 6c 65 73 20 65 61 63 68 |f 51 cyc|les each|
|00003270| 20 7e 20 31 30 30 30 20 | 63 79 63 6c 65 73 0d 0a | ~ 1000 |cycles..|
|00003280| 64 65 6c 31 61 3a 0d 0a | 09 65 78 09 28 73 70 29 |del1a:..|.ex.(sp)|
|00003290| 2c 68 6c 09 09 3b 31 38 | 20 63 79 63 6c 65 73 0d |,hl..;18| cycles.|
|000032a0| 0a 09 65 78 09 28 73 70 | 29 2c 68 6c 09 09 3b 2b |..ex.(sp|),hl..;+|
|000032b0| 31 38 20 3d 20 33 36 20 | 63 79 63 6c 65 73 0d 0a |18 = 36 |cycles..|
|000032c0| 09 64 65 63 09 63 09 09 | 3b 2b 20 35 20 3d 20 34 |.dec.c..|;+ 5 = 4|
|000032d0| 31 20 63 79 63 6c 65 73 | 0d 0a 09 6a 70 09 6e 7a |1 cycles|...jp.nz|
|000032e0| 2c 64 65 6c 31 61 09 3b | 2b 31 30 20 3d 20 35 31 |,del1a.;|+10 = 51|
|000032f0| 20 63 79 63 6c 65 73 0d | 0a 09 72 65 74 0d 0a 0d | cycles.|..ret...|
|00003300| 0a 09 65 6e 64 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |..end...|........|
|00003310| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003320| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003330| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003340| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003350| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003360| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003370| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003380| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00003390| 20 4e 61 6d 65 3a 20 20 | 56 49 44 41 0d 0a 3b 20 | Name: |VIDA..; |
|000033a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000033b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000033c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000033d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000033e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000033f0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 76 |.1..;...|public.v|
|00003400| 69 64 73 6b 70 0d 0a 0d | 0a 3b 0d 0a 3b 20 20 56 |idskp...|.;..; V|
|00003410| 49 44 53 4b 50 20 2d 20 | 53 6b 69 70 20 6f 76 65 |IDSKP - |Skip ove|
|00003420| 72 20 76 69 64 65 6f 20 | 73 74 72 69 6e 67 20 70 |r video |string p|
|00003430| 74 65 64 20 74 6f 20 62 | 79 20 48 4c 3b 20 70 74 |ted to b|y HL; pt|
|00003440| 20 74 6f 20 62 79 74 65 | 20 61 66 74 65 72 20 73 | to byte| after s|
|00003450| 74 72 69 6e 67 0d 0a 3b | 0d 0a 76 69 64 73 6b 70 |tring..;|..vidskp|
|00003460| 3a 0d 0a 09 6c 64 09 61 | 2c 28 68 6c 29 09 09 3b |:...ld.a|,(hl)..;|
|00003470| 67 65 74 20 6e 65 78 74 | 20 63 68 61 72 0d 0a 09 |get next| char...|
|00003480| 69 6e 63 09 68 6c 09 09 | 3b 70 74 20 74 6f 20 6e |inc.hl..|;pt to n|
|00003490| 65 78 74 0d 0a 09 6f 72 | 09 61 09 09 3b 64 6f 6e |ext...or|.a..;don|
|000034a0| 65 20 69 66 20 7a 65 72 | 6f 0d 0a 09 72 65 74 09 |e if zer|o...ret.|
|000034b0| 7a 0d 0a 09 63 70 09 27 | 5c 27 09 09 3b 6c 69 74 |z...cp.'|\'..;lit|
|000034c0| 65 72 61 6c 20 76 61 6c | 75 65 3f 0d 0a 09 6a 70 |eral val|ue?...jp|
|000034d0| 09 6e 7a 2c 76 69 64 73 | 6b 70 09 3b 63 6f 6e 74 |.nz,vids|kp.;cont|
|000034e0| 69 6e 75 65 20 69 66 20 | 6e 6f 74 0d 0a 09 69 6e |inue if |not...in|
|000034f0| 63 09 68 6c 09 09 3b 70 | 74 20 74 6f 20 61 66 74 |c.hl..;p|t to aft|
|00003500| 65 72 20 6c 69 74 65 72 | 61 6c 20 76 61 6c 75 65 |er liter|al value|
|00003510| 0d 0a 09 6a 70 09 76 69 | 64 73 6b 70 0d 0a 0d 0a |...jp.vi|dskp....|
|00003520| 09 65 6e 64 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.end....|........|
|00003530| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003540| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003550| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003560| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003570| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003580| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00003590| 20 4e 61 6d 65 3a 20 20 | 56 49 44 42 0d 0a 3b 20 | Name: |VIDB..; |
|000035a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000035b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000035c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000035d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000035e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000035f0| 2e 31 0d 0a 3b 20 4d 6f | 64 75 6c 65 20 45 6e 74 |.1..; Mo|dule Ent|
|00003600| 72 79 20 50 6f 69 6e 74 | 73 3a 0d 0a 3b 09 5a 33 |ry Point|s:..;.Z3|
|00003610| 56 49 4e 49 54 09 56 49 | 44 49 4e 49 54 09 56 49 |VINIT.VI|DINIT.VI|
|00003620| 44 50 54 52 0d 0a 3b 20 | 4d 6f 64 75 6c 65 20 45 |DPTR..; |Module E|
|00003630| 78 74 65 72 6e 61 6c 20 | 52 65 66 65 72 65 6e 63 |xternal |Referenc|
|00003640| 65 73 3a 0d 0a 3b 09 45 | 4e 56 50 54 52 0d 0a 3b |es:..;.E|NVPTR..;|
|00003650| 0d 0a 09 70 75 62 6c 69 | 63 09 7a 33 76 69 6e 69 |...publi|c.z3vini|
|00003660| 74 2c 76 69 64 69 6e 69 | 74 2c 76 69 64 70 74 72 |t,vidini|t,vidptr|
|00003670| 0d 0a 0d 0a 09 65 78 74 | 09 65 6e 76 70 74 72 0d |.....ext|.envptr.|
|00003680| 0a 0d 0a 3b 0d 0a 3b 20 | 20 5a 33 56 49 4e 49 54 |...;..; | Z3VINIT|
|00003690| 20 2d 20 53 65 74 20 70 | 74 72 20 74 6f 20 5a 43 | - Set p|tr to ZC|
|000036a0| 50 52 33 20 45 6e 76 69 | 72 6f 6e 6d 65 6e 74 20 |PR3 Envi|ronment |
|000036b0| 61 6e 64 20 5a 33 54 43 | 41 50 0d 0a 3b 09 4f 6e |and Z3TC|AP..;.On|
|000036c0| 20 69 6e 70 75 74 2c 20 | 48 4c 20 70 74 73 20 74 | input, |HL pts t|
|000036d0| 6f 20 5a 43 50 52 33 20 | 45 6e 76 69 72 6f 6e 6d |o ZCPR3 |Environm|
|000036e0| 65 6e 74 20 44 65 73 63 | 72 69 70 74 6f 72 0d 0a |ent Desc|riptor..|
|000036f0| 3b 0d 0a 7a 33 76 69 6e | 69 74 3a 0d 0a 09 70 75 |;..z3vin|it:...pu|
|00003700| 73 68 09 68 6c 09 09 3b | 73 61 76 65 20 48 4c 0d |sh.hl..;|save HL.|
|00003710| 0a 09 6c 64 09 28 65 6e | 76 70 74 72 29 2c 68 6c |..ld.(en|vptr),hl|
|00003720| 0d 0a 09 6c 64 09 64 65 | 2c 38 30 68 09 09 3b 38 |...ld.de|,80h..;8|
|00003730| 30 48 20 62 79 74 65 73 | 20 6c 61 74 65 72 20 2e |0H bytes| later .|
|00003740| 2e 2e 0d 0a 09 61 64 64 | 09 68 6c 2c 64 65 0d 0a |.....add|.hl,de..|
|00003750| 09 6c 64 09 28 76 69 64 | 70 74 72 29 2c 68 6c 09 |.ld.(vid|ptr),hl.|
|00003760| 3b 73 65 74 20 5a 33 54 | 43 41 50 20 70 6f 69 6e |;set Z3T|CAP poin|
|00003770| 74 65 72 0d 0a 09 70 6f | 70 09 68 6c 09 09 3b 72 |ter...po|p.hl..;r|
|00003780| 65 73 74 6f 72 65 20 48 | 4c 0d 0a 09 72 65 74 0d |estore H|L...ret.|
|00003790| 0a 0d 0a 3b 0d 0a 3b 20 | 20 56 49 44 49 4e 49 54 |...;..; | VIDINIT|
|000037a0| 20 2d 20 53 65 74 20 70 | 74 72 20 74 6f 20 5a 33 | - Set p|tr to Z3|
|000037b0| 54 43 41 50 0d 0a 3b 09 | 4f 6e 20 69 6e 70 75 74 |TCAP..;.|On input|
|000037c0| 2c 20 48 4c 20 70 74 73 | 20 74 6f 20 5a 33 54 43 |, HL pts| to Z3TC|
|000037d0| 41 50 0d 0a 3b 0d 0a 76 | 69 64 69 6e 69 74 3a 0d |AP..;..v|idinit:.|
|000037e0| 0a 09 6c 64 09 28 76 69 | 64 70 74 72 29 2c 68 6c |..ld.(vi|dptr),hl|
|000037f0| 09 3b 73 65 74 20 70 74 | 72 0d 0a 09 72 65 74 0d |.;set pt|r...ret.|
|00003800| 0a 0d 0a 3b 0d 0a 3b 20 | 20 54 65 72 6d 63 61 70 |...;..; | Termcap|
|00003810| 20 50 6f 69 6e 74 65 72 | 0d 0a 3b 0d 0a 76 69 64 | Pointer|..;..vid|
|00003820| 70 74 72 3a 0d 0a 09 64 | 77 09 30 09 09 3b 66 69 |ptr:...d|w.0..;fi|
|00003830| 72 73 74 20 62 79 74 65 | 20 6f 66 20 74 65 72 6d |rst byte| of term|
|00003840| 63 61 70 20 65 6e 74 72 | 79 0d 0a 0d 0a 09 65 6e |cap entr|y.....en|
|00003850| 64 0d 0a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |d.......|........|
|00003860| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003870| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003880| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00003890| 20 4e 61 6d 65 3a 20 20 | 56 4c 41 54 0d 0a 3b 20 | Name: |VLAT..; |
|000038a0| 41 75 74 68 6f 72 3a 20 | 20 52 69 63 68 61 72 64 |Author: | Richard|
|000038b0| 20 43 6f 6e 6e 0d 0a 3b | 20 56 4c 49 42 20 20 56 | Conn..;| VLIB V|
|000038c0| 65 72 73 69 6f 6e 20 4e | 75 6d 62 65 72 3a 20 20 |ersion N|umber: |
|000038d0| 31 2e 31 0d 0a 3b 20 4d | 6f 64 75 6c 65 20 56 65 |1.1..; M|odule Ve|
|000038e0| 72 73 69 6f 6e 20 4e 75 | 6d 62 65 72 3a 20 20 31 |rsion Nu|mber: 1|
|000038f0| 2e 31 0d 0a 3b 0d 0a 09 | 70 75 62 6c 69 63 09 61 |.1..;...|public.a|
|00003900| 74 0d 0a 0d 0a 09 65 78 | 74 09 67 6f 74 6f 78 79 |t.....ex|t.gotoxy|
|00003910| 0d 0a 0d 0a 3b 0d 0a 3b | 20 50 6f 73 69 74 69 6f |....;..;| Positio|
|00003920| 6e 20 43 75 72 73 6f 72 | 20 61 74 20 4c 6f 63 61 |n Cursor| at Loca|
|00003930| 74 69 6f 6e 20 53 70 65 | 63 69 66 69 65 64 20 62 |tion Spe|cified b|
|00003940| 79 20 52 65 74 75 72 6e | 20 41 64 64 72 65 73 73 |y Return| Address|
|00003950| 0d 0a 3b 20 55 73 61 67 | 65 3a 0d 0a 3b 09 63 61 |..; Usag|e:..;.ca|
|00003960| 6c 6c 09 61 74 0d 0a 3b | 09 64 62 09 72 6f 77 2c |ll.at..;|.db.row,|
|00003970| 63 6f 6c 09 3b 6c 6f 63 | 61 74 69 6f 6e 0d 0a 3b |col.;loc|ation..;|
|00003980| 0d 0a 61 74 3a 0d 0a 09 | 65 78 09 28 73 70 29 2c |..at:...|ex.(sp),|
|00003990| 68 6c 09 09 3b 70 74 20 | 74 6f 20 61 64 64 72 65 |hl..;pt |to addre|
|000039a0| 73 73 0d 0a 09 70 75 73 | 68 09 64 65 09 09 3b 73 |ss...pus|h.de..;s|
|000039b0| 61 76 65 20 44 45 0d 0a | 09 6c 64 09 64 2c 28 68 |ave DE..|.ld.d,(h|
|000039c0| 6c 29 09 09 3b 67 65 74 | 20 72 6f 77 0d 0a 09 69 |l)..;get| row...i|
|000039d0| 6e 63 09 68 6c 0d 0a 09 | 6c 64 09 65 2c 28 68 6c |nc.hl...|ld.e,(hl|
|000039e0| 29 0d 0a 09 69 6e 63 09 | 68 6c 09 09 3b 48 4c 20 |)...inc.|hl..;HL |
|000039f0| 70 74 73 20 74 6f 20 72 | 65 74 75 72 6e 20 62 79 |pts to r|eturn by|
|00003a00| 74 65 0d 0a 09 65 78 09 | 64 65 2c 68 6c 09 09 3b |te...ex.|de,hl..;|
|00003a10| 44 45 20 70 74 73 20 74 | 6f 20 72 65 74 75 72 6e |DE pts t|o return|
|00003a20| 20 62 79 74 65 2c 20 48 | 4c 20 63 6f 6e 74 61 69 | byte, H|L contai|
|00003a30| 6e 73 20 73 63 72 65 65 | 6e 20 6c 6f 63 0d 0a 09 |ns scree|n loc...|
|00003a40| 63 61 6c 6c 09 67 6f 74 | 6f 78 79 09 09 3b 70 6f |call.got|oxy..;po|
|00003a50| 73 69 74 69 6f 6e 20 63 | 75 72 73 6f 72 0d 0a 09 |sition c|ursor...|
|00003a60| 65 78 09 64 65 2c 68 6c | 09 09 3b 48 4c 20 70 74 |ex.de,hl|..;HL pt|
|00003a70| 73 20 74 6f 20 72 65 74 | 75 72 6e 20 62 79 74 65 |s to ret|urn byte|
|00003a80| 0d 0a 09 70 6f 70 09 64 | 65 09 09 3b 72 65 73 74 |...pop.d|e..;rest|
|00003a90| 6f 72 65 20 72 65 67 69 | 73 74 65 72 73 0d 0a 09 |ore regi|sters...|
|00003aa0| 65 78 09 28 73 70 29 2c | 68 6c 09 09 3b 72 65 73 |ex.(sp),|hl..;res|
|00003ab0| 74 6f 72 65 20 73 74 61 | 63 6b 20 70 74 72 0d 0a |tore sta|ck ptr..|
|00003ac0| 09 72 65 74 0d 0a 0d 0a | 09 65 6e 64 0d 0a 1a 1a |.ret....|.end....|
|00003ad0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003ae0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003af0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003b00| 3b 0d 0a 3b 20 56 4c 49 | 42 20 4d 6f 64 75 6c 65 |;..; VLI|B Module|
|00003b10| 20 4e 61 6d 65 3a 20 20 | 56 4c 47 58 59 4d 53 47 | Name: |VLGXYMSG|
|00003b20| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or: Ric|
|00003b30| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 56 4c 49 |hard Con|n..; VLI|
|00003b40| 42 20 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |B Versi|on Numbe|
|00003b50| 72 3a 20 20 31 2e 31 0d | 0a 3b 20 4d 6f 64 75 6c |r: 1.1.|.; Modul|
|00003b60| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00003b70| 3a 20 20 31 2e 31 0d 0a | 3b 0d 0a 09 70 75 62 6c |: 1.1..|;...publ|
|00003b80| 69 63 09 67 78 79 6d 73 | 67 2c 76 70 72 69 6e 74 |ic.gxyms|g,vprint|
|00003b90| 0d 0a 0d 0a 09 65 78 74 | 09 67 6f 74 6f 78 79 2c |.....ext|.gotoxy,|
|00003ba0| 73 74 6e 64 6f 75 74 2c | 73 74 6e 64 65 6e 64 2c |stndout,|stndend,|
|00003bb0| 63 6f 75 74 0d 0a 0d 0a | 3b 0d 0a 3b 20 50 6f 73 |cout....|;..; Pos|
|00003bc0| 69 74 69 6f 6e 20 43 75 | 72 73 6f 72 20 61 6e 64 |ition Cu|rsor and|
|00003bd0| 20 50 72 69 6e 74 20 46 | 6f 6c 6c 6f 77 69 6e 67 | Print F|ollowing|
|00003be0| 20 4d 65 73 73 61 67 65 | 0d 0a 3b 20 55 73 61 67 | Message|..; Usag|
|00003bf0| 65 3a 0d 0a 3b 09 63 61 | 6c 6c 09 67 78 79 6d 73 |e:..;.ca|ll.gxyms|
|00003c00| 67 0d 0a 3b 09 64 62 09 | 72 6f 77 2c 63 6f 6c 0d |g..;.db.|row,col.|
|00003c10| 0a 3b 09 64 62 09 27 6d | 65 73 73 61 67 65 27 0d |.;.db.'m|essage'.|
|00003c20| 0a 3b 09 64 62 09 30 0d | 0a 3b 20 4d 65 73 73 61 |.;.db.0.|.; Messa|
|00003c30| 67 65 20 6d 61 79 20 63 | 6f 6e 74 61 69 6e 20 74 |ge may c|ontain t|
|00003c40| 68 65 20 73 70 65 63 69 | 61 6c 20 62 79 74 65 20 |he speci|al byte |
|00003c50| 76 61 6c 75 65 73 20 6f | 66 20 31 20 61 6e 64 20 |values o|f 1 and |
|00003c60| 32 20 74 6f 20 62 65 67 | 69 6e 20 61 6e 64 0d 0a |2 to beg|in and..|
|00003c70| 3b 20 65 6e 64 20 73 74 | 61 6e 64 6f 75 74 20 6d |; end st|andout m|
|00003c80| 6f 64 65 2c 20 72 65 73 | 70 2e 20 20 46 6f 72 20 |ode, res|p. For |
|00003c90| 69 6e 73 74 61 6e 63 65 | 3a 0d 0a 3b 0d 0a 3b 09 |instance|:..;..;.|
|00003ca0| 63 61 6c 6c 09 67 78 79 | 6d 73 67 0d 0a 3b 09 64 |call.gxy|msg..;.d|
|00003cb0| 62 09 35 2c 31 30 0d 0a | 3b 09 64 62 09 27 48 65 |b.5,10..|;.db.'He|
|00003cc0| 6c 6c 6f 20 27 2c 31 2c | 27 57 6f 72 6c 64 27 2c |llo ',1,|'World',|
|00003cd0| 32 2c 27 20 2d 20 48 6f | 77 20 61 72 65 20 74 68 |2,' - Ho|w are th|
|00003ce0| 69 6e 67 73 3f 27 2c 30 | 0d 0a 3b 0d 0a 3b 20 70 |ings?',0|..;..; p|
|00003cf0| 72 69 6e 74 73 20 22 48 | 65 6c 6c 6f 20 22 20 61 |rints "H|ello " a|
|00003d00| 6e 64 20 22 20 2d 20 48 | 6f 77 20 61 72 65 20 74 |nd " - H|ow are t|
|00003d10| 68 69 6e 67 73 3f 22 20 | 6e 6f 72 6d 61 6c 6c 79 |hings?" |normally|
|00003d20| 2c 20 62 75 74 20 22 57 | 6f 72 6c 64 22 20 69 73 |, but "W|orld" is|
|00003d30| 20 69 6e 0d 0a 3b 20 53 | 74 61 6e 64 6f 75 74 20 | in..; S|tandout |
|00003d40| 4d 6f 64 65 2e 0d 0a 3b | 0d 0a 67 78 79 6d 73 67 |Mode...;|..gxymsg|
|00003d50| 3a 0d 0a 09 65 78 09 28 | 73 70 29 2c 68 6c 09 09 |:...ex.(|sp),hl..|
|00003d60| 3b 70 74 20 74 6f 20 63 | 6f 6f 72 64 73 0d 0a 09 |;pt to c|oords...|
|00003d70| 70 75 73 68 09 64 65 09 | 09 3b 73 61 76 65 20 44 |push.de.|.;save D|
|00003d80| 45 0d 0a 09 6c 64 09 64 | 2c 28 68 6c 29 09 09 3b |E...ld.d|,(hl)..;|
|00003d90| 67 65 74 20 72 6f 77 20 | 69 6e 20 44 0d 0a 09 69 |get row |in D...i|
|00003da0| 6e 63 09 68 6c 0d 0a 09 | 6c 64 09 65 2c 28 68 6c |nc.hl...|ld.e,(hl|
|00003db0| 29 09 09 3b 67 65 74 20 | 63 6f 6c 20 69 6e 20 45 |)..;get |col in E|
|00003dc0| 0d 0a 09 69 6e 63 09 68 | 6c 09 09 3b 70 74 20 74 |...inc.h|l..;pt t|
|00003dd0| 6f 20 6d 65 73 73 61 67 | 65 0d 0a 09 65 78 09 64 |o messag|e...ex.d|
|00003de0| 65 2c 68 6c 09 09 3b 48 | 4c 20 70 74 73 20 74 6f |e,hl..;H|L pts to|
|00003df0| 20 63 6f 6f 72 64 73 0d | 0a 09 63 61 6c 6c 09 67 | coords.|..call.g|
|00003e00| 6f 74 6f 78 79 09 09 3b | 70 6f 73 69 74 69 6f 6e |otoxy..;|position|
|00003e10| 20 63 75 72 73 6f 72 0d | 0a 09 65 78 09 64 65 2c | cursor.|..ex.de,|
|00003e20| 68 6c 09 09 3b 48 4c 20 | 70 74 73 20 74 6f 20 6d |hl..;HL |pts to m|
|00003e30| 65 73 73 61 67 65 0d 0a | 09 70 6f 70 09 64 65 09 |essage..|.pop.de.|
|00003e40| 09 3b 72 65 73 74 6f 72 | 65 20 44 45 0d 0a 09 65 |.;restor|e DE...e|
|00003e50| 78 09 28 73 70 29 2c 68 | 6c 09 09 3b 72 65 73 74 |x.(sp),h|l..;rest|
|00003e60| 6f 72 65 20 72 65 74 75 | 72 6e 20 61 64 64 72 65 |ore retu|rn addre|
|00003e70| 73 73 20 61 6e 64 20 66 | 61 6c 6c 20 74 68 72 75 |ss and f|all thru|
|00003e80| 0d 0a 3b 0d 0a 3b 20 50 | 72 69 6e 74 20 53 74 72 |..;..; P|rint Str|
|00003e90| 69 6e 67 20 41 74 20 52 | 65 74 75 72 6e 20 41 64 |ing At R|eturn Ad|
|00003ea0| 64 72 65 73 73 20 77 69 | 74 68 20 53 54 4e 44 4f |dress wi|th STNDO|
|00003eb0| 55 54 2f 53 54 4e 44 45 | 4e 44 20 50 72 6f 63 65 |UT/STNDE|ND Proce|
|00003ec0| 73 73 69 6e 67 0d 0a 3b | 20 4c 69 6b 65 20 50 52 |ssing..;| Like PR|
|00003ed0| 49 4e 54 2c 20 62 75 74 | 20 31 20 69 6e 76 6f 6b |INT, but| 1 invok|
|00003ee0| 65 73 20 53 54 4e 44 4f | 55 54 20 61 6e 64 20 32 |es STNDO|UT and 2|
|00003ef0| 20 69 6e 76 6f 6b 65 73 | 20 53 54 4e 44 45 4e 44 | invokes| STNDEND|
|00003f00| 20 28 73 65 65 20 61 62 | 6f 76 65 29 0d 0a 3b 0d | (see ab|ove)..;.|
|00003f10| 0a 76 70 72 69 6e 74 3a | 0d 0a 09 65 78 09 28 73 |.vprint:|...ex.(s|
|00003f20| 70 29 2c 68 6c 0d 0a 09 | 70 75 73 68 09 61 66 09 |p),hl...|push.af.|
|00003f30| 09 3b 73 61 76 65 20 41 | 0d 0a 76 70 31 3a 0d 0a |.;save A|..vp1:..|
|00003f40| 09 6c 64 09 61 2c 28 68 | 6c 29 09 09 3b 67 65 74 |.ld.a,(h|l)..;get|
|00003f50| 20 63 68 61 72 0d 0a 09 | 69 6e 63 09 68 6c 09 09 | char...|inc.hl..|
|00003f60| 3b 70 74 20 74 6f 20 6e | 65 78 74 0d 0a 09 6f 72 |;pt to n|ext...or|
|00003f70| 09 61 09 09 3b 64 6f 6e | 65 3f 0d 0a 09 6a 70 09 |.a..;don|e?...jp.|
|00003f80| 7a 2c 76 70 34 0d 0a 09 | 63 70 09 31 09 09 3b 73 |z,vp4...|cp.1..;s|
|00003f90| 74 61 6e 64 20 6f 75 74 | 3f 0d 0a 09 6a 70 09 7a |tand out|?...jp.z|
|00003fa0| 2c 76 70 32 0d 0a 09 63 | 70 09 32 09 09 3b 73 74 |,vp2...c|p.2..;st|
|00003fb0| 61 6e 64 20 65 6e 64 3f | 0d 0a 09 6a 70 09 7a 2c |and end?|...jp.z,|
|00003fc0| 76 70 33 0d 0a 09 63 61 | 6c 6c 09 63 6f 75 74 09 |vp3...ca|ll.cout.|
|00003fd0| 09 3b 70 72 69 6e 74 20 | 63 68 61 72 0d 0a 09 6a |.;print |char...j|
|00003fe0| 70 09 76 70 31 0d 0a 76 | 70 32 3a 0d 0a 09 63 61 |p.vp1..v|p2:...ca|
|00003ff0| 6c 6c 09 73 74 6e 64 6f | 75 74 09 09 3b 65 6e 74 |ll.stndo|ut..;ent|
|00004000| 65 72 20 73 74 61 6e 64 | 6f 75 74 20 6d 6f 64 65 |er stand|out mode|
|00004010| 0d 0a 09 6a 70 09 76 70 | 31 0d 0a 76 70 33 3a 0d |...jp.vp|1..vp3:.|
|00004020| 0a 09 63 61 6c 6c 09 73 | 74 6e 64 65 6e 64 09 09 |..call.s|tndend..|
|00004030| 3b 65 78 69 74 20 73 74 | 61 6e 64 6f 75 74 20 6d |;exit st|andout m|
|00004040| 6f 64 65 0d 0a 09 6a 70 | 09 76 70 31 0d 0a 76 70 |ode...jp|.vp1..vp|
|00004050| 34 3a 0d 0a 09 70 6f 70 | 09 61 66 09 09 3b 72 65 |4:...pop|.af..;re|
|00004060| 73 74 6f 72 65 20 41 0d | 0a 09 65 78 09 28 73 70 |store A.|..ex.(sp|
|00004070| 29 2c 68 6c 0d 0a 09 72 | 65 74 0d 0a 0d 0a 09 65 |),hl...r|et.....e|
|00004080| 6e 64 0d 0a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |nd......|........|
|00004090| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000040f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
+--------+-------------------------+-------------------------+--------+--------+
