home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
You can browse this item here: names.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 03 00 |. | ....|
|00000010| be b4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 41 4c 49 53 54 31 20 | 20 4d 41 43 03 00 4c 00 |.ALIST1 | MAC..L.|
|00000030| e0 bc 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 41 4c 49 53 54 32 20 | 20 4d 41 43 4f 00 0c 01 |.ALIST2 | MACO...|
|00000050| 94 a8 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000060| 00 41 4c 49 53 54 33 20 | 20 4d 41 43 5b 01 3a 00 |.ALIST3 | MAC[.:.|
|00000070| 84 9c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 45 58 41 4d 50 4c 45 | 53 4c 4f 47 95 01 04 00 |.EXAMPLE|SLOG....|
|00000090| 3c 89 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |<.......|........|
|000000a0| 00 4e 4f 54 49 43 45 20 | 20 20 20 20 99 01 04 00 |.NOTICE | ....|
|000000b0| d1 df 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 53 41 56 4c 4f 47 20 | 20 43 4f 4d 9d 01 02 00 |.SAVLOG | COM....|
|000000d0| af 4d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.M......|........|
|000000e0| 00 54 52 49 43 4b 53 32 | 32 44 4f 43 9f 01 67 00 |.TRICKS2|2DOC..g.|
|000000f0| 7b 34 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |{4......|........|
|00000100| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000110| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000130| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000150| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000160| ff 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000180| 2e 50 4f 20 33 0d 0a 3b | 20 54 68 69 73 20 69 73 |.PO 3..;| This is|
|00000190| 20 74 68 65 20 46 49 4e | 44 45 4d 20 70 72 6f 67 | the FIN|DEM prog|
|000001a0| 72 61 6d 20 74 68 61 74 | 20 77 69 6c 6c 20 69 64 |ram that| will id|
|000001b0| 65 6e 74 69 66 79 20 73 | 6f 6d 65 20 73 70 65 63 |entify s|ome spec|
|000001c0| 69 66 69 63 20 6d 65 6d | 6f 72 79 0d 0a 3b 20 6c |ific mem|ory..; l|
|000001d0| 6f 63 61 74 69 6f 6e 73 | 20 6e 65 65 64 65 64 20 |ocations| needed |
|000001e0| 66 6f 72 20 6c 69 73 74 | 69 6e 67 20 32 2e 20 54 |for list|ing 2. T|
|000001f0| 68 69 73 20 63 6f 64 65 | 20 77 69 6c 6c 20 61 73 |his code| will as|
|00000200| 73 65 6d 62 6c 65 20 64 | 69 72 65 63 74 6c 79 0d |semble d|irectly.|
|00000210| 0a 3b 20 75 73 69 6e 67 | 20 4d 69 63 72 6f 73 6f |.; using| Microso|
|00000220| 66 74 27 73 20 4d 38 30 | 2e 20 4f 74 68 65 72 20 |ft's M80|. Other |
|00000230| 61 73 73 65 6d 62 6c 65 | 72 73 20 6d 61 79 20 75 |assemble|rs may u|
|00000240| 73 65 20 44 45 46 42 20 | 61 6e 64 20 44 45 46 57 |se DEFB |and DEFW|
|00000250| 20 73 74 6f 72 61 67 65 | 0d 0a 3b 20 64 65 63 6c | storage|..; decl|
|00000260| 61 72 61 74 69 6f 6e 73 | 20 69 6e 73 74 65 61 64 |arations| instead|
|00000270| 20 6f 66 20 44 42 20 61 | 6e 64 20 44 57 2e 0d 0a | of DB a|nd DW...|
|00000280| 3b 0d 0a 3b 20 49 66 20 | 69 74 20 77 61 73 20 6e |;..; If |it was n|
|00000290| 65 63 65 73 73 61 72 79 | 20 74 6f 20 75 73 65 20 |ecessary| to use |
|000002a0| 4d 4f 56 43 50 4d 20 61 | 6e 64 20 53 59 53 47 45 |MOVCPM a|nd SYSGE|
|000002b0| 4e 20 74 6f 20 6f 70 65 | 6e 20 75 70 20 32 4b 20 |N to ope|n up 2K |
|000002c0| 73 70 61 63 65 20 61 62 | 6f 76 65 0d 0a 3b 20 74 |space ab|ove..; t|
|000002d0| 68 65 20 42 49 4f 53 20 | 66 6f 72 20 74 68 65 20 |he BIOS |for the |
|000002e0| 4c 4f 47 49 43 41 4c 20 | 4e 41 4d 45 20 54 52 41 |LOGICAL |NAME TRA|
|000002f0| 4e 53 4c 41 54 4f 52 2c | 20 74 68 65 6e 20 74 68 |NSLATOR,| then th|
|00000300| 69 73 20 70 72 6f 67 72 | 61 6d 20 73 68 6f 75 6c |is progr|am shoul|
|00000310| 64 20 62 65 0d 0a 3b 20 | 72 75 6e 20 77 69 74 68 |d be..; |run with|
|00000320| 20 74 68 65 20 73 6d 61 | 6c 6c 65 72 20 73 79 73 | the sma|ller sys|
|00000330| 74 65 6d 20 73 69 7a 65 | 2e 0d 0a 3b 0d 0a 3b 20 |tem size|...;..; |
|00000340| 54 68 69 73 20 70 72 6f | 67 72 61 6d 20 77 69 6c |This pro|gram wil|
|00000350| 6c 20 73 63 61 6e 20 74 | 68 65 20 42 49 4f 53 20 |l scan t|he BIOS |
|00000360| 6c 6f 6f 6b 69 6e 67 20 | 66 6f 72 20 72 65 66 65 |looking |for refe|
|00000370| 72 65 6e 63 65 73 20 74 | 6f 20 74 68 65 20 43 43 |rences t|o the CC|
|00000380| 50 20 61 6e 64 0d 0a 3b | 20 6e 6f 74 69 66 79 20 |P and..;| notify |
|00000390| 79 6f 75 20 77 68 61 74 | 20 76 61 6c 75 65 73 20 |you what| values |
|000003a0| 73 68 6f 75 6c 64 20 62 | 65 20 75 73 65 64 20 66 |should b|e used f|
|000003b0| 6f 72 20 73 6f 6d 65 20 | 45 51 55 20 73 74 61 74 |or some |EQU stat|
|000003c0| 65 6d 65 6e 74 73 20 61 | 74 20 74 68 65 0d 0a 3b |ements a|t the..;|
|000003d0| 20 73 74 61 72 74 20 6f | 66 20 74 68 65 20 4c 4e | start o|f the LN|
|000003e0| 54 20 70 72 6f 67 72 61 | 6d 20 69 6e 20 6c 69 73 |T progra|m in lis|
|000003f0| 74 69 6e 67 20 32 2e 0d | 0a 3b 0d 0a 20 20 20 20 |ting 2..|.;.. |
|00000400| 20 20 20 2e 5a 38 30 0d | 0a 20 20 20 20 20 20 20 | .Z80.|. |
|00000410| 41 53 45 47 0d 0a 20 20 | 20 20 20 20 20 4f 52 47 |ASEG.. | ORG|
|00000420| 20 31 30 30 48 20 20 20 | 20 20 20 20 20 20 20 20 | 100H | |
|00000430| 20 20 20 20 20 3b 20 67 | 6f 6f 64 20 70 6c 61 63 | ; g|ood plac|
|00000440| 65 20 74 6f 20 73 74 61 | 72 74 0d 0a 43 52 20 20 |e to sta|rt..CR |
|00000450| 20 20 20 45 51 55 20 20 | 20 20 20 30 44 48 20 20 | EQU | 0DH |
|00000460| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 63 61 72 | | ; car|
|00000470| 72 69 61 67 65 20 72 65 | 74 75 72 6e 0d 0a 4c 46 |riage re|turn..LF|
|00000480| 20 20 20 20 20 45 51 55 | 20 20 20 20 20 30 41 48 | EQU| 0AH|
|00000490| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 6c | | ; l|
|000004a0| 69 6e 65 66 65 65 64 0d | 0a 3b 0d 0a 53 54 41 52 |inefeed.|.;..STAR|
|000004b0| 54 3a 20 4c 44 20 20 20 | 20 20 20 44 45 2c 43 54 |T: LD | DE,CT|
|000004c0| 4d 53 47 20 20 20 20 20 | 20 20 20 3b 20 70 6f 69 |MSG | ; poi|
|000004d0| 6e 74 20 74 6f 20 22 43 | 54 41 52 47 20 49 53 20 |nt to "C|TARG IS |
|000004e0| 22 20 6d 73 67 0d 0a 20 | 20 20 20 20 20 20 43 41 |" msg.. | CA|
|000004f0| 4c 4c 20 20 20 20 50 52 | 4c 49 4e 45 20 20 20 20 |LL PR|LINE |
|00000500| 20 20 20 20 20 20 3b 20 | 61 6e 64 20 73 65 6e 64 | ; |and send|
|00000510| 20 74 6f 20 63 6f 6e 73 | 6f 6c 65 0d 0a 20 20 20 | to cons|ole.. |
|00000520| 20 20 20 20 4c 44 20 20 | 20 20 20 20 48 4c 2c 28 | LD | HL,(|
|00000530| 30 30 30 31 29 20 20 20 | 20 20 20 20 3b 20 67 65 |0001) | ; ge|
|00000540| 74 20 6c 6f 63 61 74 69 | 6f 6e 20 6f 66 20 42 49 |t locati|on of BI|
|00000550| 4f 53 2b 33 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 |OS+3.. | LD |
|00000560| 20 20 20 20 20 44 45 2c | 31 36 30 33 48 2d 30 31 | DE,|1603H-01|
|00000570| 41 32 48 20 20 3b 20 63 | 61 6c 63 75 6c 61 74 65 |A2H ; c|alculate|
|00000580| 20 6f 66 66 73 65 74 20 | 74 6f 20 65 78 70 65 63 | offset |to expec|
|00000590| 74 65 64 20 43 54 41 52 | 47 0d 0a 20 20 20 20 20 |ted CTAR|G.. |
|000005a0| 20 20 58 4f 52 20 20 20 | 20 20 41 20 20 20 20 20 | XOR | A |
|000005b0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 6e 73 75 | | ; insu|
|000005c0| 72 65 20 63 61 72 72 79 | 20 6e 6f 74 20 73 65 74 |re carry| not set|
|000005d0| 0d 0a 20 20 20 20 20 20 | 20 53 42 43 20 20 20 20 |.. | SBC |
|000005e0| 20 48 4c 2c 44 45 20 20 | 20 20 20 20 20 20 20 20 | HL,DE | |
|000005f0| 20 3b 20 70 75 74 20 65 | 78 70 65 63 74 65 64 20 | ; put e|xpected |
|00000600| 43 54 41 52 47 20 61 64 | 64 72 65 73 73 20 69 6e |CTARG ad|dress in|
|00000610| 20 48 4c 0d 0a 20 20 20 | 20 20 20 20 4c 44 20 20 | HL.. | LD |
|00000620| 20 20 20 20 41 2c 35 20 | 20 20 20 20 20 20 20 20 | A,5 | |
|00000630| 20 20 20 20 3b 20 73 68 | 6f 75 6c 64 20 62 65 20 | ; sh|ould be |
|00000640| 61 20 30 35 20 74 68 65 | 72 65 0d 0a 20 20 20 20 |a 05 the|re.. |
|00000650| 20 20 20 43 50 20 20 20 | 20 20 20 28 48 4c 29 20 | CP | (HL) |
|00000660| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 69 73 20 | | ; is |
|00000670| 69 74 3f 0d 0a 20 20 20 | 20 20 20 20 4a 52 20 20 |it?.. | JR |
|00000680| 20 20 20 20 5a 2c 43 43 | 50 4f 4b 20 20 20 20 20 | Z,CC|POK |
|00000690| 20 20 20 20 3b 20 69 66 | 20 73 6f 2c 20 61 6c 6c | ; if| so, all|
|000006a0| 20 69 73 20 77 65 6c 6c | 2c 20 63 6f 6e 74 69 6e | is well|, contin|
|000006b0| 75 65 0d 0a 20 20 20 20 | 20 20 20 4c 44 20 20 20 |ue.. | LD |
|000006c0| 20 20 20 44 45 2c 4e 46 | 4d 53 47 20 20 20 20 20 | DE,NF|MSG |
|000006d0| 20 20 20 3b 20 65 6c 73 | 65 20 70 6f 69 6e 74 20 | ; els|e point |
|000006e0| 74 6f 20 22 4e 4f 54 20 | 46 4f 55 4e 44 22 20 6d |to "NOT |FOUND" m|
|000006f0| 73 67 0d 0a 20 20 20 20 | 20 20 20 4a 50 20 20 20 |sg.. | JP |
|00000700| 20 20 20 50 52 4c 49 4e | 45 20 20 20 20 20 20 20 | PRLIN|E |
|00000710| 20 20 20 3b 20 73 65 6e | 64 20 69 74 20 61 6e 64 | ; sen|d it and|
|00000720| 20 65 78 69 74 0d 0a 3b | 3d 3d 3d 3d 3d 3d 3d 3d | exit..;|========|
|00000730| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000740| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000750| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000760| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 3b 4e |========|====..;N|
|00000770| 4f 54 45 3a 20 49 66 20 | 74 68 65 20 4e 4f 54 20 |OTE: If |the NOT |
|00000780| 46 4f 55 4e 44 20 6d 73 | 67 20 61 70 70 65 61 72 |FOUND ms|g appear|
|00000790| 73 2c 20 74 68 65 6e 20 | 74 68 65 20 43 43 50 20 |s, then |the CCP |
|000007a0| 68 61 73 20 62 65 65 6e | 20 6d 6f 64 69 66 69 65 |has been| modifie|
|000007b0| 64 0d 0a 3b 20 20 20 20 | 20 20 6f 72 20 69 73 20 |d..; | or is |
|000007c0| 6e 6f 74 20 77 68 65 72 | 65 20 69 74 20 73 68 6f |not wher|e it sho|
|000007d0| 75 6c 64 20 62 65 20 61 | 74 20 31 36 30 30 68 20 |uld be a|t 1600h |
|000007e0| 62 79 74 65 73 20 62 65 | 6c 6f 77 20 74 68 65 20 |bytes be|low the |
|000007f0| 42 49 4f 53 2e 0d 0a 3b | 20 20 20 20 20 20 57 65 |BIOS...;| We|
|00000800| 20 61 72 65 20 6c 6f 6f | 6b 69 6e 67 20 66 6f 72 | are loo|king for|
|00000810| 20 61 20 73 75 62 72 6f | 75 74 69 6e 65 20 63 61 | a subro|utine ca|
|00000820| 6c 6c 20 28 20 43 44 20 | 30 35 20 30 30 20 29 20 |ll ( CD |05 00 ) |
|00000830| 61 74 20 6c 6f 63 61 74 | 69 6f 6e 0d 0a 3b 20 20 |at locat|ion..; |
|00000840| 20 20 20 20 43 43 50 2b | 30 31 41 31 20 69 6e 20 | CCP+|01A1 in |
|00000850| 6f 72 64 65 72 20 74 6f | 20 70 69 63 6b 20 75 70 |order to| pick up|
|00000860| 20 74 68 65 20 64 65 73 | 74 69 6e 61 74 69 6f 6e | the des|tination|
|00000870| 20 61 74 20 43 43 50 2b | 30 31 41 32 20 61 6e 64 | at CCP+|01A2 and|
|00000880| 0d 0a 3b 20 20 20 20 20 | 20 43 43 50 2b 30 31 41 |..; | CCP+01A|
|00000890| 33 20 77 68 69 63 68 20 | 69 73 20 6e 65 65 64 65 |3 which |is neede|
|000008a0| 64 20 62 79 20 74 68 65 | 20 4c 4e 54 2e 0d 0a 3b |d by the| LNT...;|
|000008b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008f0| 3d 3d 3d 3d 0d 0a 3b 0d | 0a 43 43 50 4f 4b 3a 20 |====..;.|.CCPOK: |
|00000900| 4c 44 20 20 20 20 20 20 | 41 2c 48 20 20 20 20 20 |LD |A,H |
|00000910| 20 20 20 20 20 20 20 20 | 3b 20 70 75 74 20 74 68 | |; put th|
|00000920| 65 20 68 69 67 68 20 62 | 79 74 65 20 6f 66 20 43 |e high b|yte of C|
|00000930| 54 41 52 47 20 69 6e 20 | 41 0d 0a 20 20 20 20 20 |TARG in |A.. |
|00000940| 20 20 43 41 4c 4c 20 20 | 20 20 53 45 4e 44 41 58 | CALL | SENDAX|
|00000950| 20 20 20 20 20 20 20 20 | 20 20 3b 20 61 6e 64 20 | | ; and |
|00000960| 73 65 6e 64 20 69 74 20 | 74 6f 20 74 68 65 20 63 |send it |to the c|
|00000970| 6f 6e 73 6f 6c 65 0d 0a | 20 20 20 20 20 20 20 4c |onsole..| L|
|00000980| 44 20 20 20 20 20 20 41 | 2c 4c 20 20 20 20 20 20 |D A|,L |
|00000990| 20 20 20 20 20 20 20 3b | 20 70 75 74 20 74 68 65 | ;| put the|
|000009a0| 20 6c 6f 77 20 62 79 74 | 65 20 6f 66 20 43 54 41 | low byt|e of CTA|
|000009b0| 52 47 20 69 6e 20 41 0d | 0a 20 20 20 20 20 20 20 |RG in A.|. |
|000009c0| 43 41 4c 4c 20 20 20 20 | 53 45 4e 44 41 58 20 20 |CALL |SENDAX |
|000009d0| 20 20 20 20 20 20 20 20 | 3b 20 61 6e 64 20 73 65 | |; and se|
|000009e0| 6e 64 20 69 74 20 74 6f | 20 74 68 65 20 63 6f 6e |nd it to| the con|
|000009f0| 73 6f 6c 65 2e 0d 0a 20 | 20 20 20 20 20 20 4c 44 |sole... | LD|
|00000a00| 20 20 20 20 20 20 42 43 | 2c 30 38 30 30 48 20 20 | BC|,0800H |
|00000a10| 20 20 20 20 20 20 3b 20 | 73 65 61 72 63 68 20 63 | ; |search c|
|00000a20| 6f 75 6e 74 65 72 20 73 | 65 74 20 74 6f 20 32 4b |ounter s|et to 2K|
|00000a30| 20 62 79 74 65 73 2e 0d | 0a 20 20 20 20 20 20 20 | bytes..|. |
|00000a40| 4c 44 20 20 20 20 20 20 | 48 4c 2c 28 30 30 30 31 |LD |HL,(0001|
|00000a50| 29 20 20 20 20 20 20 20 | 3b 20 67 65 74 20 6c 6f |) |; get lo|
|00000a60| 63 61 74 69 6f 6e 20 6f | 66 20 42 49 4f 53 2b 33 |cation o|f BIOS+3|
|00000a70| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|00000a80| 20 44 45 2c 31 36 30 33 | 48 20 20 20 20 20 20 20 | DE,1603|H |
|00000a90| 20 3b 20 67 65 74 20 6f | 66 66 73 65 74 20 74 6f | ; get o|ffset to|
|00000aa0| 20 43 43 50 0d 0a 20 20 | 20 20 20 20 20 58 4f 52 | CCP.. | XOR|
|00000ab0| 20 20 20 20 20 41 20 20 | 20 20 20 20 20 20 20 20 | A | |
|00000ac0| 20 20 20 20 20 3b 20 69 | 6e 73 75 72 65 20 63 61 | ; i|nsure ca|
|00000ad0| 72 72 79 20 6e 6f 74 20 | 73 65 74 0d 0a 20 20 20 |rry not |set.. |
|00000ae0| 20 20 20 20 50 55 53 48 | 20 20 20 20 48 4c 20 20 | PUSH| HL |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 61 | | ; sa|
|00000b00| 76 65 20 74 68 65 20 42 | 49 4f 53 2b 33 20 6c 6f |ve the B|IOS+3 lo|
|00000b10| 63 61 74 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 53 |cation..| S|
|00000b20| 42 43 20 20 20 20 20 48 | 4c 2c 44 45 20 20 20 20 |BC H|L,DE |
|00000b30| 20 20 20 20 20 20 20 3b | 20 48 4c 20 77 69 6c 6c | ;| HL will|
|00000b40| 20 63 6f 6e 74 61 69 6e | 20 61 64 64 72 65 73 73 | contain| address|
|00000b50| 20 6f 66 20 43 43 50 0d | 0a 20 20 20 20 20 20 20 | of CCP.|. |
|00000b60| 45 58 20 20 20 20 20 20 | 44 45 2c 48 4c 20 20 20 |EX |DE,HL |
|00000b70| 20 20 20 20 20 20 20 20 | 3b 20 73 6f 20 77 69 6c | |; so wil|
|00000b80| 6c 20 44 45 2e 0d 0a 20 | 20 20 20 20 20 20 50 4f |l DE... | PO|
|00000b90| 50 20 20 20 20 20 48 4c | 20 20 20 20 20 20 20 20 |P HL| |
|00000ba0| 20 20 20 20 20 20 3b 20 | 72 65 74 72 69 65 76 65 | ; |retrieve|
|00000bb0| 20 6c 6f 63 61 74 69 6f | 6e 20 6f 66 20 42 49 4f | locatio|n of BIO|
|00000bc0| 53 2b 33 0d 0a 3b 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |S+3..;==|========|
|00000bd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 0d 0a 3b 20 53 74 |========|==..; St|
|00000c10| 61 72 74 20 6f 66 20 42 | 49 4f 53 20 73 63 61 6e |art of B|IOS scan|
|00000c20| 20 6c 6f 6f 70 73 2e 20 | 57 65 20 61 72 65 20 6c | loops. |We are l|
|00000c30| 6f 6f 6b 69 6e 67 20 66 | 6f 72 20 42 49 4f 53 20 |ooking f|or BIOS |
|00000c40| 72 65 66 65 72 65 6e 63 | 65 73 20 74 6f 0d 0a 3b |referenc|es to..;|
|00000c50| 20 74 68 65 20 43 43 50 | 20 69 6e 20 4c 4f 4f 50 | the CCP| in LOOP|
|00000c60| 31 2c 20 61 6e 64 20 72 | 65 66 65 72 65 6e 63 65 |1, and r|eference|
|00000c70| 73 20 74 6f 20 43 43 50 | 2b 33 20 69 6e 20 4c 4f |s to CCP|+3 in LO|
|00000c80| 4f 50 32 2e 0d 0a 3b 3d | 3d 3d 3d 3d 3d 3d 3d 3d |OP2...;=|========|
|00000c90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000ca0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cb0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0a 3b 0d 0a |========|===..;..|
|00000cd0| 4c 4f 4f 50 31 3a 20 4c | 44 20 20 20 20 20 20 41 |LOOP1: L|D A|
|00000ce0| 2c 45 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |,E | ;|
|00000cf0| 20 70 75 74 20 6c 6f 77 | 20 62 79 74 65 20 6f 66 | put low| byte of|
|00000d00| 20 43 43 50 20 61 64 64 | 72 65 73 73 20 69 6e 20 | CCP add|ress in |
|00000d10| 41 0d 0a 20 20 20 20 20 | 20 20 43 50 20 20 20 20 |A.. | CP |
|00000d20| 20 20 28 48 4c 29 20 20 | 20 20 20 20 20 20 20 20 | (HL) | |
|00000d30| 20 20 3b 20 6d 61 74 63 | 68 20 69 6e 20 74 68 65 | ; matc|h in the|
|00000d40| 20 42 49 4f 53 3f 0d 0a | 20 20 20 20 20 20 20 4a | BIOS?..| J|
|00000d50| 52 20 20 20 20 20 20 4e | 5a 2c 47 4f 4f 4e 20 20 |R N|Z,GOON |
|00000d60| 20 20 20 20 20 20 20 3b | 20 69 66 20 6e 6f 74 2c | ;| if not,|
|00000d70| 20 67 6f 20 6f 6e 0d 0a | 20 20 20 20 20 20 20 49 | go on..| I|
|00000d80| 4e 43 20 20 20 20 20 48 | 4c 20 20 20 20 20 20 20 |NC H|L |
|00000d90| 20 20 20 20 20 20 20 3b | 20 65 6c 73 65 20 63 68 | ;| else ch|
|00000da0| 65 63 6b 20 74 68 65 20 | 6e 65 78 74 20 62 79 74 |eck the |next byt|
|00000db0| 65 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |e.. | LD |
|00000dc0| 20 20 41 2c 44 20 20 20 | 20 20 20 20 20 20 20 20 | A,D | |
|00000dd0| 20 20 3b 20 74 6f 20 73 | 65 65 20 69 66 20 74 68 | ; to s|ee if th|
|00000de0| 65 20 68 69 67 68 20 62 | 79 74 65 20 61 6c 73 6f |e high b|yte also|
|00000df0| 20 6d 61 74 63 68 65 73 | 0d 0a 20 20 20 20 20 20 | matches|.. |
|00000e00| 20 43 50 20 20 20 20 20 | 20 28 48 4c 29 20 20 20 | CP | (HL) |
|00000e10| 20 20 20 20 20 20 20 20 | 20 3b 20 64 6f 65 73 20 | | ; does |
|00000e20| 69 74 3f 0d 0a 20 20 20 | 20 20 20 20 4a 52 20 20 |it?.. | JR |
|00000e30| 20 20 20 20 4e 5a 2c 47 | 4f 4f 4e 20 20 20 20 20 | NZ,G|OON |
|00000e40| 20 20 20 20 3b 20 69 66 | 20 6e 6f 74 2c 20 67 6f | ; if| not, go|
|00000e50| 20 6f 6e 0d 0a 20 20 20 | 20 20 20 20 44 45 43 20 | on.. | DEC |
|00000e60| 20 20 20 20 48 4c 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00000e70| 20 20 20 20 3b 20 65 6c | 73 65 20 77 65 20 66 6f | ; el|se we fo|
|00000e80| 75 6e 64 20 61 20 42 54 | 41 52 47 2e 2e 2e 70 6f |und a BT|ARG...po|
|00000e90| 69 6e 74 20 74 68 65 20 | 6c 6f 77 20 62 79 74 65 |int the |low byte|
|00000ea0| 0d 0a 20 20 20 20 20 20 | 20 44 45 43 20 20 20 20 |.. | DEC |
|00000eb0| 20 48 4c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00000ec0| 20 3b 20 50 6f 69 6e 74 | 20 74 6f 20 70 72 65 76 | ; Point| to prev|
|00000ed0| 69 6f 75 73 20 62 79 74 | 65 2e 0d 0a 20 20 20 20 |ious byt|e... |
|00000ee0| 20 20 20 43 41 4c 4c 20 | 20 20 20 49 53 4a 4d 50 | CALL | ISJMP|
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 43 68 65 | | ; Che|
|00000f00| 63 6b 20 74 6f 20 73 65 | 65 20 69 66 20 74 68 69 |ck to se|e if thi|
|00000f10| 73 20 69 73 20 61 20 6a | 75 6d 70 2e 0d 0a 20 20 |s is a j|ump... |
|00000f20| 20 20 20 20 20 49 4e 43 | 20 20 20 20 20 48 4c 20 | INC| HL |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 4c | | ; L|
|00000f40| 6f 6f 6b 20 61 74 20 74 | 68 65 20 6c 6f 77 20 62 |ook at t|he low b|
|00000f50| 79 74 65 20 61 67 61 69 | 6e 2e 0d 0a 20 20 20 20 |yte agai|n... |
|00000f60| 20 20 20 4a 52 20 20 20 | 20 20 20 4e 5a 2c 47 4f | JR | NZ,GO|
|00000f70| 4f 4e 20 20 20 20 20 20 | 20 20 20 3b 20 49 66 20 |ON | ; If |
|00000f80| 6e 6f 74 20 74 79 70 65 | 20 6f 66 20 6a 75 6d 70 |not type| of jump|
|00000f90| 2c 20 66 6f 72 67 65 74 | 20 74 68 69 73 20 6f 6e |, forget| this on|
|00000fa0| 65 2e 0d 0a 20 20 20 20 | 20 20 20 50 55 53 48 20 |e... | PUSH |
|00000fb0| 20 20 20 42 43 20 20 20 | 20 20 20 20 20 20 20 20 | BC | |
|00000fc0| 20 20 20 3b 20 73 61 76 | 65 20 74 68 65 20 63 6f | ; sav|e the co|
|00000fd0| 75 6e 74 65 72 0d 0a 20 | 20 20 20 20 20 20 50 55 |unter.. | PU|
|00000fe0| 53 48 20 20 20 20 44 45 | 20 20 20 20 20 20 20 20 |SH DE| |
|00000ff0| 20 20 20 20 20 20 3b 20 | 61 6e 64 20 74 68 65 20 | ; |and the |
|00001000| 43 43 50 20 61 64 64 72 | 65 73 73 0d 0a 20 20 20 |CCP addr|ess.. |
|00001010| 20 20 20 20 4c 44 20 20 | 20 20 20 20 44 45 2c 47 | LD | DE,G|
|00001020| 4f 54 42 54 20 20 20 20 | 20 20 20 20 3b 20 67 65 |OTBT | ; ge|
|00001030| 74 20 72 65 61 64 79 20 | 74 6f 20 69 64 65 6e 74 |t ready |to ident|
|00001040| 69 66 79 20 74 68 65 20 | 42 54 41 52 47 2e 0d 0a |ify the |BTARG...|
|00001050| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 20 20 20 50 | C|ALL P|
|00001060| 52 4c 49 4e 45 20 20 20 | 20 20 20 20 20 20 20 3b |RLINE | ;|
|00001070| 20 73 65 6e 64 20 74 68 | 65 20 22 42 54 41 52 47 | send th|e "BTARG|
|00001080| 22 20 6d 73 67 2c 0d 0a | 20 20 20 20 20 20 20 4c |" msg,..| L|
|00001090| 44 20 20 20 20 20 20 41 | 2c 28 43 4f 55 4e 54 29 |D A|,(COUNT)|
|000010a0| 20 20 20 20 20 20 20 3b | 20 70 75 74 20 31 2c 32 | ;| put 1,2|
|000010b0| 2c 33 20 6f 72 20 34 20 | 69 6e 20 41 0d 0a 20 20 |,3 or 4 |in A.. |
|000010c0| 20 20 20 20 20 49 4e 43 | 20 20 20 20 20 41 20 20 | INC| A |
|000010d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 69 | | ; i|
|000010e0| 6e 63 72 65 6d 65 6e 74 | 20 74 68 65 20 42 54 41 |ncrement| the BTA|
|000010f0| 52 47 20 63 6f 75 6e 74 | 65 72 2c 0d 0a 20 20 20 |RG count|er,.. |
|00001100| 20 20 20 20 4c 44 20 20 | 20 20 20 20 28 43 4f 55 | LD | (COU|
|00001110| 4e 54 29 2c 41 20 20 20 | 20 20 20 20 3b 20 61 6e |NT),A | ; an|
|00001120| 64 20 73 74 6f 72 65 20 | 69 74 20 61 77 61 79 2e |d store |it away.|
|00001130| 0d 0a 20 20 20 20 20 20 | 20 43 41 4c 4c 20 20 20 |.. | CALL |
|00001140| 20 53 45 4e 44 41 20 20 | 20 20 20 20 20 20 20 20 | SENDA | |
|00001150| 20 3b 20 61 6e 64 20 73 | 65 6e 64 20 74 68 65 20 | ; and s|end the |
|00001160| 63 6f 75 6e 74 65 72 20 | 74 6f 20 63 6f 6e 73 6f |counter |to conso|
|00001170| 6c 65 0d 0a 20 20 20 20 | 20 20 20 4c 44 20 20 20 |le.. | LD |
|00001180| 20 20 20 44 45 2c 41 54 | 20 20 20 20 20 20 20 20 | DE,AT| |
|00001190| 20 20 20 3b 20 70 6f 69 | 6e 74 20 74 6f 20 22 20 | ; poi|nt to " |
|000011a0| 41 54 20 22 20 73 74 72 | 69 6e 67 0d 0a 20 20 20 |AT " str|ing.. |
|000011b0| 20 20 20 20 43 41 4c 4c | 20 20 20 20 50 52 4c 49 | CALL| PRLI|
|000011c0| 4e 45 20 20 20 20 20 20 | 20 20 20 20 3b 20 61 6e |NE | ; an|
|000011d0| 64 20 73 65 6e 64 20 74 | 68 61 74 2c 0d 0a 20 20 |d send t|hat,.. |
|000011e0| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 41 2c 48 | LD | A,H|
|000011f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 70 | | ; p|
|00001200| 6f 69 6e 74 20 74 6f 20 | 68 69 67 68 20 62 79 74 |oint to |high byt|
|00001210| 65 20 6f 66 20 74 68 69 | 73 20 42 54 41 52 47 0d |e of thi|s BTARG.|
|00001220| 0a 20 20 20 20 20 20 20 | 43 41 4c 4c 20 20 20 20 |. |CALL |
|00001230| 53 45 4e 44 41 58 20 20 | 20 20 20 20 20 20 20 20 |SENDAX | |
|00001240| 3b 20 61 6e 64 20 74 65 | 6c 6c 20 75 73 20 77 68 |; and te|ll us wh|
|00001250| 61 74 20 69 74 20 69 73 | 2c 0d 0a 20 20 20 20 20 |at it is|,.. |
|00001260| 20 20 4c 44 20 20 20 20 | 20 20 41 2c 4c 20 20 20 | LD | A,L |
|00001270| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 6f 69 6e | | ; poin|
|00001280| 74 20 74 6f 20 6c 6f 77 | 20 62 79 74 65 2c 0d 0a |t to low| byte,..|
|00001290| 20 20 20 20 20 20 20 43 | 41 4c 4c 20 20 20 20 53 | C|ALL S|
|000012a0| 45 4e 44 41 58 20 20 20 | 20 20 20 20 20 20 20 3b |ENDAX | ;|
|000012b0| 20 61 6e 64 20 74 65 6c | 6c 20 75 73 20 77 68 61 | and tel|l us wha|
|000012c0| 74 20 69 74 20 69 73 2e | 0d 0a 20 20 20 20 20 20 |t it is.|.. |
|000012d0| 20 50 4f 50 20 20 20 20 | 20 44 45 20 20 20 20 20 | POP | DE |
|000012e0| 20 20 20 20 20 20 20 20 | 20 3b 20 72 65 74 72 69 | | ; retri|
|000012f0| 65 76 65 20 43 43 50 20 | 61 64 64 72 65 73 73 2e |eve CCP |address.|
|00001300| 0d 0a 20 20 20 20 20 20 | 20 50 4f 50 20 20 20 20 |.. | POP |
|00001310| 20 42 43 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | BC | |
|00001320| 20 3b 20 61 6e 64 20 74 | 68 65 20 73 63 61 6e 20 | ; and t|he scan |
|00001330| 63 6f 75 6e 74 65 72 2c | 0d 0a 47 4f 4f 4e 3a 20 |counter,|..GOON: |
|00001340| 20 49 4e 43 20 20 20 20 | 20 48 4c 20 20 20 20 20 | INC | HL |
|00001350| 20 20 20 20 20 20 20 20 | 20 3b 20 6d 6f 76 65 20 | | ; move |
|00001360| 6f 6e 20 61 6c 6f 6e 67 | 20 74 6f 20 6e 65 78 74 |on along| to next|
|00001370| 20 42 49 4f 53 20 62 79 | 74 65 2c 0d 0a 20 20 20 | BIOS by|te,.. |
|00001380| 20 20 20 20 44 45 43 20 | 20 20 20 20 42 43 20 20 | DEC | BC |
|00001390| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 68 61 | | ; ha|
|000013a0| 76 65 20 77 65 20 73 63 | 61 6e 6e 65 64 20 32 4b |ve we sc|anned 2K|
|000013b0| 20 79 65 74 3f 0d 0a 20 | 20 20 20 20 20 20 4c 44 | yet?.. | LD|
|000013c0| 20 20 20 20 20 20 41 2c | 43 20 20 20 20 20 20 20 | A,|C |
|000013d0| 20 20 20 20 20 20 3b 20 | 69 66 20 6e 6f 74 2c 0d | ; |if not,.|
|000013e0| 0a 20 20 20 20 20 20 20 | 4f 52 20 20 20 20 20 20 |. |OR |
|000013f0| 42 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |B | |
|00001400| 3b 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 4a |; then..| J|
|00001410| 52 20 20 20 20 20 20 4e | 5a 2c 4c 4f 4f 50 31 20 |R N|Z,LOOP1 |
|00001420| 20 20 20 20 20 20 20 3b | 20 63 6f 6e 74 69 6e 75 | ;| continu|
|00001430| 65 20 73 63 61 6e 6e 69 | 6e 67 20 66 6f 72 20 43 |e scanni|ng for C|
|00001440| 43 50 20 6d 61 74 63 68 | 65 73 2e 0d 0a 20 20 20 |CP match|es... |
|00001450| 20 20 20 20 4c 44 20 20 | 20 20 20 20 42 43 2c 30 | LD | BC,0|
|00001460| 38 30 30 20 20 20 20 20 | 20 20 20 20 3b 20 64 6f |800 | ; do|
|00001470| 6e 65 20 77 69 74 68 20 | 66 69 72 73 74 20 73 63 |ne with |first sc|
|00001480| 61 6e 2e 20 52 65 73 65 | 74 20 63 6f 75 6e 74 65 |an. Rese|t counte|
|00001490| 72 2e 0d 0a 20 20 20 20 | 20 20 20 4c 44 20 20 20 |r... | LD |
|000014a0| 20 20 20 41 2c 27 30 27 | 20 20 20 20 20 20 20 20 | A,'0'| |
|000014b0| 20 20 20 3b 20 61 6e 64 | 20 74 68 65 20 74 61 72 | ; and| the tar|
|000014c0| 67 65 74 20 69 64 20 63 | 6f 75 6e 74 65 72 2e 0d |get id c|ounter..|
|000014d0| 0a 20 20 20 20 20 20 20 | 4c 44 20 20 20 20 20 20 |. |LD |
|000014e0| 28 43 4f 55 4e 54 29 2c | 41 20 20 20 20 20 20 20 |(COUNT),|A |
|000014f0| 3b 20 73 74 6f 72 65 20 | 69 74 2e 0d 0a 20 20 20 |; store |it... |
|00001500| 20 20 20 20 4c 44 20 20 | 20 20 20 20 48 4c 2c 28 | LD | HL,(|
|00001510| 30 30 30 31 29 20 20 20 | 20 20 20 20 3b 20 6e 6f |0001) | ; no|
|00001520| 77 20 70 6f 69 6e 74 20 | 74 6f 20 42 49 4f 53 2b |w point |to BIOS+|
|00001530| 33 20 6f 6e 63 65 20 61 | 67 61 69 6e 0d 0a 20 20 |3 once a|gain.. |
|00001540| 20 20 20 20 20 49 4e 43 | 20 20 20 20 20 44 45 20 | INC| DE |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 74 | | ; t|
|00001560| 68 69 73 20 74 69 6d 65 | 20 77 65 20 6c 6f 6f 6b |his time| we look|
|00001570| 20 66 6f 72 0d 0a 20 20 | 20 20 20 20 20 49 4e 43 | for.. | INC|
|00001580| 20 20 20 20 20 44 45 20 | 20 20 20 20 20 20 20 20 | DE | |
|00001590| 20 20 20 20 20 3b 20 72 | 65 66 65 72 65 6e 63 65 | ; r|eference|
|000015a0| 20 74 6f 20 43 43 50 2b | 33 2c 20 73 6f 0d 0a 20 | to CCP+|3, so.. |
|000015b0| 20 20 20 20 20 20 49 4e | 43 20 20 20 20 20 44 45 | IN|C DE|
|000015c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000015d0| 44 45 20 69 6e 20 69 6e | 63 72 65 6d 65 6e 74 65 |DE in in|cremente|
|000015e0| 64 20 62 79 20 33 0d 0a | 4c 4f 4f 50 32 3a 20 4c |d by 3..|LOOP2: L|
|000015f0| 44 20 20 20 20 20 20 41 | 2c 45 20 20 20 20 20 20 |D A|,E |
|00001600| 20 20 20 20 20 20 20 3b | 20 70 75 74 20 6c 6f 77 | ;| put low|
|00001610| 20 62 79 74 65 20 6f 66 | 20 43 43 50 2b 33 20 69 | byte of| CCP+3 i|
|00001620| 6e 20 41 0d 0a 20 20 20 | 20 20 20 20 43 50 20 20 |n A.. | CP |
|00001630| 20 20 20 20 28 48 4c 29 | 20 20 20 20 20 20 20 20 | (HL)| |
|00001640| 20 20 20 20 3b 20 6d 61 | 74 63 68 20 69 6e 20 42 | ; ma|tch in B|
|00001650| 49 4f 53 3f 0d 0a 20 20 | 20 20 20 20 20 4a 52 20 |IOS?.. | JR |
|00001660| 20 20 20 20 20 4e 5a 2c | 43 4f 4e 54 20 20 20 20 | NZ,|CONT |
|00001670| 20 20 20 20 20 3b 20 69 | 66 20 6e 6f 74 2c 20 63 | ; i|f not, c|
|00001680| 6f 6e 74 69 6e 75 65 0d | 0a 20 20 20 20 20 20 20 |ontinue.|. |
|00001690| 49 4e 43 20 20 20 20 20 | 48 4c 20 20 20 20 20 20 |INC |HL |
|000016a0| 20 20 20 20 20 20 20 20 | 3b 20 6c 6f 6f 6b 73 20 | |; looks |
|000016b0| 67 6f 6f 64 20 73 6f 20 | 66 61 72 2c 0d 0a 20 20 |good so |far,.. |
|000016c0| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 41 2c 44 | LD | A,D|
|000016d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 63 | | ; c|
|000016e0| 68 65 63 6b 20 74 68 65 | 20 68 69 67 68 20 62 79 |heck the| high by|
|000016f0| 74 65 2e 0d 0a 20 20 20 | 20 20 20 20 43 50 20 20 |te... | CP |
|00001700| 20 20 20 20 28 48 4c 29 | 20 20 20 20 20 20 20 20 | (HL)| |
|00001710| 20 20 20 20 3b 20 66 6f | 75 6e 64 20 43 43 50 2b | ; fo|und CCP+|
|00001720| 33 20 72 65 66 65 72 65 | 6e 63 65 3f 0d 0a 20 20 |3 refere|nce?.. |
|00001730| 20 20 20 20 20 4a 52 20 | 20 20 20 20 20 4e 5a 2c | JR | NZ,|
|00001740| 43 4f 4e 54 20 20 20 20 | 20 20 20 20 20 3b 20 69 |CONT | ; i|
|00001750| 66 20 6e 6f 74 2c 20 63 | 6f 6e 74 69 6e 75 65 0d |f not, c|ontinue.|
|00001760| 0a 20 20 20 20 20 20 20 | 44 45 43 20 20 20 20 20 |. |DEC |
|00001770| 48 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |HL | |
|00001780| 3b 20 66 6f 75 6e 64 20 | 61 20 57 54 41 52 47 2e |; found |a WTARG.|
|00001790| 2e 62 61 63 6b 20 75 70 | 20 74 6f 20 31 73 74 20 |.back up| to 1st |
|000017a0| 62 79 74 65 2e 0d 0a 20 | 20 20 20 20 20 20 44 45 |byte... | DE|
|000017b0| 43 20 20 20 20 20 48 4c | 20 20 20 20 20 20 20 20 |C HL| |
|000017c0| 20 20 20 20 20 20 3b 20 | 50 6f 69 6e 74 20 74 6f | ; |Point to|
|000017d0| 20 70 72 65 76 69 6f 75 | 73 20 62 79 74 65 2e 0d | previou|s byte..|
|000017e0| 0a 20 20 20 20 20 20 20 | 43 41 4c 4c 20 20 20 20 |. |CALL |
|000017f0| 49 53 4a 4d 50 20 20 20 | 20 20 20 20 20 20 20 20 |ISJMP | |
|00001800| 3b 20 43 68 65 63 6b 20 | 74 6f 20 73 65 65 20 69 |; Check |to see i|
|00001810| 66 20 74 68 69 73 20 69 | 73 20 61 20 6a 75 6d 70 |f this i|s a jump|
|00001820| 2e 0d 0a 20 20 20 20 20 | 20 20 49 4e 43 20 20 20 |... | INC |
|00001830| 20 20 48 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00001840| 20 20 3b 20 4c 6f 6f 6b | 20 61 74 20 74 68 65 20 | ; Look| at the |
|00001850| 6c 6f 77 20 62 79 74 65 | 20 61 67 61 69 6e 2e 0d |low byte| again..|
|00001860| 0a 20 20 20 20 20 20 20 | 4a 52 20 20 20 20 20 20 |. |JR |
|00001870| 4e 5a 2c 43 4f 4e 54 20 | 20 20 20 20 20 20 20 20 |NZ,CONT | |
|00001880| 3b 20 49 66 20 6e 6f 74 | 20 74 79 70 65 20 6f 66 |; If not| type of|
|00001890| 20 6a 75 6d 70 2c 20 66 | 6f 72 67 65 74 20 74 68 | jump, f|orget th|
|000018a0| 69 73 20 6f 6e 65 2e 0d | 0a 20 20 20 20 20 20 20 |is one..|. |
|000018b0| 50 55 53 48 20 20 20 20 | 42 43 20 20 20 20 20 20 |PUSH |BC |
|000018c0| 20 20 20 20 20 20 20 20 | 3b 20 73 61 76 65 20 74 | |; save t|
|000018d0| 68 65 20 73 63 61 6e 20 | 63 6f 75 6e 74 65 72 0d |he scan |counter.|
|000018e0| 0a 20 20 20 20 20 20 20 | 50 55 53 48 20 20 20 20 |. |PUSH |
|000018f0| 44 45 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |DE | |
|00001900| 3b 20 61 6e 64 20 43 43 | 50 2b 33 20 6c 6f 63 61 |; and CC|P+3 loca|
|00001910| 74 69 6f 6e 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 |tion.. | LD |
|00001920| 20 20 20 20 20 44 45 2c | 47 4f 54 57 54 20 20 20 | DE,|GOTWT |
|00001930| 20 20 20 20 20 3b 20 70 | 6f 69 6e 74 20 74 6f 20 | ; p|oint to |
|00001940| 22 20 57 54 41 52 47 20 | 22 20 73 74 72 69 6e 67 |" WTARG |" string|
|00001950| 0d 0a 20 20 20 20 20 20 | 20 43 41 4c 4c 20 20 20 |.. | CALL |
|00001960| 20 50 52 4c 49 4e 45 20 | 20 20 20 20 20 20 20 20 | PRLINE | |
|00001970| 20 3b 20 61 6e 64 20 73 | 65 6e 64 20 74 68 61 74 | ; and s|end that|
|00001980| 2c 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |,.. | LD |
|00001990| 20 20 41 2c 28 43 4f 55 | 4e 54 29 20 20 20 20 20 | A,(COU|NT) |
|000019a0| 20 20 3b 20 70 75 74 20 | 31 2c 32 2c 33 20 6f 72 | ; put |1,2,3 or|
|000019b0| 20 34 20 69 6e 20 41 0d | 0a 20 20 20 20 20 20 20 | 4 in A.|. |
|000019c0| 49 4e 43 20 20 20 20 20 | 41 20 20 20 20 20 20 20 |INC |A |
|000019d0| 20 20 20 20 20 20 20 20 | 3b 20 62 75 6d 70 20 69 | |; bump i|
|000019e0| 74 20 66 6f 72 20 6e 65 | 78 74 20 74 69 6d 65 0d |t for ne|xt time.|
|000019f0| 0a 20 20 20 20 20 20 20 | 4c 44 20 20 20 20 20 20 |. |LD |
|00001a00| 28 43 4f 55 4e 54 29 2c | 41 20 20 20 20 20 20 20 |(COUNT),|A |
|00001a10| 3b 20 61 6e 64 20 73 74 | 6f 72 65 20 69 74 20 61 |; and st|ore it a|
|00001a20| 77 61 79 0d 0a 20 20 20 | 20 20 20 20 43 41 4c 4c |way.. | CALL|
|00001a30| 20 20 20 20 53 45 4e 44 | 41 20 20 20 20 20 20 20 | SEND|A |
|00001a40| 20 20 20 20 3b 20 73 65 | 6e 64 20 77 68 69 63 68 | ; se|nd which|
|00001a50| 20 57 54 41 52 47 20 6e | 75 6d 62 65 72 20 74 68 | WTARG n|umber th|
|00001a60| 69 73 20 69 73 2e 0d 0a | 20 20 20 20 20 20 20 4c |is is...| L|
|00001a70| 44 20 20 20 20 20 20 44 | 45 2c 41 54 20 20 20 20 |D D|E,AT |
|00001a80| 20 20 20 20 20 20 20 3b | 20 70 6f 69 6e 74 20 74 | ;| point t|
|00001a90| 6f 20 22 20 41 54 20 22 | 20 73 74 72 69 6e 67 0d |o " AT "| string.|
|00001aa0| 0a 20 20 20 20 20 20 20 | 43 41 4c 4c 20 20 20 20 |. |CALL |
|00001ab0| 50 52 4c 49 4e 45 20 20 | 20 20 20 20 20 20 20 20 |PRLINE | |
|00001ac0| 3b 20 61 6e 64 20 73 65 | 6e 64 20 74 68 65 20 73 |; and se|nd the s|
|00001ad0| 74 72 69 6e 67 0d 0a 20 | 20 20 20 20 20 20 4c 44 |tring.. | LD|
|00001ae0| 20 20 20 20 20 20 41 2c | 48 20 20 20 20 20 20 20 | A,|H |
|00001af0| 20 20 20 20 20 20 3b 20 | 70 75 74 20 68 69 67 68 | ; |put high|
|00001b00| 20 62 79 74 65 20 6f 66 | 20 74 68 69 73 20 57 54 | byte of| this WT|
|00001b10| 41 52 47 20 69 6e 20 41 | 0d 0a 20 20 20 20 20 20 |ARG in A|.. |
|00001b20| 20 43 41 4c 4c 20 20 20 | 20 53 45 4e 44 41 58 20 | CALL | SENDAX |
|00001b30| 20 20 20 20 20 20 20 20 | 20 3b 20 61 6e 64 20 73 | | ; and s|
|00001b40| 65 6e 64 20 69 74 20 74 | 6f 20 63 6f 6e 73 6f 6c |end it t|o consol|
|00001b50| 65 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |e.. | LD |
|00001b60| 20 20 41 2c 4c 20 20 20 | 20 20 20 20 20 20 20 20 | A,L | |
|00001b70| 20 20 3b 20 64 69 74 74 | 6f 20 66 6f 72 20 74 68 | ; ditt|o for th|
|00001b80| 65 20 6c 6f 77 20 62 79 | 74 65 0d 0a 20 20 20 20 |e low by|te.. |
|00001b90| 20 20 20 43 41 4c 4c 20 | 20 20 20 53 45 4e 44 41 | CALL | SENDA|
|00001ba0| 58 20 20 20 20 20 20 20 | 20 20 20 3b 20 74 6f 20 |X | ; to |
|00001bb0| 74 65 6c 6c 20 75 73 20 | 77 68 65 72 65 20 74 68 |tell us |where th|
|00001bc0| 69 73 20 57 54 41 52 47 | 20 69 73 2e 0d 0a 20 20 |is WTARG| is... |
|00001bd0| 20 20 20 20 20 50 4f 50 | 20 20 20 20 20 44 45 20 | POP| DE |
|00001be0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 72 | | ; r|
|00001bf0| 65 74 72 69 65 76 65 20 | 43 43 50 2b 33 20 6c 6f |etrieve |CCP+3 lo|
|00001c00| 63 61 74 69 6f 6e 0d 0a | 20 20 20 20 20 20 20 50 |cation..| P|
|00001c10| 4f 50 20 20 20 20 20 42 | 43 20 20 20 20 20 20 20 |OP B|C |
|00001c20| 20 20 20 20 20 20 20 3b | 20 61 6e 64 20 74 68 65 | ;| and the|
|00001c30| 20 73 63 61 6e 20 63 6f | 75 6e 74 65 72 2e 0d 0a | scan co|unter...|
|00001c40| 43 4f 4e 54 3a 20 20 49 | 4e 43 20 20 20 20 20 48 |CONT: I|NC H|
|00001c50| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |L | ;|
|00001c60| 20 70 6f 69 6e 74 20 74 | 6f 20 6e 65 78 74 20 42 | point t|o next B|
|00001c70| 49 4f 53 20 62 79 74 65 | 2e 0d 0a 20 20 20 20 20 |IOS byte|... |
|00001c80| 20 20 44 45 43 20 20 20 | 20 20 42 43 20 20 20 20 | DEC | BC |
|00001c90| 20 20 20 20 20 20 20 20 | 20 20 3b 20 68 61 76 65 | | ; have|
|00001ca0| 20 77 65 20 63 68 65 63 | 6b 65 64 20 32 4b 20 62 | we chec|ked 2K b|
|00001cb0| 79 74 65 73 20 79 65 74 | 3f 0d 0a 20 20 20 20 20 |ytes yet|?.. |
|00001cc0| 20 20 4c 44 20 20 20 20 | 20 20 41 2c 43 20 20 20 | LD | A,C |
|00001cd0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 69 66 20 6e | | ; if n|
|00001ce0| 6f 74 0d 0a 20 20 20 20 | 20 20 20 4f 52 20 20 20 |ot.. | OR |
|00001cf0| 20 20 20 42 20 20 20 20 | 20 20 20 20 20 20 20 20 | B | |
|00001d00| 20 20 20 3b 20 74 68 65 | 6e 0d 0a 20 20 20 20 20 | ; the|n.. |
|00001d10| 20 20 4a 52 20 20 20 20 | 20 20 4e 5a 2c 4c 4f 4f | JR | NZ,LOO|
|00001d20| 50 32 20 20 20 20 20 20 | 20 20 3b 20 6b 65 65 70 |P2 | ; keep|
|00001d30| 20 73 63 61 6e 6e 69 6e | 67 2e 0d 0a 20 20 20 20 | scannin|g... |
|00001d40| 20 20 20 4a 50 20 20 20 | 20 20 20 5a 2c 30 30 30 | JP | Z,000|
|00001d50| 30 20 20 20 20 20 20 20 | 20 20 20 3b 20 69 66 20 |0 | ; if |
|00001d60| 73 6f 2c 20 74 68 65 6e | 20 61 6c 6c 20 64 6f 6e |so, then| all don|
|00001d70| 65 2e 0d 0a 3b 0d 0a 3b | 3d 3d 3d 3d 3d 3d 3d 3d |e...;..;|========|
|00001d80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 0d 0a 3b 20 |========|====..; |
|00001dc0| 4e 4f 54 45 3a 20 49 74 | 20 6d 61 79 20 76 65 72 |NOTE: It| may ver|
|00001dd0| 79 20 77 65 6c 6c 20 62 | 65 20 74 68 65 20 63 61 |y well b|e the ca|
|00001de0| 73 65 20 74 68 61 74 20 | 6e 6f 20 42 54 41 52 47 |se that |no BTARG|
|00001df0| 20 6d 73 67 20 69 73 20 | 73 65 6e 74 2c 20 6f 72 | msg is |sent, or|
|00001e00| 20 6e 6f 0d 0a 3b 20 20 | 20 20 20 20 20 57 54 41 | no..; | WTA|
|00001e10| 52 47 20 6d 73 67 20 69 | 73 20 73 65 6e 74 2c 20 |RG msg i|s sent, |
|00001e20| 62 75 74 20 61 74 20 6c | 65 61 73 74 20 4f 4e 45 |but at l|east ONE|
|00001e30| 20 6d 73 67 20 6f 66 20 | 65 69 74 68 65 72 20 74 | msg of |either t|
|00001e40| 79 70 65 20 73 68 6f 75 | 6c 64 0d 0a 3b 20 20 20 |ype shou|ld..; |
|00001e50| 20 20 20 20 61 70 70 65 | 61 72 2e 20 41 73 20 6d | appe|ar. As m|
|00001e60| 61 6e 79 20 61 73 20 34 | 20 6d 73 67 73 20 6f 66 |any as 4| msgs of|
|00001e70| 20 65 61 63 68 20 74 79 | 70 65 20 6d 61 79 20 62 | each ty|pe may b|
|00001e80| 65 20 73 65 6e 74 2e 20 | 49 66 20 6d 6f 72 65 20 |e sent. |If more |
|00001e90| 74 68 61 6e 0d 0a 3b 20 | 20 20 20 20 20 20 66 6f |than..; | fo|
|00001ea0| 75 72 20 6a 75 6d 70 73 | 20 74 6f 20 74 68 65 20 |ur jumps| to the |
|00001eb0| 43 43 50 20 6f 72 20 43 | 43 50 2b 33 20 6f 63 63 |CCP or C|CP+3 occ|
|00001ec0| 75 72 20 69 6e 20 79 6f | 75 72 20 42 49 4f 53 2c |ur in yo|ur BIOS,|
|00001ed0| 20 79 6f 75 20 62 65 74 | 74 65 72 0d 0a 3b 20 20 | you bet|ter..; |
|00001ee0| 20 20 20 20 20 77 72 69 | 74 65 20 6d 65 20 61 20 | wri|te me a |
|00001ef0| 6c 65 74 74 65 72 2e 0d | 0a 3b 3d 3d 3d 3d 3d 3d |letter..|.;======|
|00001f00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00001f30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|00001f40| 3b 0d 0a 3b 20 53 75 62 | 72 6f 75 74 69 6e 65 20 |;..; Sub|routine |
|00001f50| 74 6f 20 64 65 74 65 72 | 6d 69 6e 65 20 69 66 20 |to deter|mine if |
|00001f60| 74 68 65 20 62 79 74 65 | 20 70 6f 69 6e 74 65 64 |the byte| pointed|
|00001f70| 20 74 6f 20 62 79 20 48 | 4c 20 69 73 20 61 20 74 | to by H|L is a t|
|00001f80| 79 70 65 20 6f 66 20 4a | 55 4d 50 2e 0d 0a 3b 0d |ype of J|UMP...;.|
|00001f90| 0a 49 53 4a 4d 50 3a 20 | 4c 44 20 20 20 20 20 20 |.ISJMP: |LD |
|00001fa0| 41 2c 28 48 4c 29 20 20 | 20 20 20 20 20 20 20 20 |A,(HL) | |
|00001fb0| 3b 20 4c 6f 61 64 20 74 | 68 65 20 62 79 74 65 20 |; Load t|he byte |
|00001fc0| 61 74 20 48 4c 2e 0d 0a | 20 20 20 20 20 20 20 43 |at HL...| C|
|00001fd0| 50 20 20 20 20 20 20 30 | 43 33 48 20 20 20 20 20 |P 0|C3H |
|00001fe0| 20 20 20 20 20 20 20 3b | 20 49 66 20 69 74 73 20 | ;| If its |
|00001ff0| 61 6e 20 75 6e 63 6f 6e | 64 69 74 69 6f 6e 61 6c |an uncon|ditional|
|00002000| 20 6a 75 6d 70 2c 0d 0a | 20 20 20 20 20 20 20 52 | jump,..| R|
|00002010| 45 54 20 20 20 20 20 5a | 20 20 20 20 20 20 20 20 |ET Z| |
|00002020| 20 20 20 20 20 20 20 3b | 20 74 68 65 6e 20 72 65 | ;| then re|
|00002030| 74 75 72 6e 2e 0d 0a 20 | 20 20 20 20 20 20 43 50 |turn... | CP|
|00002040| 20 20 20 20 20 20 30 44 | 41 48 20 20 20 20 20 20 | 0D|AH |
|00002050| 20 20 20 20 20 20 3b 20 | 45 6c 73 65 2c 20 69 73 | ; |Else, is|
|00002060| 20 69 74 20 6a 75 6d 70 | 20 6f 6e 20 63 61 72 72 | it jump| on carr|
|00002070| 79 3f 0d 0a 20 20 20 20 | 20 20 20 52 45 54 20 20 |y?.. | RET |
|00002080| 20 20 20 5a 20 20 20 20 | 20 20 20 20 20 20 20 20 | Z | |
|00002090| 20 20 20 3b 20 49 66 20 | 73 6f 2c 20 74 68 65 6e | ; If |so, then|
|000020a0| 20 72 65 74 75 72 6e 2e | 0d 0a 20 20 20 20 20 20 | return.|.. |
|000020b0| 20 43 50 20 20 20 20 20 | 20 30 44 32 48 20 20 20 | CP | 0D2H |
|000020c0| 20 20 20 20 20 20 20 20 | 20 3b 20 49 73 20 69 74 | | ; Is it|
|000020d0| 20 6a 75 6d 70 20 6f 6e | 20 6e 6f 20 63 61 72 72 | jump on| no carr|
|000020e0| 79 3f 0d 0a 20 20 20 20 | 20 20 20 52 45 54 20 20 |y?.. | RET |
|000020f0| 20 20 20 5a 20 20 20 20 | 20 20 20 20 20 20 20 20 | Z | |
|00002100| 20 20 20 3b 20 49 66 20 | 73 6f 20 72 65 74 75 72 | ; If |so retur|
|00002110| 6e 2e 0d 0a 20 20 20 20 | 20 20 20 43 50 20 20 20 |n... | CP |
|00002120| 20 20 20 30 43 41 48 20 | 20 20 20 20 20 20 20 20 | 0CAH | |
|00002130| 20 20 20 3b 20 49 73 20 | 69 74 20 6a 75 6d 70 20 | ; Is |it jump |
|00002140| 6f 6e 20 7a 65 72 6f 3f | 0d 0a 20 20 20 20 20 20 |on zero?|.. |
|00002150| 20 52 45 54 20 20 20 20 | 20 5a 20 20 20 20 20 20 | RET | Z |
|00002160| 20 20 20 20 20 20 20 20 | 20 3b 20 49 66 20 73 6f | | ; If so|
|00002170| 20 72 65 74 75 72 6e 2e | 0d 0a 20 20 20 20 20 20 | return.|.. |
|00002180| 20 43 50 20 20 20 20 20 | 20 30 43 32 48 20 20 20 | CP | 0C2H |
|00002190| 20 20 20 20 20 20 20 20 | 20 3b 20 49 73 20 69 74 | | ; Is it|
|000021a0| 20 6a 75 6d 70 20 6f 6e | 20 6e 6f 6e 2d 7a 65 72 | jump on| non-zer|
|000021b0| 6f 3f 0d 0a 20 20 20 20 | 20 20 20 52 45 54 20 20 |o?.. | RET |
|000021c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000021d0| 20 20 20 3b 20 49 66 20 | 73 6f 20 72 65 74 75 72 | ; If |so retur|
|000021e0| 6e 20 7a 65 72 6f 2c 20 | 65 6c 73 65 20 6e 6f 6e |n zero, |else non|
|000021f0| 2d 7a 65 72 6f 2e 0d 0a | 3b 0d 0a 3b 0d 0a 3b 20 |-zero...|;..;..; |
|00002200| 53 75 62 72 6f 75 74 69 | 6e 65 20 74 6f 20 73 65 |Subrouti|ne to se|
|00002210| 6e 64 20 61 20 73 74 72 | 69 6e 67 20 74 6f 20 74 |nd a str|ing to t|
|00002220| 68 65 20 63 6f 6e 73 6f | 6c 65 2e 0d 0a 3b 0d 0a |he conso|le...;..|
|00002230| 50 52 4c 49 4e 45 3a 20 | 50 55 53 48 20 20 20 48 |PRLINE: |PUSH H|
|00002240| 4c 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |L.. | LD |
|00002250| 20 20 43 2c 39 0d 0a 20 | 20 20 20 20 20 20 43 41 | C,9.. | CA|
|00002260| 4c 4c 20 20 20 20 30 30 | 30 35 0d 0a 20 20 20 20 |LL 00|05.. |
|00002270| 20 20 20 50 4f 50 20 20 | 20 20 20 48 4c 0d 0a 20 | POP | HL.. |
|00002280| 20 20 20 20 20 20 52 45 | 54 0d 0a 3b 0d 0a 3b 20 | RE|T..;..; |
|00002290| 53 75 62 72 6f 75 74 69 | 6e 65 20 74 6f 20 70 72 |Subrouti|ne to pr|
|000022a0| 69 6e 74 20 63 68 61 72 | 61 63 74 65 72 20 69 6e |int char|acter in|
|000022b0| 20 41 20 6f 6e 20 63 6f | 6e 73 6f 6c 65 2e 0d 0a | A on co|nsole...|
|000022c0| 3b 0d 0a 53 45 4e 44 41 | 3a 20 50 55 53 48 20 20 |;..SENDA|: PUSH |
|000022d0| 20 20 48 4c 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 | HL.. | LD |
|000022e0| 20 20 20 20 20 45 2c 41 | 0d 0a 20 20 20 20 20 20 | E,A|.. |
|000022f0| 20 4c 44 20 20 20 20 20 | 20 43 2c 32 0d 0a 20 20 | LD | C,2.. |
|00002300| 20 20 20 20 20 43 41 4c | 4c 20 20 20 20 30 30 30 | CAL|L 000|
|00002310| 35 0d 0a 20 20 20 20 20 | 20 20 50 4f 50 20 20 20 |5.. | POP |
|00002320| 20 20 48 4c 0d 0a 20 20 | 20 20 20 20 20 52 45 54 | HL.. | RET|
|00002330| 0d 0a 3b 0d 0a 3b 20 53 | 75 62 72 6f 75 74 69 6e |..;..; S|ubroutin|
|00002340| 65 20 74 6f 20 73 65 6e | 64 20 74 68 65 20 74 77 |e to sen|d the tw|
|00002350| 6f 20 63 68 61 72 61 63 | 74 65 72 20 41 53 43 49 |o charac|ter ASCI|
|00002360| 49 20 68 65 78 20 6f 66 | 20 76 61 6c 75 65 20 69 |I hex of| value i|
|00002370| 6e 20 41 0d 0a 3b 0d 0a | 53 45 4e 44 41 58 3a 20 |n A..;..|SENDAX: |
|00002380| 50 55 53 48 20 20 20 41 | 46 20 20 20 20 20 20 20 |PUSH A|F |
|00002390| 20 20 20 20 20 20 20 3b | 20 73 61 76 65 20 41 0d | ;| save A.|
|000023a0| 0a 20 20 20 20 20 20 20 | 52 52 43 41 20 20 20 20 |. |RRCA |
|000023b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000023c0| 3b 20 73 68 69 66 74 20 | 74 68 65 20 68 69 67 68 |; shift |the high|
|000023d0| 20 6e 69 62 62 6c 65 0d | 0a 20 20 20 20 20 20 20 | nibble.|. |
|000023e0| 52 52 43 41 20 20 20 20 | 20 20 20 20 20 20 20 20 |RRCA | |
|000023f0| 20 20 20 20 20 20 20 20 | 3b 20 64 6f 77 6e 20 74 | |; down t|
|00002400| 6f 0d 0a 20 20 20 20 20 | 20 20 52 52 43 41 20 20 |o.. | RRCA |
|00002410| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002420| 20 20 3b 20 74 68 65 0d | 0a 20 20 20 20 20 20 20 | ; the.|. |
|00002430| 52 52 43 41 20 20 20 20 | 20 20 20 20 20 20 20 20 |RRCA | |
|00002440| 20 20 20 20 20 20 20 20 | 3b 20 6c 6f 77 20 6e 69 | |; low ni|
|00002450| 62 62 6c 65 0d 0a 20 20 | 20 20 20 20 20 43 41 4c |bble.. | CAL|
|00002460| 4c 20 20 20 20 5a 49 50 | 20 20 20 20 20 20 20 20 |L ZIP| |
|00002470| 20 20 20 20 20 3b 20 67 | 6f 20 74 68 65 20 6c 6f | ; g|o the lo|
|00002480| 77 20 6e 69 62 62 6c 65 | 0d 0a 20 20 20 20 20 20 |w nibble|.. |
|00002490| 20 50 4f 50 20 20 20 20 | 20 41 46 20 20 20 20 20 | POP | AF |
|000024a0| 20 20 20 20 20 20 20 20 | 20 3b 20 72 65 74 72 69 | | ; retri|
|000024b0| 65 76 65 20 74 68 65 20 | 6f 72 69 67 69 6e 61 6c |eve the |original|
|000024c0| 20 76 61 6c 75 65 0d 0a | 3b 0d 0a 3b 20 77 65 20 | value..|;..; we |
|000024d0| 77 69 6c 6c 20 66 61 6c | 6c 20 74 68 72 6f 75 67 |will fal|l throug|
|000024e0| 68 20 74 6f 20 74 68 65 | 20 5a 49 50 20 72 6f 75 |h to the| ZIP rou|
|000024f0| 74 69 6e 65 20 66 6f 72 | 20 74 68 65 20 73 65 63 |tine for| the sec|
|00002500| 6f 6e 64 20 6e 69 62 62 | 6c 65 0d 0a 3b 0d 0a 3b |ond nibb|le..;..;|
|00002510| 20 54 68 69 73 20 6c 69 | 74 74 6c 65 20 70 69 65 | This li|ttle pie|
|00002520| 63 65 20 6f 66 20 63 6f | 64 65 20 74 61 6b 65 73 |ce of co|de takes|
|00002530| 20 61 20 76 61 6c 75 65 | 20 66 72 6f 6d 20 30 20 | a value| from 0 |
|00002540| 74 6f 20 46 20 61 6e 64 | 20 70 72 6f 64 75 63 65 |to F and| produce|
|00002550| 73 20 74 68 65 0d 0a 3b | 20 63 6f 72 72 65 63 74 |s the..;| correct|
|00002560| 20 41 53 43 49 49 20 63 | 6f 64 65 20 74 6f 20 70 | ASCII c|ode to p|
|00002570| 72 69 6e 74 20 27 30 27 | 20 74 6f 20 27 46 27 2e |rint '0'| to 'F'.|
|00002580| 20 49 20 6c 6f 76 65 20 | 69 74 2e 0d 0a 3b 0d 0a | I love |it...;..|
|00002590| 5a 49 50 3a 20 20 20 41 | 4e 44 20 20 20 20 20 30 |ZIP: A|ND 0|
|000025a0| 46 48 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |FH | ;|
|000025b0| 20 6d 61 73 6b 20 6f 66 | 66 20 74 68 65 20 68 69 | mask of|f the hi|
|000025c0| 67 68 20 6e 69 62 62 6c | 65 0d 0a 20 20 20 20 20 |gh nibbl|e.. |
|000025d0| 20 20 41 44 44 20 20 20 | 20 20 41 2c 39 30 48 20 | ADD | A,90H |
|000025e0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 65 72 66 | | ; perf|
|000025f0| 6f 72 6d 20 6d 61 67 69 | 63 0d 0a 20 20 20 20 20 |orm magi|c.. |
|00002600| 20 20 44 41 41 20 20 20 | 20 20 20 20 20 20 20 20 | DAA | |
|00002610| 20 20 20 20 20 20 20 20 | 20 20 3b 20 6f 6e 63 65 | | ; once|
|00002620| 2c 0d 0a 20 20 20 20 20 | 20 20 41 44 43 20 20 20 |,.. | ADC |
|00002630| 20 20 41 2c 34 30 48 20 | 20 20 20 20 20 20 20 20 | A,40H | |
|00002640| 20 20 3b 20 70 65 72 66 | 6f 72 6d 20 6d 61 67 69 | ; perf|orm magi|
|00002650| 63 0d 0a 20 20 20 20 20 | 20 20 44 41 41 20 20 20 |c.. | DAA |
|00002660| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00002670| 20 20 3b 20 74 77 69 63 | 65 2c 0d 0a 20 20 20 20 | ; twic|e,.. |
|00002680| 20 20 20 43 41 4c 4c 20 | 20 20 20 53 45 4e 44 41 | CALL | SENDA|
|00002690| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 | | ; and|
|000026a0| 20 73 65 6e 64 20 69 74 | 2e 0d 0a 20 20 20 20 20 | send it|... |
|000026b0| 20 20 52 45 54 0d 0a 3b | 0d 0a 3b 0d 0a 43 54 4d | RET..;|..;..CTM|
|000026c0| 53 47 3a 20 44 42 20 20 | 20 20 20 20 43 52 2c 4c |SG: DB | CR,L|
|000026d0| 46 2c 27 43 54 41 52 47 | 20 49 53 20 24 27 0d 0a |F,'CTARG| IS $'..|
|000026e0| 4e 46 4d 53 47 3a 20 44 | 42 20 20 20 20 20 20 27 |NFMSG: D|B '|
|000026f0| 4e 4f 54 20 46 4f 55 4e | 44 21 24 27 0d 0a 47 4f |NOT FOUN|D!$'..GO|
|00002700| 54 42 54 3a 20 44 42 20 | 20 20 20 20 20 43 52 2c |TBT: DB | CR,|
|00002710| 4c 46 2c 27 42 54 41 52 | 47 24 27 0d 0a 47 4f 54 |LF,'BTAR|G$'..GOT|
|00002720| 57 54 3a 20 44 42 20 20 | 20 20 20 20 43 52 2c 4c |WT: DB | CR,L|
|00002730| 46 2c 27 57 54 41 52 47 | 24 27 0d 0a 41 54 3a 20 |F,'WTARG|$'..AT: |
|00002740| 20 20 20 44 42 20 20 20 | 20 20 20 27 20 41 54 20 | DB | ' AT |
|00002750| 24 27 0d 0a 43 4f 55 4e | 54 3a 20 44 42 20 20 20 |$'..COUN|T: DB |
|00002760| 20 20 20 27 30 27 0d 0a | 20 20 20 20 20 20 20 45 | '0'..| E|
|00002770| 4e 44 0d 0a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |ND......|........|
|00002780| 2e 50 4f 20 33 0d 0a 3b | 20 54 68 69 73 20 69 73 |.PO 3..;| This is|
|00002790| 20 74 68 65 20 4c 4f 47 | 49 43 41 4c 20 4e 41 4d | the LOG|ICAL NAM|
|000027a0| 45 20 54 52 41 4e 53 4c | 41 54 4f 52 20 70 72 6f |E TRANSL|ATOR pro|
|000027b0| 67 72 61 6d 2e 20 43 61 | 72 65 20 68 61 73 20 62 |gram. Ca|re has b|
|000027c0| 65 65 6e 20 74 61 6b 65 | 6e 20 74 6f 20 61 76 6f |een take|n to avo|
|000027d0| 69 64 0d 0a 3b 20 61 6e | 79 20 75 6e 63 6f 6d 6d |id..; an|y uncomm|
|000027e0| 6f 6e 20 5a 38 30 20 70 | 73 65 75 64 6f 20 6f 70 |on Z80 p|seudo op|
|000027f0| 73 2c 20 65 78 63 65 70 | 74 20 70 65 72 68 61 70 |s, excep|t perhap|
|00002800| 73 20 74 68 65 20 6f 6e | 65 20 6f 6e 20 74 68 65 |s the on|e on the|
|00002810| 20 66 69 72 73 74 20 6c | 69 6e 65 2e 20 0d 0a 3b | first l|ine. ..;|
|00002820| 20 54 68 65 20 6f 6e 6c | 79 20 5a 38 30 20 73 70 | The onl|y Z80 sp|
|00002830| 65 63 69 66 69 63 20 69 | 6e 73 74 72 75 63 74 69 |ecific i|nstructi|
|00002840| 6f 6e 73 20 61 72 65 20 | 74 68 65 20 62 6c 6f 63 |ons are |the bloc|
|00002850| 6b 20 6d 6f 76 65 73 20 | 61 6e 64 20 72 65 6c 61 |k moves |and rela|
|00002860| 74 69 76 65 20 6a 75 6d | 70 73 0d 0a 3b 20 73 6f |tive jum|ps..; so|
|00002870| 20 74 68 61 74 20 61 64 | 61 70 74 69 6e 67 20 74 | that ad|apting t|
|00002880| 6f 20 38 30 38 30 20 6d | 61 63 68 69 6e 65 73 20 |o 8080 m|achines |
|00002890| 72 65 71 75 69 72 65 73 | 20 6d 69 6e 69 6d 61 6c |requires| minimal|
|000028a0| 20 65 66 66 6f 72 74 2e | 20 54 68 69 73 20 63 6f | effort.| This co|
|000028b0| 64 65 20 77 69 6c 6c 0d | 0a 3b 20 61 73 73 65 6d |de will.|.; assem|
|000028c0| 62 6c 65 20 64 69 72 65 | 63 74 6c 79 20 75 73 69 |ble dire|ctly usi|
|000028d0| 6e 67 20 4d 69 63 72 6f | 73 6f 66 74 27 73 20 4d |ng Micro|soft's M|
|000028e0| 38 30 2e 20 4f 74 68 65 | 72 20 61 73 73 65 6d 62 |80. Othe|r assemb|
|000028f0| 6c 65 72 73 20 6d 61 79 | 20 75 73 65 20 44 45 46 |lers may| use DEF|
|00002900| 42 0d 0a 3b 20 61 6e 64 | 20 44 45 46 57 20 73 74 |B..; and| DEFW st|
|00002910| 6f 72 61 67 65 20 64 65 | 63 6c 61 72 61 74 69 6f |orage de|claratio|
|00002920| 6e 73 20 69 6e 73 74 65 | 61 64 20 6f 66 20 44 42 |ns inste|ad of DB|
|00002930| 20 61 6e 64 20 44 57 2e | 0d 0a 3b 0d 0a 20 20 20 | and DW.|..;.. |
|00002940| 20 20 20 20 2e 5a 38 30 | 0d 0a 20 20 20 20 20 20 | .Z80|.. |
|00002950| 20 41 53 45 47 0d 0a 20 | 20 20 20 20 20 20 4f 52 | ASEG.. | OR|
|00002960| 47 20 31 30 30 48 0d 0a | 3b 0d 0a 3b 3d 3d 3d 3d |G 100H..|;..;====|
|00002970| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002980| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002990| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029a0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000029b0| 3d 3d 3d 0d 0a 3b 20 54 | 48 45 20 56 41 4c 55 45 |===..; T|HE VALUE|
|000029c0| 20 4f 46 20 44 54 4f 55 | 52 20 4d 55 53 54 20 42 | OF DTOU|R MUST B|
|000029d0| 45 20 43 48 41 4e 47 45 | 44 20 54 4f 20 42 45 20 |E CHANGE|D TO BE |
|000029e0| 54 48 45 20 53 54 41 52 | 54 20 4f 46 20 54 48 45 |THE STAR|T OF THE|
|000029f0| 20 32 4b 20 46 52 45 45 | 20 52 41 4d 0d 0a 3b 20 | 2K FREE| RAM..; |
|00002a00| 41 42 4f 56 45 20 54 48 | 45 20 42 49 4f 53 2e 20 |ABOVE TH|E BIOS. |
|00002a10| 49 54 20 49 53 20 43 55 | 52 52 45 4e 54 4c 59 20 |IT IS CU|RRENTLY |
|00002a20| 53 45 54 20 54 4f 20 35 | 38 4b 2e 0d 0a 3b 3d 3d |SET TO 5|8K...;==|
|00002a30| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a40| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002a70| 3d 3d 3d 3d 3d 0d 0a 3b | 0d 0a 44 54 4f 55 52 20 |=====..;|..DTOUR |
|00002a80| 20 45 51 55 20 20 20 20 | 20 30 45 38 30 30 48 20 | EQU | 0E800H |
|00002a90| 20 20 20 20 20 20 20 20 | 20 3b 20 50 6f 69 6e 74 | | ; Point|
|00002aa0| 73 20 74 6f 20 32 4b 20 | 52 41 4d 20 73 70 61 63 |s to 2K |RAM spac|
|00002ab0| 65 20 61 62 6f 76 65 20 | 42 49 4f 53 0d 0a 3b 0d |e above |BIOS..;.|
|00002ac0| 0a 4f 46 46 20 20 20 20 | 45 51 55 20 20 20 20 20 |.OFF |EQU |
|00002ad0| 44 54 4f 55 52 20 2d 20 | 53 43 4f 44 4c 20 20 20 |DTOUR - |SCODL |
|00002ae0| 3b 20 6f 66 66 73 65 74 | 20 76 61 6c 75 65 20 75 |; offset| value u|
|00002af0| 73 65 64 20 65 76 65 72 | 79 77 68 65 72 65 0d 0a |sed ever|ywhere..|
|00002b00| 4c 41 53 54 41 44 20 45 | 51 55 20 20 20 20 20 44 |LASTAD E|QU D|
|00002b10| 54 4f 55 52 20 2b 20 32 | 30 34 36 20 20 20 20 3b |TOUR + 2|046 ;|
|00002b20| 20 65 6e 64 20 6f 66 20 | 74 68 65 20 6c 6f 67 69 | end of |the logi|
|00002b30| 63 61 6c 20 6e 61 6d 65 | 20 74 61 62 6c 65 0d 0a |cal name| table..|
|00002b40| 43 50 4d 49 4f 20 20 45 | 51 55 20 20 20 20 20 35 |CPMIO E|QU 5|
|00002b50| 0d 0a 3b 0d 0a 3b 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |..;..;==|========|
|00002b60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002b90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|00002ba0| 3b 20 53 4f 4d 45 20 4f | 46 20 54 48 45 20 46 4f |; SOME O|F THE FO|
|00002bb0| 4c 4c 4f 57 49 4e 47 20 | 45 51 55 20 56 41 4c 55 |LLOWING |EQU VALU|
|00002bc0| 45 53 20 4d 55 53 54 20 | 42 45 20 43 48 41 4e 47 |ES MUST |BE CHANG|
|00002bd0| 45 44 20 49 46 20 49 44 | 45 4e 54 49 46 49 45 44 |ED IF ID|ENTIFIED|
|00002be0| 20 42 59 20 54 48 45 0d | 0a 3b 20 46 49 4e 44 45 | BY THE.|.; FINDE|
|00002bf0| 4d 20 50 52 4f 47 52 41 | 4d 20 49 4e 20 4c 49 53 |M PROGRA|M IN LIS|
|00002c00| 54 49 4e 47 20 31 2e 20 | 54 48 4f 53 45 20 4e 4f |TING 1. |THOSE NO|
|00002c10| 54 20 53 50 45 43 49 46 | 49 45 44 20 42 59 20 54 |T SPECIF|IED BY T|
|00002c20| 48 41 54 20 50 52 4f 47 | 52 41 4d 20 53 48 4f 55 |HAT PROG|RAM SHOU|
|00002c30| 4c 44 0d 0a 3b 20 42 45 | 20 4c 45 46 54 20 41 4c |LD..; BE| LEFT AL|
|00002c40| 4f 4e 45 2e 0d 0a 3b 3d | 3d 3d 3d 3d 3d 3d 3d 3d |ONE...;=|========|
|00002c50| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c60| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c70| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00002c80| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 0a |========|======..|
|00002c90| 3b 0d 0a 43 54 41 52 47 | 20 20 45 51 55 20 20 20 |;..CTARG| EQU |
|00002ca0| 20 20 30 42 45 41 32 48 | 20 20 20 20 20 20 20 20 | 0BEA2H| |
|00002cb0| 20 20 3b 20 74 68 69 73 | 20 6f 6e 65 20 77 69 6c | ; this| one wil|
|00002cc0| 6c 20 62 65 20 63 68 61 | 6e 67 65 64 20 66 6f 72 |l be cha|nged for|
|00002cd0| 20 73 75 72 65 2e 0d 0a | 42 54 41 52 47 31 20 45 | sure...|BTARG1 E|
|00002ce0| 51 55 20 20 20 20 20 30 | 44 33 43 38 48 20 20 20 |QU 0|D3C8H |
|00002cf0| 20 20 20 20 20 20 20 3b | 20 6d 6f 64 69 66 79 20 | ;| modify |
|00002d00| 69 66 20 69 64 65 6e 74 | 69 66 69 65 64 20 62 79 |if ident|ified by|
|00002d10| 20 46 49 4e 44 45 4d 20 | 70 72 6f 67 72 61 6d 2e | FINDEM |program.|
|00002d20| 0d 0a 42 54 41 52 47 32 | 20 45 51 55 20 20 20 20 |..BTARG2| EQU |
|00002d30| 20 4b 45 45 50 2b 4f 46 | 46 20 20 20 20 20 20 20 | KEEP+OF|F |
|00002d40| 20 3b 20 6d 6f 64 69 66 | 79 20 69 66 20 69 64 65 | ; modif|y if ide|
|00002d50| 6e 74 69 66 69 65 64 20 | 62 79 20 46 49 4e 44 45 |ntified |by FINDE|
|00002d60| 4d 20 70 72 6f 67 72 61 | 6d 2e 0d 0a 42 54 41 52 |M progra|m...BTAR|
|00002d70| 47 33 20 45 51 55 20 20 | 20 20 20 4b 45 45 50 2b |G3 EQU | KEEP+|
|00002d80| 4f 46 46 20 20 20 20 20 | 20 20 20 3b 20 6d 6f 64 |OFF | ; mod|
|00002d90| 69 66 79 20 69 66 20 69 | 64 65 6e 74 69 66 69 65 |ify if i|dentifie|
|00002da0| 64 20 62 79 20 46 49 4e | 44 45 4d 20 70 72 6f 67 |d by FIN|DEM prog|
|00002db0| 72 61 6d 2e 0d 0a 42 54 | 41 52 47 34 20 45 51 55 |ram...BT|ARG4 EQU|
|00002dc0| 20 20 20 20 20 4b 45 45 | 50 2b 4f 46 46 20 20 20 | KEE|P+OFF |
|00002dd0| 20 20 20 20 20 3b 20 6d | 6f 64 69 66 79 20 69 66 | ; m|odify if|
|00002de0| 20 69 64 65 6e 74 69 66 | 69 65 64 20 62 79 20 46 | identif|ied by F|
|00002df0| 49 4e 44 45 4d 20 70 72 | 6f 67 72 61 6d 2e 0d 0a |INDEM pr|ogram...|
|00002e00| 57 54 41 52 47 31 20 45 | 51 55 20 20 20 20 20 30 |WTARG1 E|QU 0|
|00002e10| 44 33 43 42 48 20 20 20 | 20 20 20 20 20 20 20 3b |D3CBH | ;|
|00002e20| 20 6d 6f 64 69 66 79 20 | 69 66 20 69 64 65 6e 74 | modify |if ident|
|00002e30| 69 66 69 65 64 20 62 79 | 20 46 49 4e 44 45 4d 20 |ified by| FINDEM |
|00002e40| 70 72 6f 67 72 61 6d 2e | 0d 0a 57 54 41 52 47 32 |program.|..WTARG2|
|00002e50| 20 45 51 55 20 20 20 20 | 20 4b 45 45 50 2b 4f 46 | EQU | KEEP+OF|
|00002e60| 46 20 20 20 20 20 20 20 | 20 3b 20 6d 6f 64 69 66 |F | ; modif|
|00002e70| 79 20 69 66 20 69 64 65 | 6e 74 69 66 69 65 64 20 |y if ide|ntified |
|00002e80| 62 79 20 46 49 4e 44 45 | 4d 20 70 72 6f 67 72 61 |by FINDE|M progra|
|00002e90| 6d 2e 0d 0a 57 54 41 52 | 47 33 20 45 51 55 20 20 |m...WTAR|G3 EQU |
|00002ea0| 20 20 20 4b 45 45 50 2b | 4f 46 46 20 20 20 20 20 | KEEP+|OFF |
|00002eb0| 20 20 20 3b 20 6d 6f 64 | 69 66 79 20 69 66 20 69 | ; mod|ify if i|
|00002ec0| 64 65 6e 74 69 66 69 65 | 64 20 62 79 20 46 49 4e |dentifie|d by FIN|
|00002ed0| 44 45 4d 20 70 72 6f 67 | 72 61 6d 2e 0d 0a 57 54 |DEM prog|ram...WT|
|00002ee0| 41 52 47 34 20 45 51 55 | 20 20 20 20 20 4b 45 45 |ARG4 EQU| KEE|
|00002ef0| 50 2b 4f 46 46 20 20 20 | 20 20 20 20 20 3b 20 6d |P+OFF | ; m|
|00002f00| 6f 64 69 66 79 20 69 66 | 20 69 64 65 6e 74 69 66 |odify if| identif|
|00002f10| 69 65 64 20 62 79 20 46 | 49 4e 44 45 4d 20 70 72 |ied by F|INDEM pr|
|00002f20| 6f 67 72 61 6d 2e 0d 0a | 3b 0d 0a 53 54 41 52 54 |ogram...|;..START|
|00002f30| 3a 20 4c 44 20 20 20 20 | 20 20 48 4c 2c 28 42 54 |: LD | HL,(BT|
|00002f40| 41 52 47 31 29 20 20 20 | 20 20 3b 20 73 6f 72 72 |ARG1) | ; sorr|
|00002f50| 79 2c 20 62 75 74 20 61 | 20 6c 69 74 74 6c 65 20 |y, but a| little |
|00002f60| 73 65 6c 66 20 6d 6f 64 | 69 66 79 69 6e 67 20 63 |self mod|ifying c|
|00002f70| 6f 64 65 0d 0a 20 20 20 | 20 20 20 20 4c 44 20 20 |ode.. | LD |
|00002f80| 20 20 20 20 28 46 49 58 | 58 31 2b 31 29 2c 48 4c | (FIX|X1+1),HL|
|00002f90| 20 20 20 20 3b 20 74 6f | 20 64 65 61 6c 20 77 69 | ; to| deal wi|
|00002fa0| 74 68 20 75 6e 6b 6e 6f | 77 6e 73 20 69 73 20 61 |th unkno|wns is a|
|00002fb0| 20 6d 75 73 74 2e 2e 2e | 0d 0a 20 20 20 20 20 20 | must...|.. |
|00002fc0| 20 4c 44 20 20 20 20 20 | 20 48 4c 2c 28 57 54 41 | LD | HL,(WTA|
|00002fd0| 52 47 31 29 20 20 20 20 | 20 3b 20 62 75 74 20 6f |RG1) | ; but o|
|00002fe0| 6e 6c 79 20 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 |nly .. | LD |
|00002ff0| 20 20 20 20 20 28 46 49 | 58 58 32 2b 31 29 2c 48 | (FI|XX2+1),H|
|00003000| 4c 20 20 20 20 3b 20 74 | 77 69 63 65 2e 0d 0a 20 |L ; t|wice... |
|00003010| 20 20 20 20 20 20 4c 44 | 20 20 20 20 20 20 48 4c | LD| HL|
|00003020| 2c 28 43 54 41 52 47 29 | 20 20 20 20 20 20 3b 20 |,(CTARG)| ; |
|00003030| 70 69 63 6b 20 75 70 20 | 74 68 65 20 73 75 62 72 |pick up |the subr|
|00003040| 6f 75 74 69 6e 65 20 63 | 61 6c 6c 20 69 6e 20 74 |outine c|all in t|
|00003050| 68 65 20 43 43 50 0d 0a | 20 20 20 20 20 20 20 4c |he CCP..| L|
|00003060| 44 20 20 20 20 20 20 44 | 45 2c 44 4f 4f 52 2b 4f |D D|E,DOOR+O|
|00003070| 46 46 20 20 20 20 20 3b | 20 70 6f 69 6e 74 20 74 |FF ;| point t|
|00003080| 6f 20 6f 75 72 20 6f 77 | 6e 20 64 65 73 74 69 6e |o our ow|n destin|
|00003090| 61 74 69 6f 6e 20 69 6e | 73 74 65 61 64 2c 0d 0a |ation in|stead,..|
|000030a0| 20 20 20 20 20 20 20 58 | 4f 52 20 20 20 20 20 41 | X|OR A|
|000030b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000030c0| 20 69 6e 73 75 72 65 20 | 63 61 72 72 79 20 6e 6f | insure |carry no|
|000030d0| 74 20 73 65 74 0d 0a 20 | 20 20 20 20 20 20 53 42 |t set.. | SB|
|000030e0| 43 20 20 20 20 20 48 4c | 2c 44 45 20 20 20 20 20 |C HL|,DE |
|000030f0| 20 20 20 20 20 20 3b 20 | 61 6e 64 20 73 65 65 20 | ; |and see |
|00003100| 69 66 20 74 68 65 20 4c | 4e 54 20 69 73 20 61 6c |if the L|NT is al|
|00003110| 72 65 61 64 79 20 61 63 | 74 69 76 65 2e 0d 0a 20 |ready ac|tive... |
|00003120| 20 20 20 20 20 20 4a 52 | 20 20 20 20 20 20 5a 2c | JR| Z,|
|00003130| 52 45 41 44 59 20 20 20 | 20 20 20 20 20 20 3b 20 |READY | ; |
|00003140| 49 66 20 73 6f 2c 20 74 | 68 65 6e 20 77 65 20 63 |If so, t|hen we c|
|00003150| 61 6e 20 73 6b 69 70 20 | 74 68 65 20 6e 65 78 74 |an skip |the next|
|00003160| 20 70 61 72 74 2c 0d 0a | 20 20 20 20 20 20 20 4c | part,..| L|
|00003170| 44 20 20 20 20 20 20 48 | 4c 2c 53 43 4f 44 4c 20 |D H|L,SCODL |
|00003180| 20 20 20 20 20 20 20 3b | 20 65 6c 73 65 20 67 65 | ;| else ge|
|00003190| 74 20 72 65 61 64 79 20 | 74 6f 20 6d 6f 76 65 20 |t ready |to move |
|000031a0| 74 68 65 20 63 6f 64 65 | 0d 0a 20 20 20 20 20 20 |the code|.. |
|000031b0| 20 4c 44 20 20 20 20 20 | 20 44 45 2c 44 54 4f 55 | LD | DE,DTOU|
|000031c0| 52 20 20 20 20 20 20 20 | 20 3b 20 74 6f 20 74 68 |R | ; to th|
|000031d0| 65 20 32 4b 20 73 70 61 | 63 65 20 61 62 6f 76 65 |e 2K spa|ce above|
|000031e0| 20 74 68 65 20 42 49 4f | 53 2e 0d 0a 20 20 20 20 | the BIO|S... |
|000031f0| 20 20 20 4c 44 20 20 20 | 20 20 20 42 43 2c 45 43 | LD | BC,EC|
|00003200| 4f 44 4c 2d 53 43 4f 44 | 4c 20 20 3b 20 47 65 74 |ODL-SCOD|L ; Get|
|00003210| 20 6c 65 6e 67 74 68 20 | 6f 66 20 74 68 65 20 63 | length |of the c|
|00003220| 6f 64 65 0d 0a 20 20 20 | 20 20 20 20 4c 44 49 52 |ode.. | LDIR|
|00003230| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00003240| 20 20 20 20 3b 20 61 6e | 64 20 64 6f 20 74 68 65 | ; an|d do the|
|00003250| 20 62 6c 6f 63 6b 20 6d | 6f 76 65 2e 0d 0a 20 20 | block m|ove... |
|00003260| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 48 4c 2c | LD | HL,|
|00003270| 44 54 4f 55 52 20 20 20 | 20 20 20 20 20 3b 20 50 |DTOUR | ; P|
|00003280| 6f 69 6e 74 20 74 6f 20 | 74 68 65 20 65 6e 74 72 |oint to |the entr|
|00003290| 79 20 61 64 64 72 65 73 | 73 0d 0a 42 49 4f 31 3a |y addres|s..BIO1:|
|000032a0| 20 20 4c 44 20 20 20 20 | 20 20 28 42 54 41 52 47 | LD | (BTARG|
|000032b0| 31 29 2c 48 4c 20 20 20 | 20 20 3b 20 61 6e 64 20 |1),HL | ; and |
|000032c0| 6d 6f 64 69 66 79 20 74 | 68 65 20 42 49 4f 53 20 |modify t|he BIOS |
|000032d0| 74 6f 20 69 6e 74 65 72 | 63 65 70 74 20 77 61 72 |to inter|cept war|
|000032e0| 6d 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |m.. | LD |
|000032f0| 20 20 28 42 54 41 52 47 | 32 29 2c 48 4c 20 20 20 | (BTARG|2),HL |
|00003300| 20 20 3b 20 73 74 61 72 | 74 73 20 74 6f 20 74 68 | ; star|ts to th|
|00003310| 65 20 43 43 50 20 69 6e | 20 61 6c 6c 20 74 68 65 |e CCP in| all the|
|00003320| 20 72 69 67 68 74 0d 0a | 20 20 20 20 20 20 20 4c | right..| L|
|00003330| 44 20 20 20 20 20 20 28 | 42 54 41 52 47 33 29 2c |D (|BTARG3),|
|00003340| 48 4c 20 20 20 20 20 3b | 20 70 6c 61 63 65 73 20 |HL ;| places |
|00003350| 66 6f 75 6e 64 20 62 79 | 20 46 49 4e 44 45 4d 20 |found by| FINDEM |
|00003360| 70 72 6f 67 72 61 6d 2e | 0d 0a 20 20 20 20 20 20 |program.|.. |
|00003370| 20 4c 44 20 20 20 20 20 | 20 28 42 54 41 52 47 34 | LD | (BTARG4|
|00003380| 29 2c 48 4c 20 20 20 20 | 20 3b 20 53 68 6f 75 6c |),HL | ; Shoul|
|00003390| 64 20 6e 65 76 65 72 20 | 62 65 20 74 68 69 73 20 |d never |be this |
|000033a0| 6d 61 6e 79 20 6f 66 20 | 74 68 65 6d 2e 0d 0a 20 |many of |them... |
|000033b0| 20 20 20 20 20 20 4c 44 | 20 20 20 20 20 20 48 4c | LD| HL|
|000033c0| 2c 44 54 4f 55 52 2b 33 | 20 20 20 20 20 20 3b 20 |,DTOUR+3| ; |
|000033d0| 41 6c 6c 20 42 49 4f 53 | 20 6a 75 6d 70 73 20 74 |All BIOS| jumps t|
|000033e0| 6f 20 43 43 50 2b 33 20 | 77 69 6c 6c 20 6e 6f 77 |o CCP+3 |will now|
|000033f0| 20 67 6f 20 74 6f 0d 0a | 42 49 4f 32 3a 20 20 4c | go to..|BIO2: L|
|00003400| 44 20 20 20 20 20 20 28 | 57 54 41 52 47 31 29 2c |D (|WTARG1),|
|00003410| 48 4c 20 20 20 20 20 3b | 20 44 54 4f 55 52 2b 33 |HL ;| DTOUR+3|
|00003420| 2c 20 74 6f 6f 2c 20 69 | 6e 20 63 61 73 65 20 79 |, too, i|n case y|
|00003430| 6f 75 72 20 42 49 4f 53 | 20 64 6f 65 73 0d 0a 20 |our BIOS| does.. |
|00003440| 20 20 20 20 20 20 4c 44 | 20 20 20 20 20 20 28 57 | LD| (W|
|00003450| 54 41 52 47 32 29 2c 48 | 4c 20 20 20 20 20 3b 20 |TARG2),H|L ; |
|00003460| 61 6e 79 20 66 61 6e 63 | 79 20 73 74 75 66 66 2e |any fanc|y stuff.|
|00003470| 20 54 68 65 72 65 20 72 | 65 61 6c 6c 79 20 73 68 | There r|eally sh|
|00003480| 6f 75 6c 64 6e 27 74 0d | 0a 20 20 20 20 20 20 20 |ouldn't.|. |
|00003490| 4c 44 20 20 20 20 20 20 | 28 57 54 41 52 47 33 29 |LD |(WTARG3)|
|000034a0| 2c 48 4c 20 20 20 20 20 | 3b 20 62 65 20 6d 6f 72 |,HL |; be mor|
|000034b0| 65 20 74 68 61 6e 20 6f | 6e 65 20 6f 72 20 74 77 |e than o|ne or tw|
|000034c0| 6f 2c 20 62 75 74 20 79 | 6f 75 20 6e 65 76 65 72 |o, but y|ou never|
|000034d0| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|000034e0| 20 28 57 54 41 52 47 34 | 29 2c 48 4c 20 20 20 20 | (WTARG4|),HL |
|000034f0| 20 3b 20 6b 6e 6f 77 2e | 0d 0a 52 45 41 44 59 3a | ; know.|..READY:|
|00003500| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|00003510| 20 41 2c 28 38 30 48 29 | 20 20 20 20 20 20 20 20 | A,(80H)| |
|00003520| 20 3b 20 47 65 74 20 6c | 65 6e 67 74 68 20 6f 66 | ; Get l|ength of|
|00003530| 20 63 6f 6d 6d 61 6e 64 | 20 6c 69 6e 65 20 65 78 | command| line ex|
|00003540| 74 72 61 73 2c 0d 0a 20 | 20 20 20 20 20 20 4f 52 |tras,.. | OR|
|00003550| 20 20 20 20 20 20 41 20 | 20 20 20 20 20 20 20 20 | A | |
|00003560| 20 20 20 20 20 20 3b 20 | 69 66 20 6e 6f 74 20 7a | ; |if not z|
|00003570| 65 72 6f 0d 0a 20 20 20 | 20 20 20 20 4a 52 20 20 |ero.. | JR |
|00003580| 20 20 20 20 4e 5a 2c 52 | 44 4c 4f 47 20 20 20 20 | NZ,R|DLOG |
|00003590| 20 20 20 20 3b 20 74 68 | 65 6e 20 67 6f 20 72 65 | ; th|en go re|
|000035a0| 61 64 20 74 68 65 20 66 | 69 6c 65 20 69 6e 0d 0a |ad the f|ile in..|
|000035b0| 52 42 59 45 3a 20 20 4c | 44 20 20 20 20 20 20 28 |RBYE: L|D (|
|000035c0| 4c 4e 54 2b 4f 46 46 29 | 2c 41 20 20 20 20 20 3b |LNT+OFF)|,A ;|
|000035d0| 20 65 6c 73 65 20 6e 6f | 20 66 69 6c 65 20 67 69 | else no| file gi|
|000035e0| 76 65 6e 2c 20 70 75 74 | 20 61 20 7a 65 72 6f 20 |ven, put| a zero |
|000035f0| 69 6e 20 4c 4e 54 2e 0d | 0a 20 20 20 20 20 20 20 |in LNT..|. |
|00003600| 4a 50 20 20 20 20 20 20 | 47 43 4c 49 50 20 20 20 |JP |GCLIP |
|00003610| 20 20 20 20 20 20 20 20 | 3b 20 61 6e 64 20 67 6f | |; and go|
|00003620| 20 73 61 79 20 67 6f 6f | 64 62 79 65 2e 0d 0a 52 | say goo|dbye...R|
|00003630| 44 4c 4f 47 3a 20 4c 44 | 20 20 20 20 20 20 41 2c |DLOG: LD| A,|
|00003640| 28 30 30 36 35 48 29 20 | 20 20 20 20 20 20 3b 20 |(0065H) | ; |
|00003650| 53 65 65 20 69 66 20 74 | 68 65 72 65 20 77 61 73 |See if t|here was|
|00003660| 20 61 20 65 78 74 65 6e | 74 69 6f 6e 20 6f 6e 20 | a exten|tion on |
|00003670| 74 68 65 0d 0a 20 20 20 | 20 20 20 20 43 50 20 20 |the.. | CP |
|00003680| 20 20 20 20 27 20 27 20 | 20 20 20 20 20 20 20 20 | ' ' | |
|00003690| 20 20 20 20 3b 20 66 69 | 6c 65 20 6e 61 6d 65 2e | ; fi|le name.|
|000036a0| 20 49 73 20 65 78 74 65 | 6e 74 69 6f 6e 20 62 6c | Is exte|ntion bl|
|000036b0| 61 6e 6b 3f 0d 0a 20 20 | 20 20 20 20 20 4a 52 20 |ank?.. | JR |
|000036c0| 20 20 20 20 20 4e 5a 2c | 47 4f 4f 44 4e 20 20 20 | NZ,|GOODN |
|000036d0| 20 20 20 20 20 3b 20 49 | 66 20 6e 6f 74 2c 20 6e | ; I|f not, n|
|000036e0| 65 76 65 72 20 6d 69 6e | 64 2c 20 77 68 6f 6c 65 |ever min|d, whole|
|000036f0| 20 6e 61 6d 65 20 67 69 | 76 65 6e 2e 0d 0a 20 20 | name gi|ven... |
|00003700| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 41 2c 27 | LD | A,'|
|00003710| 4c 27 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 45 |L' | ; E|
|00003720| 6c 73 65 20 66 69 6c 6c | 20 69 74 20 69 6e 0d 0a |lse fill| it in..|
|00003730| 20 20 20 20 20 20 20 4c | 44 20 20 20 20 20 20 28 | L|D (|
|00003740| 30 30 36 35 48 29 2c 41 | 20 20 20 20 20 20 20 3b |0065H),A| ;|
|00003750| 20 77 69 74 68 20 61 6e | 20 4c 0d 0a 20 20 20 20 | with an| L.. |
|00003760| 20 20 20 4c 44 20 20 20 | 20 20 20 41 2c 27 4f 27 | LD | A,'O'|
|00003770| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 | | ; and|
|00003780| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|00003790| 20 28 30 30 36 36 48 29 | 2c 41 20 20 20 20 20 20 | (0066H)|,A |
|000037a0| 20 3b 20 77 69 74 68 20 | 61 6e 20 4f 0d 0a 20 20 | ; with |an O.. |
|000037b0| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 41 2c 27 | LD | A,'|
|000037c0| 47 27 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 |G' | ; a|
|000037d0| 6e 64 20 0d 0a 20 20 20 | 20 20 20 20 4c 44 20 20 |nd .. | LD |
|000037e0| 20 20 20 20 28 30 30 36 | 37 48 29 2c 41 20 20 20 | (006|7H),A |
|000037f0| 20 20 20 20 3b 20 77 69 | 74 68 20 61 20 47 2e 0d | ; wi|th a G..|
|00003800| 0a 47 4f 4f 44 4e 3a 20 | 4c 44 20 20 20 20 20 20 |.GOODN: |LD |
|00003810| 44 45 2c 30 30 35 43 48 | 20 20 20 20 20 20 20 20 |DE,005CH| |
|00003820| 3b 20 52 65 61 64 79 20 | 74 6f 20 72 65 61 64 20 |; Ready |to read |
|00003830| 69 74 2c 20 70 6f 69 6e | 74 20 74 6f 20 46 43 42 |it, poin|t to FCB|
|00003840| 2c 0d 0a 20 20 20 20 20 | 20 20 4c 44 20 20 20 20 |,.. | LD |
|00003850| 20 20 43 2c 30 46 48 20 | 20 20 20 20 20 20 20 20 | C,0FH | |
|00003860| 20 20 3b 20 73 65 74 20 | 75 70 20 74 68 65 20 4f | ; set |up the O|
|00003870| 50 45 4e 20 66 75 6e 63 | 74 69 6f 6e 2c 0d 0a 20 |PEN func|tion,.. |
|00003880| 20 20 20 20 20 20 43 41 | 4c 4c 20 20 20 20 43 50 | CA|LL CP|
|00003890| 4d 49 4f 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 |MIO | ; |
|000038a0| 61 6e 64 20 6f 70 65 6e | 20 74 68 65 20 66 69 6c |and open| the fil|
|000038b0| 65 2e 0d 0a 20 20 20 20 | 20 20 20 43 50 20 20 20 |e... | CP |
|000038c0| 20 20 20 30 46 46 48 20 | 20 20 20 20 20 20 20 20 | 0FFH | |
|000038d0| 20 20 20 3b 20 61 20 70 | 72 6f 62 6c 65 6d 20 28 | ; a p|roblem (|
|000038e0| 6c 69 6b 65 20 6e 6f 74 | 20 74 68 65 72 65 29 3f |like not| there)?|
|000038f0| 0d 0a 20 20 20 20 20 20 | 20 4a 52 20 20 20 20 20 |.. | JR |
|00003900| 20 4e 5a 2c 44 4f 52 44 | 20 20 20 20 20 20 20 20 | NZ,DORD| |
|00003910| 20 3b 20 49 66 20 6e 6f | 74 2c 20 74 68 65 6e 20 | ; If no|t, then |
|00003920| 72 65 61 64 79 20 74 6f | 20 6c 6f 61 64 20 69 74 |ready to| load it|
|00003930| 20 69 6e 2c 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 | in,.. | LD |
|00003940| 20 20 20 20 20 44 45 2c | 4e 4f 54 46 20 20 20 20 | DE,|NOTF |
|00003950| 20 20 20 20 20 3b 20 65 | 6c 73 65 20 70 6f 69 6e | ; e|lse poin|
|00003960| 74 20 74 6f 20 4e 4f 54 | 20 46 4f 55 4e 44 2c 0d |t to NOT| FOUND,.|
|00003970| 0a 20 20 20 20 20 20 20 | 4c 44 20 20 20 20 20 20 |. |LD |
|00003980| 43 2c 39 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |C,9 | |
|00003990| 3b 20 73 65 74 20 75 70 | 20 74 6f 20 50 52 49 4e |; set up| to PRIN|
|000039a0| 54 20 53 54 52 49 4e 47 | 2c 0d 0a 20 20 20 20 20 |T STRING|,.. |
|000039b0| 20 20 43 41 4c 4c 20 20 | 20 20 43 50 4d 49 4f 20 | CALL | CPMIO |
|000039c0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 73 65 6e 64 | | ; send|
|000039d0| 20 74 6f 20 63 6f 6e 73 | 6f 6c 65 2c 0d 0a 20 20 | to cons|ole,.. |
|000039e0| 20 20 20 20 20 4a 52 20 | 20 20 20 20 20 52 42 59 | JR | RBY|
|000039f0| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 |E | ; a|
|00003a00| 6e 64 20 61 62 6f 72 74 | 20 74 68 65 20 70 72 6f |nd abort| the pro|
|00003a10| 67 72 61 6d 2e 0d 0a 44 | 4f 52 44 3a 20 20 4c 44 |gram...D|ORD: LD|
|00003a20| 20 20 20 20 20 20 44 45 | 2c 4c 44 4d 41 20 20 20 | DE|,LDMA |
|00003a30| 20 20 20 20 20 20 3b 20 | 57 65 20 77 61 6e 74 20 | ; |We want |
|00003a40| 74 6f 20 6c 6f 61 64 20 | 74 68 65 20 66 69 6c 65 |to load |the file|
|00003a50| 20 61 74 20 4c 44 4d 41 | 0d 0a 52 44 4c 50 3a 20 | at LDMA|..RDLP: |
|00003a60| 20 50 55 53 48 20 20 20 | 20 44 45 20 20 20 20 20 | PUSH | DE |
|00003a70| 20 20 20 20 20 20 20 20 | 20 3b 20 73 61 76 65 20 | | ; save |
|00003a80| 74 68 61 74 20 61 64 64 | 72 65 73 73 0d 0a 20 20 |that add|ress.. |
|00003a90| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 43 2c 31 | LD | C,1|
|00003aa0| 41 48 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |AH | ; s|
|00003ab0| 65 74 20 75 70 20 74 68 | 65 20 53 45 54 20 44 4d |et up th|e SET DM|
|00003ac0| 41 20 66 75 6e 63 74 69 | 6f 6e 0d 0a 20 20 20 20 |A functi|on.. |
|00003ad0| 20 20 20 43 41 4c 4c 20 | 20 20 20 43 50 4d 49 4f | CALL | CPMIO|
|00003ae0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 61 6e 64 | | ; and|
|00003af0| 20 74 65 6c 6c 20 43 50 | 4d 20 77 68 65 72 65 20 | tell CP|M where |
|00003b00| 69 74 20 67 6f 65 73 2e | 0d 0a 20 20 20 20 20 20 |it goes.|.. |
|00003b10| 20 4c 44 20 20 20 20 20 | 20 44 45 2c 30 30 35 43 | LD | DE,005C|
|00003b20| 48 20 20 20 20 20 20 20 | 20 3b 20 50 6f 69 6e 74 |H | ; Point|
|00003b30| 20 74 6f 20 74 68 65 20 | 46 43 42 2c 0d 0a 20 20 | to the |FCB,.. |
|00003b40| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 43 2c 31 | LD | C,1|
|00003b50| 34 48 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |4H | ; s|
|00003b60| 65 74 20 75 70 20 74 68 | 65 20 52 45 41 44 20 66 |et up th|e READ f|
|00003b70| 75 6e 63 74 69 6f 6e 2c | 0d 0a 20 20 20 20 20 20 |unction,|.. |
|00003b80| 20 43 41 4c 4c 20 20 20 | 20 43 50 4d 49 4f 20 20 | CALL | CPMIO |
|00003b90| 20 20 20 20 20 20 20 20 | 20 3b 20 61 6e 64 20 70 | | ; and p|
|00003ba0| 75 6c 6c 20 69 6e 20 61 | 20 73 65 63 74 6f 72 20 |ull in a| sector |
|00003bb0| 66 72 6f 6d 20 64 69 73 | 6b 2e 0d 0a 20 20 20 20 |from dis|k... |
|00003bc0| 20 20 20 4f 52 20 20 20 | 20 20 20 41 20 20 20 20 | OR | A |
|00003bd0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 41 6c 6c | | ; All|
|00003be0| 20 64 6f 6e 65 3f 0d 0a | 20 20 20 20 20 20 20 4a | done?..| J|
|00003bf0| 52 20 20 20 20 20 20 4e | 5a 2c 52 44 4f 4e 45 20 |R N|Z,RDONE |
|00003c00| 20 20 20 20 20 20 20 3b | 20 59 65 73 21 20 74 68 | ;| Yes! th|
|00003c10| 65 6e 20 67 65 74 20 6f | 75 74 20 6f 66 20 74 68 |en get o|ut of th|
|00003c20| 65 20 72 65 61 64 20 6c | 6f 6f 70 0d 0a 20 20 20 |e read l|oop.. |
|00003c30| 20 20 20 20 50 4f 50 20 | 20 20 20 20 48 4c 20 20 | POP | HL |
|00003c40| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 65 6c | | ; el|
|00003c50| 73 65 20 72 65 74 72 69 | 65 76 65 20 74 68 65 20 |se retri|eve the |
|00003c60| 44 4d 41 20 61 64 64 72 | 65 73 73 0d 0a 20 20 20 |DMA addr|ess.. |
|00003c70| 20 20 20 20 4c 44 20 20 | 20 20 20 20 44 45 2c 30 | LD | DE,0|
|00003c80| 30 38 30 48 20 20 20 20 | 20 20 20 20 3b 20 62 75 |080H | ; bu|
|00003c90| 6d 70 20 69 74 20 62 79 | 20 31 32 38 0d 0a 20 20 |mp it by| 128.. |
|00003ca0| 20 20 20 20 20 41 44 44 | 20 20 20 20 20 48 4c 2c | ADD| HL,|
|00003cb0| 44 45 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 |DE | ; a|
|00003cc0| 6e 64 20 6e 6f 77 20 77 | 65 20 68 61 76 65 20 61 |nd now w|e have a|
|00003cd0| 20 6e 65 77 20 44 4d 41 | 20 61 64 64 72 65 73 73 | new DMA| address|
|00003ce0| 2e 0d 0a 20 20 20 20 20 | 20 20 45 58 20 20 20 20 |... | EX |
|00003cf0| 20 20 44 45 2c 48 4c 20 | 20 20 20 20 20 20 20 20 | DE,HL | |
|00003d00| 20 20 3b 20 47 69 76 65 | 20 69 74 20 74 6f 20 44 | ; Give| it to D|
|00003d10| 45 0d 0a 20 20 20 20 20 | 20 20 4a 52 20 20 20 20 |E.. | JR |
|00003d20| 20 20 52 44 4c 50 20 20 | 20 20 20 20 20 20 20 20 | RDLP | |
|00003d30| 20 20 3b 20 61 6e 64 20 | 67 6f 20 72 65 61 64 20 | ; and |go read |
|00003d40| 61 6e 6f 74 68 65 72 20 | 73 65 63 74 6f 72 2e 0d |another |sector..|
|00003d50| 0a 52 44 4f 4e 45 3a 20 | 50 4f 50 20 20 20 20 20 |.RDONE: |POP |
|00003d60| 48 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |HL | |
|00003d70| 3b 20 52 65 74 72 69 65 | 76 65 20 74 68 65 20 6c |; Retrie|ve the l|
|00003d80| 61 73 74 20 44 4d 41 20 | 61 64 64 72 65 73 73 0d |ast DMA |address.|
|00003d90| 0a 20 20 20 20 20 20 20 | 4c 44 20 20 20 20 20 20 |. |LD |
|00003da0| 41 2c 31 41 48 20 20 20 | 20 20 20 20 20 20 20 20 |A,1AH | |
|00003db0| 3b 20 61 6e 64 20 70 75 | 74 20 61 20 43 50 4d 20 |; and pu|t a CPM |
|00003dc0| 65 6e 64 2d 6f 66 2d 66 | 69 6c 65 20 6d 61 72 6b |end-of-f|ile mark|
|00003dd0| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|00003de0| 20 28 48 4c 29 2c 41 20 | 20 20 20 20 20 20 20 20 | (HL),A | |
|00003df0| 20 3b 20 74 68 65 72 65 | 20 6a 75 73 74 20 74 6f | ; there| just to|
|00003e00| 20 62 65 20 73 61 66 65 | 2e 0d 0a 20 20 20 20 20 | be safe|... |
|00003e10| 20 20 4c 44 20 20 20 20 | 20 20 48 4c 2c 4c 44 4d | LD | HL,LDM|
|00003e20| 41 20 20 20 20 20 20 20 | 20 20 3b 20 50 6f 69 6e |A | ; Poin|
|00003e30| 74 20 74 6f 20 73 74 61 | 72 74 20 6f 66 20 66 69 |t to sta|rt of fi|
|00003e40| 6c 65 20 69 6e 20 6d 65 | 6d 6f 72 79 2c 0d 0a 53 |le in me|mory,..S|
|00003e50| 59 4e 54 48 3a 20 4c 44 | 20 20 20 20 20 20 44 45 |YNTH: LD| DE|
|00003e60| 2c 46 41 4b 45 2b 32 20 | 20 20 20 20 20 20 3b 20 |,FAKE+2 | ; |
|00003e70| 70 6f 69 6e 74 20 74 6f | 20 6f 75 72 20 43 43 50 |point to| our CCP|
|00003e80| 20 6c 6f 6f 6b 2d 61 6c | 69 6b 65 20 62 75 66 66 | look-al|ike buff|
|00003e90| 65 72 2c 0d 0a 20 20 20 | 20 20 20 20 4c 44 20 20 |er,.. | LD |
|00003ea0| 20 20 20 20 42 43 2c 30 | 30 30 44 48 20 20 20 20 | BC,0|00DH |
|00003eb0| 20 20 20 20 3b 20 73 74 | 6f 72 65 20 61 20 63 61 | ; st|ore a ca|
|00003ec0| 72 72 69 61 67 65 20 72 | 65 74 75 72 6e 20 69 6e |rriage r|eturn in|
|00003ed0| 20 43 2c 20 30 20 69 6e | 20 42 2c 0d 0a 4d 4c 4f | C, 0 in| B,..MLO|
|00003ee0| 4f 50 3a 20 4c 44 20 20 | 20 20 20 20 41 2c 28 48 |OP: LD | A,(H|
|00003ef0| 4c 29 20 20 20 20 20 20 | 20 20 20 20 3b 20 6c 6f |L) | ; lo|
|00003f00| 6f 6b 20 61 74 20 61 20 | 62 79 74 65 20 66 72 6f |ok at a |byte fro|
|00003f10| 6d 20 74 68 65 20 66 69 | 6c 65 2e 0d 0a 20 20 20 |m the fi|le... |
|00003f20| 20 20 20 20 43 50 20 20 | 20 20 20 20 43 20 20 20 | CP | C |
|00003f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 49 73 | | ; Is|
|00003f40| 20 69 74 20 63 61 72 72 | 69 61 67 65 20 72 65 74 | it carr|iage ret|
|00003f50| 75 72 6e 3f 0d 0a 20 20 | 20 20 20 20 20 4a 52 20 |urn?.. | JR |
|00003f60| 20 20 20 20 20 5a 2c 4d | 44 4f 4e 45 20 20 20 20 | Z,M|DONE |
|00003f70| 20 20 20 20 20 3b 20 49 | 66 20 73 6f 2c 20 73 74 | ; I|f so, st|
|00003f80| 6f 70 20 66 69 6c 6c 69 | 6e 67 20 74 68 65 20 62 |op filli|ng the b|
|00003f90| 75 66 66 65 72 2c 0d 0a | 20 20 20 20 20 20 20 49 |uffer,..| I|
|00003fa0| 4e 43 20 20 20 20 20 42 | 20 20 20 20 20 20 20 20 |NC B| |
|00003fb0| 20 20 20 20 20 20 20 3b | 20 65 6c 73 65 20 63 6f | ;| else co|
|00003fc0| 75 6e 74 20 68 6f 77 20 | 6d 61 6e 79 20 62 79 74 |unt how |many byt|
|00003fd0| 65 73 20 77 65 27 76 65 | 20 6d 6f 76 65 64 0d 0a |es we've| moved..|
|00003fe0| 20 20 20 20 20 20 20 4c | 44 20 20 20 20 20 20 28 | L|D (|
|00003ff0| 44 45 29 2c 41 20 20 20 | 20 20 20 20 20 20 20 3b |DE),A | ;|
|00004000| 20 61 6e 64 20 70 75 74 | 20 61 20 62 79 74 65 20 | and put| a byte |
|00004010| 66 72 6f 6d 20 74 68 65 | 20 66 69 6c 65 20 69 6e |from the| file in|
|00004020| 74 6f 20 62 75 66 66 65 | 72 2e 0d 0a 20 20 20 20 |to buffe|r... |
|00004030| 20 20 20 49 4e 43 20 20 | 20 20 20 44 45 20 20 20 | INC | DE |
|00004040| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 42 75 6d | | ; Bum|
|00004050| 70 20 74 68 65 20 62 75 | 66 66 65 72 20 70 6f 69 |p the bu|ffer poi|
|00004060| 6e 74 65 72 2c 0d 0a 20 | 20 20 20 20 20 20 49 4e |nter,.. | IN|
|00004070| 43 20 20 20 20 20 48 4c | 20 20 20 20 20 20 20 20 |C HL| |
|00004080| 20 20 20 20 20 20 3b 20 | 62 75 6d 70 20 74 68 65 | ; |bump the|
|00004090| 20 66 69 6c 65 20 70 6f | 69 6e 74 65 72 2c 0d 0a | file po|inter,..|
|000040a0| 20 20 20 20 20 20 20 4a | 52 20 20 20 20 20 20 4d | J|R M|
|000040b0| 4c 4f 4f 50 20 20 20 20 | 20 20 20 20 20 20 20 3b |LOOP | ;|
|000040c0| 20 61 6e 64 20 67 6f 20 | 6c 6f 6f 6b 20 61 74 20 | and go |look at |
|000040d0| 74 68 65 20 6e 65 78 74 | 20 62 79 74 65 2e 0d 0a |the next| byte...|
|000040e0| 4d 44 4f 4e 45 3a 20 49 | 4e 43 20 20 20 20 20 48 |MDONE: I|NC H|
|000040f0| 4c 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b |L | ;|
|00004100| 20 53 68 6f 75 6c 64 20 | 62 65 20 61 20 6c 69 6e | Should |be a lin|
|00004110| 65 66 65 65 64 20 61 66 | 74 65 72 20 74 68 65 20 |efeed af|ter the |
|00004120| 72 65 74 75 72 6e 0d 0a | 20 20 20 20 20 20 20 49 |return..| I|
|00004130| 4e 43 20 20 20 20 20 48 | 4c 20 20 20 20 20 20 20 |NC H|L |
|00004140| 20 20 20 20 20 20 20 3b | 20 61 6e 64 20 74 68 65 | ;| and the|
|00004150| 20 6e 65 78 74 20 62 79 | 74 65 20 69 73 20 73 74 | next by|te is st|
|00004160| 61 72 74 20 6f 66 20 6e | 65 77 20 6c 69 6e 65 2e |art of n|ew line.|
|00004170| 0d 0a 20 20 20 20 20 20 | 20 50 55 53 48 20 20 20 |.. | PUSH |
|00004180| 20 48 4c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00004190| 20 3b 20 53 61 76 65 20 | 74 68 65 20 66 69 6c 65 | ; Save |the file|
|000041a0| 20 70 6f 69 6e 74 65 72 | 2c 0d 0a 20 20 20 20 20 | pointer|,.. |
|000041b0| 20 20 4c 44 20 20 20 20 | 20 20 48 4c 2c 46 41 4b | LD | HL,FAK|
|000041c0| 45 2b 31 20 20 20 20 20 | 20 20 3b 20 70 6f 69 6e |E+1 | ; poin|
|000041d0| 74 20 74 6f 20 62 79 74 | 65 20 63 6f 75 6e 74 20 |t to byt|e count |
|000041e0| 6c 6f 63 61 74 69 6f 6e | 20 69 6e 20 62 75 66 66 |location| in buff|
|000041f0| 65 72 2c 0d 0a 20 20 20 | 20 20 20 20 4c 44 20 20 |er,.. | LD |
|00004200| 20 20 20 20 28 48 4c 29 | 2c 42 20 20 20 20 20 20 | (HL)|,B |
|00004210| 20 20 20 20 3b 20 61 6e | 64 20 70 75 74 20 74 68 | ; an|d put th|
|00004220| 65 20 6c 65 6e 67 74 68 | 20 6f 66 20 74 68 65 20 |e length| of the |
|00004230| 6c 69 6e 65 20 74 68 65 | 72 65 2e 0d 0a 20 20 20 |line the|re... |
|00004240| 20 20 20 20 44 45 43 20 | 20 20 20 20 48 4c 20 20 | DEC | HL |
|00004250| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 42 61 | | ; Ba|
|00004260| 63 6b 20 75 70 20 74 6f | 20 76 65 72 79 20 73 74 |ck up to| very st|
|00004270| 61 72 74 20 6f 66 20 62 | 75 66 66 65 72 0d 0a 20 |art of b|uffer.. |
|00004280| 20 20 20 20 20 20 4c 44 | 20 20 20 20 20 20 28 42 | LD| (B|
|00004290| 55 46 30 2b 4f 46 46 29 | 2c 48 4c 20 20 20 3b 20 |UF0+OFF)|,HL ; |
|000042a0| 70 72 65 74 65 6e 64 20 | 77 65 20 61 72 65 20 63 |pretend |we are c|
|000042b0| 61 6c 6c 69 6e 67 20 66 | 72 6f 6d 20 74 68 65 20 |alling f|rom the |
|000042c0| 43 43 50 20 21 0d 0a 20 | 20 20 20 20 20 20 43 41 |CCP !.. | CA|
|000042d0| 4c 4c 20 20 20 20 42 44 | 4f 4f 52 2b 4f 46 46 20 |LL BD|OOR+OFF |
|000042e0| 20 20 20 20 20 20 3b 20 | 61 6e 64 20 74 61 6b 65 | ; |and take|
|000042f0| 20 61 20 73 68 6f 72 74 | 63 75 74 20 69 6e 74 6f | a short|cut into|
|00004300| 20 74 68 65 20 74 72 61 | 6e 73 6c 61 74 6f 72 2e | the tra|nslator.|
|00004310| 0d 0a 20 20 20 20 20 20 | 20 50 4f 50 20 20 20 20 |.. | POP |
|00004320| 20 48 4c 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00004330| 20 3b 20 4c 4e 54 20 75 | 70 64 61 74 65 64 20 68 | ; LNT u|pdated h|
|00004340| 69 73 20 74 61 62 6c 65 | 2c 20 6e 6f 77 20 62 61 |is table|, now ba|
|00004350| 63 6b 20 74 6f 20 74 68 | 65 20 66 69 6c 65 0d 0a |ck to th|e file..|
|00004360| 20 20 20 20 20 20 20 4c | 44 20 20 20 20 20 20 41 | L|D A|
|00004370| 2c 28 48 4c 29 20 20 20 | 20 20 20 20 20 20 20 3b |,(HL) | ;|
|00004380| 20 47 65 74 20 74 68 65 | 20 66 69 72 73 74 20 62 | Get the| first b|
|00004390| 79 74 65 20 66 72 6f 6d | 20 74 68 65 20 6e 65 78 |yte from| the nex|
|000043a0| 74 20 6c 69 6e 65 2e 0d | 0a 20 20 20 20 20 20 20 |t line..|. |
|000043b0| 43 50 20 20 20 20 20 20 | 31 41 48 20 20 20 20 20 |CP |1AH |
|000043c0| 20 20 20 20 20 20 20 20 | 3b 20 41 6c 6c 20 64 6f | |; All do|
|000043d0| 6e 65 20 62 79 20 61 6e | 79 20 63 68 61 6e 63 65 |ne by an|y chance|
|000043e0| 3f 0d 0a 20 20 20 20 20 | 20 20 4a 52 20 20 20 20 |?.. | JR |
|000043f0| 20 20 4e 5a 2c 53 59 4e | 54 48 20 20 20 20 20 20 | NZ,SYN|TH |
|00004400| 20 20 3b 20 4e 6f 2c 20 | 67 6f 20 70 72 6f 63 65 | ; No, |go proce|
|00004410| 73 73 20 61 6e 6f 74 68 | 65 72 20 6c 69 6e 65 2e |ss anoth|er line.|
|00004420| 0d 0a 20 20 20 20 20 20 | 20 4a 50 20 20 20 20 20 |.. | JP |
|00004430| 20 47 43 4c 49 50 20 20 | 20 20 20 20 20 20 20 20 | GCLIP | |
|00004440| 20 3b 20 41 6c 6c 20 64 | 6f 6e 65 2e 20 47 6f 20 | ; All d|one. Go |
|00004450| 73 61 79 20 67 6f 6f 64 | 62 79 65 2e 0d 0a 46 41 |say good|bye...FA|
|00004460| 4b 45 3a 20 20 44 42 20 | 31 32 37 20 20 20 20 20 |KE: DB |127 |
|00004470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 53 | | ; S|
|00004480| 74 61 72 74 20 6f 66 20 | 43 43 50 20 62 75 66 66 |tart of |CCP buff|
|00004490| 65 72 20 6c 6f 6f 6b 2d | 61 6c 69 6b 65 2c 0d 0a |er look-|alike,..|
|000044a0| 20 20 20 20 20 20 20 44 | 53 20 31 32 37 20 20 20 | D|S 127 |
|000044b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000044c0| 20 77 69 74 68 20 73 61 | 6d 65 20 6c 65 6e 67 74 | with sa|me lengt|
|000044d0| 68 2e 0d 0a 47 43 4c 49 | 50 3a 20 4c 44 20 20 20 |h...GCLI|P: LD |
|000044e0| 20 20 20 44 45 2c 4f 4b | 4d 53 47 20 20 20 20 20 | DE,OK|MSG |
|000044f0| 20 20 20 3b 20 50 6f 69 | 6e 74 20 74 6f 20 4f 4b | ; Poi|nt to OK|
|00004500| 20 6d 65 73 73 61 67 65 | 2e 0d 0a 20 20 20 20 20 | message|... |
|00004510| 20 20 4c 44 20 20 20 20 | 20 20 43 2c 39 20 20 20 | LD | C,9 |
|00004520| 20 20 20 20 20 20 20 20 | 20 20 3b 20 53 65 6e 64 | | ; Send|
|00004530| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 61 74 20 | the mes|sage at |
|00004540| 44 45 2c 0d 0a 20 20 20 | 20 20 20 20 43 41 4c 4c |DE,.. | CALL|
|00004550| 20 20 20 20 43 50 4d 49 | 4f 20 20 20 20 20 20 20 | CPMI|O |
|00004560| 20 20 20 20 3b 20 61 6e | 64 20 41 55 20 52 45 56 | ; an|d AU REV|
|00004570| 4f 49 52 20 21 0d 0a 20 | 20 20 20 20 20 20 4a 50 |OIR !.. | JP|
|00004580| 20 20 20 20 20 20 30 30 | 30 30 0d 0a 4f 4b 4d 53 | 00|00..OKMS|
|00004590| 47 3a 20 44 42 20 20 20 | 20 20 20 27 20 20 4f 4b |G: DB | ' OK|
|000045a0| 24 27 0d 0a 3b 0d 0a 3b | 20 6d 61 69 6e 20 73 65 |$'..;..;| main se|
|000045b0| 67 6d 65 6e 74 20 74 6f | 20 62 65 20 72 65 6c 6f |gment to| be relo|
|000045c0| 63 61 74 65 64 20 74 6f | 20 68 69 67 68 20 6d 65 |cated to| high me|
|000045d0| 6d 6f 72 79 20 62 65 67 | 69 6e 73 20 68 65 72 65 |mory beg|ins here|
|000045e0| 2e 2e 0d 0a 3b 0d 0a 53 | 43 4f 44 4c 3a 20 4a 50 |....;..S|CODL: JP|
|000045f0| 20 20 20 20 20 20 24 4d | 41 49 4e 2b 4f 46 46 20 | $M|AIN+OFF |
|00004600| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00004610| 45 6e 74 72 79 20 66 72 | 6f 6d 20 42 49 4f 53 20 |Entry fr|om BIOS |
|00004620| 28 4a 4d 50 20 43 43 50 | 29 0d 0a 50 4c 55 53 33 |(JMP CCP|)..PLUS3|
|00004630| 3a 20 4a 50 20 20 20 20 | 20 20 24 4d 41 49 4e 32 |: JP | $MAIN2|
|00004640| 2b 4f 46 46 20 20 20 20 | 20 20 20 20 20 20 20 20 |+OFF | |
|00004650| 20 20 3b 20 45 6e 74 72 | 79 20 66 72 6f 6d 20 42 | ; Entr|y from B|
|00004660| 49 4f 53 20 28 4a 4d 50 | 20 43 43 50 2b 33 29 0d |IOS (JMP| CCP+3).|
|00004670| 0a 42 55 46 30 3a 20 20 | 44 57 20 20 20 20 20 20 |.BUF0: |DW |
|00004680| 30 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |0 | |
|00004690| 20 20 20 20 20 20 20 20 | 3b 20 53 74 6f 72 61 67 | |; Storag|
|000046a0| 65 20 66 6f 72 20 43 43 | 50 27 73 20 62 75 66 66 |e for CC|P's buff|
|000046b0| 65 72 20 61 64 64 72 65 | 73 73 0d 0a 4b 45 45 50 |er addre|ss..KEEP|
|000046c0| 3a 20 20 44 57 20 20 20 | 20 20 20 30 20 20 20 20 |: DW | 0 |
|000046d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000046e0| 20 20 20 3b 20 53 74 6f | 72 61 67 65 20 66 6f 72 | ; Sto|rage for|
|000046f0| 20 67 65 6e 65 72 61 6c | 20 75 73 65 0d 0a 46 49 | general| use..FI|
|00004700| 4e 3a 20 20 20 44 57 20 | 20 20 20 20 20 30 20 20 |N: DW | 0 |
|00004710| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004720| 20 20 20 20 20 3b 20 53 | 74 6f 72 61 67 65 20 66 | ; S|torage f|
|00004730| 6f 72 20 65 6e 64 20 6f | 66 20 62 75 66 66 65 72 |or end o|f buffer|
|00004740| 20 61 64 64 72 65 73 73 | 0d 0a 4e 4f 54 46 3a 20 | address|..NOTF: |
|00004750| 20 44 42 20 31 33 2c 31 | 30 2c 27 4e 4f 54 20 46 | DB 13,1|0,'NOT F|
|00004760| 4f 55 4e 44 27 2c 31 33 | 2c 31 30 2c 27 24 27 0d |OUND',13|,10,'$'.|
|00004770| 0a 4e 4f 57 41 59 3a 20 | 44 42 20 31 33 2c 31 30 |.NOWAY: |DB 13,10|
|00004780| 2c 27 4e 4f 20 52 4f 4f | 4d 27 2c 31 33 2c 31 30 |,'NO ROO|M',13,10|
|00004790| 2c 27 24 27 0d 0a 49 45 | 52 52 3a 20 20 44 42 20 |,'$'..IE|RR: DB |
|000047a0| 31 33 2c 31 30 2c 27 4e | 4f 20 54 52 41 4e 53 4c |13,10,'N|O TRANSL|
|000047b0| 41 54 49 4f 4e 2e 2e 52 | 45 2d 45 4e 54 45 52 2e |ATION..R|E-ENTER.|
|000047c0| 27 2c 31 33 2c 31 30 2c | 27 24 27 0d 0a 24 4c 4f |',13,10,|'$'..$LO|
|000047d0| 47 3a 20 20 44 42 20 34 | 2c 27 23 4c 4f 47 27 0d |G: DB 4|,'#LOG'.|
|000047e0| 0a 24 44 52 4f 50 3a 20 | 44 42 20 35 2c 27 23 44 |.$DROP: |DB 5,'#D|
|000047f0| 52 4f 50 27 0d 0a 20 20 | 20 20 20 20 20 44 53 20 |ROP'.. | DS |
|00004800| 20 20 20 20 20 32 34 20 | 20 20 20 20 20 20 20 20 | 24 | |
|00004810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 4c | | ; L|
|00004820| 6f 63 61 6c 20 73 74 61 | 63 6b 20 73 70 61 63 65 |ocal sta|ck space|
|00004830| 0d 0a 53 41 56 45 3a 20 | 20 44 57 20 20 20 20 20 |..SAVE: | DW |
|00004840| 20 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | 0 | |
|00004850| 20 20 20 20 20 20 20 20 | 20 3b 20 53 74 6f 72 61 | | ; Stora|
|00004860| 67 65 20 66 6f 72 20 43 | 50 2f 4d 27 73 20 73 74 |ge for C|P/M's st|
|00004870| 61 63 6b 20 70 6f 69 6e | 74 65 72 0d 0a 24 4d 41 |ack poin|ter..$MA|
|00004880| 49 4e 3a 20 4c 44 20 20 | 20 20 20 20 48 4c 2c 44 |IN: LD | HL,D|
|00004890| 4f 4f 52 2b 4f 46 46 20 | 20 20 20 20 20 20 20 20 |OOR+OFF | |
|000048a0| 20 20 20 20 3b 20 49 6e | 69 74 69 61 6c 69 7a 65 | ; In|itialize|
|000048b0| 20 74 68 65 20 43 43 50 | 20 6f 6e 20 77 61 72 6d | the CCP| on warm|
|000048c0| 20 62 6f 6f 74 0d 0a 20 | 20 20 20 20 20 20 4c 44 | boot.. | LD|
|000048d0| 20 20 20 20 20 20 28 43 | 54 41 52 47 29 2c 48 4c | (C|TARG),HL|
|000048e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|000048f0| 62 79 20 61 6c 74 65 72 | 69 6e 67 20 74 68 65 20 |by alter|ing the |
|00004900| 42 44 4f 53 20 63 61 6c | 6c 0d 0a 46 49 58 58 31 |BDOS cal|l..FIXX1|
|00004910| 3a 20 20 4a 50 20 20 20 | 20 20 20 30 30 30 30 20 |: JP | 0000 |
|00004920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004930| 20 20 3b 20 54 68 69 73 | 20 77 69 6c 6c 20 62 65 | ; This| will be|
|00004940| 20 61 20 4a 4d 50 20 74 | 6f 20 43 43 50 20 20 20 | a JMP t|o CCP |
|00004950| 0d 0a 3b 0d 0a 24 4d 41 | 49 4e 32 3a 20 4c 44 20 |..;..$MA|IN2: LD |
|00004960| 20 20 20 20 48 4c 2c 44 | 4f 4f 52 2b 4f 46 46 20 | HL,D|OOR+OFF |
|00004970| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 49 6e | | ; In|
|00004980| 69 74 69 61 6c 69 7a 65 | 20 43 43 50 20 6f 6e 20 |itialize| CCP on |
|00004990| 66 61 6e 63 79 20 62 6f | 6f 74 0d 0a 20 20 20 20 |fancy bo|ot.. |
|000049a0| 20 20 20 4c 44 20 20 20 | 20 20 20 28 43 54 41 52 | LD | (CTAR|
|000049b0| 47 29 2c 48 4c 20 20 20 | 20 20 20 20 20 20 20 20 |G),HL | |
|000049c0| 20 20 20 3b 20 62 79 20 | 61 6c 74 65 72 69 6e 67 | ; by |altering|
|000049d0| 20 74 68 65 20 42 44 4f | 53 20 63 61 6c 6c 0d 0a | the BDO|S call..|
|000049e0| 46 49 58 58 32 3a 20 4a | 50 20 20 20 20 20 20 30 |FIXX2: J|P 0|
|000049f0| 30 30 30 48 20 20 20 20 | 20 20 20 20 20 20 20 20 |000H | |
|00004a00| 20 20 20 20 20 20 20 3b | 20 54 68 69 73 20 77 69 | ;| This wi|
|00004a10| 6c 6c 20 62 65 20 61 20 | 4a 4d 50 20 74 6f 20 43 |ll be a |JMP to C|
|00004a20| 43 50 2b 33 0d 0a 3b 0d | 0a 3b 20 54 48 45 20 41 |CP+3..;.|.; THE A|
|00004a30| 44 44 52 45 53 53 20 4f | 46 20 54 48 45 20 54 41 |DDRESS O|F THE TA|
|00004a40| 42 4c 45 20 49 53 20 50 | 55 54 20 41 54 20 44 4f |BLE IS P|UT AT DO|
|00004a50| 4f 52 2d 32 20 53 4f 20 | 54 48 41 54 20 53 41 56 |OR-2 SO |THAT SAV|
|00004a60| 4c 4f 47 20 43 41 4e 20 | 46 49 4e 44 20 49 54 20 |LOG CAN |FIND IT |
|00004a70| 42 59 0d 0a 3b 20 43 48 | 45 43 4b 49 4e 47 20 54 |BY..; CH|ECKING T|
|00004a80| 48 45 20 43 41 4c 4c 20 | 41 44 44 52 45 53 53 20 |HE CALL |ADDRESS |
|00004a90| 46 52 4f 4d 20 54 48 45 | 20 43 43 50 20 41 4e 44 |FROM THE| CCP AND|
|00004aa0| 20 53 55 42 54 52 41 43 | 54 49 4e 47 20 32 2e 0d | SUBTRAC|TING 2..|
|00004ab0| 0a 3b 0d 0a 20 20 20 20 | 20 20 20 44 57 20 20 20 |.;.. | DW |
|00004ac0| 20 20 20 4c 4e 54 2b 4f | 46 46 20 20 20 20 20 20 | LNT+O|FF |
|00004ad0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 4b 65 65 | | ; Kee|
|00004ae0| 70 20 73 74 61 72 74 20 | 6f 66 20 74 61 62 6c 65 |p start |of table|
|00004af0| 20 66 6f 72 20 53 41 56 | 4c 4f 47 0d 0a 3b 20 0d | for SAV|LOG..; .|
|00004b00| 0a 3b 20 48 45 52 45 20 | 49 53 20 57 48 45 52 45 |.; HERE |IS WHERE|
|00004b10| 20 54 48 45 20 43 43 50 | 20 57 49 4c 4c 20 43 41 | THE CCP| WILL CA|
|00004b20| 4c 4c 20 57 48 45 4e 20 | 48 45 20 57 41 4e 54 53 |LL WHEN |HE WANTS|
|00004b30| 20 41 4e 20 49 4e 50 55 | 54 20 4c 49 4e 45 0d 0a | AN INPU|T LINE..|
|00004b40| 3b 0d 0a 44 4f 4f 52 3a | 20 20 4c 44 20 20 20 20 |;..DOOR:| LD |
|00004b50| 20 20 28 42 55 46 30 2b | 4f 46 46 29 2c 44 45 20 | (BUF0+|OFF),DE |
|00004b60| 20 20 20 20 20 20 20 20 | 20 20 3b 20 53 61 76 65 | | ; Save|
|00004b70| 20 43 43 50 27 73 20 62 | 75 66 66 65 72 20 61 64 | CCP's b|uffer ad|
|00004b80| 64 72 65 73 73 0d 0a 20 | 20 20 20 20 20 20 43 41 |dress.. | CA|
|00004b90| 4c 4c 20 20 20 20 43 50 | 4d 49 4f 20 20 20 20 20 |LL CP|MIO |
|00004ba0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00004bb0| 74 68 65 6e 20 67 6f 20 | 67 65 74 20 74 68 65 20 |then go |get the |
|00004bc0| 69 6e 70 75 74 20 6c 69 | 6e 65 2e 0d 0a 42 44 4f |input li|ne...BDO|
|00004bd0| 4f 52 3a 20 4c 44 20 20 | 20 20 20 20 48 4c 2c 28 |OR: LD | HL,(|
|00004be0| 42 55 46 30 2b 4f 46 46 | 29 20 20 20 20 20 20 20 |BUF0+OFF|) |
|00004bf0| 20 20 20 20 3b 20 48 4c | 20 67 65 74 73 20 74 68 | ; HL| gets th|
|00004c00| 65 20 73 74 61 72 74 20 | 6f 66 20 62 75 66 66 65 |e start |of buffe|
|00004c10| 72 0d 0a 20 20 20 20 20 | 20 20 49 4e 43 20 20 20 |r.. | INC |
|00004c20| 20 20 48 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00004c30| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 6c 75 73 | | ; plus|
|00004c40| 20 6f 6e 65 20 28 6c 65 | 6e 67 74 68 20 6f 66 20 | one (le|ngth of |
|00004c50| 6c 69 6e 65 29 2e 0d 0a | 20 20 20 20 20 20 20 4c |line)...| L|
|00004c60| 44 20 20 20 20 20 20 41 | 2c 28 48 4c 29 20 20 20 |D A|,(HL) |
|00004c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00004c80| 20 44 69 64 20 79 6f 75 | 20 6a 75 73 74 20 74 79 | Did you| just ty|
|00004c90| 70 65 20 3c 72 65 74 3e | 3f 0d 0a 20 20 20 20 20 |pe <ret>|?.. |
|00004ca0| 20 20 4f 52 20 20 20 20 | 20 20 41 20 20 20 20 20 | OR | A |
|00004cb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004cc0| 20 20 3b 20 49 66 20 73 | 6f 2c 20 74 68 65 6e 20 | ; If s|o, then |
|00004cd0| 74 68 65 72 65 73 20 6e | 6f 74 68 69 6e 67 20 74 |theres n|othing t|
|00004ce0| 6f 0d 0a 20 20 20 20 20 | 20 20 52 45 54 20 20 20 |o.. | RET |
|00004cf0| 20 20 5a 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | Z | |
|00004d00| 20 20 20 20 20 20 20 20 | 20 20 3b 20 74 6f 20 6c | | ; to l|
|00004d10| 6f 6f 6b 20 61 74 2e 2e | 72 65 74 75 72 6e 20 74 |ook at..|return t|
|00004d20| 6f 20 43 43 50 2e 0d 0a | 20 20 20 20 20 20 20 4c |o CCP...| L|
|00004d30| 44 20 20 20 20 20 20 44 | 2c 48 20 20 20 20 20 20 |D D|,H |
|00004d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00004d50| 20 65 6c 73 65 20 6c 65 | 74 20 44 45 20 70 6f 69 | else le|t DE poi|
|00004d60| 6e 74 20 74 6f 20 6c 69 | 6e 65 20 6c 65 6e 67 74 |nt to li|ne lengt|
|00004d70| 68 2c 0d 0a 20 20 20 20 | 20 20 20 4c 44 20 20 20 |h,.. | LD |
|00004d80| 20 20 20 45 2c 4c 20 20 | 20 20 20 20 20 20 20 20 | E,L | |
|00004d90| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 74 68 65 | | ; the|
|00004da0| 6e 20 61 64 64 20 74 68 | 65 20 6c 65 6e 67 74 68 |n add th|e length|
|00004db0| 20 74 6f 20 44 45 20 73 | 6f 0d 0a 20 20 20 20 20 | to DE s|o.. |
|00004dc0| 20 20 43 41 4c 4c 20 20 | 20 20 41 44 45 2b 4f 46 | CALL | ADE+OF|
|00004dd0| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F | |
|00004de0| 20 20 3b 20 74 68 61 74 | 20 69 74 20 70 6f 69 6e | ; that| it poin|
|00004df0| 74 73 20 74 6f 20 65 6e | 64 20 6f 66 20 6c 69 6e |ts to en|d of lin|
|00004e00| 65 2c 0d 0a 20 20 20 20 | 20 20 20 49 4e 43 20 20 |e,.. | INC |
|00004e10| 20 20 20 44 45 20 20 20 | 20 20 20 20 20 20 20 20 | DE | |
|00004e20| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 70 6c 75 | | ; plu|
|00004e30| 73 20 6f 6e 65 2c 20 74 | 68 65 6e 0d 0a 20 20 20 |s one, t|hen.. |
|00004e40| 20 20 20 20 58 4f 52 20 | 20 20 20 20 41 20 20 20 | XOR | A |
|00004e50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004e60| 20 20 20 20 3b 20 70 75 | 74 20 61 20 30 30 20 62 | ; pu|t a 00 b|
|00004e70| 79 74 65 20 74 68 65 72 | 65 20 74 6f 0d 0a 20 20 |yte ther|e to.. |
|00004e80| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 28 44 45 | LD | (DE|
|00004e90| 29 2c 41 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |),A | |
|00004ea0| 20 20 20 20 20 3b 20 74 | 65 72 6d 69 6e 61 74 65 | ; t|erminate|
|00004eb0| 20 74 68 65 20 69 6e 70 | 75 74 20 6c 69 6e 65 2c | the inp|ut line,|
|00004ec0| 20 61 6e 64 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 | and.. | LD |
|00004ed0| 20 20 20 20 20 28 46 49 | 4e 2b 4f 46 46 29 2c 44 | (FI|N+OFF),D|
|00004ee0| 45 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |E | ; s|
|00004ef0| 74 6f 72 65 20 74 68 65 | 20 65 6e 64 2d 6f 66 2d |tore the| end-of-|
|00004f00| 6c 69 6e 65 20 61 64 64 | 72 65 73 73 2e 0d 0a 20 |line add|ress... |
|00004f10| 20 20 20 20 20 20 50 55 | 53 48 20 20 20 20 48 4c | PU|SH HL|
|00004f20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004f30| 20 20 20 20 20 20 3b 20 | 53 61 76 65 20 48 4c 20 | ; |Save HL |
|00004f40| 28 62 75 66 66 65 72 20 | 73 74 61 72 74 2b 31 29 |(buffer |start+1)|
|00004f50| 2e 0d 0a 4c 43 4c 50 3a | 20 20 49 4e 43 20 20 20 |...LCLP:| INC |
|00004f60| 20 20 48 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00004f70| 20 20 20 20 20 20 20 20 | 20 20 3b 20 50 6f 69 6e | | ; Poin|
|00004f80| 74 20 74 6f 20 6e 65 78 | 74 20 62 79 74 65 20 6f |t to nex|t byte o|
|00004f90| 66 20 6c 69 6e 65 2c 0d | 0a 20 20 20 20 20 20 20 |f line,.|. |
|00004fa0| 4c 44 20 20 20 20 20 20 | 41 2c 28 48 4c 29 20 20 |LD |A,(HL) |
|00004fb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00004fc0| 3b 20 61 6e 64 20 63 68 | 65 63 6b 20 74 6f 20 73 |; and ch|eck to s|
|00004fd0| 65 65 0d 0a 20 20 20 20 | 20 20 20 4f 52 20 20 20 |ee.. | OR |
|00004fe0| 20 20 20 41 20 20 20 20 | 20 20 20 20 20 20 20 20 | A | |
|00004ff0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 69 66 20 | | ; if |
|00005000| 69 74 73 20 74 68 65 20 | 30 30 20 74 65 72 6d 69 |its the |00 termi|
|00005010| 6e 61 74 6f 72 2c 0d 0a | 20 20 20 20 20 20 20 4a |nator,..| J|
|00005020| 52 20 20 20 20 20 20 5a | 2c 43 48 4b 4f 56 20 20 |R Z|,CHKOV |
|00005030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00005040| 20 49 66 20 73 6f 2c 20 | 74 68 65 20 63 68 65 63 | If so, |the chec|
|00005050| 6b 20 69 73 20 6f 76 65 | 72 2c 20 6a 75 6d 70 2e |k is ove|r, jump.|
|00005060| 0d 0a 20 20 20 20 20 20 | 20 43 50 20 20 20 20 20 |.. | CP |
|00005070| 20 27 61 27 20 20 20 20 | 20 20 20 20 20 20 20 20 | 'a' | |
|00005080| 20 20 20 20 20 20 20 20 | 20 3b 20 49 73 20 74 68 | | ; Is th|
|00005090| 65 20 63 68 61 72 61 63 | 74 65 72 20 6c 6f 77 65 |e charac|ter lowe|
|000050a0| 72 20 63 61 73 65 3f 0d | 0a 20 20 20 20 20 20 20 |r case?.|. |
|000050b0| 4a 52 20 20 20 20 20 20 | 43 2c 4c 43 4c 50 20 20 |JR |C,LCLP |
|000050c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000050d0| 3b 20 49 66 20 6e 6f 74 | 2c 20 63 6f 6e 74 69 6e |; If not|, contin|
|000050e0| 75 65 0d 0a 20 20 20 20 | 20 20 20 43 50 20 20 20 |ue.. | CP |
|000050f0| 20 20 20 27 7b 27 20 20 | 20 20 20 20 20 20 20 20 | '{' | |
|00005100| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 65 6c 73 | | ; els|
|00005110| 65 20 74 68 69 73 20 63 | 6f 64 65 20 77 69 6c 6c |e this c|ode will|
|00005120| 20 63 6f 6e 76 65 72 74 | 20 74 6f 0d 0a 20 20 20 | convert| to.. |
|00005130| 20 20 20 20 4a 52 20 20 | 20 20 20 20 4e 43 2c 4c | JR | NC,L|
|00005140| 43 4c 50 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |CLP | |
|00005150| 20 20 20 20 3b 20 75 70 | 70 65 72 63 61 73 65 2e | ; up|percase.|
|00005160| 20 28 54 68 65 20 43 43 | 50 20 64 6f 65 73 20 74 | (The CC|P does t|
|00005170| 68 65 20 0d 0a 20 20 20 | 20 20 20 20 41 4e 44 20 |he .. | AND |
|00005180| 20 20 20 20 30 44 46 48 | 20 20 20 20 20 20 20 20 | 0DFH| |
|00005190| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 73 61 | | ; sa|
|000051a0| 6d 65 20 74 68 69 6e 67 | 20 6c 61 74 65 72 2c 20 |me thing| later, |
|000051b0| 62 75 74 20 77 65 20 6e | 65 65 64 0d 0a 20 20 20 |but we n|eed.. |
|000051c0| 20 20 20 20 4c 44 20 20 | 20 20 20 20 28 48 4c 29 | LD | (HL)|
|000051d0| 2c 41 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,A | |
|000051e0| 20 20 20 20 3b 20 74 6f | 20 64 6f 20 69 74 20 4e | ; to| do it N|
|000051f0| 4f 57 29 2e 0d 0a 20 20 | 20 20 20 20 20 4a 52 20 |OW)... | JR |
|00005200| 20 20 20 20 20 4c 43 4c | 50 20 20 20 20 20 20 20 | LCL|P |
|00005210| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 43 | | ; C|
|00005220| 6f 6e 74 69 6e 75 65 20 | 63 6f 6e 76 65 72 74 69 |ontinue |converti|
|00005230| 6e 67 20 74 6f 20 75 70 | 70 65 72 2e 0d 0a 43 48 |ng to up|per...CH|
|00005240| 4b 4f 56 3a 20 50 4f 50 | 20 20 20 20 20 48 4c 20 |KOV: POP| HL |
|00005250| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005260| 20 20 20 20 20 3b 20 52 | 65 74 72 69 65 76 65 20 | ; R|etrieve |
|00005270| 73 74 61 72 74 20 6f 66 | 20 62 75 66 65 72 2b 31 |start of| bufer+1|
|00005280| 2e 0d 0a 20 20 20 20 20 | 20 20 49 4e 43 20 20 20 |... | INC |
|00005290| 20 20 48 4c 20 20 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|000052a0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 70 6f 69 6e | | ; poin|
|000052b0| 74 20 74 6f 20 66 69 72 | 73 74 20 62 79 74 65 20 |t to fir|st byte |
|000052c0| 6f 66 20 6c 69 6e 65 2e | 0d 0a 20 20 20 20 20 20 |of line.|.. |
|000052d0| 20 4c 44 20 20 20 20 20 | 20 41 2c 28 48 4c 29 20 | LD | A,(HL) |
|000052e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000052f0| 20 3b 20 49 73 20 74 68 | 69 73 20 61 6e 20 49 4e | ; Is th|is an IN|
|00005300| 53 54 52 55 43 54 49 4f | 4e 20 6c 69 6e 65 3f 0d |STRUCTIO|N line?.|
|00005310| 0a 20 20 20 20 20 20 20 | 43 50 20 20 20 20 20 20 |. |CP |
|00005320| 27 23 27 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |'#' | |
|00005330| 20 20 20 20 20 20 20 20 | 3b 20 49 66 20 73 6f 2c | |; If so,|
|00005340| 20 68 65 79 2e 2e 77 61 | 69 74 20 77 65 20 62 65 | hey..wa|it we be|
|00005350| 74 74 65 72 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 |tter.. | LD |
|00005360| 20 20 20 20 20 28 53 41 | 56 45 2b 4f 46 46 29 2c | (SA|VE+OFF),|
|00005370| 53 50 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 |SP | ; s|
|00005380| 65 74 20 75 70 20 6f 75 | 72 20 6f 77 6e 20 73 74 |et up ou|r own st|
|00005390| 61 63 6b 20 69 6e 20 65 | 69 74 68 65 72 0d 0a 20 |ack in e|ither.. |
|000053a0| 20 20 20 20 20 20 4c 44 | 20 20 20 20 20 20 53 50 | LD| SP|
|000053b0| 2c 53 41 56 45 2b 4f 46 | 46 20 20 20 20 20 20 20 |,SAVE+OF|F |
|000053c0| 20 20 20 20 20 20 3b 20 | 63 61 73 65 2e 20 53 61 | ; |case. Sa|
|000053d0| 76 65 20 68 69 73 20 53 | 74 61 63 6b 20 70 6f 69 |ve his S|tack poi|
|000053e0| 6e 74 65 72 2e 0d 0a 20 | 20 20 20 20 20 20 4a 50 |nter... | JP|
|000053f0| 20 20 20 20 20 20 5a 2c | 41 4e 4c 49 5a 2b 4f 46 | Z,|ANLIZ+OF|
|00005400| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 2e |F | ;.|
|00005410| 2e 2e 49 66 20 73 6f 2c | 20 74 68 65 6e 20 67 6f |..If so,| then go|
|00005420| 20 70 72 6f 63 65 73 73 | 20 6c 69 6e 65 2e 0d 0a | process| line...|
|00005430| 3b 0d 0a 3b 20 54 48 49 | 53 20 49 53 20 4e 4f 54 |;..; THI|S IS NOT|
|00005440| 20 41 20 4c 4e 54 20 49 | 4e 53 54 52 55 43 54 49 | A LNT I|NSTRUCTI|
|00005450| 4f 4e 0d 0a 3b 0d 0a 20 | 20 20 20 20 20 20 45 58 |ON..;.. | EX|
|00005460| 20 20 20 20 20 20 44 45 | 2c 48 4c 20 20 20 20 20 | DE|,HL |
|00005470| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00005480| 44 45 20 67 65 74 73 20 | 73 74 61 72 74 20 6f 66 |DE gets |start of|
|00005490| 20 62 75 66 66 65 72 0d | 0a 53 43 4e 4c 50 3a 20 | buffer.|.SCNLP: |
|000054a0| 43 41 4c 4c 20 20 20 20 | 47 45 54 57 44 2b 4f 46 |CALL |GETWD+OF|
|000054b0| 46 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |F | |
|000054c0| 3b 20 67 65 74 20 74 68 | 65 20 70 69 65 63 65 20 |; get th|e piece |
|000054d0| 6f 66 20 69 6e 70 75 74 | 20 61 74 20 44 45 0d 0a |of input| at DE..|
|000054e0| 20 20 20 20 20 20 20 4a | 52 20 20 20 20 20 20 5a | J|R Z|
|000054f0| 2c 44 4f 4e 45 20 20 20 | 20 20 20 20 20 20 20 20 |,DONE | |
|00005500| 20 20 20 20 20 20 20 3b | 20 49 66 20 6e 6f 20 6d | ;| If no m|
|00005510| 6f 72 65 20 70 69 65 63 | 65 73 2c 20 67 65 74 20 |ore piec|es, get |
|00005520| 6f 75 74 2e 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 |out... | LD |
|00005530| 20 20 20 20 20 41 2c 28 | 44 45 29 20 20 20 20 20 | A,(|DE) |
|00005540| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 65 | | ; e|
|00005550| 6c 73 65 20 6c 6f 6f 6b | 20 61 74 20 6c 61 73 74 |lse look| at last|
|00005560| 20 63 68 61 72 20 73 63 | 61 6e 6e 65 64 2e 0d 0a | char sc|anned...|
|00005570| 20 20 20 20 20 20 20 43 | 50 20 20 20 20 20 20 27 | C|P '|
|00005580| 3a 27 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |:' | |
|00005590| 20 20 20 20 20 20 20 3b | 20 57 61 73 20 74 68 65 | ;| Was the|
|000055a0| 20 73 65 70 65 72 61 74 | 69 6f 6e 20 63 68 61 72 | seperat|ion char|
|000055b0| 20 61 20 3a 20 3f 0d 0a | 20 20 20 20 20 20 20 4a | a : ?..| J|
|000055c0| 52 20 20 20 20 20 20 4e | 5a 2c 4e 4f 54 44 20 20 |R N|Z,NOTD |
|000055d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000055e0| 20 49 66 20 6e 6f 74 2c | 20 6e 65 76 65 72 20 6d | If not,| never m|
|000055f0| 69 6e 64 2c 20 6a 75 6d | 70 20 4e 4f 54 44 0d 0a |ind, jum|p NOTD..|
|00005600| 20 20 20 20 20 20 20 4c | 44 20 20 20 20 20 20 41 | L|D A|
|00005610| 2c 31 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,1 | |
|00005620| 20 20 20 20 20 20 20 3b | 20 65 6c 73 65 20 73 65 | ;| else se|
|00005630| 65 20 69 66 20 70 69 65 | 63 65 20 77 61 73 20 6f |e if pie|ce was o|
|00005640| 6e 6c 79 0d 0a 20 20 20 | 20 20 20 20 43 50 20 20 |nly.. | CP |
|00005650| 20 20 20 20 42 20 20 20 | 20 20 20 20 20 20 20 20 | B | |
|00005660| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 6f 6e | | ; on|
|00005670| 65 20 63 68 61 72 61 63 | 74 65 72 20 28 6d 61 79 |e charac|ter (may|
|00005680| 62 65 20 64 72 69 76 65 | 20 73 70 65 63 29 2e 0d |be drive| spec)..|
|00005690| 0a 20 20 20 20 20 20 20 | 4a 52 20 20 20 20 20 20 |. |JR |
|000056a0| 5a 2c 53 43 4e 4c 50 20 | 20 20 20 20 20 20 20 20 |Z,SCNLP | |
|000056b0| 20 20 20 20 20 20 20 20 | 3b 20 69 66 20 73 6f 2c | |; if so,|
|000056c0| 20 69 67 6e 6f 72 65 20 | 74 68 69 73 20 70 69 65 | ignore |this pie|
|000056d0| 63 65 2c 20 6c 6f 6f 70 | 2e 0d 0a 4e 4f 54 44 3a |ce, loop|...NOTD:|
|000056e0| 20 20 50 55 53 48 20 20 | 20 20 44 45 20 20 20 20 | PUSH | DE |
|000056f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005700| 20 20 3b 20 47 6f 74 20 | 73 6f 6d 65 74 68 69 6e | ; Got |somethin|
|00005710| 67 2e 20 53 61 76 65 20 | 6c 69 6e 65 20 70 74 72 |g. Save |line ptr|
|00005720| 2e 0d 0a 20 20 20 20 20 | 20 20 43 41 4c 4c 20 20 |... | CALL |
|00005730| 20 20 46 49 4e 44 2b 4f | 46 46 20 20 20 20 20 20 | FIND+O|FF |
|00005740| 20 20 20 20 20 20 20 20 | 20 20 3b 20 67 6f 20 73 | | ; go s|
|00005750| 65 65 20 69 66 20 69 74 | 73 20 69 6e 20 74 61 62 |ee if it|s in tab|
|00005760| 6c 65 2e 0d 0a 20 20 20 | 20 20 20 20 43 41 4c 4c |le... | CALL|
|00005770| 20 20 20 20 4e 5a 2c 58 | 4c 41 54 45 2b 4f 46 46 | NZ,X|LATE+OFF|
|00005780| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 49 66 | | ; If|
|00005790| 20 69 74 20 69 73 2c 20 | 64 6f 20 74 72 61 6e 73 | it is, |do trans|
|000057a0| 6c 61 74 69 6f 6e 2e 0d | 0a 20 20 20 20 20 20 20 |lation..|. |
|000057b0| 50 4f 50 20 20 20 20 20 | 44 45 20 20 20 20 20 20 |POP |DE |
|000057c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000057d0| 3b 20 49 66 20 6e 6f 74 | 2c 20 72 65 6d 65 6d 62 |; If not|, rememb|
|000057e0| 65 72 20 77 68 65 72 65 | 20 77 65 20 77 65 72 65 |er where| we were|
|000057f0| 2c 0d 0a 20 20 20 20 20 | 20 20 4a 52 20 20 20 20 |,.. | JR |
|00005800| 20 20 53 43 4e 4c 50 20 | 20 20 20 20 20 20 20 20 | SCNLP | |
|00005810| 20 20 20 20 20 20 20 20 | 20 20 3b 20 61 6e 64 20 | | ; and |
|00005820| 63 6f 6e 74 69 6e 75 65 | 20 73 63 61 6e 6e 69 6e |continue| scannin|
|00005830| 20 74 68 65 20 6c 69 6e | 65 2e 0d 0a 44 4f 4e 45 | the lin|e...DONE|
|00005840| 3a 20 20 4c 44 20 20 20 | 20 20 20 48 4c 2c 28 42 |: LD | HL,(B|
|00005850| 55 46 30 2b 4f 46 46 29 | 20 20 20 20 20 20 20 20 |UF0+OFF)| |
|00005860| 20 20 20 3b 20 44 6f 6e | 65 20 73 63 61 6e 6e 69 | ; Don|e scanni|
|00005870| 6e 67 2c 20 70 6f 69 6e | 74 20 48 4c 20 74 6f 20 |ng, poin|t HL to |
|00005880| 62 75 66 66 65 72 0d 0a | 20 20 20 20 20 20 20 49 |buffer..| I|
|00005890| 4e 43 20 20 20 20 20 48 | 4c 20 20 20 20 20 20 20 |NC H|L |
|000058a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|000058b0| 20 70 6c 75 73 20 6f 6e | 65 2c 20 61 6e 64 20 0d | plus on|e, and .|
|000058c0| 0a 20 20 20 20 20 20 20 | 49 4e 43 20 20 20 20 20 |. |INC |
|000058d0| 48 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |HL | |
|000058e0| 20 20 20 20 20 20 20 20 | 3b 20 66 69 6e 61 6c 6c | |; finall|
|000058f0| 79 20 74 6f 20 6c 69 6e | 65 20 6c 65 6e 67 74 68 |y to lin|e length|
|00005900| 20 62 79 74 65 2e 0d 0a | 20 20 20 20 20 20 20 4c | byte...| L|
|00005910| 44 20 20 20 20 20 20 42 | 43 2c 32 37 33 42 48 20 |D B|C,273BH |
|00005920| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00005930| 20 4c 6f 61 64 20 61 20 | 3b 20 61 6e 64 20 27 20 | Load a |; and ' |
|00005940| 69 6e 74 6f 20 42 20 61 | 6e 64 20 43 2e 0d 0a 43 |into B a|nd C...C|
|00005950| 4c 45 41 4e 3a 20 4c 44 | 20 20 20 20 20 20 41 2c |LEAN: LD| A,|
|00005960| 28 48 4c 29 20 20 20 20 | 20 20 20 20 20 20 20 20 |(HL) | |
|00005970| 20 20 20 20 20 20 3b 20 | 50 75 74 20 62 79 74 65 | ; |Put byte|
|00005980| 20 66 72 6f 6d 20 6c 69 | 6e 65 20 69 6e 74 6f 20 | from li|ne into |
|00005990| 41 2e 0d 0a 20 20 20 20 | 20 20 20 4f 52 20 20 20 |A... | OR |
|000059a0| 20 20 20 41 20 20 20 20 | 20 20 20 20 20 20 20 20 | A | |
|000059b0| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 41 72 65 | | ; Are|
|000059c0| 20 77 65 20 61 74 20 65 | 6e 64 2d 6f 66 2d 6c 69 | we at e|nd-of-li|
|000059d0| 6e 65 3f 0d 0a 20 20 20 | 20 20 20 20 4a 50 20 20 |ne?.. | JP |
|000059e0| 20 20 20 20 5a 2c 42 59 | 45 2b 4f 46 46 20 20 20 | Z,BY|E+OFF |
|000059f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 49 66 | | ; If|
|00005a00| 20 73 6f 2c 20 74 68 65 | 6e 20 67 6f 20 77 69 6e | so, the|n go win|
|00005a10| 64 20 64 6f 77 6e 2c 0d | 0a 20 20 20 20 20 20 20 |d down,.|. |
|00005a20| 43 50 20 20 20 20 20 20 | 42 20 20 20 20 20 20 20 |CP |B |
|00005a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005a40| 3b 20 65 6c 73 65 20 63 | 68 65 63 6b 20 66 6f 72 |; else c|heck for|
|00005a50| 20 3b 0d 0a 20 20 20 20 | 20 20 20 4a 52 20 20 20 | ;.. | JR |
|00005a60| 20 20 20 5a 2c 43 48 4f | 50 31 20 20 20 20 20 20 | Z,CHO|P1 |
|00005a70| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 49 66 20 | | ; If |
|00005a80| 3b 20 66 6f 75 6e 64 2c | 20 67 6f 20 65 6c 69 6d |; found,| go elim|
|00005a90| 69 6e 61 74 65 20 69 74 | 2e 0d 0a 20 20 20 20 20 |inate it|... |
|00005aa0| 20 20 43 50 20 20 20 20 | 20 20 43 20 20 20 20 20 | CP | C |
|00005ab0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ac0| 20 20 3b 20 65 6c 73 65 | 20 63 68 65 63 6b 20 66 | ; else| check f|
|00005ad0| 6f 72 20 27 0d 0a 20 20 | 20 20 20 20 20 4a 52 20 |or '.. | JR |
|00005ae0| 20 20 20 20 20 5a 2c 43 | 48 4f 50 31 20 20 20 20 | Z,C|HOP1 |
|00005af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 49 | | ; I|
|00005b00| 66 20 27 20 66 6f 75 6e | 64 2c 20 67 6f 20 65 6c |f ' foun|d, go el|
|00005b10| 69 6d 69 6e 61 74 65 20 | 69 74 2e 0d 0a 20 20 20 |iminate |it... |
|00005b20| 20 20 20 20 49 4e 43 20 | 20 20 20 20 48 4c 20 20 | INC | HL |
|00005b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005b40| 20 20 20 20 3b 20 70 6f | 69 6e 74 20 74 6f 20 6e | ; po|int to n|
|00005b50| 65 78 74 20 62 79 74 65 | 20 69 6e 20 6c 69 6e 65 |ext byte| in line|
|00005b60| 2c 0d 0a 20 20 20 20 20 | 20 20 4a 52 20 20 20 20 |,.. | JR |
|00005b70| 20 20 43 4c 45 41 4e 20 | 20 20 20 20 20 20 20 20 | CLEAN | |
|00005b80| 20 20 20 20 20 20 20 20 | 20 20 3b 20 61 6e 64 20 | | ; and |
|00005b90| 63 6f 6e 74 69 6e 75 65 | 20 63 6c 65 61 6e 69 6e |continue| cleanin|
|00005ba0| 67 20 75 70 2e 0d 0a 43 | 48 4f 50 31 3a 20 43 41 |g up...C|HOP1: CA|
|00005bb0| 4c 4c 20 20 20 20 45 52 | 41 31 2b 4f 46 46 20 20 |LL ER|A1+OFF |
|00005bc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00005bd0| 41 20 3b 20 6f 72 20 27 | 20 66 6f 75 6e 64 2c 20 |A ; or '| found, |
|00005be0| 64 65 6c 65 74 65 20 69 | 74 2e 0d 0a 20 20 20 20 |delete i|t... |
|00005bf0| 20 20 20 4a 52 20 20 20 | 20 20 20 43 4c 45 41 4e | JR | CLEAN|
|00005c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005c10| 20 20 20 3b 20 61 6e 64 | 20 63 6f 6e 74 69 6e 75 | ; and| continu|
|00005c20| 65 20 63 6c 65 61 6e 69 | 6e 67 20 75 70 2e 0d 0a |e cleani|ng up...|
|00005c30| 3b 0d 0a 3b 20 45 52 41 | 31 2e 20 20 44 45 4c 45 |;..; ERA|1. DELE|
|00005c40| 54 45 20 4f 4e 45 20 43 | 48 41 52 41 43 54 45 52 |TE ONE C|HARACTER|
|00005c50| 20 50 4f 49 4e 54 45 44 | 20 54 4f 20 42 59 20 48 | POINTED| TO BY H|
|00005c60| 4c 2c 20 41 4e 44 20 41 | 4a 55 53 54 20 4c 49 4e |L, AND A|JUST LIN|
|00005c70| 45 20 4c 45 4e 2e 0d 0a | 3b 0d 0a 45 52 41 31 3a |E LEN...|;..ERA1:|
|00005c80| 20 20 50 55 53 48 20 20 | 20 20 48 4c 20 20 20 20 | PUSH | HL |
|00005c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ca0| 20 20 3b 20 53 61 76 65 | 0d 0a 20 20 20 20 20 20 | ; Save|.. |
|00005cb0| 20 50 55 53 48 20 20 20 | 20 44 45 20 20 20 20 20 | PUSH | DE |
|00005cc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005cd0| 20 3b 20 65 76 65 72 79 | 2d 0d 0a 20 20 20 20 20 | ; every|-.. |
|00005ce0| 20 20 50 55 53 48 20 20 | 20 20 42 43 20 20 20 20 | PUSH | BC |
|00005cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005d00| 20 20 3b 20 62 6f 64 79 | 2e 0d 0a 20 20 20 20 20 | ; body|... |
|00005d10| 20 20 4c 44 20 20 20 20 | 20 20 44 45 2c 28 46 49 | LD | DE,(FI|
|00005d20| 4e 2b 4f 46 46 29 20 20 | 20 20 20 20 20 20 20 20 |N+OFF) | |
|00005d30| 20 20 3b 20 44 45 20 6c | 6f 6f 6b 73 20 61 74 20 | ; DE l|ooks at |
|00005d40| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 2e 0d 0a 20 20 |end-of-l|ine... |
|00005d50| 20 20 20 20 20 45 58 20 | 20 20 20 20 20 44 45 2c | EX | DE,|
|00005d60| 48 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |HL | |
|00005d70| 20 20 20 20 20 3b 20 4e | 6f 77 20 48 4c 20 64 6f | ; N|ow HL do|
|00005d80| 65 73 2c 20 44 45 20 74 | 6f 20 74 61 72 67 65 74 |es, DE t|o target|
|00005d90| 20 62 79 74 65 2e 0d 0a | 20 20 20 20 20 20 20 58 | byte...| X|
|00005da0| 4f 52 20 20 20 20 20 41 | 20 20 20 20 20 20 20 20 |OR A| |
|00005db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00005dc0| 20 49 6e 73 75 72 65 20 | 63 61 72 72 79 20 6e 6f | Insure |carry no|
|00005dd0| 74 20 73 65 74 2c 0d 0a | 20 20 20 20 20 20 20 53 |t set,..| S|
|00005de0| 42 43 20 20 20 20 20 48 | 4c 2c 44 45 20 20 20 20 |BC H|L,DE |
|00005df0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 3b | | ;|
|00005e00| 20 61 6e 64 20 66 69 6e | 64 20 6f 75 74 20 68 6f | and fin|d out ho|
|00005e10| 77 20 66 61 72 20 66 72 | 6f 6d 20 65 6e 64 2e 0d |w far fr|om end..|
|00005e20| 0a 20 20 20 20 20 20 20 | 4c 44 20 20 20 20 20 20 |. |LD |
|00005e30| 42 2c 48 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |B,H | |
|00005e40| 20 20 20 20 20 20 20 20 | 3b 20 42 79 74 65 20 63 | |; Byte c|
|00005e50| 6f 75 6e 74 20 74 6f 20 | 65 6e 64 20 67 6f 65 73 |ount to |end goes|
|00005e60| 20 69 6e 74 6f 0d 0a 20 | 20 20 20 20 20 20 4c 44 | into.. | LD|
|00005e70| 20 20 20 20 20 20 43 2c | 4c 20 20 20 20 20 20 20 | C,|L |
|00005e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 3b 20 | | ; |
|00005e90| 72 65 67 69 73 74 65 72 | 20 42 43 2e 0d 0a 20 20 |register| BC... |
|00005ea0| 20 20 20 20 20 50 55 53 | 48 20 20 20 20 44 45 20 | PUS|H DE |
|00005eb0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005ec0| 20 20 20 20 20 3b 20 43 | 6f 70 79 20 74 68 65 20 | ; C|opy the |
|00005ed0| 61 64 64 72 65 73 73 20 | 6f 66 20 62 79 74 65 20 |address |of byte |
|00005ee0| 74 6f 20 0d 0a 20 20 20 | 20 20 20 20 50 4f 50 20 |to .. | POP |
|00005ef0| 20 20 20 20 48 4c 20 20 | 20 20 20 20 20 20 20 20 | HL | |
|00005f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 64 65 | | ; de|
|00005f10| 6c 65 74 65 20 69 6e 74 | 6f 20 48 4c 2c 0d 0a 20 |lete int|o HL,.. |
|00005f20| 20 20 20 20 20 20 49 4e | 43 20 20 20 20 20 48 4c | IN|C HL|
|00005f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f40| 20 20 20 20 20 20 3b 20 | 70 6f 69 6e 74 20 74 6f | ; |point to|
|00005f50| 20 62 79 74 65 20 66 6f | 6c 6c 6f 77 69 6e 67 2c | byte fo|llowing,|
|00005f60| 0d 0a 20 20 20 20 20 20 | 20 4c 44 49 52 20 20 20 |.. | LDIR |
|00005f70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00005f80| 20 20 20 20 20 20 20 20 | 20 3b 20 61 6e 64 20 73 | | ; and s|
|00005f90| 68 69 66 74 20 74 68 65 | 20 77 68 6f 6c 65 20 6c |hift the| whole l|
|00005fa0| 69 6e 65 20 64 6f 77 6e | 2e 0d 0a 20 20 20 20 20 |ine down|... |
|00005fb0| 20 20 4c 44 20 20 20 20 | 20 20 48 4c 2c 28 46 49 | LD | HL,(FI|
|00005fc0| 4e 2b 4f 46 46 29 20 20 | 20 20 20 20 20 20 20 20 |N+OFF) | |
|00005fd0| 20 20 3b 20 47 65 74 20 | 74 68 65 20 6f 6c 64 20 | ; Get |the old |
|00005fe0| 65 6e 64 2d 6f 66 2d 6c | 69 6e 65 20 61 64 64 72 |end-of-l|ine addr|
|00005ff0| 65 73 73 2c 0d 0a 20 20 | 20 20 20 20 20 44 45 43 |ess,.. | DEC|
|00006000| 20 20 20 20 20 48 4c 20 | 20 20 20 20 20 20 20 20 | HL | |
|00006010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 73 | | ; s|
|00006020| 75 62 74 72 61 63 74 20 | 6f 6e 65 2c 0d 0a 20 20 |ubtract |one,.. |
|00006030| 20 20 20 20 20 4c 44 20 | 20 20 20 20 20 28 46 49 | LD | (FI|
|00006040| 4e 2b 4f 46 46 29 2c 48 | 4c 20 20 20 20 20 20 20 |N+OFF),H|L |
|00006050| 20 20 20 20 20 3b 20 74 | 6f 20 75 70 64 61 74 65 | ; t|o update|
|00006060| 20 69 74 2e 0d 0a 20 20 | 20 20 20 20 20 4c 44 20 | it... | LD |
|00006070| 20 20 20 20 20 48 4c 2c | 28 42 55 46 30 2b 4f 46 | HL,|(BUF0+OF|
|00006080| 46 29 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 4c |F) | ; L|
|00006090| 6f 6f 6b 20 62 61 63 6b | 20 61 74 20 74 68 65 20 |ook back| at the |
|000060a0| 73 74 61 72 74 20 6f 66 | 20 62 75 66 66 65 72 0d |start of| buffer.|
|000060b0| 0a 20 20 20 20 20 20 20 | 49 4e 43 20 20 20 20 20 |. |INC |
|000060c0| 48 4c 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |HL | |
|000060d0| 20 20 20 20 20 20 20 20 | 3b 20 70 6c 75 73 20 6f | |; plus o|
|000060e0| 6e 65 20 28 6c 69 6e 65 | 20 6c 65 6e 67 74 68 29 |ne (line| length)|
|000060f0| 2c 0d 0a 20 20 20 20 20 | 20 20 44 45 43 20 20 20 |,.. | DEC |
|00006100| 20 20 28 48 4c 29 20 20 | 20 20 20 20 20 20 20 20 | (HL) | |
|00006110| 20 20 20 20 20 20 20 20 | 20 20 3b 20 61 6e 64 20 | | ; and |
|00006120| 75 70 64 61 74 65 20 74 | 68 65 20 6c 65 6e 67 74 |update t|he lengt|
|00006130| 68 2e 0d 0a 20 20 20 20 | 20 20 20 50 4f 50 20 20 |h... | POP |
|00006140| 20 20 20 42 43 20 20 20 | 20 20 20 20 20 20 20 20 | BC | |
|00006150| 20 20 20 20 20 20 20 20 | 20 20 20 3b 20 42 72 69 | | ; Bri|
|00006160| 6e 67 20 0d 0a 20 20 20 | 20 20 20 20 50 4f 50 20 |ng .. | POP |
|00006170| 20 20 20 20 44 45 20 20 | 20 20 20 20 20 20 20 20 | DE | |
|00006180| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 65 76 | | ; ev|
|00006190| 65 72 79 62 6f 64 79 0d | 0a 20 20 20 20 20 20 20 |erybody.|. |
|000061a0| 50 4f 50 20 20 20 20 20 | 48 4c 20 20 20 20 20 20 |POP |HL |
|000061b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000061c0| 3b 20 62 61 63 6b 2c 20 | 61 6e 64 0d 0a 20 20 20 |; back, |and.. |
|000061d0| 20 20 20 20 52 45 54 20 | 20 20 20 20 20 20 20 20 | RET | |
|000061e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000061f0| 20 20 20 20 3b 20 72 65 | 74 75 72 6e 2e 0d 0a 3b | ; re|turn...;|
|00006200| 0d 0a 3b 20 58 4c 41 54 | 45 2e 20 52 65 70 6c 61 |..; XLAT|E. Repla|
|00006210| 63 65 73 20 74 68 65 20 | 6c 6f 67 69 63 61 6c 20 |ces the |logical |
|00006220| 6e 61 6d 65 20 77 69 74 | 68 20 69 74 73 20 73 74 |name wit|h its st|
|00006230| 72 69 6e 67 20 65 71 75 | 69 76 61 6c 65 6e 74 2e |ring equ|ivalent.|
|00006240| 0d 0a 3b 0d 0a 58 4c 41 | 54 45 3a 20 4c 44 20 20 |..;..XLA|TE: LD |
|00006250| 20 20 20 20 41 2c 28 44 | 45 29 20 20 20 20 20 20 | A,(D|E) |
|00006260| 20 20 20 20 20 20 20 20 | 20 20 20 20 3b 20 41 20 | | ; A |
|00006270| 67 65 74 73 20 6c 65 6e | 67 74 68 20 6f 66 20 6c |gets len|gth of l|
|00006280| 6f 67 69 63 61 6c 20 6e | 61 6d 65 0d 0a 20 20 20 |ogical n|ame.. |
|00006290| 20 20 20 20 4c 44 20 20 | 20 20 20 20 42 2c 41 20 | LD | B,A |
|000062a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000062b0| 20 20 20 20 3b 20 66 72 | 6f 6d 20 74 61 62 6c 65 | ; fr|om table|
|000062c0| 2c 20 74 68 65 6e 20 63 | 6f 70 79 20 74 6f 20 42 |, then c|opy to B|
|000062d0| 2e 0d 0a 44 45 4c 4c 50 | 3a 20 43 41 4c 4c 20 20 |...DELLP|: CALL |
|000062e0| 20 20 45 52 41 31 2b 4f | 46 46 20 20 20 20 20 20 | ERA1+O|FF |
|000062f0| 20 20 20 20 20 20 20 20 | 20 20 3b 20 44 65 6c 65 | | ; Dele|
|00006300| 74 65 20 74 68 65 20 6c | 6f 67 69 63 61 6c 20 6e |te the l|ogical n|
|00006310| 61 6d 65 20 66 72 6f 6d | 20 74 68 65 0d 0a 20 20 |ame from| the.. |
|00006320| 20 20 20 20 20 44 4a 4e | 5a 20 20 20 20 44 45 4c | DJN|Z DEL|
|00006330| 4c 50 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |LP | |
|00006340| 20 20 20 20 20 3b 20 69 | 6e 70 75 74 20 6c 69 6e | ; i|nput lin|
|00006350| 65 2c 20 63 68 61 72 20 | 62 79 20 63 68 61 72 2e |e, char |by char.|
|00006360| 0d 0a 20 20 20 20 20 20 | 20 4c 44 20 20 20 20 20 |.. | LD |
|00006370| 20 41 2c 28 44 45 29 20 | 20 20 20 20 20 20 20 20 | A,(DE) | |
|00006380| 20 20 20 20 20 20 20 20 | 20 3b 20 41 20 67 65 74 | | ; A get|
|00006390| 73 20 6c 65 6e 67 74 68 | 20 6f 6e 63 65 20 61 67 |s length| once ag|
|000063a0| 61 69 6e 2c 0d 0a 20 20 | 20 20 20 20 20 43 41 4c |ain,.. | CAL|
|000063b0| 4c 20 20 20 20 41 44 45 | 2b 4f 46 46 20 20 20 20 |L ADE|+OFF |
|000063c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 3b 20 61 | | ; a|
|000063d0| 64 64 20 74 6f 20 44 45 | 20 74 6f 20 70 6f 69 6e |dd to DE| to poin|
|000063e0| 74 20 74 6f 20 74 68 65 | 20 73 74 72 69 6e 67 0d |t to the| string.|
|000063f0| 0a 20 20 20 20 20 20 20 | 49 4e 43 20 20 20 20 20 |. |INC |
+--------+-------------------------+-------------------------+--------+--------+
Only 25.0 KB of data is shown above.
