/ CP/M / CPM_CDROM.iso / zsys / simtel20 / syslib / slib3.lbr

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 12 00 |.       |    ....|
|00000010| 40 50 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |@P......|........|
|00000020| 00 53 4d 41 32 48 43 20 | 20 5a 38 30 12 00 07 00 |.SMA2HC | Z80....|
|00000030| d4 d8 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 53 4d 41 44 43 20 20 | 20 5a 38 30 19 00 0e 00 |.SMADC  | Z80....|
|00000050| 36 c6 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |6.......|........|
|00000060| 00 53 4d 41 46 44 43 20 | 20 5a 38 30 27 00 0b 00 |.SMAFDC | Z80'...|
|00000070| 41 02 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |A.......|........|
|00000080| 00 53 4d 46 4e 31 20 20 | 20 5a 38 30 32 00 05 00 |.SMFN1  | Z802...|
|00000090| 27 fb 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |'.......|........|
|000000a0| 00 53 4d 46 4e 32 20 20 | 20 5a 38 30 37 00 06 00 |.SMFN2  | Z807...|
|000000b0| 9b 2e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| 00 53 4d 46 4e 33 20 20 | 20 5a 38 30 3d 00 08 00 |.SMFN3  | Z80=...|
|000000d0| 96 2a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.*......|........|
|000000e0| 00 53 4d 48 4c 34 48 43 | 20 5a 38 30 45 00 04 00 |.SMHL4HC| Z80E...|
|000000f0| ec e9 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 00 53 4d 48 4c 35 44 43 | 20 5a 38 30 49 00 13 00 |.SMHL5DC| Z80I...|
|00000110| dd 1d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000120| 00 53 4d 48 4c 46 44 43 | 20 5a 38 30 5c 00 10 00 |.SMHLFDC| Z80\...|
|00000130| 86 e6 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000140| 00 53 4d 4f 56 45 20 20 | 20 5a 38 30 6c 00 13 00 |.SMOVE  | Z80l...|
|00000150| 59 b0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |Y.......|........|
|00000160| 00 53 4d 54 48 30 31 20 | 20 5a 38 30 7f 00 04 00 |.SMTH01 | Z80....|
|00000170| c2 65 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.e......|........|
|00000180| 00 53 4d 54 48 30 32 20 | 20 5a 38 30 83 00 04 00 |.SMTH02 | Z80....|
|00000190| 4c 50 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |LP......|........|
|000001a0| 00 53 4d 54 48 30 33 20 | 20 5a 38 30 87 00 04 00 |.SMTH03 | Z80....|
|000001b0| cf ca 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000001c0| 00 53 4d 54 48 30 34 20 | 20 5a 38 30 8b 00 03 00 |.SMTH04 | Z80....|
|000001d0| a0 59 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Y......|........|
|000001e0| 00 53 4d 54 48 30 35 20 | 20 5a 38 30 8e 00 04 00 |.SMTH05 | Z80....|
|000001f0| 19 c3 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000200| 00 53 4d 54 48 30 36 20 | 20 5a 38 30 92 00 04 00 |.SMTH06 | Z80....|
|00000210| bf b3 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000220| 00 53 4d 54 48 30 37 20 | 20 5a 38 30 96 00 03 00 |.SMTH07 | Z80....|
|00000230| ce bb 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000240| 00 53 4d 54 48 30 38 20 | 20 5a 38 30 99 00 03 00 |.SMTH08 | Z80....|
|00000250| 36 12 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |6.......|........|
|00000260| 00 53 4d 54 48 30 39 20 | 20 5a 38 30 9c 00 03 00 |.SMTH09 | Z80....|
|00000270| a8 ec 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000280| 00 53 4d 54 48 31 30 20 | 20 5a 38 30 9f 00 04 00 |.SMTH10 | Z80....|
|00000290| 26 f9 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |&.......|........|
|000002a0| 00 53 4d 54 48 31 31 20 | 20 5a 38 30 a3 00 0d 00 |.SMTH11 | Z80....|
|000002b0| 5f ed 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |_.......|........|
|000002c0| 00 53 4d 54 48 31 32 20 | 20 5a 38 30 b0 00 0d 00 |.SMTH12 | Z80....|
|000002d0| a0 aa 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000002e0| 00 53 50 41 32 48 43 20 | 20 5a 38 30 bd 00 06 00 |.SPA2HC | Z80....|
|000002f0| f7 a4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000300| 00 53 50 41 44 43 20 20 | 20 5a 38 30 c3 00 0b 00 |.SPADC  | Z80....|
|00000310| e3 bd 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000320| 00 53 50 41 46 44 43 20 | 20 5a 38 30 ce 00 09 00 |.SPAFDC | Z80....|
|00000330| 7c c7 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 ||.......|........|
|00000340| 00 53 50 41 55 53 45 20 | 20 5a 38 30 d7 00 17 00 |.SPAUSE | Z80....|
|00000350| d2 c4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000360| 00 53 50 46 4e 31 20 20 | 20 5a 38 30 ee 00 05 00 |.SPFN1  | Z80....|
|00000370| e1 c4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000380| 00 53 50 46 4e 32 20 20 | 20 5a 38 30 f3 00 05 00 |.SPFN2  | Z80....|
|00000390| 0c 25 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.%......|........|
|000003a0| 00 53 50 46 4e 33 20 20 | 20 5a 38 30 f8 00 08 00 |.SPFN3  | Z80....|
|000003b0| 71 48 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |qH......|........|
|000003c0| 00 53 50 48 4c 34 48 43 | 20 5a 38 30 00 01 04 00 |.SPHL4HC| Z80....|
|000003d0| 42 11 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |B.......|........|
|000003e0| 00 53 50 48 4c 35 44 43 | 20 5a 38 30 04 01 0d 00 |.SPHL5DC| Z80....|
|000003f0| 90 e1 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 53 50 48 4c 46 44 43 | 20 5a 38 30 11 01 0c 00 |.SPHLFDC| Z80....|
|00000410| b5 44 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.D......|........|
|00000420| 00 53 50 4f 55 54 20 20 | 20 5a 38 30 1d 01 07 00 |.SPOUT  | Z80....|
|00000430| ae 87 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000440| 00 53 50 52 49 4e 54 20 | 20 5a 38 30 24 01 04 00 |.SPRINT | Z80$...|
|00000450| 5d 96 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |].......|........|
|00000460| 00 53 50 53 54 52 20 20 | 20 5a 38 30 28 01 0e 00 |.SPSTR  | Z80(...|
|00000470| 02 cf 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000480| 00 53 52 41 4e 44 20 20 | 20 5a 38 30 36 01 0c 00 |.SRAND  | Z806...|
|00000490| 65 7e 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |e~......|........|
|000004a0| 00 53 52 49 4e 20 20 20 | 20 5a 38 30 42 01 06 00 |.SRIN   | Z80B...|
|000004b0| 6a 68 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |jh......|........|
|000004c0| 00 53 52 52 45 41 44 20 | 20 5a 38 30 48 01 09 00 |.SRREAD | Z80H...|
|000004d0| a4 75 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.u......|........|
|000004e0| 00 53 52 57 52 49 54 45 | 20 5a 38 30 51 01 09 00 |.SRWRITE| Z80Q...|
|000004f0| 5b 3b 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |[;......|........|
|00000500| 00 53 53 41 32 48 43 20 | 20 5a 38 30 5a 01 06 00 |.SSA2HC | Z80Z...|
|00000510| 00 70 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.p......|........|
|00000520| 00 53 53 41 44 43 20 20 | 20 5a 38 30 60 01 0b 00 |.SSADC  | Z80`...|
|00000530| d6 5d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.]......|........|
|00000540| 00 53 53 41 46 44 43 20 | 20 5a 38 30 6b 01 09 00 |.SSAFDC | Z80k...|
|00000550| d7 30 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.0......|........|
|00000560| 00 53 53 43 41 4e 4e 45 | 52 5a 38 30 74 01 0b 00 |.SSCANNE|RZ80t...|
|00000570| 07 9c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000580| 00 53 53 43 46 41 20 20 | 20 5a 38 30 7f 01 10 00 |.SSCFA  | Z80....|
|00000590| 1f 5f 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |._......|........|
|000005a0| 00 53 53 43 4f 55 54 20 | 20 5a 38 30 8f 01 06 00 |.SSCOUT | Z80....|
|000005b0| 68 ae 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |h.......|........|
|000005c0| 00 53 53 43 52 4c 46 20 | 20 5a 38 30 95 01 04 00 |.SSCRLF | Z80....|
|000005d0| af 73 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.s......|........|
|000005e0| 00 53 53 43 54 4c 46 4c | 20 5a 38 30 99 01 03 00 |.SSCTLFL| Z80....|
|000005f0| 14 24 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.$......|........|
|00000600| 00 53 53 44 4d 41 20 20 | 20 5a 38 30 9c 01 04 00 |.SSDMA  | Z80....|
|00000610| 75 63 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |uc......|........|
|00000620| 00 53 53 46 41 20 20 20 | 20 5a 38 30 a0 01 10 00 |.SSFA   | Z80....|
|00000630| 17 87 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000640| 00 53 53 46 4e 31 20 20 | 20 5a 38 30 b0 01 05 00 |.SSFN1  | Z80....|
|00000650| 38 f5 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|00000660| 00 53 53 46 4e 32 20 20 | 20 5a 38 30 b5 01 06 00 |.SSFN2  | Z80....|
|00000670| 7c 0a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 ||.......|........|
|00000680| 00 53 53 46 4e 33 20 20 | 20 5a 38 30 bb 01 08 00 |.SSFN3  | Z80....|
|00000690| 8e df 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006a0| 00 53 53 48 4c 34 48 43 | 20 5a 38 30 c3 01 04 00 |.SSHL4HC| Z80....|
|000006b0| 8e ee 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000006c0| 00 53 53 48 4c 35 44 43 | 20 5a 38 30 c7 01 0d 00 |.SSHL5DC| Z80....|
|000006d0| 6e 84 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |n.......|........|
|000006e0| 00 53 53 48 4c 46 44 43 | 20 5a 38 30 d4 01 0c 00 |.SSHLFDC| Z80....|
|000006f0| 8a 59 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.Y......|........|
|00000700| 00 53 53 4b 50 55 4e 20 | 20 5a 38 30 e0 01 08 00 |.SSKPUN | Z80....|
|00000710| e4 ff 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000720| 00 53 53 4b 53 50 20 20 | 20 5a 38 30 e8 01 07 00 |.SSKSP  | Z80....|
|00000730| 55 f6 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |U.......|........|
|00000740| 00 53 53 4f 52 54 20 20 | 20 5a 38 30 ef 01 71 00 |.SSORT  | Z80..q.|
|00000750| bd 46 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.F......|........|
|00000760| 00 53 53 4f 55 54 20 20 | 20 5a 38 30 60 02 05 00 |.SSOUT  | Z80`...|
|00000770| 76 9d 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |v.......|........|
|00000780| 00 53 53 50 52 49 4e 54 | 20 5a 38 30 65 02 04 00 |.SSPRINT| Z80e...|
|00000790| ea a0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007a0| 00 53 53 50 53 54 52 20 | 20 5a 38 30 69 02 0e 00 |.SSPSTR | Z80i...|
|000007b0| e5 a0 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000007c0| 00 53 53 55 41 20 20 20 | 20 5a 38 30 77 02 05 00 |.SSUA   | Z80w...|
|000007d0| 76 58 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |vX......|........|
|000007e0| 00 53 55 44 31 20 20 20 | 20 5a 38 30 7c 02 08 00 |.SUD1   | Z80|...|
|000007f0| f8 3a 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.:......|........|
|00000800| 00 53 55 44 32 20 20 20 | 20 5a 38 30 84 02 05 00 |.SUD2   | Z80....|
|00000810| 48 83 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |H.......|........|
|00000820| 00 53 55 44 33 20 20 20 | 20 5a 38 30 89 02 05 00 |.SUD3   | Z80....|
|00000830| 8b 60 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.`......|........|
|00000840| 00 53 56 45 52 53 49 4f | 4e 5a 38 30 8e 02 10 00 |.SVERSIO|NZ80....|
|00000850| c5 2c 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.,......|........|
|00000860| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|00000870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000880| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|00000890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008a0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|000008b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008c0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|000008d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000008e0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |.       |    ....|
|000008f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000900| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00000910| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 41 32 48 43 |le Name:|  SMA2HC|
|00000920| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00000930| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00000940| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00000950| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00000960| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00000970| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00000980| 69 63 09 6d 61 32 68 63 | 0d 0a 3b 0d 0a 3b 20 20 |ic.ma2hc|..;..;  |
|00000990| 4d 41 32 48 43 20 2d 2d | 0d 0a 3b 09 53 54 4f 52 |MA2HC --|..;.STOR|
|000009a0| 45 20 52 45 47 20 41 20 | 41 53 20 32 20 48 45 58 |E REG A |AS 2 HEX|
|000009b0| 41 44 45 43 49 4d 41 4c | 20 43 48 41 52 41 43 54 |ADECIMAL| CHARACT|
|000009c0| 45 52 53 20 49 4e 20 4d | 45 4d 4f 52 59 20 50 54 |ERS IN M|EMORY PT|
|000009d0| 45 44 20 54 4f 20 42 59 | 20 44 45 3b 0d 0a 3b 20 |ED TO BY| DE;..; |
|000009e0| 4f 4e 20 49 4e 50 55 54 | 2c 20 41 3d 56 41 4c 55 |ON INPUT|, A=VALU|
|000009f0| 45 20 41 4e 44 20 48 4c | 3d 50 54 52 20 54 4f 20 |E AND HL|=PTR TO |
|00000a00| 32 2d 42 59 54 45 20 42 | 55 46 46 45 52 0d 0a 3b |2-BYTE B|UFFER..;|
|00000a10| 20 4f 4e 20 52 45 54 55 | 52 4e 2c 20 44 45 20 50 | ON RETU|RN, DE P|
|00000a20| 54 53 20 54 4f 20 4e 45 | 58 54 20 42 59 54 45 20 |TS TO NE|XT BYTE |
|00000a30| 41 46 54 45 52 20 42 55 | 46 46 45 52 0d 0a 3b 0d |AFTER BU|FFER..;.|
|00000a40| 0a 09 45 58 54 09 45 4e | 0d 0a 0d 0a 4d 41 32 48 |..EXT.EN|....MA2H|
|00000a50| 43 3a 0d 0a 09 45 58 09 | 44 45 2c 48 4c 09 3b 20 |C:...EX.|DE,HL.; |
|00000a60| 50 54 52 20 49 4e 20 48 | 4c 20 49 4e 53 54 45 41 |PTR IN H|L INSTEA|
|00000a70| 44 0d 0a 09 50 55 53 48 | 09 41 46 09 3b 20 53 41 |D...PUSH|.AF.; SA|
|00000a80| 56 45 20 41 0d 0a 09 50 | 55 53 48 09 41 46 0d 0a |VE A...P|USH.AF..|
|00000a90| 09 43 41 4c 4c 09 45 4e | 09 3b 20 45 58 43 48 41 |.CALL.EN|.; EXCHA|
|00000aa0| 4e 47 45 20 4e 59 42 42 | 4c 45 53 0d 0a 09 43 41 |NGE NYBB|LES...CA|
|00000ab0| 4c 4c 09 50 41 48 43 09 | 3b 20 50 52 49 4e 54 20 |LL.PAHC.|; PRINT |
|00000ac0| 4c 4f 57 2d 4f 52 44 45 | 52 20 4e 59 42 42 4c 45 |LOW-ORDE|R NYBBLE|
|00000ad0| 20 41 53 20 48 45 58 0d | 0a 09 50 4f 50 09 41 46 | AS HEX.|..POP.AF|
|00000ae0| 09 3b 20 47 45 54 20 41 | 0d 0a 09 43 41 4c 4c 09 |.; GET A|...CALL.|
|00000af0| 50 41 48 43 09 3b 20 50 | 52 49 4e 54 20 4c 4f 57 |PAHC.; P|RINT LOW|
|00000b00| 2d 4f 52 44 45 52 20 4e | 59 42 42 4c 45 20 41 53 |-ORDER N|YBBLE AS|
|00000b10| 20 48 45 58 0d 0a 09 50 | 4f 50 09 41 46 09 3b 20 | HEX...P|OP.AF.; |
|00000b20| 52 45 53 54 4f 52 45 20 | 41 0d 0a 09 45 58 09 44 |RESTORE |A...EX.D|
|00000b30| 45 2c 48 4c 09 3b 20 50 | 4f 49 4e 54 45 52 20 42 |E,HL.; P|OINTER B|
|00000b40| 41 43 4b 20 49 4e 20 44 | 45 0d 0a 09 52 45 54 0d |ACK IN D|E...RET.|
|00000b50| 0a 50 41 48 43 3a 09 41 | 4e 44 09 30 46 48 09 3b |.PAHC:.A|ND.0FH.;|
|00000b60| 20 4d 41 53 4b 20 46 4f | 52 20 4c 4f 57 20 4e 59 | MASK FO|R LOW NY|
|00000b70| 42 42 4c 45 0d 0a 09 43 | 50 09 31 30 09 3b 20 4c |BBLE...C|P.10.; L|
|00000b80| 45 54 54 45 52 20 4f 52 | 20 44 49 47 49 54 3f 0d |ETTER OR| DIGIT?.|
|00000b90| 0a 09 4a 50 09 43 2c 50 | 41 44 49 47 09 3b 20 44 |..JP.C,P|ADIG.; D|
|00000ba0| 49 47 49 54 20 49 46 20 | 43 41 52 52 59 0d 0a 09 |IGIT IF |CARRY...|
|00000bb0| 41 44 44 09 27 41 27 2d | 31 30 09 3b 20 43 4f 4e |ADD.'A'-|10.; CON|
|00000bc0| 56 45 52 54 20 54 4f 20 | 27 41 27 2d 27 46 27 0d |VERT TO |'A'-'F'.|
|00000bd0| 0a 09 4a 50 09 50 55 54 | 09 3b 20 50 55 54 20 49 |..JP.PUT|.; PUT I|
|00000be0| 4e 20 4d 45 4d 4f 52 59 | 0d 0a 50 41 44 49 47 3a |N MEMORY|..PADIG:|
|00000bf0| 09 41 44 44 09 27 30 27 | 09 3b 20 43 4f 4e 56 45 |.ADD.'0'|.; CONVE|
|00000c00| 52 54 20 54 4f 20 27 30 | 27 2d 27 39 27 0d 0a 50 |RT TO '0|'-'9'..P|
|00000c10| 55 54 3a 09 4c 44 09 28 | 48 4c 29 2c 41 09 3b 20 |UT:.LD.(|HL),A.; |
|00000c20| 43 48 41 52 20 49 4e 20 | 4d 45 4d 4f 52 59 0d 0a |CHAR IN |MEMORY..|
|00000c30| 09 49 4e 43 09 48 4c 09 | 3b 20 50 54 20 54 4f 20 |.INC.HL.|; PT TO |
|00000c40| 4e 45 58 54 20 4c 4f 43 | 41 54 49 4f 4e 0d 0a 09 |NEXT LOC|ATION...|
|00000c50| 52 45 54 0d 0a 0d 0a 09 | 45 4e 44 0d 0a 1a 1a 1a |RET.....|END.....|
|00000c60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000c80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00000c90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 41 44 43 0d |le Name:|  SMADC.|
|00000ca0| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|00000cb0| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|00000cc0| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|00000cd0| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|00000ce0| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00000cf0| 3a 20 20 31 2e 31 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.1..|...publi|
|00000d00| 63 09 6d 61 33 64 63 2c | 6d 61 64 63 0d 0a 3b 0d |c.ma3dc,|madc..;.|
|00000d10| 0a 3b 20 20 4d 41 33 44 | 43 20 2d 2d 0d 0a 3b 09 |.;  MA3D|C --..;.|
|00000d20| 53 54 4f 52 45 20 52 45 | 47 20 41 20 41 53 20 33 |STORE RE|G A AS 3|
|00000d30| 20 44 45 43 49 4d 41 4c | 20 43 48 41 52 41 43 54 | DECIMAL| CHARACT|
|00000d40| 45 52 53 20 49 4e 20 4d | 45 4d 4f 52 59 0d 0a 3b |ERS IN M|EMORY..;|
|00000d50| 20 4f 4e 20 49 4e 50 55 | 54 2c 20 41 3d 56 41 4c | ON INPU|T, A=VAL|
|00000d60| 55 45 20 41 4e 44 20 44 | 45 3d 50 54 52 20 54 4f |UE AND D|E=PTR TO|
|00000d70| 20 33 2d 42 59 54 45 20 | 42 55 46 46 45 52 0d 0a | 3-BYTE |BUFFER..|
|00000d80| 3b 20 4f 4e 20 52 45 54 | 55 52 4e 2c 20 44 45 20 |; ON RET|URN, DE |
|00000d90| 50 54 53 20 54 4f 20 42 | 59 54 45 20 41 46 54 45 |PTS TO B|YTE AFTE|
|00000da0| 52 20 42 55 46 46 45 52 | 0d 0a 3b 0d 0a 4d 41 33 |R BUFFER|..;..MA3|
|00000db0| 44 43 3a 0d 0a 09 45 58 | 09 44 45 2c 48 4c 09 3b |DC:...EX|.DE,HL.;|
|00000dc0| 20 50 54 52 20 49 4e 20 | 48 4c 0d 0a 09 50 55 53 | PTR IN |HL...PUS|
|00000dd0| 48 09 41 46 09 3b 20 53 | 41 56 45 20 41 0d 0a 09 |H.AF.; S|AVE A...|
|00000de0| 50 55 53 48 09 41 46 0d | 0a 09 58 4f 52 09 41 09 |PUSH.AF.|..XOR.A.|
|00000df0| 3b 20 54 55 52 4e 20 4f | 46 46 20 4c 45 41 44 49 |; TURN O|FF LEADI|
|00000e00| 4e 47 20 3c 53 50 3e 20 | 46 4c 41 47 0d 0a 09 4c |NG <SP> |FLAG...L|
|00000e10| 44 09 28 4c 53 46 4c 47 | 29 2c 41 0d 0a 09 4a 50 |D.(LSFLG|),A...JP|
|00000e20| 09 50 41 44 43 31 0d 0a | 3b 0d 0a 3b 20 20 4d 41 |.PADC1..|;..;  MA|
|00000e30| 44 43 20 2d 2d 0d 0a 3b | 09 53 54 4f 52 45 20 52 |DC --..;|.STORE R|
|00000e40| 45 47 20 41 20 41 53 20 | 44 45 43 49 4d 41 4c 20 |EG A AS |DECIMAL |
|00000e50| 43 48 41 52 41 43 54 45 | 52 53 20 57 2f 4c 45 41 |CHARACTE|RS W/LEA|
|00000e60| 44 49 4e 47 20 3c 53 50 | 3e 20 49 4e 20 33 2d 43 |DING <SP|> IN 3-C|
|00000e70| 48 41 52 20 46 49 45 4c | 44 0d 0a 3b 20 49 4e 20 |HAR FIEL|D..; IN |
|00000e80| 4d 45 4d 4f 52 59 3b 20 | 4f 4e 20 49 4e 50 55 54 |MEMORY; |ON INPUT|
|00000e90| 2c 20 41 3d 56 41 4c 55 | 45 20 41 4e 44 20 48 4c |, A=VALU|E AND HL|
|00000ea0| 3d 50 54 52 20 54 4f 20 | 33 2d 42 59 54 45 20 42 |=PTR TO |3-BYTE B|
|00000eb0| 55 46 46 45 52 0d 0a 3b | 20 4f 4e 20 52 45 54 55 |UFFER..;| ON RETU|
|00000ec0| 52 4e 2c 20 48 4c 20 50 | 54 53 20 54 4f 20 42 59 |RN, HL P|TS TO BY|
|00000ed0| 54 45 20 41 46 54 45 52 | 20 42 55 46 46 45 52 0d |TE AFTER| BUFFER.|
|00000ee0| 0a 3b 0d 0a 4d 41 44 43 | 3a 0d 0a 09 45 58 09 44 |.;..MADC|:...EX.D|
|00000ef0| 45 2c 48 4c 09 3b 20 50 | 54 52 20 49 4e 20 48 4c |E,HL.; P|TR IN HL|
|00000f00| 0d 0a 09 50 55 53 48 09 | 41 46 09 3b 20 53 41 56 |...PUSH.|AF.; SAV|
|00000f10| 45 20 41 0d 0a 09 50 55 | 53 48 09 41 46 0d 0a 09 |E A...PU|SH.AF...|
|00000f20| 4c 44 09 41 2c 31 09 3b | 20 54 55 52 4e 20 4f 4e |LD.A,1.;| TURN ON|
|00000f30| 20 4c 45 41 44 49 4e 47 | 20 3c 53 50 3e 20 46 4c | LEADING| <SP> FL|
|00000f40| 41 47 0d 0a 09 4c 44 09 | 28 4c 53 46 4c 47 29 2c |AG...LD.|(LSFLG),|
|00000f50| 41 0d 0a 3b 0d 0a 3b 20 | 20 50 52 49 4e 54 20 52 |A..;..; | PRINT R|
|00000f60| 4f 55 54 49 4e 45 0d 0a | 3b 0d 0a 50 41 44 43 31 |OUTINE..|;..PADC1|
|00000f70| 3a 09 50 4f 50 09 41 46 | 09 3b 20 47 45 54 20 41 |:.POP.AF|.; GET A|
|00000f80| 0d 0a 09 50 55 53 48 09 | 42 43 09 3b 20 53 41 56 |...PUSH.|BC.; SAV|
|00000f90| 45 20 42 43 0d 0a 09 4c | 44 09 42 2c 31 30 30 09 |E BC...L|D.B,100.|
|00000fa0| 3b 20 50 52 49 4e 54 20 | 48 55 4e 44 52 45 44 53 |; PRINT |HUNDREDS|
|00000fb0| 0d 0a 09 43 41 4c 4c 09 | 50 41 43 09 3b 20 50 52 |...CALL.|PAC.; PR|
|00000fc0| 49 4e 54 20 41 20 43 48 | 41 52 0d 0a 09 4c 44 09 |INT A CH|AR...LD.|
|00000fd0| 42 2c 31 30 09 3b 20 50 | 52 49 4e 54 20 54 45 4e |B,10.; P|RINT TEN|
|00000fe0| 53 0d 0a 09 43 41 4c 4c | 09 50 41 43 0d 0a 09 41 |S...CALL|.PAC...A|
|00000ff0| 44 44 09 27 30 27 09 3b | 20 43 4f 4e 56 45 52 54 |DD.'0'.;| CONVERT|
|00001000| 20 54 4f 20 41 53 43 49 | 49 0d 0a 09 43 41 4c 4c | TO ASCI|I...CALL|
|00001010| 09 50 55 54 09 3b 20 50 | 52 49 4e 54 0d 0a 09 50 |.PUT.; P|RINT...P|
|00001020| 4f 50 09 42 43 09 3b 20 | 52 45 53 54 4f 52 45 20 |OP.BC.; |RESTORE |
|00001030| 42 43 0d 0a 09 50 4f 50 | 09 41 46 09 3b 20 52 45 |BC...POP|.AF.; RE|
|00001040| 53 54 4f 52 45 20 41 0d | 0a 09 45 58 09 44 45 2c |STORE A.|..EX.DE,|
|00001050| 48 4c 09 3b 20 50 54 52 | 20 42 41 43 4b 20 49 4e |HL.; PTR| BACK IN|
|00001060| 20 44 45 0d 0a 09 52 45 | 54 0d 0a 0d 0a 3b 20 20 | DE...RE|T....;  |
|00001070| 42 55 46 46 45 52 0d 0a | 4c 53 46 4c 47 3a 09 44 |BUFFER..|LSFLG:.D|
|00001080| 53 09 31 09 3b 20 4c 45 | 41 44 49 4e 47 20 3c 53 |S.1.; LE|ADING <S|
|00001090| 50 3e 20 46 4c 41 47 0d | 0a 0d 0a 3b 20 20 50 52 |P> FLAG.|...;  PR|
|000010a0| 49 4e 54 20 52 45 53 55 | 4c 54 20 4f 46 20 44 49 |INT RESU|LT OF DI|
|000010b0| 56 49 53 49 4f 4e 20 4f | 46 20 41 20 42 59 20 42 |VISION O|F A BY B|
|000010c0| 20 57 2f 4c 45 41 44 49 | 4e 47 20 3c 53 50 3e 20 | W/LEADI|NG <SP> |
|000010d0| 28 49 4e 54 45 47 45 52 | 20 44 49 56 49 53 49 4f |(INTEGER| DIVISIO|
|000010e0| 4e 29 0d 0a 50 41 43 3a | 09 4c 44 09 43 2c 30 09 |N)..PAC:|.LD.C,0.|
|000010f0| 3b 20 53 45 54 20 43 4f | 55 4e 54 0d 0a 50 41 43 |; SET CO|UNT..PAC|
|00001100| 4c 3a 09 53 55 42 09 42 | 09 3b 20 43 4f 4d 50 55 |L:.SUB.B|.; COMPU|
|00001110| 54 45 20 43 4f 55 4e 54 | 0d 0a 09 4a 50 09 43 2c |TE COUNT|...JP.C,|
|00001120| 50 41 43 44 0d 0a 09 49 | 4e 43 09 43 09 3b 20 49 |PACD...I|NC.C.; I|
|00001130| 4e 43 52 20 43 4f 55 4e | 54 0d 0a 09 4a 50 09 50 |NCR COUN|T...JP.P|
|00001140| 41 43 4c 0d 0a 50 41 43 | 44 3a 09 41 44 44 09 41 |ACL..PAC|D:.ADD.A|
|00001150| 2c 42 09 3b 20 41 44 44 | 20 42 20 42 41 43 4b 20 |,B.; ADD| B BACK |
|00001160| 49 4e 0d 0a 09 50 55 53 | 48 09 41 46 09 3b 20 53 |IN...PUS|H.AF.; S|
|00001170| 41 56 45 20 41 0d 0a 09 | 4c 44 09 41 2c 43 09 3b |AVE A...|LD.A,C.;|
|00001180| 20 47 45 54 20 43 4f 55 | 4e 54 0d 0a 09 4f 52 09 | GET COU|NT...OR.|
|00001190| 41 09 3b 20 5a 45 52 4f | 3f 0d 0a 09 4a 50 09 4e |A.; ZERO|?...JP.N|
|000011a0| 5a 2c 50 41 43 44 31 0d | 0a 09 4c 44 09 41 2c 28 |Z,PACD1.|..LD.A,(|
|000011b0| 4c 53 46 4c 47 29 09 3b | 20 43 48 45 43 4b 20 46 |LSFLG).;| CHECK F|
|000011c0| 4f 52 20 4c 45 41 44 49 | 4e 47 20 3c 53 50 3e 0d |OR LEADI|NG <SP>.|
|000011d0| 0a 09 4f 52 09 41 09 3b | 20 30 20 4d 45 41 4e 53 |..OR.A.;| 0 MEANS|
|000011e0| 20 4e 4f 0d 0a 09 4a 50 | 09 5a 2c 50 41 43 44 31 | NO...JP|.Z,PACD1|
|000011f0| 0d 0a 09 4c 44 09 41 2c | 27 20 27 09 3b 20 50 52 |...LD.A,|' '.; PR|
|00001200| 49 4e 54 20 3c 53 50 3e | 0d 0a 09 43 41 4c 4c 09 |INT <SP>|...CALL.|
|00001210| 50 55 54 0d 0a 09 50 4f | 50 09 41 46 09 3b 20 52 |PUT...PO|P.AF.; R|
|00001220| 45 53 54 4f 52 45 20 41 | 0d 0a 09 52 45 54 0d 0a |ESTORE A|...RET..|
|00001230| 50 41 43 44 31 3a 09 58 | 4f 52 09 41 09 3b 20 41 |PACD1:.X|OR.A.; A|
|00001240| 3d 30 0d 0a 09 4c 44 09 | 28 4c 53 46 4c 47 29 2c |=0...LD.|(LSFLG),|
|00001250| 41 09 3b 20 54 55 52 4e | 20 4f 46 46 20 4c 45 41 |A.; TURN| OFF LEA|
|00001260| 44 49 4e 47 20 3c 53 50 | 3e 20 46 4c 41 47 0d 0a |DING <SP|> FLAG..|
|00001270| 09 4c 44 09 41 2c 43 09 | 3b 20 47 45 54 20 43 4f |.LD.A,C.|; GET CO|
|00001280| 55 4e 54 0d 0a 09 41 44 | 44 09 27 30 27 09 3b 20 |UNT...AD|D.'0'.; |
|00001290| 43 4f 4e 56 45 52 54 20 | 54 4f 20 44 45 43 49 4d |CONVERT |TO DECIM|
|000012a0| 41 4c 0d 0a 09 43 41 4c | 4c 09 50 55 54 09 3b 20 |AL...CAL|L.PUT.; |
|000012b0| 50 52 49 4e 54 20 49 54 | 0d 0a 09 50 4f 50 09 41 |PRINT IT|...POP.A|
|000012c0| 46 09 3b 20 52 45 53 54 | 4f 52 45 20 41 0d 0a 09 |F.; REST|ORE A...|
|000012d0| 52 45 54 0d 0a 50 55 54 | 3a 0d 0a 09 4c 44 09 28 |RET..PUT|:...LD.(|
|000012e0| 48 4c 29 2c 41 09 3b 20 | 50 55 54 20 42 59 54 45 |HL),A.; |PUT BYTE|
|000012f0| 0d 0a 09 49 4e 43 09 48 | 4c 09 3b 20 50 54 20 54 |...INC.H|L.; PT T|
|00001300| 4f 20 4e 45 58 54 0d 0a | 09 52 45 54 0d 0a 0d 0a |O NEXT..|.RET....|
|00001310| 09 45 4e 44 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.END....|........|
|00001320| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001330| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001340| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001350| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001360| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001370| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001380| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00001390| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 41 46 44 43 |le Name:|  SMAFDC|
|000013a0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|000013b0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|000013c0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|000013d0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|000013e0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|000013f0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00001400| 69 63 09 6d 61 66 64 63 | 0d 0a 3b 0d 0a 3b 20 20 |ic.mafdc|..;..;  |
|00001410| 4d 41 46 44 43 20 2d 2d | 0d 0a 3b 09 53 54 4f 52 |MAFDC --|..;.STOR|
|00001420| 45 20 52 45 47 20 41 20 | 41 53 20 44 45 43 49 4d |E REG A |AS DECIM|
|00001430| 41 4c 20 43 48 41 52 41 | 43 54 45 52 53 20 49 4e |AL CHARA|CTERS IN|
|00001440| 20 31 2d 54 4f 2d 33 20 | 43 48 41 52 20 46 49 45 | 1-TO-3 |CHAR FIE|
|00001450| 4c 44 0d 0a 3b 20 49 4e | 20 4d 45 4d 4f 52 59 3b |LD..; IN| MEMORY;|
|00001460| 20 4f 4e 20 49 4e 50 55 | 54 2c 20 41 3d 56 41 4c | ON INPU|T, A=VAL|
|00001470| 55 45 20 41 4e 44 20 44 | 45 3d 50 54 52 20 54 4f |UE AND D|E=PTR TO|
|00001480| 20 33 2d 42 59 54 45 20 | 42 55 46 46 45 52 0d 0a | 3-BYTE |BUFFER..|
|00001490| 3b 20 4f 4e 20 52 45 54 | 55 52 4e 2c 20 44 45 20 |; ON RET|URN, DE |
|000014a0| 50 54 53 20 54 4f 20 42 | 59 54 45 20 41 46 54 45 |PTS TO B|YTE AFTE|
|000014b0| 52 20 4c 41 53 54 20 43 | 48 41 52 20 53 54 4f 52 |R LAST C|HAR STOR|
|000014c0| 45 44 0d 0a 3b 0d 0a 4d | 41 46 44 43 3a 0d 0a 09 |ED..;..M|AFDC:...|
|000014d0| 50 55 53 48 09 41 46 09 | 3b 20 53 41 56 45 20 52 |PUSH.AF.|; SAVE R|
|000014e0| 45 47 53 0d 0a 09 50 55 | 53 48 09 42 43 0d 0a 09 |EGS...PU|SH.BC...|
|000014f0| 50 55 53 48 09 48 4c 0d | 0a 09 45 58 09 44 45 2c |PUSH.HL.|..EX.DE,|
|00001500| 48 4c 09 3b 20 50 54 52 | 20 49 4e 20 48 4c 0d 0a |HL.; PTR| IN HL..|
|00001510| 09 4c 44 09 44 2c 31 09 | 3b 20 54 55 52 4e 20 4f |.LD.D,1.|; TURN O|
|00001520| 4e 20 4c 45 41 44 49 4e | 47 20 3c 53 50 3e 20 46 |N LEADIN|G <SP> F|
|00001530| 4c 41 47 0d 0a 3b 0d 0a | 3b 20 20 50 52 49 4e 54 |LAG..;..|;  PRINT|
|00001540| 20 52 4f 55 54 49 4e 45 | 0d 0a 3b 0d 0a 50 41 44 | ROUTINE|..;..PAD|
|00001550| 43 31 3a 09 4c 44 09 42 | 2c 31 30 30 09 3b 20 50 |C1:.LD.B|,100.; P|
|00001560| 52 49 4e 54 20 48 55 4e | 44 52 45 44 53 0d 0a 09 |RINT HUN|DREDS...|
|00001570| 43 41 4c 4c 09 50 41 43 | 09 3b 20 50 52 49 4e 54 |CALL.PAC|.; PRINT|
|00001580| 20 41 20 43 48 41 52 0d | 0a 09 4c 44 09 42 2c 31 | A CHAR.|..LD.B,1|
|00001590| 30 09 3b 20 50 52 49 4e | 54 20 54 45 4e 53 0d 0a |0.; PRIN|T TENS..|
|000015a0| 09 43 41 4c 4c 09 50 41 | 43 0d 0a 09 41 44 44 09 |.CALL.PA|C...ADD.|
|000015b0| 27 30 27 09 3b 20 43 4f | 4e 56 45 52 54 20 54 4f |'0'.; CO|NVERT TO|
|000015c0| 20 41 53 43 49 49 0d 0a | 09 43 41 4c 4c 09 50 55 | ASCII..|.CALL.PU|
|000015d0| 54 09 3b 20 50 52 49 4e | 54 0d 0a 09 45 58 09 44 |T.; PRIN|T...EX.D|
|000015e0| 45 2c 48 4c 09 3b 20 50 | 54 52 20 42 41 43 4b 20 |E,HL.; P|TR BACK |
|000015f0| 49 4e 20 44 45 0d 0a 09 | 50 4f 50 09 48 4c 09 3b |IN DE...|POP.HL.;|
|00001600| 20 52 45 53 54 4f 52 45 | 20 52 45 47 53 0d 0a 09 | RESTORE| REGS...|
|00001610| 50 4f 50 09 42 43 0d 0a | 09 50 4f 50 09 41 46 0d |POP.BC..|.POP.AF.|
|00001620| 0a 09 52 45 54 0d 0a 0d | 0a 3b 0d 0a 3b 20 20 50 |..RET...|.;..;  P|
|00001630| 52 49 4e 54 20 52 45 53 | 55 4c 54 20 4f 46 20 44 |RINT RES|ULT OF D|
|00001640| 49 56 49 53 49 4f 4e 20 | 4f 46 20 41 20 42 59 20 |IVISION |OF A BY |
|00001650| 42 20 28 49 4e 54 45 47 | 45 52 20 44 49 56 49 53 |B (INTEG|ER DIVIS|
|00001660| 49 4f 4e 29 0d 0a 3b 0d | 0a 50 41 43 3a 09 4c 44 |ION)..;.|.PAC:.LD|
|00001670| 09 43 2c 30 09 3b 20 53 | 45 54 20 43 4f 55 4e 54 |.C,0.; S|ET COUNT|
|00001680| 0d 0a 50 41 43 4c 3a 09 | 53 55 42 09 42 09 3b 20 |..PACL:.|SUB.B.; |
|00001690| 43 4f 4d 50 55 54 45 20 | 43 4f 55 4e 54 0d 0a 09 |COMPUTE |COUNT...|
|000016a0| 4a 50 09 43 2c 50 41 43 | 44 0d 0a 09 49 4e 43 09 |JP.C,PAC|D...INC.|
|000016b0| 43 09 3b 20 49 4e 43 52 | 20 43 4f 55 4e 54 0d 0a |C.; INCR| COUNT..|
|000016c0| 09 4a 50 09 50 41 43 4c | 0d 0a 50 41 43 44 3a 09 |.JP.PACL|..PACD:.|
|000016d0| 41 44 44 09 41 2c 42 09 | 3b 20 41 44 44 20 42 20 |ADD.A,B.|; ADD B |
|000016e0| 42 41 43 4b 20 49 4e 0d | 0a 09 4c 44 09 45 2c 41 |BACK IN.|..LD.E,A|
|000016f0| 09 3b 20 53 41 56 45 20 | 41 0d 0a 09 4c 44 09 41 |.; SAVE |A...LD.A|
|00001700| 2c 43 09 3b 20 47 45 54 | 20 43 4f 55 4e 54 0d 0a |,C.; GET| COUNT..|
|00001710| 09 4f 52 09 41 09 3b 20 | 5a 45 52 4f 3f 0d 0a 09 |.OR.A.; |ZERO?...|
|00001720| 4a 50 09 4e 5a 2c 50 41 | 43 44 31 0d 0a 09 4f 52 |JP.NZ,PA|CD1...OR|
|00001730| 09 44 09 3b 20 43 48 45 | 43 4b 20 46 4f 52 20 4c |.D.; CHE|CK FOR L|
|00001740| 45 41 44 49 4e 47 20 3c | 53 50 3e 20 28 41 3d 30 |EADING <|SP> (A=0|
|00001750| 2c 20 41 20 4f 52 20 44 | 20 3d 20 30 20 4d 45 41 |, A OR D| = 0 MEA|
|00001760| 4e 53 20 44 3d 30 29 0d | 0a 09 4c 44 09 41 2c 45 |NS D=0).|..LD.A,E|
|00001770| 09 3b 20 52 45 53 54 4f | 52 45 20 41 20 46 4f 52 |.; RESTO|RE A FOR|
|00001780| 20 50 4f 53 53 49 42 4c | 45 20 52 45 54 55 52 4e | POSSIBL|E RETURN|
|00001790| 0d 0a 09 52 45 54 09 4e | 5a 09 3b 20 52 45 54 55 |...RET.N|Z.; RETU|
|000017a0| 52 4e 20 49 46 20 4c 45 | 41 44 49 4e 47 20 3c 53 |RN IF LE|ADING <S|
|000017b0| 50 3e 0d 0a 50 41 43 44 | 31 3a 09 4c 44 09 44 2c |P>..PACD|1:.LD.D,|
|000017c0| 30 09 3b 20 44 3d 30 20 | 46 4f 52 20 4e 4f 20 4c |0.; D=0 |FOR NO L|
|000017d0| 45 41 44 49 4e 47 20 3c | 53 50 3e 0d 0a 09 4c 44 |EADING <|SP>...LD|
|000017e0| 09 41 2c 43 09 3b 20 47 | 45 54 20 43 4f 55 4e 54 |.A,C.; G|ET COUNT|
|000017f0| 0d 0a 09 41 44 44 09 27 | 30 27 09 3b 20 43 4f 4e |...ADD.'|0'.; CON|
|00001800| 56 45 52 54 20 54 4f 20 | 44 45 43 49 4d 41 4c 0d |VERT TO |DECIMAL.|
|00001810| 0a 09 43 41 4c 4c 09 50 | 55 54 09 3b 20 50 52 49 |..CALL.P|UT.; PRI|
|00001820| 4e 54 20 49 54 0d 0a 09 | 4c 44 09 41 2c 45 09 3b |NT IT...|LD.A,E.;|
|00001830| 20 52 45 53 54 4f 52 45 | 20 41 0d 0a 09 52 45 54 | RESTORE| A...RET|
|00001840| 0d 0a 0d 0a 3b 0d 0a 3b | 20 20 50 55 54 20 42 59 |....;..;|  PUT BY|
|00001850| 54 45 20 49 4e 20 41 20 | 49 4e 20 4d 45 4d 4f 52 |TE IN A |IN MEMOR|
|00001860| 59 20 41 54 20 41 44 44 | 52 45 53 53 20 50 54 45 |Y AT ADD|RESS PTE|
|00001870| 44 20 54 4f 20 42 59 20 | 48 4c 3b 20 41 44 56 41 |D TO BY |HL; ADVA|
|00001880| 4e 43 45 20 48 4c 0d 0a | 3b 0d 0a 50 55 54 3a 0d |NCE HL..|;..PUT:.|
|00001890| 0a 09 4c 44 09 28 48 4c | 29 2c 41 09 3b 20 50 55 |..LD.(HL|),A.; PU|
|000018a0| 54 20 42 59 54 45 0d 0a | 09 49 4e 43 09 48 4c 09 |T BYTE..|.INC.HL.|
|000018b0| 3b 20 50 54 20 54 4f 20 | 4e 45 58 54 0d 0a 09 52 |; PT TO |NEXT...R|
|000018c0| 45 54 0d 0a 0d 0a 09 45 | 4e 44 0d 0a 1a 1a 1a 1a |ET.....E|ND......|
|000018d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000018f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001900| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00001910| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 46 4e 31 0d |le Name:|  SMFN1.|
|00001920| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|00001930| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|00001940| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|00001950| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|00001960| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00001970| 3a 20 20 31 2e 31 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.1..|...publi|
|00001980| 63 09 6d 66 6e 31 0d 0a | 3b 0d 0a 3b 20 20 50 72 |c.mfn1..|;..;  Pr|
|00001990| 69 6e 74 20 46 43 42 20 | 66 69 6c 65 20 6e 61 6d |int FCB |file nam|
|000019a0| 65 20 61 6e 64 20 74 79 | 70 65 20 70 74 65 64 20 |e and ty|pe pted |
|000019b0| 74 6f 20 62 79 20 44 45 | 20 74 6f 20 6d 65 6d 6f |to by DE| to memo|
|000019c0| 72 79 20 70 74 65 64 20 | 74 6f 20 62 79 20 48 4c |ry pted |to by HL|
|000019d0| 0d 0a 3b 20 20 46 6f 72 | 6d 61 74 20 6f 66 20 4f |..;  For|mat of O|
|000019e0| 75 74 70 75 74 3a 20 20 | 78 78 78 78 78 78 78 78 |utput:  |xxxxxxxx|
|000019f0| 2e 78 78 78 0d 0a 3b 0d | 0a 6d 66 6e 31 3a 0d 0a |.xxx..;.|.mfn1:..|
|00001a00| 09 70 75 73 68 09 68 6c | 09 3b 20 73 61 76 65 20 |.push.hl|.; save |
|00001a10| 72 65 67 73 0d 0a 09 70 | 75 73 68 09 64 65 0d 0a |regs...p|ush.de..|
|00001a20| 09 70 75 73 68 09 62 63 | 0d 0a 09 70 75 73 68 09 |.push.bc|...push.|
|00001a30| 61 66 0d 0a 09 6c 64 09 | 62 2c 38 09 3b 20 38 20 |af...ld.|b,8.; 8 |
|00001a40| 63 68 61 72 73 20 66 69 | 72 73 74 0d 0a 09 63 61 |chars fi|rst...ca|
|00001a50| 6c 6c 09 70 72 66 6e 78 | 0d 0a 09 6c 64 09 28 68 |ll.prfnx|...ld.(h|
|00001a60| 6c 29 2c 27 2e 27 0d 0a | 09 69 6e 63 09 68 6c 0d |l),'.'..|.inc.hl.|
|00001a70| 0a 09 6c 64 09 62 2c 33 | 09 3b 20 33 20 6d 6f 72 |..ld.b,3|.; 3 mor|
|00001a80| 65 20 63 68 61 72 73 0d | 0a 09 63 61 6c 6c 09 70 |e chars.|..call.p|
|00001a90| 72 66 6e 78 0d 0a 09 70 | 6f 70 09 61 66 09 3b 20 |rfnx...p|op.af.; |
|00001aa0| 72 65 73 74 6f 72 65 20 | 72 65 67 73 0d 0a 09 70 |restore |regs...p|
|00001ab0| 6f 70 09 62 63 0d 0a 09 | 70 6f 70 09 64 65 0d 0a |op.bc...|pop.de..|
|00001ac0| 09 70 6f 70 09 68 6c 0d | 0a 09 72 65 74 0d 0a 70 |.pop.hl.|..ret..p|
|00001ad0| 72 66 6e 78 3a 0d 0a 09 | 6c 64 09 61 2c 28 64 65 |rfnx:...|ld.a,(de|
|00001ae0| 29 09 3b 20 67 65 74 20 | 63 68 61 72 0d 0a 09 61 |).; get |char...a|
|00001af0| 6e 64 09 37 66 68 09 3b | 20 6d 61 73 6b 20 6f 75 |nd.7fh.;| mask ou|
|00001b00| 74 20 6d 73 62 0d 0a 09 | 6c 64 09 28 68 6c 29 2c |t msb...|ld.(hl),|
|00001b10| 61 09 3b 20 70 75 74 20 | 63 68 61 72 0d 0a 09 69 |a.; put |char...i|
|00001b20| 6e 63 09 68 6c 09 3b 20 | 70 74 20 74 6f 20 6e 65 |nc.hl.; |pt to ne|
|00001b30| 78 74 0d 0a 09 69 6e 63 | 09 64 65 0d 0a 09 64 65 |xt...inc|.de...de|
|00001b40| 63 09 62 09 3b 20 63 6f | 75 6e 74 20 64 6f 77 6e |c.b.; co|unt down|
|00001b50| 0d 0a 09 6a 70 09 6e 7a | 2c 70 72 66 6e 78 0d 0a |...jp.nz|,prfnx..|
|00001b60| 09 72 65 74 0d 0a 0d 0a | 09 65 6e 64 0d 0a 1a 1a |.ret....|.end....|
|00001b70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001b80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00001b90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 46 4e 32 0d |le Name:|  SMFN2.|
|00001ba0| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|00001bb0| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|00001bc0| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|00001bd0| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|00001be0| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00001bf0| 3a 20 20 31 2e 31 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.1..|...publi|
|00001c00| 63 09 6d 66 6e 32 0d 0a | 3b 0d 0a 3b 20 20 50 72 |c.mfn2..|;..;  Pr|
|00001c10| 69 6e 74 20 46 43 42 20 | 66 69 6c 65 20 6e 61 6d |int FCB |file nam|
|00001c20| 65 20 61 6e 64 20 74 79 | 70 65 20 70 74 65 64 20 |e and ty|pe pted |
|00001c30| 74 6f 20 62 79 20 44 45 | 20 74 6f 20 6d 65 6d 6f |to by DE| to memo|
|00001c40| 72 79 20 70 74 65 64 20 | 74 6f 20 62 79 20 48 4c |ry pted |to by HL|
|00001c50| 0d 0a 3b 20 20 46 6f 72 | 6d 61 74 20 6f 66 20 4f |..;  For|mat of O|
|00001c60| 75 74 70 75 74 3a 20 20 | 78 78 78 78 78 78 78 78 |utput:  |xxxxxxxx|
|00001c70| 2e 79 79 79 20 28 30 2d | 38 20 78 27 73 2c 20 30 |.yyy (0-|8 x's, 0|
|00001c80| 2d 33 20 79 27 73 29 0d | 0a 3b 0d 0a 6d 66 6e 32 |-3 y's).|.;..mfn2|
|00001c90| 3a 0d 0a 09 70 75 73 68 | 09 68 6c 09 3b 20 73 61 |:...push|.hl.; sa|
|00001ca0| 76 65 20 72 65 67 73 0d | 0a 09 70 75 73 68 09 64 |ve regs.|..push.d|
|00001cb0| 65 0d 0a 09 70 75 73 68 | 09 62 63 0d 0a 09 70 75 |e...push|.bc...pu|
|00001cc0| 73 68 09 61 66 0d 0a 09 | 6c 64 09 62 2c 38 09 3b |sh.af...|ld.b,8.;|
|00001cd0| 20 38 20 63 68 61 72 73 | 20 66 69 72 73 74 0d 0a | 8 chars| first..|
|00001ce0| 09 63 61 6c 6c 09 70 72 | 66 6e 78 0d 0a 09 6c 64 |.call.pr|fnx...ld|
|00001cf0| 09 28 68 6c 29 2c 27 2e | 27 0d 0a 09 69 6e 63 09 |.(hl),'.|'...inc.|
|00001d00| 68 6c 0d 0a 09 6c 64 09 | 62 2c 33 09 3b 20 33 20 |hl...ld.|b,3.; 3 |
|00001d10| 6d 6f 72 65 20 63 68 61 | 72 73 0d 0a 09 63 61 6c |more cha|rs...cal|
|00001d20| 6c 09 70 72 66 6e 78 0d | 0a 09 70 6f 70 09 61 66 |l.prfnx.|..pop.af|
|00001d30| 09 3b 20 72 65 73 74 6f | 72 65 20 72 65 67 73 0d |.; resto|re regs.|
|00001d40| 0a 09 70 6f 70 09 62 63 | 0d 0a 09 70 6f 70 09 64 |..pop.bc|...pop.d|
|00001d50| 65 0d 0a 09 70 6f 70 09 | 68 6c 0d 0a 09 72 65 74 |e...pop.|hl...ret|
|00001d60| 0d 0a 70 72 66 6e 78 3a | 0d 0a 09 6c 64 09 61 2c |..prfnx:|...ld.a,|
|00001d70| 28 64 65 29 09 3b 20 67 | 65 74 20 63 68 61 72 0d |(de).; g|et char.|
|00001d80| 0a 09 61 6e 64 09 37 66 | 68 09 3b 20 6d 61 73 6b |..and.7f|h.; mask|
|00001d90| 20 6f 75 74 20 6d 73 62 | 0d 0a 09 63 70 09 27 20 | out msb|...cp.' |
|00001da0| 27 09 3b 20 73 6b 69 70 | 20 73 70 61 63 65 73 0d |'.; skip| spaces.|
|00001db0| 0a 09 6a 70 09 7a 2c 70 | 72 66 6e 78 31 0d 0a 09 |..jp.z,p|rfnx1...|
|00001dc0| 6c 64 09 28 68 6c 29 2c | 61 09 3b 20 70 75 74 20 |ld.(hl),|a.; put |
|00001dd0| 63 68 61 72 0d 0a 09 69 | 6e 63 09 68 6c 09 3b 20 |char...i|nc.hl.; |
|00001de0| 70 74 20 74 6f 20 6e 65 | 78 74 0d 0a 70 72 66 6e |pt to ne|xt..prfn|
|00001df0| 78 31 3a 0d 0a 09 69 6e | 63 09 64 65 0d 0a 09 64 |x1:...in|c.de...d|
|00001e00| 65 63 09 62 09 3b 20 63 | 6f 75 6e 74 20 64 6f 77 |ec.b.; c|ount dow|
|00001e10| 6e 0d 0a 09 6a 70 09 6e | 7a 2c 70 72 66 6e 78 0d |n...jp.n|z,prfnx.|
|00001e20| 0a 09 72 65 74 0d 0a 0d | 0a 09 65 6e 64 0d 0a 1a |..ret...|..end...|
|00001e30| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001e40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001e50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001e60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001e70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00001e80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00001e90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 46 4e 33 0d |le Name:|  SMFN3.|
|00001ea0| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|00001eb0| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|00001ec0| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|00001ed0| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|00001ee0| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00001ef0| 3a 20 20 31 2e 31 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.1..|...publi|
|00001f00| 63 09 6d 66 6e 33 0d 0a | 0d 0a 3b 0d 0a 3b 20 20 |c.mfn3..|..;..;  |
|00001f10| 50 72 69 6e 74 20 46 43 | 42 20 66 69 6c 65 20 6e |Print FC|B file n|
|00001f20| 61 6d 65 20 61 6e 64 20 | 74 79 70 65 20 70 74 65 |ame and |type pte|
|00001f30| 64 20 74 6f 20 62 79 20 | 44 45 20 74 6f 20 6d 65 |d to by |DE to me|
|00001f40| 6d 6f 72 79 20 70 74 65 | 64 20 74 6f 20 62 79 20 |mory pte|d to by |
|00001f50| 48 4c 0d 0a 3b 20 20 46 | 6f 72 6d 61 74 20 6f 66 |HL..;  F|ormat of|
|00001f60| 20 4f 75 74 70 75 74 3a | 20 20 78 78 78 78 78 78 | Output:|  xxxxxx|
|00001f70| 78 78 2e 79 79 79 20 3c | 73 70 61 63 65 73 3e 20 |xx.yyy <|spaces> |
|00001f80| 28 30 2d 38 20 78 27 73 | 2c 20 30 2d 33 20 79 27 |(0-8 x's|, 0-3 y'|
|00001f90| 73 2c 20 72 65 71 27 64 | 20 73 70 61 63 65 73 29 |s, req'd| spaces)|
|00001fa0| 0d 0a 3b 0d 0a 6d 66 6e | 33 3a 0d 0a 09 70 75 73 |..;..mfn|3:...pus|
|00001fb0| 68 09 68 6c 09 3b 20 73 | 61 76 65 20 72 65 67 73 |h.hl.; s|ave regs|
|00001fc0| 0d 0a 09 70 75 73 68 09 | 64 65 0d 0a 09 70 75 73 |...push.|de...pus|
|00001fd0| 68 09 62 63 0d 0a 09 70 | 75 73 68 09 61 66 0d 0a |h.bc...p|ush.af..|
|00001fe0| 09 6c 64 09 63 2c 31 31 | 09 3b 20 31 31 20 63 68 |.ld.c,11|.; 11 ch|
|00001ff0| 61 72 73 20 74 6f 74 61 | 6c 0d 0a 09 6c 64 09 62 |ars tota|l...ld.b|
|00002000| 2c 38 09 3b 20 38 20 63 | 68 61 72 73 20 66 69 72 |,8.; 8 c|hars fir|
|00002010| 73 74 0d 0a 09 63 61 6c | 6c 09 70 72 66 6e 78 0d |st...cal|l.prfnx.|
|00002020| 0a 09 6c 64 09 28 68 6c | 29 2c 27 2e 27 0d 0a 09 |..ld.(hl|),'.'...|
|00002030| 69 6e 63 09 68 6c 0d 0a | 09 6c 64 09 62 2c 33 09 |inc.hl..|.ld.b,3.|
|00002040| 3b 20 33 20 6d 6f 72 65 | 20 63 68 61 72 73 0d 0a |; 3 more| chars..|
|00002050| 09 63 61 6c 6c 09 70 72 | 66 6e 78 0d 0a 09 6c 64 |.call.pr|fnx...ld|
|00002060| 09 61 2c 63 09 3b 20 67 | 65 74 20 63 6f 75 6e 74 |.a,c.; g|et count|
|00002070| 20 6f 66 20 73 70 61 63 | 65 73 0d 0a 09 6f 72 09 | of spac|es...or.|
|00002080| 61 09 3b 20 30 3d 6e 6f | 6e 65 0d 0a 09 63 61 6c |a.; 0=no|ne...cal|
|00002090| 6c 09 6e 7a 2c 73 70 61 | 63 65 72 0d 0a 09 70 6f |l.nz,spa|cer...po|
|000020a0| 70 09 61 66 09 3b 20 72 | 65 73 74 6f 72 65 20 72 |p.af.; r|estore r|
|000020b0| 65 67 73 0d 0a 09 70 6f | 70 09 62 63 0d 0a 09 70 |egs...po|p.bc...p|
|000020c0| 6f 70 09 64 65 0d 0a 09 | 70 6f 70 09 68 6c 0d 0a |op.de...|pop.hl..|
|000020d0| 09 72 65 74 0d 0a 70 72 | 66 6e 78 3a 0d 0a 09 6c |.ret..pr|fnx:...l|
|000020e0| 64 09 61 2c 28 64 65 29 | 09 3b 20 67 65 74 20 63 |d.a,(de)|.; get c|
|000020f0| 68 61 72 0d 0a 09 61 6e | 64 09 37 66 68 09 3b 20 |har...an|d.7fh.; |
|00002100| 6d 61 73 6b 20 6f 75 74 | 20 6d 73 62 0d 0a 09 63 |mask out| msb...c|
|00002110| 70 09 27 20 27 09 3b 20 | 73 6b 69 70 20 73 70 61 |p.' '.; |skip spa|
|00002120| 63 65 0d 0a 09 63 61 6c | 6c 09 6e 7a 2c 70 72 6f |ce...cal|l.nz,pro|
|00002130| 75 74 09 3b 20 70 72 69 | 6e 74 20 69 74 0d 0a 09 |ut.; pri|nt it...|
|00002140| 69 6e 63 09 64 65 09 3b | 20 70 74 20 74 6f 20 6e |inc.de.;| pt to n|
|00002150| 65 78 74 0d 0a 09 64 65 | 63 09 62 09 3b 20 63 6f |ext...de|c.b.; co|
|00002160| 75 6e 74 20 64 6f 77 6e | 0d 0a 09 6a 70 09 6e 7a |unt down|...jp.nz|
|00002170| 2c 70 72 66 6e 78 0d 0a | 09 72 65 74 0d 0a 70 72 |,prfnx..|.ret..pr|
|00002180| 6f 75 74 3a 0d 0a 09 6c | 64 09 28 68 6c 29 2c 61 |out:...l|d.(hl),a|
|00002190| 09 3b 20 73 74 6f 72 65 | 20 63 68 61 72 0d 0a 09 |.; store| char...|
|000021a0| 69 6e 63 09 68 6c 09 3b | 20 70 74 20 74 6f 20 6e |inc.hl.;| pt to n|
|000021b0| 65 78 74 0d 0a 09 64 65 | 63 09 63 09 3b 20 63 6f |ext...de|c.c.; co|
|000021c0| 75 6e 74 20 63 68 61 72 | 73 0d 0a 09 72 65 74 0d |unt char|s...ret.|
|000021d0| 0a 73 70 61 63 65 72 3a | 0d 0a 09 6c 64 09 28 68 |.spacer:|...ld.(h|
|000021e0| 6c 29 2c 27 20 27 09 3b | 20 73 70 61 63 65 20 6f |l),' '.;| space o|
|000021f0| 76 65 72 0d 0a 09 69 6e | 63 09 68 6c 0d 0a 09 64 |ver...in|c.hl...d|
|00002200| 65 63 09 63 09 3b 20 63 | 6f 75 6e 74 20 64 6f 77 |ec.c.; c|ount dow|
|00002210| 6e 0d 0a 09 6a 70 09 6e | 7a 2c 73 70 61 63 65 72 |n...jp.n|z,spacer|
|00002220| 0d 0a 09 72 65 74 0d 0a | 0d 0a 09 65 6e 64 0d 0a |...ret..|...end..|
|00002230| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002240| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002250| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002260| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002270| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002280| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00002290| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 48 4c 34 48 |le Name:|  SMHL4H|
|000022a0| 43 0d 0a 3b 20 41 75 74 | 68 6f 72 3a 20 20 52 69 |C..; Aut|hor:  Ri|
|000022b0| 63 68 61 72 64 20 43 6f | 6e 6e 0d 0a 3b 20 53 59 |chard Co|nn..; SY|
|000022c0| 53 4c 49 42 20 56 65 72 | 73 69 6f 6e 20 4e 75 6d |SLIB Ver|sion Num|
|000022d0| 62 65 72 3a 20 20 33 2e | 36 0d 0a 3b 20 4d 6f 64 |ber:  3.|6..; Mod|
|000022e0| 75 6c 65 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |ule Vers|ion Numb|
|000022f0| 65 72 3a 20 20 31 2e 31 | 0d 0a 0d 0a 09 70 75 62 |er:  1.1|.....pub|
|00002300| 6c 69 63 09 6d 68 6c 34 | 68 63 0d 0a 3b 0d 0a 3b |lic.mhl4|hc..;..;|
|00002310| 09 4d 48 4c 34 48 43 20 | 2d 2d 20 53 74 6f 72 65 |.MHL4HC |-- Store|
|00002320| 20 48 4c 20 61 73 20 34 | 20 48 65 78 20 43 68 61 | HL as 4| Hex Cha|
|00002330| 72 61 63 74 65 72 73 20 | 69 6e 20 6d 65 6d 6f 72 |racters |in memor|
|00002340| 79 3b 20 6f 6e 20 69 6e | 70 75 74 2c 20 44 45 20 |y; on in|put, DE |
|00002350| 70 74 73 0d 0a 3b 20 74 | 6f 20 34 2d 62 79 74 65 |pts..; t|o 4-byte|
|00002360| 20 62 75 66 66 65 72 20 | 61 6e 64 20 48 4c 3d 76 | buffer |and HL=v|
|00002370| 61 6c 75 65 3b 20 6f 6e | 20 72 65 74 75 72 6e 2c |alue; on| return,|
|00002380| 20 44 45 20 70 74 73 20 | 74 6f 20 62 79 74 65 20 | DE pts |to byte |
|00002390| 61 66 74 65 72 20 62 75 | 66 66 65 72 0d 0a 3b 09 |after bu|ffer..;.|
|000023a0| 4e 6f 20 52 65 67 69 73 | 74 65 72 73 20 61 72 65 |No Regis|ters are|
|000023b0| 20 74 6f 20 62 65 20 61 | 66 66 65 63 74 65 64 2e | to be a|ffected.|
|000023c0| 0d 0a 3b 0d 0a 09 45 58 | 54 09 4d 41 32 48 43 09 |..;...EX|T.MA2HC.|
|000023d0| 3b 20 53 54 4f 52 45 20 | 41 20 41 53 20 32 20 48 |; STORE |A AS 2 H|
|000023e0| 45 58 20 43 48 41 52 41 | 43 54 45 52 53 0d 0a 0d |EX CHARA|CTERS...|
|000023f0| 0a 4d 48 4c 34 48 43 3a | 0d 0a 09 50 55 53 48 09 |.MHL4HC:|...PUSH.|
|00002400| 41 46 09 3b 20 53 41 56 | 45 20 41 0d 0a 09 4c 44 |AF.; SAV|E A...LD|
|00002410| 09 41 2c 48 09 3b 20 50 | 52 49 4e 54 20 48 0d 0a |.A,H.; P|RINT H..|
|00002420| 09 43 41 4c 4c 09 4d 41 | 32 48 43 0d 0a 09 4c 44 |.CALL.MA|2HC...LD|
|00002430| 09 41 2c 4c 09 3b 20 50 | 52 49 4e 54 20 4c 0d 0a |.A,L.; P|RINT L..|
|00002440| 09 43 41 4c 4c 09 4d 41 | 32 48 43 0d 0a 09 50 4f |.CALL.MA|2HC...PO|
|00002450| 50 09 41 46 09 3b 20 52 | 45 53 54 4f 52 45 20 41 |P.AF.; R|ESTORE A|
|00002460| 0d 0a 09 52 45 54 0d 0a | 0d 0a 09 45 4e 44 0d 0a |...RET..|...END..|
|00002470| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002480| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00002490| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 48 4c 35 44 |le Name:|  SMHL5D|
|000024a0| 43 0d 0a 3b 20 41 75 74 | 68 6f 72 3a 20 20 52 69 |C..; Aut|hor:  Ri|
|000024b0| 63 68 61 72 64 20 43 6f | 6e 6e 0d 0a 3b 20 53 59 |chard Co|nn..; SY|
|000024c0| 53 4c 49 42 20 56 65 72 | 73 69 6f 6e 20 4e 75 6d |SLIB Ver|sion Num|
|000024d0| 62 65 72 3a 20 20 33 2e | 36 0d 0a 3b 20 4d 6f 64 |ber:  3.|6..; Mod|
|000024e0| 75 6c 65 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |ule Vers|ion Numb|
|000024f0| 65 72 3a 20 20 31 2e 31 | 0d 0a 0d 0a 09 70 75 62 |er:  1.1|.....pub|
|00002500| 6c 69 63 09 6d 68 6c 35 | 64 63 2c 6d 68 6c 64 63 |lic.mhl5|dc,mhldc|
|00002510| 0d 0a 0d 0a 50 55 54 52 | 47 09 4d 41 43 52 4f 0d |....PUTR|G.MACRO.|
|00002520| 0a 09 50 55 53 48 09 42 | 43 09 3b 20 53 41 56 45 |..PUSH.B|C.; SAVE|
|00002530| 20 42 43 2c 20 44 45 2c | 20 48 4c 0d 0a 09 50 55 | BC, DE,| HL...PU|
|00002540| 53 48 09 44 45 0d 0a 09 | 50 55 53 48 09 48 4c 0d |SH.DE...|PUSH.HL.|
|00002550| 0a 09 45 4e 44 4d 0d 0a | 47 45 54 52 47 09 4d 41 |..ENDM..|GETRG.MA|
|00002560| 43 52 4f 0d 0a 09 50 4f | 50 09 48 4c 09 3b 20 52 |CRO...PO|P.HL.; R|
|00002570| 45 53 54 4f 52 45 20 48 | 4c 2c 20 44 45 2c 20 42 |ESTORE H|L, DE, B|
|00002580| 43 0d 0a 09 50 4f 50 09 | 44 45 0d 0a 09 50 4f 50 |C...POP.|DE...POP|
|00002590| 09 42 43 0d 0a 09 45 4e | 44 4d 0d 0a 0d 0a 3b 0d |.BC...EN|DM....;.|
|000025a0| 0a 3b 20 20 4d 48 4c 35 | 44 43 20 2d 2d 0d 0a 3b |.;  MHL5|DC --..;|
|000025b0| 09 53 54 4f 52 45 20 48 | 4c 20 41 53 20 35 20 44 |.STORE H|L AS 5 D|
|000025c0| 45 43 49 4d 41 4c 20 43 | 48 41 52 41 43 54 45 52 |ECIMAL C|HARACTER|
|000025d0| 53 20 49 4e 20 4d 45 4d | 4f 52 59 0d 0a 3b 20 4f |S IN MEM|ORY..; O|
|000025e0| 4e 20 49 4e 50 55 54 2c | 20 48 4c 3d 56 41 4c 55 |N INPUT,| HL=VALU|
|000025f0| 45 20 41 4e 44 20 44 45 | 3d 50 54 52 20 54 4f 20 |E AND DE|=PTR TO |
|00002600| 35 2d 42 59 54 45 20 42 | 55 46 46 45 52 0d 0a 3b |5-BYTE B|UFFER..;|
|00002610| 20 4f 4e 20 4f 55 54 50 | 55 54 2c 20 44 45 20 50 | ON OUTP|UT, DE P|
|00002620| 54 53 20 54 4f 20 4e 45 | 58 54 20 42 59 54 45 20 |TS TO NE|XT BYTE |
|00002630| 41 46 54 45 52 20 42 55 | 46 46 45 52 0d 0a 3b 0d |AFTER BU|FFER..;.|
|00002640| 0a 4d 48 4c 35 44 43 3a | 0d 0a 09 50 55 53 48 09 |.MHL5DC:|...PUSH.|
|00002650| 41 46 09 3b 20 53 41 56 | 45 20 41 4c 4c 20 52 45 |AF.; SAV|E ALL RE|
|00002660| 47 53 0d 0a 09 45 58 09 | 44 45 2c 48 4c 09 3b 20 |GS...EX.|DE,HL.; |
|00002670| 48 4c 20 50 54 53 20 54 | 4f 20 42 55 46 46 45 52 |HL PTS T|O BUFFER|
|00002680| 0d 0a 09 4c 44 09 28 4d | 45 4d 50 54 52 29 2c 48 |...LD.(M|EMPTR),H|
|00002690| 4c 0d 0a 09 45 58 09 44 | 45 2c 48 4c 0d 0a 09 50 |L...EX.D|E,HL...P|
|000026a0| 55 54 52 47 0d 0a 09 58 | 4f 52 09 41 09 3b 20 41 |UTRG...X|OR.A.; A|
|000026b0| 3d 30 0d 0a 09 4c 44 09 | 28 4c 53 46 4c 47 30 29 |=0...LD.|(LSFLG0)|
|000026c0| 2c 41 09 3b 20 54 55 52 | 4e 20 4f 46 46 20 4c 45 |,A.; TUR|N OFF LE|
|000026d0| 41 44 49 4e 47 20 3c 53 | 50 3e 0d 0a 09 4a 50 09 |ADING <S|P>...JP.|
|000026e0| 50 48 44 43 0d 0a 3b 0d | 0a 3b 20 20 4d 48 4c 44 |PHDC..;.|.;  MHLD|
|000026f0| 43 20 2d 2d 0d 0a 3b 09 | 53 54 4f 52 45 20 48 4c |C --..;.|STORE HL|
|00002700| 20 41 53 20 44 45 43 49 | 4d 41 4c 20 43 48 41 52 | AS DECI|MAL CHAR|
|00002710| 41 43 54 45 52 53 20 57 | 2f 4c 45 41 44 49 4e 47 |ACTERS W|/LEADING|
|00002720| 20 53 50 41 43 45 53 20 | 49 4e 20 35 2d 43 48 41 | SPACES |IN 5-CHA|
|00002730| 52 20 46 49 45 4c 44 0d | 0a 3b 20 49 4e 20 4d 45 |R FIELD.|.; IN ME|
|00002740| 4d 4f 52 59 3b 20 4f 4e | 20 49 4e 50 55 54 2c 20 |MORY; ON| INPUT, |
|00002750| 48 4c 3d 56 41 4c 55 45 | 20 41 4e 44 20 44 45 3d |HL=VALUE| AND DE=|
|00002760| 50 54 52 20 54 4f 20 35 | 2d 42 59 54 45 20 42 55 |PTR TO 5|-BYTE BU|
|00002770| 46 46 45 52 0d 0a 3b 20 | 4f 4e 20 52 45 54 55 52 |FFER..; |ON RETUR|
|00002780| 4e 2c 20 44 45 20 50 54 | 53 20 54 4f 20 42 59 54 |N, DE PT|S TO BYT|
|00002790| 45 20 41 46 54 45 52 20 | 42 55 46 46 45 52 0d 0a |E AFTER |BUFFER..|
|000027a0| 3b 0d 0a 4d 48 4c 44 43 | 3a 0d 0a 09 50 55 53 48 |;..MHLDC|:...PUSH|
|000027b0| 09 41 46 09 3b 20 53 41 | 56 45 20 41 4c 4c 20 52 |.AF.; SA|VE ALL R|
|000027c0| 45 47 53 0d 0a 09 45 58 | 09 44 45 2c 48 4c 09 3b |EGS...EX|.DE,HL.;|
|000027d0| 20 48 4c 20 50 54 53 20 | 54 4f 20 42 55 46 46 45 | HL PTS |TO BUFFE|
|000027e0| 52 0d 0a 09 4c 44 09 28 | 4d 45 4d 50 54 52 29 2c |R...LD.(|MEMPTR),|
|000027f0| 48 4c 0d 0a 09 45 58 09 | 44 45 2c 48 4c 0d 0a 09 |HL...EX.|DE,HL...|
|00002800| 50 55 54 52 47 0d 0a 09 | 4c 44 09 41 2c 31 09 3b |PUTRG...|LD.A,1.;|
|00002810| 20 41 3d 31 0d 0a 09 4c | 44 09 28 4c 53 46 4c 47 | A=1...L|D.(LSFLG|
|00002820| 30 29 2c 41 09 3b 20 54 | 55 52 4e 20 4f 4e 20 4c |0),A.; T|URN ON L|
|00002830| 45 41 44 49 4e 47 20 3c | 53 50 3e 0d 0a 3b 0d 0a |EADING <|SP>..;..|
|00002840| 3b 20 20 50 52 49 4e 54 | 20 48 4c 20 55 53 49 4e |;  PRINT| HL USIN|
|00002850| 47 20 4c 45 41 44 49 4e | 47 20 3c 53 50 3e 20 46 |G LEADIN|G <SP> F|
|00002860| 4c 41 47 20 4c 53 46 4c | 47 30 0d 0a 3b 0d 0a 50 |LAG LSFL|G0..;..P|
|00002870| 48 44 43 3a 09 4c 44 09 | 44 45 2c 31 30 30 30 30 |HDC:.LD.|DE,10000|
|00002880| 09 3b 20 50 52 49 4e 54 | 20 31 30 30 30 30 27 53 |.; PRINT| 10000'S|
|00002890| 0d 0a 09 43 41 4c 4c 09 | 50 48 44 43 31 0d 0a 09 |...CALL.|PHDC1...|
|000028a0| 4c 44 09 44 45 2c 31 30 | 30 30 09 3b 20 50 52 49 |LD.DE,10|00.; PRI|
|000028b0| 4e 54 20 31 30 30 30 27 | 53 0d 0a 09 43 41 4c 4c |NT 1000'|S...CALL|
|000028c0| 09 50 48 44 43 31 0d 0a | 09 4c 44 09 44 45 2c 31 |.PHDC1..|.LD.DE,1|
|000028d0| 30 30 09 3b 20 50 52 49 | 4e 54 20 31 30 30 27 53 |00.; PRI|NT 100'S|
|000028e0| 0d 0a 09 43 41 4c 4c 09 | 50 48 44 43 31 0d 0a 09 |...CALL.|PHDC1...|
|000028f0| 4c 44 09 44 45 2c 31 30 | 09 3b 20 50 52 49 4e 54 |LD.DE,10|.; PRINT|
|00002900| 20 31 30 27 53 0d 0a 09 | 43 41 4c 4c 09 50 48 44 | 10'S...|CALL.PHD|
|00002910| 43 31 0d 0a 09 4c 44 09 | 41 2c 4c 09 3b 20 50 52 |C1...LD.|A,L.; PR|
|00002920| 49 4e 54 20 31 27 53 0d | 0a 09 41 44 44 09 27 30 |INT 1'S.|..ADD.'0|
|00002930| 27 09 3b 20 43 4f 4e 56 | 45 52 54 20 54 4f 20 41 |'.; CONV|ERT TO A|
|00002940| 53 43 49 49 0d 0a 09 43 | 41 4c 4c 09 50 55 54 0d |SCII...C|ALL.PUT.|
|00002950| 0a 09 47 45 54 52 47 09 | 09 3b 20 52 45 53 54 4f |..GETRG.|.; RESTO|
|00002960| 52 45 20 41 4c 4c 20 52 | 45 47 53 0d 0a 09 45 58 |RE ALL R|EGS...EX|
|00002970| 09 44 45 2c 48 4c 09 3b | 20 44 45 3d 56 41 4c 55 |.DE,HL.;| DE=VALU|
|00002980| 45 0d 0a 09 4c 44 09 48 | 4c 2c 28 4d 45 4d 50 54 |E...LD.H|L,(MEMPT|
|00002990| 52 29 09 3b 20 47 45 54 | 20 50 54 52 20 54 4f 20 |R).; GET| PTR TO |
|000029a0| 4e 45 58 54 20 42 59 54 | 45 0d 0a 09 45 58 09 44 |NEXT BYT|E...EX.D|
|000029b0| 45 2c 48 4c 09 3b 20 2e | 2e 2e 20 49 4e 20 44 45 |E,HL.; .|.. IN DE|
|000029c0| 0d 0a 09 50 4f 50 09 41 | 46 0d 0a 09 52 45 54 0d |...POP.A|F...RET.|
|000029d0| 0a 0d 0a 3b 20 20 42 55 | 46 46 45 52 53 0d 0a 4c |...;  BU|FFERS..L|
|000029e0| 53 46 4c 47 30 3a 09 44 | 53 09 31 09 3b 20 4c 45 |SFLG0:.D|S.1.; LE|
|000029f0| 41 44 49 4e 47 20 3c 53 | 50 3e 20 46 4c 41 47 0d |ADING <S|P> FLAG.|
|00002a00| 0a 4d 45 4d 50 54 52 3a | 09 44 53 09 32 09 3b 20 |.MEMPTR:|.DS.2.; |
|00002a10| 50 54 52 20 54 4f 20 4e | 45 58 54 20 4d 45 4d 4f |PTR TO N|EXT MEMO|
|00002a20| 52 59 20 41 44 44 52 45 | 53 53 0d 0a 09 0d 0a 3b |RY ADDRE|SS.....;|
|00002a30| 20 20 44 49 56 49 44 45 | 20 48 4c 20 42 59 20 44 |  DIVIDE| HL BY D|
|00002a40| 45 20 41 4e 44 20 50 52 | 49 4e 54 20 51 55 4f 54 |E AND PR|INT QUOT|
|00002a50| 49 45 4e 54 20 57 49 54 | 48 20 4c 45 41 44 49 4e |IENT WIT|H LEADIN|
|00002a60| 47 20 3c 53 50 3e 53 0d | 0a 50 48 44 43 31 3a 09 |G <SP>S.|.PHDC1:.|
|00002a70| 4c 44 09 43 2c 30 09 3b | 20 53 45 54 20 43 4f 55 |LD.C,0.;| SET COU|
|00002a80| 4e 54 0d 0a 50 48 44 43 | 32 3a 09 4c 44 09 41 2c |NT..PHDC|2:.LD.A,|
|00002a90| 4c 09 3b 20 53 55 42 20 | 45 20 46 52 4f 4d 20 4c |L.; SUB |E FROM L|
|00002aa0| 0d 0a 09 53 55 42 09 45 | 0d 0a 09 4c 44 09 4c 2c |...SUB.E|...LD.L,|
|00002ab0| 41 09 3b 20 52 45 53 55 | 4c 54 20 49 4e 20 4c 0d |A.; RESU|LT IN L.|
|00002ac0| 0a 09 4c 44 09 41 2c 48 | 09 3b 20 53 55 42 20 44 |..LD.A,H|.; SUB D|
|00002ad0| 20 46 52 4f 4d 20 48 20 | 57 2f 42 4f 52 52 4f 57 | FROM H |W/BORROW|
|00002ae0| 0d 0a 09 53 42 43 09 41 | 2c 44 0d 0a 09 4c 44 09 |...SBC.A|,D...LD.|
|00002af0| 48 2c 41 09 3b 20 52 45 | 53 55 4c 54 20 49 4e 20 |H,A.; RE|SULT IN |
|00002b00| 48 0d 0a 09 4a 50 09 43 | 2c 50 48 44 43 33 09 3b |H...JP.C|,PHDC3.;|
|00002b10| 20 44 4f 4e 45 20 49 46 | 20 43 41 52 52 59 20 53 | DONE IF| CARRY S|
|00002b20| 45 54 20 28 46 55 52 54 | 48 45 52 20 42 4f 52 52 |ET (FURT|HER BORR|
|00002b30| 4f 57 29 0d 0a 09 49 4e | 43 09 43 09 3b 20 49 4e |OW)...IN|C.C.; IN|
|00002b40| 43 52 20 43 4f 55 4e 54 | 0d 0a 09 4a 50 09 50 48 |CR COUNT|...JP.PH|
|00002b50| 44 43 32 0d 0a 50 48 44 | 43 33 3a 09 4c 44 09 41 |DC2..PHD|C3:.LD.A|
|00002b60| 2c 4c 09 3b 20 41 44 44 | 20 45 20 54 4f 20 4c 0d |,L.; ADD| E TO L.|
|00002b70| 0a 09 41 44 44 09 41 2c | 45 0d 0a 09 4c 44 09 4c |..ADD.A,|E...LD.L|
|00002b80| 2c 41 09 3b 20 52 45 53 | 55 4c 54 20 49 4e 20 4c |,A.; RES|ULT IN L|
|00002b90| 0d 0a 09 4c 44 09 41 2c | 48 09 3b 20 41 44 44 20 |...LD.A,|H.; ADD |
|00002ba0| 44 20 54 4f 20 48 20 57 | 2f 43 41 52 52 59 0d 0a |D TO H W|/CARRY..|
|00002bb0| 09 41 44 43 09 41 2c 44 | 0d 0a 09 4c 44 09 48 2c |.ADC.A,D|...LD.H,|
|00002bc0| 41 09 3b 20 52 45 53 55 | 4c 54 20 49 4e 20 48 0d |A.; RESU|LT IN H.|
|00002bd0| 0a 09 4c 44 09 41 2c 43 | 09 3b 20 47 45 54 20 52 |..LD.A,C|.; GET R|
|00002be0| 45 53 55 4c 54 0d 0a 09 | 4f 52 09 41 09 3b 20 43 |ESULT...|OR.A.; C|
|00002bf0| 48 45 43 4b 20 46 4f 52 | 20 5a 45 52 4f 0d 0a 09 |HECK FOR| ZERO...|
|00002c00| 4a 50 09 4e 5a 2c 50 48 | 44 43 34 0d 0a 09 4c 44 |JP.NZ,PH|DC4...LD|
|00002c10| 09 41 2c 28 4c 53 46 4c | 47 30 29 09 3b 20 43 48 |.A,(LSFL|G0).; CH|
|00002c20| 45 43 4b 20 46 4f 52 20 | 4c 45 41 44 49 4e 47 20 |ECK FOR |LEADING |
|00002c30| 3c 53 50 3e 0d 0a 09 4f | 52 09 41 09 3b 20 50 52 |<SP>...O|R.A.; PR|
|00002c40| 49 4e 54 20 56 41 4c 55 | 45 20 49 46 20 4e 4f 54 |INT VALU|E IF NOT|
|00002c50| 20 28 41 3d 30 29 0d 0a | 09 4a 50 09 5a 2c 50 48 | (A=0)..|.JP.Z,PH|
|00002c60| 44 43 34 0d 0a 09 4c 44 | 09 41 2c 27 20 27 09 3b |DC4...LD|.A,' '.;|
|00002c70| 20 50 52 49 4e 54 20 3c | 53 50 3e 0d 0a 09 4a 50 | PRINT <|SP>...JP|
|00002c80| 09 50 55 54 0d 0a 50 48 | 44 43 34 3a 09 58 4f 52 |.PUT..PH|DC4:.XOR|
|00002c90| 09 41 09 3b 20 54 55 52 | 4e 20 4f 46 46 20 4c 45 |.A.; TUR|N OFF LE|
|00002ca0| 41 44 49 4e 47 20 3c 53 | 50 3e 0d 0a 09 4c 44 09 |ADING <S|P>...LD.|
|00002cb0| 28 4c 53 46 4c 47 30 29 | 2c 41 0d 0a 09 4c 44 09 |(LSFLG0)|,A...LD.|
|00002cc0| 41 2c 43 09 3b 20 47 45 | 54 20 56 41 4c 55 45 0d |A,C.; GE|T VALUE.|
|00002cd0| 0a 09 41 44 44 09 27 30 | 27 09 3b 20 43 4f 4e 56 |..ADD.'0|'.; CONV|
|00002ce0| 45 52 54 20 54 4f 20 41 | 53 43 49 49 0d 0a 50 55 |ERT TO A|SCII..PU|
|00002cf0| 54 3a 0d 0a 09 50 55 53 | 48 09 48 4c 09 3b 20 53 |T:...PUS|H.HL.; S|
|00002d00| 41 56 45 20 48 4c 0d 0a | 09 4c 44 09 48 4c 2c 28 |AVE HL..|.LD.HL,(|
|00002d10| 4d 45 4d 50 54 52 29 09 | 3b 20 47 45 54 20 50 54 |MEMPTR).|; GET PT|
|00002d20| 52 0d 0a 09 4c 44 09 28 | 48 4c 29 2c 41 09 3b 20 |R...LD.(|HL),A.; |
|00002d30| 50 55 54 20 42 59 54 45 | 0d 0a 09 49 4e 43 09 48 |PUT BYTE|...INC.H|
|00002d40| 4c 09 3b 20 50 54 20 54 | 4f 20 4e 45 58 54 0d 0a |L.; PT T|O NEXT..|
|00002d50| 09 4c 44 09 28 4d 45 4d | 50 54 52 29 2c 48 4c 09 |.LD.(MEM|PTR),HL.|
|00002d60| 3b 20 50 55 54 20 50 54 | 52 0d 0a 09 50 4f 50 09 |; PUT PT|R...POP.|
|00002d70| 48 4c 09 3b 20 52 45 53 | 54 4f 52 45 20 48 4c 0d |HL.; RES|TORE HL.|
|00002d80| 0a 09 52 45 54 0d 0a 0d | 0a 09 45 4e 44 0d 0a 1a |..RET...|..END...|
|00002d90| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002da0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002db0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002dc0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002dd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002de0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002df0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002e00| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00002e10| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 48 4c 46 44 |le Name:|  SMHLFD|
|00002e20| 43 0d 0a 3b 20 41 75 74 | 68 6f 72 3a 20 20 52 69 |C..; Aut|hor:  Ri|
|00002e30| 63 68 61 72 64 20 43 6f | 6e 6e 0d 0a 3b 20 53 59 |chard Co|nn..; SY|
|00002e40| 53 4c 49 42 20 56 65 72 | 73 69 6f 6e 20 4e 75 6d |SLIB Ver|sion Num|
|00002e50| 62 65 72 3a 20 20 33 2e | 36 0d 0a 3b 20 4d 6f 64 |ber:  3.|6..; Mod|
|00002e60| 75 6c 65 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |ule Vers|ion Numb|
|00002e70| 65 72 3a 20 20 31 2e 31 | 0d 0a 0d 0a 09 70 75 62 |er:  1.1|.....pub|
|00002e80| 6c 69 63 09 6d 68 6c 66 | 64 63 0d 0a 0d 0a 3b 0d |lic.mhlf|dc....;.|
|00002e90| 0a 3b 20 20 4d 41 43 52 | 4f 53 0d 0a 3b 0d 0a 50 |.;  MACR|OS..;..P|
|00002ea0| 55 54 52 47 09 4d 41 43 | 52 4f 0d 0a 09 50 55 53 |UTRG.MAC|RO...PUS|
|00002eb0| 48 09 42 43 09 3b 20 53 | 41 56 45 20 42 43 2c 20 |H.BC.; S|AVE BC, |
|00002ec0| 44 45 2c 20 48 4c 0d 0a | 09 50 55 53 48 09 44 45 |DE, HL..|.PUSH.DE|
|00002ed0| 0d 0a 09 50 55 53 48 09 | 48 4c 0d 0a 09 45 4e 44 |...PUSH.|HL...END|
|00002ee0| 4d 0d 0a 47 45 54 52 47 | 09 4d 41 43 52 4f 0d 0a |M..GETRG|.MACRO..|
|00002ef0| 09 50 4f 50 09 48 4c 09 | 3b 20 52 45 53 54 4f 52 |.POP.HL.|; RESTOR|
|00002f00| 45 20 48 4c 2c 20 44 45 | 2c 20 42 43 0d 0a 09 50 |E HL, DE|, BC...P|
|00002f10| 4f 50 09 44 45 0d 0a 09 | 50 4f 50 09 42 43 0d 0a |OP.DE...|POP.BC..|
|00002f20| 09 45 4e 44 4d 0d 0a 0d | 0a 0d 0a 0d 0a 3b 0d 0a |.ENDM...|.....;..|
|00002f30| 3b 20 20 4d 48 4c 46 44 | 43 20 2d 2d 0d 0a 3b 09 |;  MHLFD|C --..;.|
|00002f40| 53 54 4f 52 45 20 48 4c | 20 41 53 20 55 50 20 54 |STORE HL| AS UP T|
|00002f50| 4f 20 35 20 44 45 43 49 | 4d 41 4c 20 43 48 41 52 |O 5 DECI|MAL CHAR|
|00002f60| 41 43 54 45 52 53 20 49 | 4e 20 4d 45 4d 4f 52 59 |ACTERS I|N MEMORY|
|00002f70| 0d 0a 3b 20 4f 4e 20 49 | 4e 50 55 54 2c 20 48 4c |..; ON I|NPUT, HL|
|00002f80| 3d 56 41 4c 55 45 20 41 | 4e 44 20 44 45 3d 50 54 |=VALUE A|ND DE=PT|
|00002f90| 52 20 54 4f 20 35 2d 42 | 59 54 45 20 42 55 46 46 |R TO 5-B|YTE BUFF|
|00002fa0| 45 52 0d 0a 3b 20 4f 4e | 20 4f 55 54 50 55 54 2c |ER..; ON| OUTPUT,|
|00002fb0| 20 44 45 20 50 54 53 20 | 54 4f 20 4e 45 58 54 20 | DE PTS |TO NEXT |
|00002fc0| 42 59 54 45 20 41 46 54 | 45 52 20 4c 41 53 54 20 |BYTE AFT|ER LAST |
|00002fd0| 42 59 54 45 20 53 54 4f | 52 45 44 0d 0a 3b 0d 0a |BYTE STO|RED..;..|
|00002fe0| 4d 48 4c 46 44 43 3a 0d | 0a 09 50 55 53 48 09 41 |MHLFDC:.|..PUSH.A|
|00002ff0| 46 09 3b 20 53 41 56 45 | 20 41 4c 4c 20 52 45 47 |F.; SAVE| ALL REG|
|00003000| 53 0d 0a 09 50 55 54 52 | 47 0d 0a 09 45 58 09 44 |S...PUTR|G...EX.D|
|00003010| 45 2c 48 4c 09 3b 20 48 | 4c 20 50 54 53 20 54 4f |E,HL.; H|L PTS TO|
|00003020| 20 42 55 46 46 45 52 0d | 0a 09 4c 44 09 28 4d 45 | BUFFER.|..LD.(ME|
|00003030| 4d 50 54 52 29 2c 48 4c | 0d 0a 09 45 58 09 44 45 |MPTR),HL|...EX.DE|
|00003040| 2c 48 4c 0d 0a 09 4c 44 | 09 42 2c 31 09 3b 20 42 |,HL...LD|.B,1.; B|
|00003050| 3d 31 20 46 4f 52 20 4c | 45 41 44 49 4e 47 20 3c |=1 FOR L|EADING <|
|00003060| 53 50 3e 20 46 4c 41 47 | 0d 0a 0d 0a 3b 0d 0a 3b |SP> FLAG|....;..;|
|00003070| 20 20 50 52 49 4e 54 20 | 48 4c 20 55 53 49 4e 47 |  PRINT |HL USING|
|00003080| 20 4c 45 41 44 49 4e 47 | 20 3c 53 50 3e 20 46 4c | LEADING| <SP> FL|
|00003090| 41 47 20 49 4e 20 42 0d | 0a 3b 0d 0a 50 48 44 43 |AG IN B.|.;..PHDC|
|000030a0| 3a 09 4c 44 09 44 45 2c | 31 30 30 30 30 09 3b 20 |:.LD.DE,|10000.; |
|000030b0| 50 52 49 4e 54 20 31 30 | 30 30 30 27 53 0d 0a 09 |PRINT 10|000'S...|
|000030c0| 43 41 4c 4c 09 50 48 44 | 43 31 0d 0a 09 4c 44 09 |CALL.PHD|C1...LD.|
|000030d0| 44 45 2c 31 30 30 30 09 | 3b 20 50 52 49 4e 54 20 |DE,1000.|; PRINT |
|000030e0| 31 30 30 30 27 53 0d 0a | 09 43 41 4c 4c 09 50 48 |1000'S..|.CALL.PH|
|000030f0| 44 43 31 0d 0a 09 4c 44 | 09 44 45 2c 31 30 30 09 |DC1...LD|.DE,100.|
|00003100| 3b 20 50 52 49 4e 54 20 | 31 30 30 27 53 0d 0a 09 |; PRINT |100'S...|
|00003110| 43 41 4c 4c 09 50 48 44 | 43 31 0d 0a 09 4c 44 09 |CALL.PHD|C1...LD.|
|00003120| 44 45 2c 31 30 09 3b 20 | 50 52 49 4e 54 20 31 30 |DE,10.; |PRINT 10|
|00003130| 27 53 0d 0a 09 43 41 4c | 4c 09 50 48 44 43 31 0d |'S...CAL|L.PHDC1.|
|00003140| 0a 09 4c 44 09 41 2c 4c | 09 3b 20 50 52 49 4e 54 |..LD.A,L|.; PRINT|
|00003150| 20 31 27 53 0d 0a 09 41 | 44 44 09 27 30 27 09 3b | 1'S...A|DD.'0'.;|
|00003160| 20 43 4f 4e 56 45 52 54 | 20 54 4f 20 41 53 43 49 | CONVERT| TO ASCI|
|00003170| 49 0d 0a 09 43 41 4c 4c | 09 50 55 54 0d 0a 09 47 |I...CALL|.PUT...G|
|00003180| 45 54 52 47 09 09 3b 20 | 52 45 53 54 4f 52 45 20 |ETRG..; |RESTORE |
|00003190| 41 4c 4c 20 52 45 47 53 | 0d 0a 09 45 58 09 44 45 |ALL REGS|...EX.DE|
|000031a0| 2c 48 4c 09 3b 20 44 45 | 3d 56 41 4c 55 45 0d 0a |,HL.; DE|=VALUE..|
|000031b0| 09 4c 44 09 48 4c 2c 28 | 4d 45 4d 50 54 52 29 09 |.LD.HL,(|MEMPTR).|
|000031c0| 3b 20 47 45 54 20 50 54 | 52 20 54 4f 20 4e 45 58 |; GET PT|R TO NEX|
|000031d0| 54 20 42 59 54 45 0d 0a | 09 45 58 09 44 45 2c 48 |T BYTE..|.EX.DE,H|
|000031e0| 4c 09 3b 20 2e 2e 2e 20 | 49 4e 20 44 45 0d 0a 09 |L.; ... |IN DE...|
|000031f0| 50 4f 50 09 41 46 0d 0a | 09 52 45 54 0d 0a 0d 0a |POP.AF..|.RET....|
|00003200| 3b 0d 0a 3b 20 20 44 49 | 56 49 44 45 20 48 4c 20 |;..;  DI|VIDE HL |
|00003210| 42 59 20 44 45 20 41 4e | 44 20 50 52 49 4e 54 20 |BY DE AN|D PRINT |
|00003220| 51 55 4f 54 49 45 4e 54 | 20 57 49 54 48 20 4c 45 |QUOTIENT| WITH LE|
|00003230| 41 44 49 4e 47 20 3c 53 | 50 3e 53 0d 0a 3b 0d 0a |ADING <S|P>S..;..|
|00003240| 50 48 44 43 31 3a 09 4c | 44 09 43 2c 30 09 3b 20 |PHDC1:.L|D.C,0.; |
|00003250| 53 45 54 20 43 4f 55 4e | 54 0d 0a 50 48 44 43 32 |SET COUN|T..PHDC2|
|00003260| 3a 09 4c 44 09 41 2c 4c | 09 3b 20 53 55 42 20 45 |:.LD.A,L|.; SUB E|
|00003270| 20 46 52 4f 4d 20 4c 0d | 0a 09 53 55 42 09 45 0d | FROM L.|..SUB.E.|
|00003280| 0a 09 4c 44 09 4c 2c 41 | 09 3b 20 52 45 53 55 4c |..LD.L,A|.; RESUL|
|00003290| 54 20 49 4e 20 4c 0d 0a | 09 4c 44 09 41 2c 48 09 |T IN L..|.LD.A,H.|
|000032a0| 3b 20 53 55 42 20 44 20 | 46 52 4f 4d 20 48 20 57 |; SUB D |FROM H W|
|000032b0| 2f 42 4f 52 52 4f 57 0d | 0a 09 53 42 43 09 41 2c |/BORROW.|..SBC.A,|
|000032c0| 44 0d 0a 09 4c 44 09 48 | 2c 41 09 3b 20 52 45 53 |D...LD.H|,A.; RES|
|000032d0| 55 4c 54 20 49 4e 20 48 | 0d 0a 09 4a 50 09 43 2c |ULT IN H|...JP.C,|
|000032e0| 50 48 44 43 33 09 3b 20 | 44 4f 4e 45 20 49 46 20 |PHDC3.; |DONE IF |
|000032f0| 43 41 52 52 59 20 53 45 | 54 20 28 46 55 52 54 48 |CARRY SE|T (FURTH|
|00003300| 45 52 20 42 4f 52 52 4f | 57 29 0d 0a 09 49 4e 43 |ER BORRO|W)...INC|
|00003310| 09 43 09 3b 20 49 4e 43 | 52 20 43 4f 55 4e 54 0d |.C.; INC|R COUNT.|
|00003320| 0a 09 4a 50 09 50 48 44 | 43 32 0d 0a 50 48 44 43 |..JP.PHD|C2..PHDC|
|00003330| 33 3a 09 4c 44 09 41 2c | 4c 09 3b 20 41 44 44 20 |3:.LD.A,|L.; ADD |
|00003340| 45 20 54 4f 20 4c 0d 0a | 09 41 44 44 09 41 2c 45 |E TO L..|.ADD.A,E|
|00003350| 0d 0a 09 4c 44 09 4c 2c | 41 09 3b 20 52 45 53 55 |...LD.L,|A.; RESU|
|00003360| 4c 54 20 49 4e 20 4c 0d | 0a 09 4c 44 09 41 2c 48 |LT IN L.|..LD.A,H|
|00003370| 09 3b 20 41 44 44 20 44 | 20 54 4f 20 48 20 57 2f |.; ADD D| TO H W/|
|00003380| 43 41 52 52 59 0d 0a 09 | 41 44 43 09 41 2c 44 0d |CARRY...|ADC.A,D.|
|00003390| 0a 09 4c 44 09 48 2c 41 | 09 3b 20 52 45 53 55 4c |..LD.H,A|.; RESUL|
|000033a0| 54 20 49 4e 20 48 0d 0a | 09 4c 44 09 41 2c 43 09 |T IN H..|.LD.A,C.|
|000033b0| 3b 20 47 45 54 20 52 45 | 53 55 4c 54 0d 0a 09 4f |; GET RE|SULT...O|
|000033c0| 52 09 41 09 3b 20 43 48 | 45 43 4b 20 46 4f 52 20 |R.A.; CH|ECK FOR |
|000033d0| 5a 45 52 4f 0d 0a 09 4a | 50 09 4e 5a 2c 50 48 44 |ZERO...J|P.NZ,PHD|
|000033e0| 43 34 0d 0a 09 4f 52 09 | 42 09 3b 20 43 48 45 43 |C4...OR.|B.; CHEC|
|000033f0| 4b 20 46 4f 52 20 4c 45 | 41 44 49 4e 47 20 3c 53 |K FOR LE|ADING <S|
|00003400| 50 3e 20 28 41 3d 30 2c | 20 41 20 4f 52 20 42 20 |P> (A=0,| A OR B |
|00003410| 3d 20 30 20 49 46 20 42 | 3d 30 29 0d 0a 09 52 45 |= 0 IF B|=0)...RE|
|00003420| 54 09 4e 5a 09 3b 20 44 | 4f 4e 45 20 49 46 20 4e |T.NZ.; D|ONE IF N|
|00003430| 4f 20 4c 45 41 44 49 4e | 47 20 3c 53 50 3e 0d 0a |O LEADIN|G <SP>..|
|00003440| 50 48 44 43 34 3a 09 4c | 44 09 42 2c 30 09 3b 20 |PHDC4:.L|D.B,0.; |
|00003450| 54 55 52 4e 20 4f 46 46 | 20 4c 45 41 44 49 4e 47 |TURN OFF| LEADING|
|00003460| 20 3c 53 50 3e 0d 0a 09 | 4c 44 09 41 2c 43 09 3b | <SP>...|LD.A,C.;|
|00003470| 20 47 45 54 20 56 41 4c | 55 45 0d 0a 09 41 44 44 | GET VAL|UE...ADD|
|00003480| 09 27 30 27 09 3b 20 43 | 4f 4e 56 45 52 54 20 54 |.'0'.; C|ONVERT T|
|00003490| 4f 20 41 53 43 49 49 20 | 41 4e 44 20 46 41 4c 4c |O ASCII |AND FALL|
|000034a0| 20 54 48 52 55 20 54 4f | 20 50 55 54 0d 0a 0d 0a | THRU TO| PUT....|
|000034b0| 3b 0d 0a 3b 20 20 50 55 | 54 20 42 59 54 45 20 49 |;..;  PU|T BYTE I|
|000034c0| 4e 20 41 20 49 4e 54 4f | 20 4e 45 58 54 20 4d 45 |N A INTO| NEXT ME|
|000034d0| 4d 4f 52 59 20 50 4f 53 | 49 54 49 4f 4e 20 41 4e |MORY POS|ITION AN|
|000034e0| 44 20 41 44 56 41 4e 43 | 45 20 4d 45 4d 4f 52 59 |D ADVANC|E MEMORY|
|000034f0| 20 50 54 52 0d 0a 3b 0d | 0a 50 55 54 3a 0d 0a 09 | PTR..;.|.PUT:...|
|00003500| 50 55 53 48 09 48 4c 09 | 3b 20 53 41 56 45 20 48 |PUSH.HL.|; SAVE H|
|00003510| 4c 0d 0a 09 4c 44 09 48 | 4c 2c 28 4d 45 4d 50 54 |L...LD.H|L,(MEMPT|
|00003520| 52 29 09 3b 20 47 45 54 | 20 50 54 52 0d 0a 09 4c |R).; GET| PTR...L|
|00003530| 44 09 28 48 4c 29 2c 41 | 09 3b 20 50 55 54 20 42 |D.(HL),A|.; PUT B|
|00003540| 59 54 45 0d 0a 09 49 4e | 43 09 48 4c 09 3b 20 50 |YTE...IN|C.HL.; P|
|00003550| 54 20 54 4f 20 4e 45 58 | 54 0d 0a 09 4c 44 09 28 |T TO NEX|T...LD.(|
|00003560| 4d 45 4d 50 54 52 29 2c | 48 4c 09 3b 20 50 55 54 |MEMPTR),|HL.; PUT|
|00003570| 20 50 54 52 0d 0a 09 50 | 4f 50 09 48 4c 09 3b 20 | PTR...P|OP.HL.; |
|00003580| 52 45 53 54 4f 52 45 20 | 48 4c 0d 0a 09 52 45 54 |RESTORE |HL...RET|
|00003590| 0d 0a 0d 0a 3b 0d 0a 3b | 20 20 42 55 46 46 45 52 |....;..;|  BUFFER|
|000035a0| 53 0d 0a 3b 0d 0a 4d 45 | 4d 50 54 52 3a 09 44 53 |S..;..ME|MPTR:.DS|
|000035b0| 09 32 09 3b 20 50 54 52 | 20 54 4f 20 4e 45 58 54 |.2.; PTR| TO NEXT|
|000035c0| 20 4d 45 4d 4f 52 59 20 | 41 44 44 52 45 53 53 0d | MEMORY |ADDRESS.|
|000035d0| 0a 09 0d 0a 09 45 4e 44 | 0d 0a 1a 1a 1a 1a 1a 1a |.....END|........|
|000035e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000035f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003600| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00003610| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 4f 56 45 0d |le Name:|  SMOVE.|
|00003620| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|00003630| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|00003640| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|00003650| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|00003660| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|00003670| 3a 20 20 31 2e 31 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.1..|...publi|
|00003680| 63 09 68 6d 6f 76 62 2c | 68 6d 6f 76 62 63 2c 6d |c.hmovb,|hmovbc,m|
|00003690| 6f 76 65 62 2c 6d 6f 76 | 65 62 63 0d 0a 0d 0a 3b |oveb,mov|ebc....;|
|000036a0| 0d 0a 3b 20 20 53 4d 4f | 56 45 42 2e 4d 41 43 20 |..;  SMO|VEB.MAC |
|000036b0| 2d 2d 20 53 59 53 4c 49 | 42 20 4d 4f 44 55 4c 45 |-- SYSLI|B MODULE|
|000036c0| 0d 0a 3b 0d 0a 3b 20 20 | 45 4e 54 52 59 20 50 4f |..;..;  |ENTRY PO|
|000036d0| 49 4e 54 53 20 2d 2d 0d | 0a 3b 09 45 58 54 09 4d |INTS --.|.;.EXT.M|
|000036e0| 4f 56 45 42 09 09 2d 2d | 20 4d 4f 56 45 20 42 59 |OVEB..--| MOVE BY|
|000036f0| 54 45 53 20 50 54 45 44 | 20 54 4f 20 42 59 20 48 |TES PTED| TO BY H|
|00003700| 4c 20 54 4f 0d 0a 3b 09 | 09 09 09 20 20 20 4c 4f |L TO..;.|...   LO|
|00003710| 43 41 54 49 4f 4e 20 50 | 54 45 44 20 54 4f 20 42 |CATION P|TED TO B|
|00003720| 59 20 44 45 20 46 4f 52 | 20 42 20 42 59 54 45 53 |Y DE FOR| B BYTES|
|00003730| 0d 0a 3b 09 45 58 54 09 | 4d 4f 56 45 42 43 09 09 |..;.EXT.|MOVEBC..|
|00003740| 2d 2d 20 4d 4f 56 45 20 | 42 59 54 45 53 20 50 54 |-- MOVE |BYTES PT|
|00003750| 45 44 20 54 4f 20 42 59 | 20 48 4c 20 54 4f 0d 0a |ED TO BY| HL TO..|
|00003760| 3b 09 09 09 09 20 20 20 | 4c 4f 43 41 54 49 4f 4e |;....   |LOCATION|
|00003770| 20 50 54 45 44 20 54 4f | 20 42 59 20 44 45 20 46 | PTED TO| BY DE F|
|00003780| 4f 52 20 42 43 20 42 59 | 54 45 53 0d 0a 3b 0d 0a |OR BC BY|TES..;..|
|00003790| 3b 20 20 4e 4f 20 52 45 | 47 49 53 54 45 52 53 20 |;  NO RE|GISTERS |
|000037a0| 41 52 45 20 54 4f 20 42 | 45 20 41 46 46 45 43 54 |ARE TO B|E AFFECT|
|000037b0| 45 44 0d 0a 3b 0d 0a 3b | 09 45 58 54 09 48 4d 4f |ED..;..;|.EXT.HMO|
|000037c0| 56 42 09 09 2d 2d 20 4c | 49 4b 45 20 4d 4f 56 45 |VB..-- L|IKE MOVE|
|000037d0| 42 2c 20 42 55 54 20 48 | 4c 20 41 4e 44 20 44 45 |B, BUT H|L AND DE|
|000037e0| 20 50 54 20 54 4f 20 42 | 59 54 45 20 41 46 54 45 | PT TO B|YTE AFTE|
|000037f0| 52 0d 0a 3b 09 09 09 09 | 20 20 20 4c 41 53 54 20 |R..;....|   LAST |
|00003800| 42 59 54 45 20 4d 4f 56 | 45 44 20 57 48 45 4e 20 |BYTE MOV|ED WHEN |
|00003810| 44 4f 4e 45 0d 0a 3b 09 | 45 58 54 09 48 4d 4f 56 |DONE..;.|EXT.HMOV|
|00003820| 42 43 09 09 2d 2d 20 4c | 49 4b 45 20 4d 4f 56 45 |BC..-- L|IKE MOVE|
|00003830| 42 43 2c 20 42 55 54 20 | 48 4c 20 41 4e 44 20 44 |BC, BUT |HL AND D|
|00003840| 45 20 50 54 20 54 4f 20 | 42 59 54 45 20 41 46 54 |E PT TO |BYTE AFT|
|00003850| 45 52 0d 0a 3b 09 09 09 | 09 20 20 20 4c 41 53 54 |ER..;...|.   LAST|
|00003860| 20 42 59 54 45 20 4d 4f | 56 45 44 20 57 48 45 4e | BYTE MO|VED WHEN|
|00003870| 20 44 4f 4e 45 0d 0a 3b | 0d 0a 0d 0a 3b 0d 0a 3b | DONE..;|....;..;|
|00003880| 20 20 53 55 50 50 4f 52 | 54 49 4e 47 20 4d 41 43 |  SUPPOR|TING MAC|
|00003890| 52 4f 53 20 2d 2d 0d 0a | 3b 0d 0a 50 55 54 52 47 |ROS --..|;..PUTRG|
|000038a0| 09 4d 41 43 52 4f 09 09 | 3b 20 53 41 56 45 20 41 |.MACRO..|; SAVE A|
|000038b0| 4c 4c 20 52 45 47 53 0d | 0a 09 50 55 53 48 09 41 |LL REGS.|..PUSH.A|
|000038c0| 46 0d 0a 09 50 55 53 48 | 09 42 43 0d 0a 09 50 55 |F...PUSH|.BC...PU|
|000038d0| 53 48 09 44 45 0d 0a 09 | 50 55 53 48 09 48 4c 0d |SH.DE...|PUSH.HL.|
|000038e0| 0a 09 45 4e 44 4d 0d 0a | 0d 0a 47 45 54 52 47 09 |..ENDM..|..GETRG.|
|000038f0| 4d 41 43 52 4f 09 09 3b | 20 52 45 53 54 4f 52 45 |MACRO..;| RESTORE|
|00003900| 20 41 4c 4c 20 52 45 47 | 53 0d 0a 09 50 4f 50 09 | ALL REG|S...POP.|
|00003910| 48 4c 0d 0a 09 50 4f 50 | 09 44 45 0d 0a 09 50 4f |HL...POP|.DE...PO|
|00003920| 50 09 42 43 0d 0a 09 50 | 4f 50 09 41 46 0d 0a 09 |P.BC...P|OP.AF...|
|00003930| 45 4e 44 4d 0d 0a 0d 0a | 3b 0d 0a 3b 20 20 48 4d |ENDM....|;..;  HM|
|00003940| 4f 56 42 20 41 4e 44 20 | 48 4d 4f 56 42 43 20 52 |OVB AND |HMOVBC R|
|00003950| 4f 55 54 49 4e 45 53 20 | 2d 2d 0d 0a 3b 0d 0a 48 |OUTINES |--..;..H|
|00003960| 4d 4f 56 42 3a 0d 0a 09 | 43 41 4c 4c 09 4d 4f 56 |MOVB:...|CALL.MOV|
|00003970| 45 42 09 3b 20 44 4f 20 | 54 48 45 20 4d 4f 56 45 |EB.; DO |THE MOVE|
|00003980| 0d 0a 09 50 55 53 48 09 | 42 43 09 3b 20 53 41 56 |...PUSH.|BC.; SAV|
|00003990| 45 20 42 43 0d 0a 09 4c | 44 09 43 2c 42 09 3b 20 |E BC...L|D.C,B.; |
|000039a0| 42 43 3d 42 0d 0a 09 4c | 44 09 42 2c 30 0d 0a 09 |BC=B...L|D.B,0...|
|000039b0| 41 44 44 09 48 4c 2c 42 | 43 09 3b 20 48 4c 20 50 |ADD.HL,B|C.; HL P|
|000039c0| 54 53 20 54 4f 20 42 59 | 54 45 20 41 46 54 45 52 |TS TO BY|TE AFTER|
|000039d0| 20 4c 41 53 54 20 42 59 | 54 45 20 4d 4f 56 45 44 | LAST BY|TE MOVED|
|000039e0| 0d 0a 09 45 58 09 44 45 | 2c 48 4c 0d 0a 09 41 44 |...EX.DE|,HL...AD|
|000039f0| 44 09 48 4c 2c 42 43 09 | 3b 20 44 45 20 50 54 53 |D.HL,BC.|; DE PTS|
|00003a00| 20 54 4f 20 42 59 54 45 | 20 41 46 54 45 52 20 4c | TO BYTE| AFTER L|
|00003a10| 41 53 54 20 42 59 54 45 | 20 4d 4f 56 45 44 0d 0a |AST BYTE| MOVED..|
|00003a20| 09 45 58 09 44 45 2c 48 | 4c 0d 0a 09 50 4f 50 09 |.EX.DE,H|L...POP.|
|00003a30| 42 43 09 3b 20 47 45 54 | 20 42 43 0d 0a 09 52 45 |BC.; GET| BC...RE|
|00003a40| 54 0d 0a 0d 0a 48 4d 4f | 56 42 43 3a 0d 0a 09 43 |T....HMO|VBC:...C|
|00003a50| 41 4c 4c 09 4d 4f 56 45 | 42 43 09 3b 20 44 4f 20 |ALL.MOVE|BC.; DO |
|00003a60| 54 48 45 20 4d 4f 56 45 | 0d 0a 09 50 55 53 48 09 |THE MOVE|...PUSH.|
|00003a70| 42 43 09 3b 20 53 41 56 | 45 20 42 43 0d 0a 09 41 |BC.; SAV|E BC...A|
|00003a80| 44 44 09 48 4c 2c 42 43 | 09 3b 20 48 4c 20 50 54 |DD.HL,BC|.; HL PT|
|00003a90| 53 20 54 4f 20 42 59 54 | 45 20 41 46 54 45 52 20 |S TO BYT|E AFTER |
|00003aa0| 4c 41 53 54 20 42 59 54 | 45 20 4d 4f 56 45 44 0d |LAST BYT|E MOVED.|
|00003ab0| 0a 09 45 58 09 44 45 2c | 48 4c 0d 0a 09 41 44 44 |..EX.DE,|HL...ADD|
|00003ac0| 09 48 4c 2c 42 43 09 3b | 20 44 45 20 50 54 53 20 |.HL,BC.;| DE PTS |
|00003ad0| 54 4f 20 42 59 54 45 20 | 41 46 54 45 52 20 4c 41 |TO BYTE |AFTER LA|
|00003ae0| 53 54 20 42 59 54 45 20 | 4d 4f 56 45 44 0d 0a 09 |ST BYTE |MOVED...|
|00003af0| 45 58 09 44 45 2c 48 4c | 0d 0a 09 50 4f 50 09 42 |EX.DE,HL|...POP.B|
|00003b00| 43 09 3b 20 47 45 54 20 | 42 43 0d 0a 09 52 45 54 |C.; GET |BC...RET|
|00003b10| 0d 0a 0d 0a 3b 0d 0a 3b | 20 20 4d 4f 56 45 42 20 |....;..;|  MOVEB |
|00003b20| 41 4e 44 20 4d 4f 56 45 | 42 43 20 52 4f 55 54 49 |AND MOVE|BC ROUTI|
|00003b30| 4e 45 53 20 2d 2d 0d 0a | 3b 0d 0a 4d 4f 56 45 42 |NES --..|;..MOVEB|
|00003b40| 3a 0d 0a 09 50 55 53 48 | 09 42 43 09 3b 20 53 41 |:...PUSH|.BC.; SA|
|00003b50| 56 45 20 42 43 0d 0a 09 | 4c 44 09 43 2c 42 09 3b |VE BC...|LD.C,B.;|
|00003b60| 20 43 3d 42 0d 0a 09 4c | 44 09 42 2c 30 09 3b 20 | C=B...L|D.B,0.; |
|00003b70| 42 3d 30 0d 0a 09 43 41 | 4c 4c 09 4d 4f 56 45 42 |B=0...CA|LL.MOVEB|
|00003b80| 43 09 3b 20 55 53 45 20 | 4d 4f 56 45 42 43 0d 0a |C.; USE |MOVEBC..|
|00003b90| 09 50 4f 50 09 42 43 09 | 3b 20 52 45 53 54 4f 52 |.POP.BC.|; RESTOR|
|00003ba0| 45 20 42 43 0d 0a 09 52 | 45 54 0d 0a 0d 0a 4d 4f |E BC...R|ET....MO|
|00003bb0| 56 45 42 43 3a 0d 0a 09 | 50 55 54 52 47 09 09 3b |VEBC:...|PUTRG..;|
|00003bc0| 20 53 41 56 45 20 41 4c | 4c 20 52 45 47 53 0d 0a | SAVE AL|L REGS..|
|00003bd0| 3b 0d 0a 3b 20 20 44 45 | 54 45 52 4d 49 4e 45 20 |;..;  DE|TERMINE |
|00003be0| 49 46 20 48 4c 20 3c 20 | 44 45 3b 20 49 46 20 53 |IF HL < |DE; IF S|
|00003bf0| 4f 2c 20 4d 4f 56 45 20 | 42 41 43 4b 20 54 4f 20 |O, MOVE |BACK TO |
|00003c00| 46 52 4f 4e 54 3b 20 4f | 54 48 45 52 57 49 53 45 |FRONT; O|THERWISE|
|00003c10| 2c 20 46 52 4f 4e 54 20 | 54 4f 20 42 41 43 4b 0d |, FRONT |TO BACK.|
|00003c20| 0a 3b 0d 0a 09 4c 44 09 | 41 2c 48 09 3b 20 48 4c |.;...LD.|A,H.; HL|
|00003c30| 3c 44 45 3f 0d 0a 09 43 | 50 09 44 0d 0a 09 4a 50 |<DE?...C|P.D...JP|
|00003c40| 09 43 2c 4d 4f 56 45 52 | 09 3b 20 4d 4f 56 45 20 |.C,MOVER|.; MOVE |
|00003c50| 42 41 43 4b 2d 54 4f 2d | 46 52 4f 4e 54 0d 0a 09 |BACK-TO-|FRONT...|
|00003c60| 4a 50 09 4e 5a 2c 4d 4f | 56 45 46 09 3b 20 4d 4f |JP.NZ,MO|VEF.; MO|
|00003c70| 56 45 20 46 52 4f 4e 54 | 2d 54 4f 2d 42 41 43 4b |VE FRONT|-TO-BACK|
|00003c80| 20 49 46 20 48 4c 3e 44 | 45 0d 0a 09 4c 44 09 41 | IF HL>D|E...LD.A|
|00003c90| 2c 4c 09 3b 20 48 4c 3c | 44 45 3f 0d 0a 09 43 50 |,L.; HL<|DE?...CP|
|00003ca0| 09 45 0d 0a 09 4a 50 09 | 43 2c 4d 4f 56 45 52 09 |.E...JP.|C,MOVER.|
|00003cb0| 3b 20 4d 4f 56 45 20 42 | 41 43 4b 2d 54 4f 2d 46 |; MOVE B|ACK-TO-F|
|00003cc0| 52 4f 4e 54 0d 0a 0d 0a | 3b 20 20 4d 4f 56 45 20 |RONT....|;  MOVE |
|00003cd0| 46 52 4f 4e 54 2d 54 4f | 2d 42 41 43 4b 0d 0a 4d |FRONT-TO|-BACK..M|
|00003ce0| 4f 56 45 46 3a 0d 0a 09 | 4c 44 09 41 2c 28 48 4c |OVEF:...|LD.A,(HL|
|00003cf0| 29 09 3b 20 47 45 54 20 | 42 59 54 45 0d 0a 09 4c |).; GET |BYTE...L|
|00003d00| 44 09 28 44 45 29 2c 41 | 09 3b 20 50 55 54 20 42 |D.(DE),A|.; PUT B|
|00003d10| 59 54 45 0d 0a 09 49 4e | 43 09 48 4c 09 3b 20 50 |YTE...IN|C.HL.; P|
|00003d20| 54 20 54 4f 20 4e 45 58 | 54 0d 0a 09 49 4e 43 09 |T TO NEX|T...INC.|
|00003d30| 44 45 0d 0a 09 44 45 43 | 09 42 43 09 3b 20 43 4f |DE...DEC|.BC.; CO|
|00003d40| 55 4e 54 20 44 4f 57 4e | 0d 0a 09 4c 44 09 41 2c |UNT DOWN|...LD.A,|
|00003d50| 42 09 3b 20 44 4f 4e 45 | 3f 0d 0a 09 4f 52 09 43 |B.; DONE|?...OR.C|
|00003d60| 0d 0a 09 4a 50 09 4e 5a | 2c 4d 4f 56 45 46 0d 0a |...JP.NZ|,MOVEF..|
|00003d70| 0d 0a 3b 20 20 44 4f 4e | 45 20 57 49 54 48 20 50 |..;  DON|E WITH P|
|00003d80| 52 4f 47 52 41 4d 0d 0a | 44 4f 4e 45 3a 0d 0a 09 |ROGRAM..|DONE:...|
|00003d90| 47 45 54 52 47 09 09 3b | 20 52 45 53 54 4f 52 45 |GETRG..;| RESTORE|
|00003da0| 20 41 4c 4c 20 52 45 47 | 53 0d 0a 09 52 45 54 0d | ALL REG|S...RET.|
|00003db0| 0a 3b 0d 0a 3b 20 20 4d | 4f 56 45 20 42 41 43 4b |.;..;  M|OVE BACK|
|00003dc0| 2d 54 4f 2d 46 52 4f 4e | 54 0d 0a 3b 0d 0a 4d 4f |-TO-FRON|T..;..MO|
|00003dd0| 56 45 52 3a 0d 0a 3b 0d | 0a 3b 20 20 50 4f 49 4e |VER:..;.|.;  POIN|
|00003de0| 54 20 54 4f 20 45 4e 44 | 20 4f 46 20 42 55 46 46 |T TO END| OF BUFF|
|00003df0| 45 52 53 0d 0a 3b 0d 0a | 09 44 45 43 09 42 43 09 |ERS..;..|.DEC.BC.|
|00003e00| 3b 20 44 45 43 52 20 43 | 4f 55 4e 54 20 42 59 20 |; DECR C|OUNT BY |
|00003e10| 31 0d 0a 09 41 44 44 09 | 48 4c 2c 42 43 09 3b 20 |1...ADD.|HL,BC.; |
|00003e20| 50 54 20 54 4f 20 45 4e | 44 20 4f 46 20 42 55 46 |PT TO EN|D OF BUF|
|00003e30| 46 45 52 53 0d 0a 09 45 | 58 09 44 45 2c 48 4c 0d |FERS...E|X.DE,HL.|
|00003e40| 0a 09 41 44 44 09 48 4c | 2c 42 43 0d 0a 09 45 58 |..ADD.HL|,BC...EX|
|00003e50| 09 44 45 2c 48 4c 0d 0a | 09 49 4e 43 09 42 43 09 |.DE,HL..|.INC.BC.|
|00003e60| 3b 20 43 4f 52 52 45 43 | 54 20 42 59 54 45 20 43 |; CORREC|T BYTE C|
|00003e70| 4f 55 4e 54 0d 0a 3b 0d | 0a 3b 20 20 50 45 52 46 |OUNT..;.|.;  PERF|
|00003e80| 4f 52 4d 20 4d 4f 56 45 | 0d 0a 3b 0d 0a 4d 4f 56 |ORM MOVE|..;..MOV|
|00003e90| 45 52 4c 3a 0d 0a 09 4c | 44 09 41 2c 28 48 4c 29 |ERL:...L|D.A,(HL)|
|00003ea0| 09 3b 20 47 45 54 20 42 | 59 54 45 0d 0a 09 4c 44 |.; GET B|YTE...LD|
|00003eb0| 09 28 44 45 29 2c 41 09 | 3b 20 50 55 54 20 42 59 |.(DE),A.|; PUT BY|
|00003ec0| 54 45 0d 0a 09 44 45 43 | 09 48 4c 09 3b 20 50 54 |TE...DEC|.HL.; PT|
|00003ed0| 20 54 4f 20 4e 45 58 54 | 0d 0a 09 44 45 43 09 44 | TO NEXT|...DEC.D|
|00003ee0| 45 0d 0a 09 44 45 43 09 | 42 43 09 3b 20 43 4f 55 |E...DEC.|BC.; COU|
|00003ef0| 4e 54 20 44 4f 57 4e 0d | 0a 09 4c 44 09 41 2c 42 |NT DOWN.|..LD.A,B|
|00003f00| 09 3b 20 44 4f 4e 45 3f | 0d 0a 09 4f 52 09 43 0d |.; DONE?|...OR.C.|
|00003f10| 0a 09 4a 50 09 4e 5a 2c | 4d 4f 56 45 52 4c 0d 0a |..JP.NZ,|MOVERL..|
|00003f20| 09 4a 50 09 44 4f 4e 45 | 0d 0a 0d 0a 09 45 4e 44 |.JP.DONE|.....END|
|00003f30| 0d 0a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003f40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003f50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003f60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003f70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00003f80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00003f90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 31 |le Name:|  SMTH01|
|00003fa0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00003fb0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00003fc0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00003fd0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00003fe0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00003ff0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004000| 69 63 09 61 64 64 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.addhd|....;..;|
|00004010| 20 20 41 44 44 48 44 20 | 2d 2d 20 41 44 44 20 44 |  ADDHD |-- ADD D|
|00004020| 45 20 54 4f 20 48 4c 2c | 20 52 45 53 55 4c 54 20 |E TO HL,| RESULT |
|00004030| 49 4e 20 48 4c 0d 0a 3b | 09 52 45 54 55 52 4e 20 |IN HL..;|.RETURN |
|00004040| 57 49 54 48 20 48 4c 3d | 52 45 53 55 4c 54 2c 20 |WITH HL=|RESULT, |
|00004050| 43 41 52 52 59 20 53 45 | 54 20 49 46 20 4f 56 46 |CARRY SE|T IF OVF|
|00004060| 4c 0d 0a 3b 0d 0a 41 44 | 44 48 44 3a 0d 0a 09 50 |L..;..AD|DHD:...P|
|00004070| 55 53 48 09 41 46 0d 0a | 09 4c 44 09 41 2c 45 09 |USH.AF..|.LD.A,E.|
|00004080| 3b 20 41 44 44 20 4c 20 | 41 4e 44 20 45 0d 0a 09 |; ADD L |AND E...|
|00004090| 41 44 44 09 41 2c 4c 0d | 0a 09 4c 44 09 4c 2c 41 |ADD.A,L.|..LD.L,A|
|000040a0| 0d 0a 09 4c 44 09 41 2c | 44 09 3b 20 41 44 44 20 |...LD.A,|D.; ADD |
|000040b0| 48 20 41 4e 44 20 44 0d | 0a 09 41 44 43 09 41 2c |H AND D.|..ADC.A,|
|000040c0| 48 0d 0a 09 4c 44 09 48 | 2c 41 0d 0a 09 4a 50 09 |H...LD.H|,A...JP.|
|000040d0| 4e 43 2c 4f 4b 52 45 54 | 0d 0a 09 50 4f 50 09 41 |NC,OKRET|...POP.A|
|000040e0| 46 09 3b 20 47 45 54 20 | 50 53 57 0d 0a 09 53 43 |F.; GET |PSW...SC|
|000040f0| 46 09 09 3b 20 53 45 54 | 20 43 41 52 52 59 0d 0a |F..; SET| CARRY..|
|00004100| 09 52 45 54 0d 0a 4f 4b | 52 45 54 3a 0d 0a 09 50 |.RET..OK|RET:...P|
|00004110| 4f 50 09 41 46 0d 0a 09 | 4f 52 09 41 09 3b 20 43 |OP.AF...|OR.A.; C|
|00004120| 4c 45 41 52 20 43 41 52 | 52 59 0d 0a 09 52 45 54 |LEAR CAR|RY...RET|
|00004130| 0d 0a 0d 0a 09 45 4e 44 | 0d 0a 1a 1a 1a 1a 1a 1a |.....END|........|
|00004140| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004150| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004160| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004170| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004180| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004190| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 32 |le Name:|  SMTH02|
|000041a0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|000041b0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|000041c0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|000041d0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|000041e0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|000041f0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004200| 69 63 09 73 75 62 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.subhd|....;..;|
|00004210| 20 20 53 55 42 48 44 20 | 2d 2d 20 53 55 42 54 52 |  SUBHD |-- SUBTR|
|00004220| 41 43 54 20 44 45 20 46 | 52 4f 4d 20 48 4c 2c 20 |ACT DE F|ROM HL, |
|00004230| 52 45 53 55 4c 54 20 49 | 4e 20 48 4c 0d 0a 3b 09 |RESULT I|N HL..;.|
|00004240| 52 45 54 55 52 4e 20 57 | 49 54 48 20 48 4c 3d 52 |RETURN W|ITH HL=R|
|00004250| 45 53 55 4c 54 2c 20 43 | 41 52 52 59 20 53 45 54 |ESULT, C|ARRY SET|
|00004260| 20 49 46 20 48 4c 3c 44 | 45 0d 0a 3b 0d 0a 53 55 | IF HL<D|E..;..SU|
|00004270| 42 48 44 3a 0d 0a 09 50 | 55 53 48 09 41 46 0d 0a |BHD:...P|USH.AF..|
|00004280| 09 4c 44 09 41 2c 4c 09 | 3b 20 53 55 42 54 52 41 |.LD.A,L.|; SUBTRA|
|00004290| 43 54 20 4c 4f 57 0d 0a | 09 53 55 42 09 45 0d 0a |CT LOW..|.SUB.E..|
|000042a0| 09 4c 44 09 4c 2c 41 0d | 0a 09 4c 44 09 41 2c 48 |.LD.L,A.|..LD.A,H|
|000042b0| 09 3b 20 53 55 42 54 52 | 41 43 54 20 48 49 47 48 |.; SUBTR|ACT HIGH|
|000042c0| 0d 0a 09 53 42 43 09 41 | 2c 44 0d 0a 09 4c 44 09 |...SBC.A|,D...LD.|
|000042d0| 48 2c 41 0d 0a 09 4a 50 | 09 4e 43 2c 4f 4b 52 45 |H,A...JP|.NC,OKRE|
|000042e0| 54 0d 0a 09 50 4f 50 09 | 41 46 09 3b 20 47 45 54 |T...POP.|AF.; GET|
|000042f0| 20 50 53 57 0d 0a 09 53 | 43 46 09 09 3b 20 53 45 | PSW...S|CF..; SE|
|00004300| 54 20 43 41 52 52 59 0d | 0a 09 52 45 54 0d 0a 4f |T CARRY.|..RET..O|
|00004310| 4b 52 45 54 3a 0d 0a 09 | 50 4f 50 09 41 46 0d 0a |KRET:...|POP.AF..|
|00004320| 09 4f 52 09 41 09 3b 20 | 43 4c 45 41 52 20 43 41 |.OR.A.; |CLEAR CA|
|00004330| 52 52 59 0d 0a 09 52 45 | 54 0d 0a 0d 0a 09 45 4e |RRY...RE|T.....EN|
|00004340| 44 0d 0a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |D.......|........|
|00004350| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004360| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004370| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004380| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004390| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 33 |le Name:|  SMTH03|
|000043a0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|000043b0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|000043c0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|000043d0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|000043e0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|000043f0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004400| 69 63 09 72 6f 74 6c 68 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.rotlh|....;..;|
|00004410| 20 20 52 4f 54 4c 48 20 | 2d 2d 20 52 4f 54 41 54 |  ROTLH |-- ROTAT|
|00004420| 45 20 4c 45 46 54 20 48 | 4c 20 31 20 42 49 54 20 |E LEFT H|L 1 BIT |
|00004430| 50 4f 53 49 54 49 4f 4e | 0d 0a 3b 0d 0a 52 4f 54 |POSITION|..;..ROT|
|00004440| 4c 48 3a 0d 0a 09 50 55 | 53 48 09 41 46 0d 0a 09 |LH:...PU|SH.AF...|
|00004450| 41 4e 44 09 41 09 3b 20 | 43 4c 45 41 52 20 43 41 |AND.A.; |CLEAR CA|
|00004460| 52 52 59 0d 0a 09 4c 44 | 09 41 2c 4c 09 3b 20 53 |RRY...LD|.A,L.; S|
|00004470| 48 49 46 54 20 4c 4f 57 | 0d 0a 09 52 4c 41 09 09 |HIFT LOW|...RLA..|
|00004480| 3b 20 52 4f 54 41 54 45 | 20 39 2d 42 49 54 20 41 |; ROTATE| 9-BIT A|
|00004490| 43 43 20 4c 45 46 54 0d | 0a 09 4c 44 09 4c 2c 41 |CC LEFT.|..LD.L,A|
|000044a0| 0d 0a 09 4c 44 09 41 2c | 48 09 3b 20 53 48 49 46 |...LD.A,|H.; SHIF|
|000044b0| 54 20 48 49 47 48 0d 0a | 09 52 4c 41 0d 0a 09 4c |T HIGH..|.RLA...L|
|000044c0| 44 09 48 2c 41 0d 0a 09 | 4c 44 09 41 2c 4c 09 3b |D.H,A...|LD.A,L.;|
|000044d0| 20 41 44 44 20 49 4e 20 | 43 41 52 52 59 0d 0a 09 | ADD IN |CARRY...|
|000044e0| 41 44 43 09 30 0d 0a 09 | 4c 44 09 4c 2c 41 0d 0a |ADC.0...|LD.L,A..|
|000044f0| 09 50 4f 50 09 41 46 0d | 0a 09 52 45 54 0d 0a 0d |.POP.AF.|..RET...|
|00004500| 0a 09 45 4e 44 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |..END...|........|
|00004510| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004520| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004530| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004540| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004550| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004560| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004570| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004580| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004590| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 34 |le Name:|  SMTH04|
|000045a0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|000045b0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|000045c0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|000045d0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|000045e0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|000045f0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004600| 69 63 09 72 6f 74 72 68 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.rotrh|....;..;|
|00004610| 20 20 52 4f 54 52 48 20 | 2d 2d 20 52 4f 54 41 54 |  ROTRH |-- ROTAT|
|00004620| 45 20 52 49 47 48 54 20 | 48 4c 20 31 20 42 49 54 |E RIGHT |HL 1 BIT|
|00004630| 20 50 4f 53 49 54 49 4f | 4e 0d 0a 3b 0d 0a 52 4f | POSITIO|N..;..RO|
|00004640| 54 52 48 3a 0d 0a 09 50 | 55 53 48 09 41 46 0d 0a |TRH:...P|USH.AF..|
|00004650| 09 4c 44 09 41 2c 4c 09 | 3b 20 47 45 54 20 4c 53 |.LD.A,L.|; GET LS|
|00004660| 42 20 49 4e 54 4f 20 43 | 41 52 52 59 0d 0a 09 52 |B INTO C|ARRY...R|
|00004670| 52 41 0d 0a 09 4c 44 09 | 41 2c 48 09 3b 20 53 48 |RA...LD.|A,H.; SH|
|00004680| 49 46 54 20 48 49 47 48 | 0d 0a 09 52 52 41 09 09 |IFT HIGH|...RRA..|
|00004690| 3b 20 52 4f 54 41 54 45 | 20 39 2d 42 49 54 20 41 |; ROTATE| 9-BIT A|
|000046a0| 43 43 20 52 49 47 48 54 | 0d 0a 09 4c 44 09 48 2c |CC RIGHT|...LD.H,|
|000046b0| 41 0d 0a 09 4c 44 09 41 | 2c 4c 09 3b 20 53 48 49 |A...LD.A|,L.; SHI|
|000046c0| 46 54 20 4c 4f 57 0d 0a | 09 52 52 41 0d 0a 09 4c |FT LOW..|.RRA...L|
|000046d0| 44 09 4c 2c 41 0d 0a 09 | 50 4f 50 09 41 46 0d 0a |D.L,A...|POP.AF..|
|000046e0| 09 52 45 54 0d 0a 0d 0a | 09 45 4e 44 0d 0a 1a 1a |.RET....|.END....|
|000046f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004700| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004710| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 35 |le Name:|  SMTH05|
|00004720| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004730| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004740| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004750| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004760| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004770| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004780| 69 63 09 73 68 66 74 6c | 68 0d 0a 0d 0a 3b 0d 0a |ic.shftl|h....;..|
|00004790| 3b 20 20 53 48 46 54 4c | 48 20 2d 2d 20 53 48 49 |;  SHFTL|H -- SHI|
|000047a0| 46 54 20 4c 45 46 54 20 | 48 4c 20 31 20 42 49 54 |FT LEFT |HL 1 BIT|
|000047b0| 20 50 4f 53 49 54 49 4f | 4e 0d 0a 3b 09 43 41 52 | POSITIO|N..;.CAR|
|000047c0| 52 59 20 43 4f 4e 54 41 | 49 4e 53 20 4d 53 42 0d |RY CONTA|INS MSB.|
|000047d0| 0a 3b 0d 0a 53 48 46 54 | 4c 48 3a 0d 0a 09 50 55 |.;..SHFT|LH:...PU|
|000047e0| 53 48 09 41 46 0d 0a 09 | 41 4e 44 09 41 09 3b 20 |SH.AF...|AND.A.; |
|000047f0| 43 4c 45 41 52 20 43 41 | 52 52 59 0d 0a 09 4c 44 |CLEAR CA|RRY...LD|
|00004800| 09 41 2c 4c 09 3b 20 53 | 48 49 46 54 20 4c 4f 57 |.A,L.; S|HIFT LOW|
|00004810| 0d 0a 09 52 4c 41 09 09 | 3b 20 52 4f 54 41 54 45 |...RLA..|; ROTATE|
|00004820| 20 39 2d 42 49 54 20 41 | 43 43 20 4c 45 46 54 0d | 9-BIT A|CC LEFT.|
|00004830| 0a 09 4c 44 09 4c 2c 41 | 0d 0a 09 4c 44 09 41 2c |..LD.L,A|...LD.A,|
|00004840| 48 09 3b 20 53 48 49 46 | 54 20 48 49 47 48 0d 0a |H.; SHIF|T HIGH..|
|00004850| 09 52 4c 41 0d 0a 09 4c | 44 09 48 2c 41 0d 0a 09 |.RLA...L|D.H,A...|
|00004860| 4a 50 09 4e 43 2c 4f 4b | 52 45 54 0d 0a 09 50 4f |JP.NC,OK|RET...PO|
|00004870| 50 09 41 46 09 3b 20 47 | 45 54 20 50 53 57 0d 0a |P.AF.; G|ET PSW..|
|00004880| 09 53 43 46 09 09 3b 20 | 53 45 54 20 43 41 52 52 |.SCF..; |SET CARR|
|00004890| 59 0d 0a 09 52 45 54 0d | 0a 4f 4b 52 45 54 3a 0d |Y...RET.|.OKRET:.|
|000048a0| 0a 09 50 4f 50 09 41 46 | 0d 0a 09 4f 52 09 41 09 |..POP.AF|...OR.A.|
|000048b0| 3b 20 43 4c 45 41 52 20 | 43 41 52 52 59 0d 0a 09 |; CLEAR |CARRY...|
|000048c0| 52 45 54 0d 0a 0d 0a 09 | 45 4e 44 0d 0a 1a 1a 1a |RET.....|END.....|
|000048d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000048e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000048f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004900| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004910| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 36 |le Name:|  SMTH06|
|00004920| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004930| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004940| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004950| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004960| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004970| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004980| 69 63 09 73 68 66 74 72 | 68 0d 0a 0d 0a 3b 0d 0a |ic.shftr|h....;..|
|00004990| 3b 20 20 53 48 46 54 52 | 48 20 2d 2d 20 53 48 49 |;  SHFTR|H -- SHI|
|000049a0| 46 54 20 52 49 47 48 54 | 20 48 4c 20 31 20 42 49 |FT RIGHT| HL 1 BI|
|000049b0| 54 20 50 4f 53 49 54 49 | 4f 4e 0d 0a 3b 09 43 41 |T POSITI|ON..;.CA|
|000049c0| 52 52 59 20 43 4f 4e 54 | 41 49 4e 53 20 4c 53 42 |RRY CONT|AINS LSB|
|000049d0| 0d 0a 3b 0d 0a 53 48 46 | 54 52 48 3a 0d 0a 09 50 |..;..SHF|TRH:...P|
|000049e0| 55 53 48 09 41 46 0d 0a | 09 41 4e 44 09 41 09 3b |USH.AF..|.AND.A.;|
|000049f0| 20 43 4c 45 41 52 20 43 | 41 52 52 59 0d 0a 09 4c | CLEAR C|ARRY...L|
|00004a00| 44 09 41 2c 48 09 3b 20 | 53 48 49 46 54 20 48 49 |D.A,H.; |SHIFT HI|
|00004a10| 47 48 0d 0a 09 52 52 41 | 09 09 3b 20 52 4f 54 41 |GH...RRA|..; ROTA|
|00004a20| 54 45 20 39 2d 42 49 54 | 20 41 43 43 20 52 49 47 |TE 9-BIT| ACC RIG|
|00004a30| 48 54 0d 0a 09 4c 44 09 | 48 2c 41 0d 0a 09 4c 44 |HT...LD.|H,A...LD|
|00004a40| 09 41 2c 4c 09 3b 20 53 | 48 49 46 54 20 4c 4f 57 |.A,L.; S|HIFT LOW|
|00004a50| 0d 0a 09 52 52 41 0d 0a | 09 4c 44 09 4c 2c 41 0d |...RRA..|.LD.L,A.|
|00004a60| 0a 09 4a 50 09 4e 43 2c | 4f 4b 52 45 54 0d 0a 09 |..JP.NC,|OKRET...|
|00004a70| 50 4f 50 09 41 46 09 3b | 20 47 45 54 20 50 53 57 |POP.AF.;| GET PSW|
|00004a80| 0d 0a 09 53 43 46 09 09 | 3b 20 53 45 54 20 43 41 |...SCF..|; SET CA|
|00004a90| 52 52 59 0d 0a 09 52 45 | 54 0d 0a 4f 4b 52 45 54 |RRY...RE|T..OKRET|
|00004aa0| 3a 0d 0a 09 50 4f 50 09 | 41 46 0d 0a 09 4f 52 09 |:...POP.|AF...OR.|
|00004ab0| 41 09 3b 20 43 4c 45 41 | 52 20 43 41 52 52 59 0d |A.; CLEA|R CARRY.|
|00004ac0| 0a 09 52 45 54 0d 0a 0d | 0a 09 45 4e 44 0d 0a 1a |..RET...|..END...|
|00004ad0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004ae0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004af0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004b00| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004b10| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 37 |le Name:|  SMTH07|
|00004b20| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004b30| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004b40| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004b50| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004b60| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004b70| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004b80| 69 63 09 61 6e 64 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.andhd|....;..;|
|00004b90| 20 20 41 4e 44 48 44 20 | 2d 2d 20 41 4e 44 20 48 |  ANDHD |-- AND H|
|00004ba0| 4c 20 57 49 54 48 20 44 | 45 2c 20 52 45 53 55 4c |L WITH D|E, RESUL|
|00004bb0| 54 20 49 4e 20 48 4c 0d | 0a 3b 0d 0a 41 4e 44 48 |T IN HL.|.;..ANDH|
|00004bc0| 44 3a 0d 0a 09 50 55 53 | 48 09 41 46 0d 0a 09 4c |D:...PUS|H.AF...L|
|00004bd0| 44 09 41 2c 4c 09 3b 20 | 44 4f 20 4c 4f 57 0d 0a |D.A,L.; |DO LOW..|
|00004be0| 09 41 4e 44 09 45 0d 0a | 09 4c 44 09 4c 2c 41 0d |.AND.E..|.LD.L,A.|
|00004bf0| 0a 09 4c 44 09 41 2c 48 | 09 3b 20 44 4f 20 48 49 |..LD.A,H|.; DO HI|
|00004c00| 47 48 0d 0a 09 41 4e 44 | 09 44 0d 0a 09 4c 44 09 |GH...AND|.D...LD.|
|00004c10| 48 2c 41 0d 0a 09 50 4f | 50 09 41 46 0d 0a 09 52 |H,A...PO|P.AF...R|
|00004c20| 45 54 0d 0a 0d 0a 09 45 | 4e 44 0d 0a 1a 1a 1a 1a |ET.....E|ND......|
|00004c30| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004c40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004c50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004c60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004c70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004c80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004c90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 38 |le Name:|  SMTH08|
|00004ca0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004cb0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004cc0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004cd0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004ce0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004cf0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004d00| 69 63 09 6f 72 68 64 0d | 0a 0d 0a 3b 0d 0a 3b 20 |ic.orhd.|...;..; |
|00004d10| 20 4f 52 48 44 20 2d 2d | 20 4f 52 20 48 4c 20 57 | ORHD --| OR HL W|
|00004d20| 49 54 48 20 44 45 2c 20 | 52 45 53 55 4c 54 20 49 |ITH DE, |RESULT I|
|00004d30| 4e 20 48 4c 0d 0a 3b 0d | 0a 4f 52 48 44 3a 0d 0a |N HL..;.|.ORHD:..|
|00004d40| 09 50 55 53 48 09 41 46 | 0d 0a 09 4c 44 09 41 2c |.PUSH.AF|...LD.A,|
|00004d50| 4c 09 3b 20 44 4f 20 4c | 4f 57 0d 0a 09 4f 52 09 |L.; DO L|OW...OR.|
|00004d60| 45 0d 0a 09 4c 44 09 4c | 2c 41 0d 0a 09 4c 44 09 |E...LD.L|,A...LD.|
|00004d70| 41 2c 48 09 3b 20 44 4f | 20 48 49 47 48 0d 0a 09 |A,H.; DO| HIGH...|
|00004d80| 4f 52 09 44 0d 0a 09 4c | 44 09 48 2c 41 0d 0a 09 |OR.D...L|D.H,A...|
|00004d90| 50 4f 50 09 41 46 0d 0a | 09 52 45 54 0d 0a 0d 0a |POP.AF..|.RET....|
|00004da0| 09 45 4e 44 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.END....|........|
|00004db0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004dc0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004dd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004de0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004df0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004e00| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004e10| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 30 39 |le Name:|  SMTH09|
|00004e20| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004e30| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004e40| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004e50| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004e60| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004e70| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00004e80| 69 63 09 78 6f 72 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.xorhd|....;..;|
|00004e90| 20 20 58 4f 52 48 44 20 | 2d 2d 20 58 4f 52 20 48 |  XORHD |-- XOR H|
|00004ea0| 4c 20 57 49 54 48 20 44 | 45 2c 20 52 45 53 55 4c |L WITH D|E, RESUL|
|00004eb0| 54 20 49 4e 20 48 4c 0d | 0a 3b 0d 0a 58 4f 52 48 |T IN HL.|.;..XORH|
|00004ec0| 44 3a 0d 0a 09 50 55 53 | 48 09 41 46 0d 0a 09 4c |D:...PUS|H.AF...L|
|00004ed0| 44 09 41 2c 4c 09 3b 20 | 44 4f 20 4c 4f 57 0d 0a |D.A,L.; |DO LOW..|
|00004ee0| 09 58 4f 52 09 45 0d 0a | 09 4c 44 09 4c 2c 41 0d |.XOR.E..|.LD.L,A.|
|00004ef0| 0a 09 4c 44 09 41 2c 48 | 09 3b 20 44 4f 20 48 49 |..LD.A,H|.; DO HI|
|00004f00| 47 48 0d 0a 09 58 4f 52 | 09 44 0d 0a 09 4c 44 09 |GH...XOR|.D...LD.|
|00004f10| 48 2c 41 0d 0a 09 50 4f | 50 09 41 46 0d 0a 09 52 |H,A...PO|P.AF...R|
|00004f20| 45 54 0d 0a 0d 0a 09 45 | 4e 44 0d 0a 1a 1a 1a 1a |ET.....E|ND......|
|00004f30| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004f40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004f50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004f60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004f70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00004f80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00004f90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 31 30 |le Name:|  SMTH10|
|00004fa0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00004fb0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00004fc0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00004fd0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00004fe0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00004ff0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00005000| 69 63 09 6e 65 67 68 2c | 63 6d 70 68 0d 0a 0d 0a |ic.negh,|cmph....|
|00005010| 3b 0d 0a 3b 20 20 4e 45 | 47 48 20 2d 2d 20 4e 45 |;..;  NE|GH -- NE|
|00005020| 47 41 54 45 20 28 32 27 | 53 20 43 4f 4d 50 29 20 |GATE (2'|S COMP) |
|00005030| 48 4c 0d 0a 3b 0d 0a 4e | 45 47 48 3a 0d 0a 09 43 |HL..;..N|EGH:...C|
|00005040| 41 4c 4c 09 43 4d 50 48 | 09 3b 20 31 27 53 20 43 |ALL.CMPH|.; 1'S C|
|00005050| 4f 4d 50 20 4f 46 20 48 | 4c 0d 0a 09 49 4e 43 09 |OMP OF H|L...INC.|
|00005060| 48 4c 09 3b 20 41 44 44 | 20 31 20 46 4f 52 20 32 |HL.; ADD| 1 FOR 2|
|00005070| 27 53 20 43 4f 4d 50 0d | 0a 09 52 45 54 0d 0a 0d |'S COMP.|..RET...|
|00005080| 0a 3b 0d 0a 3b 20 20 43 | 4d 50 48 20 2d 2d 20 43 |.;..;  C|MPH -- C|
|00005090| 4f 4d 50 4c 45 4d 45 4e | 54 20 28 31 27 53 20 43 |OMPLEMEN|T (1'S C|
|000050a0| 4f 4d 50 29 20 48 4c 0d | 0a 3b 0d 0a 43 4d 50 48 |OMP) HL.|.;..CMPH|
|000050b0| 3a 0d 0a 09 50 55 53 48 | 09 41 46 0d 0a 09 4c 44 |:...PUSH|.AF...LD|
|000050c0| 09 41 2c 4c 09 3b 20 43 | 4f 4d 50 4c 45 4d 45 4e |.A,L.; C|OMPLEMEN|
|000050d0| 54 20 4c 4f 57 0d 0a 09 | 43 50 4c 0d 0a 09 4c 44 |T LOW...|CPL...LD|
|000050e0| 09 4c 2c 41 0d 0a 09 4c | 44 09 41 2c 48 09 3b 20 |.L,A...L|D.A,H.; |
|000050f0| 43 4f 4d 50 4c 45 4d 45 | 4e 54 20 48 49 47 48 0d |COMPLEME|NT HIGH.|
|00005100| 0a 09 43 50 4c 0d 0a 09 | 4c 44 09 48 2c 41 0d 0a |..CPL...|LD.H,A..|
|00005110| 09 50 4f 50 09 41 46 0d | 0a 09 52 45 54 0d 0a 0d |.POP.AF.|..RET...|
|00005120| 0a 09 45 4e 44 0d 0a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |..END...|........|
|00005130| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005140| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005150| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005160| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005170| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005180| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00005190| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 31 31 |le Name:|  SMTH11|
|000051a0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|000051b0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|000051c0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|000051d0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|000051e0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|000051f0| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00005200| 69 63 09 6d 75 6c 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.mulhd|....;..;|
|00005210| 20 20 4d 55 4c 48 44 20 | 2d 2d 20 4d 55 4c 54 49 |  MULHD |-- MULTI|
|00005220| 50 4c 59 20 48 4c 20 42 | 59 20 44 45 2c 20 52 45 |PLY HL B|Y DE, RE|
|00005230| 53 55 4c 54 20 49 4e 20 | 48 4c 0d 0a 3b 09 43 41 |SULT IN |HL..;.CA|
|00005240| 52 52 59 20 53 45 54 20 | 4d 45 41 4e 53 20 4f 56 |RRY SET |MEANS OV|
|00005250| 45 52 46 4c 4f 57 0d 0a | 3b 09 41 20 49 53 20 44 |ERFLOW..|;.A IS D|
|00005260| 45 53 54 52 4f 59 45 44 | 0d 0a 3b 0d 0a 4d 55 4c |ESTROYED|..;..MUL|
|00005270| 48 44 3a 0d 0a 09 50 55 | 53 48 09 41 46 0d 0a 09 |HD:...PU|SH.AF...|
|00005280| 50 55 53 48 09 42 43 09 | 3b 20 53 41 56 45 20 52 |PUSH.BC.|; SAVE R|
|00005290| 45 47 53 0d 0a 09 50 55 | 53 48 09 44 45 0d 0a 09 |EGS...PU|SH.DE...|
|000052a0| 58 4f 52 09 41 09 3b 20 | 53 45 54 20 4e 4f 20 4f |XOR.A.; |SET NO O|
|000052b0| 56 46 4c 0d 0a 09 4c 44 | 09 28 4f 56 46 4c 29 2c |VFL...LD|.(OVFL),|
|000052c0| 41 0d 0a 09 50 55 53 48 | 09 48 4c 09 3b 20 53 41 |A...PUSH|.HL.; SA|
|000052d0| 56 45 20 48 4c 0d 0a 09 | 4c 44 09 48 4c 2c 30 09 |VE HL...|LD.HL,0.|
|000052e0| 3b 20 5a 45 52 4f 20 4c | 4f 4e 47 20 41 43 43 0d |; ZERO L|ONG ACC.|
|000052f0| 0a 09 4c 44 09 28 41 43 | 43 29 2c 48 4c 0d 0a 09 |..LD.(AC|C),HL...|
|00005300| 50 4f 50 09 48 4c 09 3b | 20 47 45 54 20 48 4c 0d |POP.HL.;| GET HL.|
|00005310| 0a 09 4c 44 09 42 2c 31 | 36 09 3b 20 31 36 20 4c |..LD.B,1|6.; 16 L|
|00005320| 4f 4f 50 53 0d 0a 4d 4c | 48 44 3a 0d 0a 09 43 41 |OOPS..ML|HD:...CA|
|00005330| 4c 4c 09 53 48 46 54 52 | 48 09 3b 20 53 48 49 46 |LL.SHFTR|H.; SHIF|
|00005340| 54 20 52 49 47 48 54 20 | 4d 55 4c 54 49 50 4c 49 |T RIGHT |MULTIPLI|
|00005350| 45 52 0d 0a 09 4a 50 09 | 4e 43 2c 4d 4c 48 44 31 |ER...JP.|NC,MLHD1|
|00005360| 09 3b 20 44 4f 4e 27 54 | 20 41 44 44 20 49 4e 20 |.; DON'T| ADD IN |
|00005370| 49 46 20 4c 53 42 20 49 | 53 20 5a 45 52 4f 0d 0a |IF LSB I|S ZERO..|
|00005380| 09 50 55 53 48 09 48 4c | 09 3b 20 53 41 56 45 20 |.PUSH.HL|.; SAVE |
|00005390| 56 41 4c 55 45 0d 0a 09 | 4c 44 09 48 4c 2c 28 41 |VALUE...|LD.HL,(A|
|000053a0| 43 43 29 0d 0a 09 4c 44 | 09 41 2c 4c 09 3b 20 41 |CC)...LD|.A,L.; A|
|000053b0| 44 44 20 49 4e 20 4d 55 | 4c 54 49 50 4c 49 43 41 |DD IN MU|LTIPLICA|
|000053c0| 4e 44 0d 0a 09 41 44 44 | 09 41 2c 45 0d 0a 09 4c |ND...ADD|.A,E...L|
|000053d0| 44 09 4c 2c 41 0d 0a 09 | 4c 44 09 41 2c 48 0d 0a |D.L,A...|LD.A,H..|
|000053e0| 09 41 44 43 09 41 2c 44 | 0d 0a 09 4c 44 09 48 2c |.ADC.A,D|...LD.H,|
|000053f0| 41 0d 0a 09 4c 44 09 28 | 41 43 43 29 2c 48 4c 09 |A...LD.(|ACC),HL.|
|00005400| 3b 20 4e 45 57 20 41 43 | 43 55 4d 55 4c 41 54 45 |; NEW AC|CUMULATE|
|00005410| 44 20 56 41 4c 55 45 0d | 0a 09 4a 50 09 4e 43 2c |D VALUE.|..JP.NC,|
|00005420| 4d 4c 48 44 30 0d 0a 09 | 4c 44 09 41 2c 30 46 46 |MLHD0...|LD.A,0FF|
|00005430| 48 09 3b 20 53 45 54 20 | 4f 56 46 4c 20 46 4c 41 |H.; SET |OVFL FLA|
|00005440| 47 0d 0a 09 4c 44 09 28 | 4f 56 46 4c 29 2c 41 0d |G...LD.(|OVFL),A.|
|00005450| 0a 4d 4c 48 44 30 3a 0d | 0a 09 50 4f 50 09 48 4c |.MLHD0:.|..POP.HL|
|00005460| 09 3b 20 47 45 54 20 56 | 41 4c 55 45 0d 0a 4d 4c |.; GET V|ALUE..ML|
|00005470| 48 44 31 3a 0d 0a 09 45 | 58 09 44 45 2c 48 4c 09 |HD1:...E|X.DE,HL.|
|00005480| 3b 20 53 48 49 46 54 20 | 4c 45 46 54 20 4d 55 4c |; SHIFT |LEFT MUL|
|00005490| 54 49 50 4c 49 43 41 4e | 44 0d 0a 09 43 41 4c 4c |TIPLICAN|D...CALL|
|000054a0| 09 53 48 46 54 4c 48 0d | 0a 09 45 58 09 44 45 2c |.SHFTLH.|..EX.DE,|
|000054b0| 48 4c 0d 0a 09 44 45 43 | 09 42 09 3b 20 43 4f 55 |HL...DEC|.B.; COU|
|000054c0| 4e 54 20 44 4f 57 4e 0d | 0a 09 4a 50 09 4e 5a 2c |NT DOWN.|..JP.NZ,|
|000054d0| 4d 4c 48 44 0d 0a 09 50 | 4f 50 09 44 45 09 3b 20 |MLHD...P|OP.DE.; |
|000054e0| 52 45 53 54 4f 52 45 20 | 52 45 47 53 0d 0a 09 50 |RESTORE |REGS...P|
|000054f0| 4f 50 09 42 43 0d 0a 09 | 4c 44 09 48 4c 2c 28 41 |OP.BC...|LD.HL,(A|
|00005500| 43 43 29 09 3b 20 47 45 | 54 20 52 45 53 55 4c 54 |CC).; GE|T RESULT|
|00005510| 0d 0a 09 4c 44 09 41 2c | 28 4f 56 46 4c 29 09 3b |...LD.A,|(OVFL).;|
|00005520| 20 4f 56 45 52 46 4c 4f | 57 3f 0d 0a 09 4f 52 09 | OVERFLO|W?...OR.|
|00005530| 41 09 3b 20 30 3d 4e 4f | 0d 0a 09 4a 50 09 5a 2c |A.; 0=NO|...JP.Z,|
|00005540| 4f 4b 52 45 54 0d 0a 4f | 56 46 4c 52 45 54 3a 0d |OKRET..O|VFLRET:.|
|00005550| 0a 09 50 4f 50 09 41 46 | 09 3b 20 47 45 54 20 50 |..POP.AF|.; GET P|
|00005560| 53 57 0d 0a 09 53 43 46 | 09 09 3b 20 53 45 54 20 |SW...SCF|..; SET |
|00005570| 43 41 52 52 59 0d 0a 09 | 52 45 54 0d 0a 4f 4b 52 |CARRY...|RET..OKR|
|00005580| 45 54 3a 0d 0a 09 50 4f | 50 09 41 46 0d 0a 09 4f |ET:...PO|P.AF...O|
|00005590| 52 09 41 09 3b 20 43 4c | 45 41 52 20 43 41 52 52 |R.A.; CL|EAR CARR|
|000055a0| 59 0d 0a 09 52 45 54 0d | 0a 0d 0a 3b 0d 0a 3b 20 |Y...RET.|...;..; |
|000055b0| 20 53 48 49 46 54 20 52 | 4f 55 54 49 4e 45 53 0d | SHIFT R|OUTINES.|
|000055c0| 0a 3b 0d 0a 53 48 46 54 | 52 48 3a 09 09 09 3b 20 |.;..SHFT|RH:...; |
|000055d0| 53 48 49 46 54 20 52 49 | 47 48 54 0d 0a 09 50 55 |SHIFT RI|GHT...PU|
|000055e0| 53 48 09 41 46 0d 0a 09 | 41 4e 44 09 41 09 3b 20 |SH.AF...|AND.A.; |
|000055f0| 43 4c 45 41 52 20 43 41 | 52 52 59 0d 0a 09 4c 44 |CLEAR CA|RRY...LD|
|00005600| 09 41 2c 48 09 3b 20 53 | 48 49 46 54 20 48 49 47 |.A,H.; S|HIFT HIG|
|00005610| 48 0d 0a 09 52 52 41 09 | 09 3b 20 52 4f 54 41 54 |H...RRA.|.; ROTAT|
|00005620| 45 20 39 2d 42 49 54 20 | 41 43 43 20 52 49 47 48 |E 9-BIT |ACC RIGH|
|00005630| 54 0d 0a 09 4c 44 09 48 | 2c 41 0d 0a 09 4c 44 09 |T...LD.H|,A...LD.|
|00005640| 41 2c 4c 09 3b 20 53 48 | 49 46 54 20 4c 4f 57 0d |A,L.; SH|IFT LOW.|
|00005650| 0a 09 52 52 41 0d 0a 09 | 4c 44 09 4c 2c 41 0d 0a |..RRA...|LD.L,A..|
|00005660| 09 4a 50 09 4e 43 2c 4f | 4b 52 45 54 0d 0a 09 4a |.JP.NC,O|KRET...J|
|00005670| 50 09 4f 56 46 4c 52 45 | 54 0d 0a 53 48 46 54 4c |P.OVFLRE|T..SHFTL|
|00005680| 48 3a 09 09 09 3b 20 53 | 48 49 46 54 20 4c 45 46 |H:...; S|HIFT LEF|
|00005690| 54 0d 0a 09 50 55 53 48 | 09 41 46 0d 0a 09 41 4e |T...PUSH|.AF...AN|
|000056a0| 44 09 41 09 3b 20 43 4c | 45 41 52 20 43 41 52 52 |D.A.; CL|EAR CARR|
|000056b0| 59 0d 0a 09 4c 44 09 41 | 2c 4c 09 3b 20 53 48 49 |Y...LD.A|,L.; SHI|
|000056c0| 46 54 20 4c 4f 57 0d 0a | 09 52 4c 41 09 09 3b 20 |FT LOW..|.RLA..; |
|000056d0| 52 4f 54 41 54 45 20 39 | 2d 42 49 54 20 41 43 43 |ROTATE 9|-BIT ACC|
|000056e0| 20 4c 45 46 54 0d 0a 09 | 4c 44 09 4c 2c 41 0d 0a | LEFT...|LD.L,A..|
|000056f0| 09 4c 44 09 41 2c 48 09 | 3b 20 53 48 49 46 54 20 |.LD.A,H.|; SHIFT |
|00005700| 48 49 47 48 0d 0a 09 52 | 4c 41 0d 0a 09 4c 44 09 |HIGH...R|LA...LD.|
|00005710| 48 2c 41 0d 0a 09 4a 50 | 09 4e 43 2c 4f 4b 52 45 |H,A...JP|.NC,OKRE|
|00005720| 54 0d 0a 09 4a 50 09 4f | 56 46 4c 52 45 54 0d 0a |T...JP.O|VFLRET..|
|00005730| 0d 0a 3b 0d 0a 3b 20 20 | 42 55 46 46 45 52 53 0d |..;..;  |BUFFERS.|
|00005740| 0a 3b 0d 0a 41 43 43 3a | 09 44 53 09 32 09 3b 20 |.;..ACC:|.DS.2.; |
|00005750| 54 45 4d 50 20 41 43 43 | 55 4d 55 4c 41 54 4f 52 |TEMP ACC|UMULATOR|
|00005760| 0d 0a 4f 56 46 4c 3a 09 | 44 53 09 31 09 3b 20 4f |..OVFL:.|DS.1.; O|
|00005770| 56 45 52 46 4c 4f 57 20 | 46 4c 41 47 0d 0a 0d 0a |VERFLOW |FLAG....|
|00005780| 09 45 4e 44 0d 0a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |.END....|........|
|00005790| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057a0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057b0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057c0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057d0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057e0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|000057f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005800| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00005810| 6c 65 20 4e 61 6d 65 3a | 20 20 53 4d 54 48 31 32 |le Name:|  SMTH12|
|00005820| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00005830| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00005840| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00005850| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00005860| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00005870| 72 3a 20 20 31 2e 31 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.1.|....publ|
|00005880| 69 63 09 64 69 76 68 64 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.divhd|....;..;|
|00005890| 20 20 44 49 56 48 44 20 | 2d 2d 20 44 49 56 49 44 |  DIVHD |-- DIVID|
|000058a0| 45 20 48 4c 20 42 59 20 | 44 45 2c 20 52 45 53 55 |E HL BY |DE, RESU|
|000058b0| 4c 54 20 49 4e 20 48 4c | 0d 0a 3b 0d 0a 44 49 56 |LT IN HL|..;..DIV|
|000058c0| 48 44 3a 0d 0a 09 50 55 | 53 48 09 41 46 0d 0a 09 |HD:...PU|SH.AF...|
|000058d0| 50 55 53 48 09 42 43 0d | 0a 09 50 55 53 48 09 48 |PUSH.BC.|..PUSH.H|
|000058e0| 4c 09 3b 20 53 41 56 45 | 20 48 4c 0d 0a 09 4c 44 |L.; SAVE| HL...LD|
|000058f0| 09 48 4c 2c 30 0d 0a 09 | 4c 44 09 28 41 43 43 29 |.HL,0...|LD.(ACC)|
|00005900| 2c 48 4c 09 3b 20 5a 45 | 52 4f 20 41 43 43 55 4d |,HL.; ZE|RO ACCUM|
|00005910| 55 4c 41 54 4f 52 0d 0a | 09 50 4f 50 09 48 4c 0d |ULATOR..|.POP.HL.|
|00005920| 0a 3b 0d 0a 3b 20 20 43 | 48 45 43 4b 20 54 4f 20 |.;..;  C|HECK TO |
|00005930| 4d 41 4b 45 20 53 55 52 | 45 20 54 48 41 54 20 48 |MAKE SUR|E THAT H|
|00005940| 4c 20 3e 20 44 45 0d 0a | 3b 0d 0a 09 4c 44 09 41 |L > DE..|;...LD.A|
|00005950| 2c 48 0d 0a 09 43 50 09 | 44 09 3b 20 48 20 3e 20 |,H...CP.|D.; H > |
|00005960| 44 3f 0d 0a 09 4a 50 09 | 43 2c 44 4f 56 46 4c 09 |D?...JP.|C,DOVFL.|
|00005970| 3b 20 5a 45 52 4f 20 52 | 45 53 55 4c 54 20 49 46 |; ZERO R|ESULT IF|
|00005980| 20 48 20 3c 20 44 0d 0a | 09 4a 50 09 4e 5a 2c 44 | H < D..|.JP.NZ,D|
|00005990| 4e 4f 56 46 4c 0d 0a 09 | 4c 44 09 41 2c 4c 0d 0a |NOVFL...|LD.A,L..|
|000059a0| 09 43 50 09 45 09 3b 20 | 4c 20 3e 20 45 3f 0d 0a |.CP.E.; |L > E?..|
|000059b0| 09 4a 50 09 43 2c 44 4f | 56 46 4c 09 3b 20 5a 45 |.JP.C,DO|VFL.; ZE|
|000059c0| 52 4f 20 52 45 53 55 4c | 54 20 49 46 20 48 4c 20 |RO RESUL|T IF HL |
|000059d0| 3c 20 44 45 0d 0a 44 4e | 4f 56 46 4c 3a 0d 0a 09 |< DE..DN|OVFL:...|
|000059e0| 4c 44 09 42 2c 31 36 09 | 3b 20 31 36 20 4c 4f 4f |LD.B,16.|; 16 LOO|
|000059f0| 50 53 0d 0a 44 56 48 44 | 3a 0d 0a 09 43 41 4c 4c |PS..DVHD|:...CALL|
|00005a00| 09 53 48 46 54 4c 48 09 | 3b 20 53 48 49 46 54 20 |.SHFTLH.|; SHIFT |
|00005a10| 44 49 56 49 44 45 4e 44 | 20 4c 45 46 54 0d 0a 09 |DIVIDEND| LEFT...|
|00005a20| 50 55 53 48 09 48 4c 09 | 3b 20 53 41 56 45 20 44 |PUSH.HL.|; SAVE D|
|00005a30| 49 56 49 44 45 4e 44 0d | 0a 09 4c 44 09 48 4c 2c |IVIDEND.|..LD.HL,|
|00005a40| 28 41 43 43 29 09 3b 20 | 47 45 54 20 41 43 43 0d |(ACC).; |GET ACC.|
|00005a50| 0a 09 43 41 4c 4c 09 53 | 48 46 4c 43 48 09 3b 20 |..CALL.S|HFLCH.; |
|00005a60| 52 4f 54 41 54 45 20 41 | 43 43 20 41 4e 44 20 4d |ROTATE A|CC AND M|
|00005a70| 4f 56 45 20 49 4e 20 43 | 41 52 52 59 0d 0a 09 4c |OVE IN C|ARRY...L|
|00005a80| 44 09 28 41 43 43 29 2c | 48 4c 09 3b 20 4e 45 57 |D.(ACC),|HL.; NEW|
|00005a90| 20 41 43 43 0d 0a 09 4c | 44 09 41 2c 4c 09 3b 20 | ACC...L|D.A,L.; |
|00005aa0| 4c 4f 57 20 43 4f 4d 50 | 41 52 49 53 4f 4e 0d 0a |LOW COMP|ARISON..|
|00005ab0| 09 53 55 42 09 45 09 3b | 20 43 4f 4d 50 41 52 45 |.SUB.E.;| COMPARE|
|00005ac0| 20 41 4e 44 20 53 55 42 | 54 52 41 43 54 0d 0a 09 | AND SUB|TRACT...|
|00005ad0| 4c 44 09 4c 2c 41 0d 0a | 09 4c 44 09 41 2c 48 09 |LD.L,A..|.LD.A,H.|
|00005ae0| 3b 20 48 49 47 48 20 43 | 4f 4d 50 41 52 49 53 4f |; HIGH C|OMPARISO|
|00005af0| 4e 0d 0a 09 53 42 43 09 | 41 2c 44 09 3b 20 43 4f |N...SBC.|A,D.; CO|
|00005b00| 4d 50 41 52 45 20 41 4e | 44 20 53 55 42 54 52 41 |MPARE AN|D SUBTRA|
|00005b10| 43 54 0d 0a 09 4c 44 09 | 48 2c 41 0d 0a 09 4a 50 |CT...LD.|H,A...JP|
|00005b20| 09 43 2c 44 56 48 44 30 | 0d 0a 09 4c 44 09 28 41 |.C,DVHD0|...LD.(A|
|00005b30| 43 43 29 2c 48 4c 09 3b | 20 53 41 56 45 20 4e 45 |CC),HL.;| SAVE NE|
|00005b40| 57 20 41 43 43 0d 0a 09 | 50 4f 50 09 48 4c 09 3b |W ACC...|POP.HL.;|
|00005b50| 20 47 45 54 20 44 49 56 | 49 44 45 4e 44 0d 0a 09 | GET DIV|IDEND...|
|00005b60| 4c 44 09 41 2c 4c 09 3b | 20 50 4c 41 43 45 20 49 |LD.A,L.;| PLACE I|
|00005b70| 4e 20 41 20 31 20 54 4f | 20 51 55 4f 54 49 45 4e |N A 1 TO| QUOTIEN|
|00005b80| 54 0d 0a 09 4f 52 09 31 | 0d 0a 09 4c 44 09 4c 2c |T...OR.1|...LD.L,|
|00005b90| 41 0d 0a 09 4a 50 09 44 | 56 48 44 31 0d 0a 44 56 |A...JP.D|VHD1..DV|
|00005ba0| 48 44 30 3a 0d 0a 09 50 | 4f 50 09 48 4c 09 3b 20 |HD0:...P|OP.HL.; |
|00005bb0| 47 45 54 20 44 49 56 49 | 44 45 4e 44 20 41 4e 44 |GET DIVI|DEND AND|
|00005bc0| 20 4c 45 41 56 45 20 4c | 53 42 20 41 54 20 5a 45 | LEAVE L|SB AT ZE|
|00005bd0| 52 4f 0d 0a 44 56 48 44 | 31 3a 0d 0a 09 44 45 43 |RO..DVHD|1:...DEC|
|00005be0| 09 42 09 3b 20 43 4f 55 | 4e 54 20 44 4f 57 4e 0d |.B.; COU|NT DOWN.|
|00005bf0| 0a 09 4a 50 09 4e 5a 2c | 44 56 48 44 0d 0a 44 56 |..JP.NZ,|DVHD..DV|
|00005c00| 52 45 54 3a 0d 0a 09 50 | 4f 50 09 42 43 0d 0a 09 |RET:...P|OP.BC...|
|00005c10| 50 4f 50 09 41 46 0d 0a | 09 52 45 54 0d 0a 44 4f |POP.AF..|.RET..DO|
|00005c20| 56 46 4c 3a 0d 0a 09 4c | 44 09 48 4c 2c 30 09 3b |VFL:...L|D.HL,0.;|
|00005c30| 20 52 45 53 55 4c 54 20 | 49 53 20 5a 45 52 4f 0d | RESULT |IS ZERO.|
|00005c40| 0a 09 4a 50 09 44 56 52 | 45 54 0d 0a 0d 0a 3b 0d |..JP.DVR|ET....;.|
|00005c50| 0a 3b 20 20 53 48 49 46 | 54 20 52 4f 55 54 49 4e |.;  SHIF|T ROUTIN|
|00005c60| 45 53 0d 0a 3b 0d 0a 53 | 48 46 54 4c 48 3a 09 09 |ES..;..S|HFTLH:..|
|00005c70| 09 3b 20 53 48 49 46 54 | 20 48 4c 20 4c 45 46 54 |.; SHIFT| HL LEFT|
|00005c80| 0d 0a 09 50 55 53 48 09 | 41 46 0d 0a 09 41 4e 44 |...PUSH.|AF...AND|
|00005c90| 09 41 09 3b 20 43 4c 45 | 41 52 20 43 41 52 52 59 |.A.; CLE|AR CARRY|
|00005ca0| 0d 0a 53 48 46 4c 3a 0d | 0a 09 4c 44 09 41 2c 4c |..SHFL:.|..LD.A,L|
|00005cb0| 09 3b 20 53 48 49 46 54 | 20 4c 4f 57 0d 0a 09 52 |.; SHIFT| LOW...R|
|00005cc0| 4c 41 09 09 3b 20 52 4f | 54 41 54 45 20 39 2d 42 |LA..; RO|TATE 9-B|
|00005cd0| 49 54 20 41 43 43 20 4c | 45 46 54 0d 0a 09 4c 44 |IT ACC L|EFT...LD|
|00005ce0| 09 4c 2c 41 0d 0a 09 4c | 44 09 41 2c 48 09 3b 20 |.L,A...L|D.A,H.; |
|00005cf0| 53 48 49 46 54 20 48 49 | 47 48 0d 0a 09 52 4c 41 |SHIFT HI|GH...RLA|
|00005d00| 0d 0a 09 4c 44 09 48 2c | 41 0d 0a 09 4a 50 09 4e |...LD.H,|A...JP.N|
|00005d10| 43 2c 4f 4b 52 45 54 0d | 0a 09 50 4f 50 09 41 46 |C,OKRET.|..POP.AF|
|00005d20| 0d 0a 09 53 43 46 09 09 | 3b 20 53 45 54 20 43 41 |...SCF..|; SET CA|
|00005d30| 52 52 59 20 46 4f 52 20 | 4f 56 45 52 46 4c 4f 57 |RRY FOR |OVERFLOW|
|00005d40| 0d 0a 09 52 45 54 0d 0a | 4f 4b 52 45 54 3a 0d 0a |...RET..|OKRET:..|
|00005d50| 09 50 4f 50 09 41 46 0d | 0a 09 4f 52 09 41 09 3b |.POP.AF.|..OR.A.;|
|00005d60| 20 43 4c 45 41 52 20 43 | 41 52 52 59 20 46 4f 52 | CLEAR C|ARRY FOR|
|00005d70| 20 4e 4f 20 4f 56 45 52 | 46 4c 4f 57 0d 0a 09 52 | NO OVER|FLOW...R|
|00005d80| 45 54 0d 0a 53 48 46 4c | 43 48 3a 09 09 09 3b 20 |ET..SHFL|CH:...; |
|00005d90| 53 48 49 46 54 20 48 4c | 20 4c 45 46 54 2c 20 42 |SHIFT HL| LEFT, B|
|00005da0| 55 54 20 53 48 49 46 54 | 20 49 4e 20 43 41 52 52 |UT SHIFT| IN CARR|
|00005db0| 59 20 46 4c 41 47 0d 0a | 09 50 55 53 48 09 41 46 |Y FLAG..|.PUSH.AF|
|00005dc0| 0d 0a 09 4a 50 09 53 48 | 46 4c 0d 0a 0d 0a 3b 0d |...JP.SH|FL....;.|
|00005dd0| 0a 3b 20 20 42 55 46 46 | 45 52 53 0d 0a 3b 0d 0a |.;  BUFF|ERS..;..|
|00005de0| 41 43 43 3a 09 44 53 09 | 32 09 3b 20 54 45 4d 50 |ACC:.DS.|2.; TEMP|
|00005df0| 20 41 43 43 55 4d 55 4c | 41 54 4f 52 0d 0a 4f 56 | ACCUMUL|ATOR..OV|
|00005e00| 46 4c 3a 09 44 53 09 31 | 09 3b 20 4f 56 45 52 46 |FL:.DS.1|.; OVERF|
|00005e10| 4c 4f 57 20 46 4c 41 47 | 0d 0a 0d 0a 09 45 4e 44 |LOW FLAG|.....END|
|00005e20| 0d 0a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e30| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e40| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e50| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e60| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e70| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00005e80| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00005e90| 6c 65 20 4e 61 6d 65 3a | 20 20 53 50 41 32 48 43 |le Name:|  SPA2HC|
|00005ea0| 0d 0a 3b 20 41 75 74 68 | 6f 72 3a 20 20 52 69 63 |..; Auth|or:  Ric|
|00005eb0| 68 61 72 64 20 43 6f 6e | 6e 0d 0a 3b 20 53 59 53 |hard Con|n..; SYS|
|00005ec0| 4c 49 42 20 56 65 72 73 | 69 6f 6e 20 4e 75 6d 62 |LIB Vers|ion Numb|
|00005ed0| 65 72 3a 20 20 33 2e 36 | 0d 0a 3b 20 4d 6f 64 75 |er:  3.6|..; Modu|
|00005ee0| 6c 65 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |le Versi|on Numbe|
|00005ef0| 72 3a 20 20 31 2e 32 0d | 0a 0d 0a 09 70 75 62 6c |r:  1.2.|....publ|
|00005f00| 69 63 09 70 61 32 68 63 | 0d 0a 0d 0a 3b 0d 0a 3b |ic.pa2hc|....;..;|
|00005f10| 20 20 50 41 32 48 43 20 | 2d 2d 0d 0a 3b 09 50 52 |  PA2HC |--..;.PR|
|00005f20| 49 4e 54 20 52 45 47 20 | 41 20 41 53 20 32 20 48 |INT REG |A AS 2 H|
|00005f30| 45 58 41 44 45 43 49 4d | 41 4c 20 43 48 41 52 41 |EXADECIM|AL CHARA|
|00005f40| 43 54 45 52 53 20 4f 4e | 20 43 4f 4e 3a 0d 0a 3b |CTERS ON| CON:..;|
|00005f50| 0d 0a 09 45 58 54 09 43 | 4f 55 54 0d 0a 0d 0a 50 |...EXT.C|OUT....P|
|00005f60| 41 32 48 43 3a 0d 0a 09 | 50 55 53 48 09 41 46 09 |A2HC:...|PUSH.AF.|
|00005f70| 3b 20 53 41 56 45 20 41 | 0d 0a 09 50 55 53 48 09 |; SAVE A|...PUSH.|
|00005f80| 41 46 0d 0a 09 52 52 43 | 41 09 09 3b 20 45 58 43 |AF...RRC|A..; EXC|
|00005f90| 48 41 4e 47 45 20 4e 59 | 42 42 4c 45 53 0d 0a 09 |HANGE NY|BBLES...|
|00005fa0| 52 52 43 41 0d 0a 09 52 | 52 43 41 0d 0a 09 52 52 |RRCA...R|RCA...RR|
|00005fb0| 43 41 0d 0a 09 43 41 4c | 4c 09 50 41 48 43 09 3b |CA...CAL|L.PAHC.;|
|00005fc0| 20 50 52 49 4e 54 20 4c | 4f 57 2d 4f 52 44 45 52 | PRINT L|OW-ORDER|
|00005fd0| 20 4e 59 42 42 4c 45 20 | 41 53 20 48 45 58 0d 0a | NYBBLE |AS HEX..|
|00005fe0| 09 50 4f 50 09 41 46 09 | 3b 20 47 45 54 20 41 0d |.POP.AF.|; GET A.|
|00005ff0| 0a 09 43 41 4c 4c 09 50 | 41 48 43 09 3b 20 50 52 |..CALL.P|AHC.; PR|
|00006000| 49 4e 54 20 4c 4f 57 2d | 4f 52 44 45 52 20 4e 59 |INT LOW-|ORDER NY|
|00006010| 42 42 4c 45 20 41 53 20 | 48 45 58 0d 0a 09 50 4f |BBLE AS |HEX...PO|
|00006020| 50 09 41 46 09 3b 20 52 | 45 53 54 4f 52 45 20 41 |P.AF.; R|ESTORE A|
|00006030| 0d 0a 09 52 45 54 0d 0a | 50 41 48 43 3a 09 41 4e |...RET..|PAHC:.AN|
|00006040| 44 09 30 46 48 09 3b 20 | 4d 41 53 4b 20 46 4f 52 |D.0FH.; |MASK FOR|
|00006050| 20 4c 4f 57 20 4e 59 42 | 42 4c 45 0d 0a 09 43 50 | LOW NYB|BLE...CP|
|00006060| 09 31 30 09 3b 20 4c 45 | 54 54 45 52 20 4f 52 20 |.10.; LE|TTER OR |
|00006070| 44 49 47 49 54 3f 0d 0a | 09 4a 50 09 43 2c 50 41 |DIGIT?..|.JP.C,PA|
|00006080| 44 49 47 09 3b 20 44 49 | 47 49 54 20 49 46 20 43 |DIG.; DI|GIT IF C|
|00006090| 41 52 52 59 0d 0a 09 41 | 44 44 09 27 41 27 2d 31 |ARRY...A|DD.'A'-1|
|000060a0| 30 09 3b 20 43 4f 4e 56 | 45 52 54 20 54 4f 20 27 |0.; CONV|ERT TO '|
|000060b0| 41 27 2d 27 46 27 0d 0a | 09 4a 50 09 43 4f 55 54 |A'-'F'..|.JP.COUT|
|000060c0| 09 3b 20 50 52 49 4e 54 | 0d 0a 50 41 44 49 47 3a |.; PRINT|..PADIG:|
|000060d0| 09 41 44 44 09 27 30 27 | 09 3b 20 43 4f 4e 56 45 |.ADD.'0'|.; CONVE|
|000060e0| 52 54 20 54 4f 20 27 30 | 27 2d 27 39 27 0d 0a 09 |RT TO '0|'-'9'...|
|000060f0| 4a 50 09 43 4f 55 54 09 | 3b 20 50 52 49 4e 54 0d |JP.COUT.|; PRINT.|
|00006100| 0a 0d 0a 09 45 4e 44 0d | 0a 1a 1a 1a 1a 1a 1a 1a |....END.|........|
|00006110| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006120| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006130| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006140| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006150| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006160| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006170| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00006180| 3b 0d 0a 3b 20 53 59 53 | 4c 49 42 20 4d 6f 64 75 |;..; SYS|LIB Modu|
|00006190| 6c 65 20 4e 61 6d 65 3a | 20 20 53 50 41 44 43 0d |le Name:|  SPADC.|
|000061a0| 0a 3b 20 41 75 74 68 6f | 72 3a 20 20 52 69 63 68 |.; Autho|r:  Rich|
|000061b0| 61 72 64 20 43 6f 6e 6e | 0d 0a 3b 20 53 59 53 4c |ard Conn|..; SYSL|
|000061c0| 49 42 20 56 65 72 73 69 | 6f 6e 20 4e 75 6d 62 65 |IB Versi|on Numbe|
|000061d0| 72 3a 20 20 33 2e 36 0d | 0a 3b 20 4d 6f 64 75 6c |r:  3.6.|.; Modul|
|000061e0| 65 20 56 65 72 73 69 6f | 6e 20 4e 75 6d 62 65 72 |e Versio|n Number|
|000061f0| 3a 20 20 31 2e 32 0d 0a | 0d 0a 09 70 75 62 6c 69 |:  1.2..|...publi|
|00006200| 63 09 70 61 33 64 63 2c | 70 61 64 63 0d 0a 0d 0a |c.pa3dc,|padc....|
|00006210| 09 45 58 54 09 43 4f 55 | 54 0d 0a 0d 0a 3b 0d 0a |.EXT.COU|T....;..|
|00006220| 3b 20 20 50 41 33 44 43 | 20 2d 2d 0d 0a 3b 09 50 |;  PA3DC| --..;.P|
|00006230| 52 49 4e 54 20 52 45 47 | 20 41 20 41 53 20 33 20 |RINT REG| A AS 3 |
|00006240| 44 45 43 49 4d 41 4c 20 | 43 48 41 52 41 43 54 45 |DECIMAL |CHARACTE|
|00006250| 52 53 0d 0a 3b 0d 0a 50 | 41 33 44 43 3a 0d 0a 09 |RS..;..P|A3DC:...|
|00006260| 50 55 53 48 09 42 43 09 | 3b 20 53 41 56 45 20 52 |PUSH.BC.|; SAVE R|
|00006270| 45 47 53 0d 0a 09 50 55 | 53 48 09 44 45 0d 0a 09 |EGS...PU|SH.DE...|
|00006280| 50 55 53 48 09 41 46 09 | 3b 20 53 41 56 45 20 41 |PUSH.AF.|; SAVE A|
|00006290| 0d 0a 09 4c 44 09 44 2c | 30 09 3b 20 54 55 52 4e |...LD.D,|0.; TURN|
|000062a0| 20 4f 46 46 20 4c 45 41 | 44 49 4e 47 20 3c 53 50 | OFF LEA|DING <SP|
|000062b0| 3e 20 46 4c 41 47 0d 0a | 09 4a 50 09 50 41 44 43 |> FLAG..|.JP.PADC|
|000062c0| 31 0d 0a 3b 0d 0a 3b 20 | 20 50 41 44 43 20 2d 2d |1..;..; | PADC --|
|000062d0| 0d 0a 3b 09 50 52 49 4e | 54 20 52 45 47 20 41 20 |..;.PRIN|T REG A |
|000062e0| 41 53 20 44 45 43 49 4d | 41 4c 20 43 48 41 52 41 |AS DECIM|AL CHARA|
|000062f0| 43 54 45 52 53 20 57 2f | 4c 45 41 44 49 4e 47 20 |CTERS W/|LEADING |
|00006300| 3c 53 50 3e 20 49 4e 20 | 33 2d 43 48 41 52 20 46 |<SP> IN |3-CHAR F|
|00006310| 49 45 4c 44 0d 0a 3b 0d | 0a 50 41 44 43 3a 0d 0a |IELD..;.|.PADC:..|
|00006320| 09 50 55 53 48 09 42 43 | 09 3b 20 53 41 56 45 20 |.PUSH.BC|.; SAVE |
|00006330| 52 45 47 53 0d 0a 09 50 | 55 53 48 09 44 45 0d 0a |REGS...P|USH.DE..|
|00006340| 09 50 55 53 48 09 41 46 | 09 3b 20 53 41 56 45 20 |.PUSH.AF|.; SAVE |
|00006350| 41 0d 0a 09 4c 44 09 44 | 2c 31 09 3b 20 54 55 52 |A...LD.D|,1.; TUR|
|00006360| 4e 20 4f 4e 20 4c 45 41 | 44 49 4e 47 20 3c 53 50 |N ON LEA|DING <SP|
|00006370| 3e 20 46 4c 41 47 0d 0a | 3b 0d 0a 3b 20 20 50 52 |> FLAG..|;..;  PR|
|00006380| 49 4e 54 20 52 4f 55 54 | 49 4e 45 0d 0a 3b 0d 0a |INT ROUT|INE..;..|
|00006390| 50 41 44 43 31 3a 09 4c | 44 09 42 2c 31 30 30 09 |PADC1:.L|D.B,100.|
|000063a0| 3b 20 50 52 49 4e 54 20 | 48 55 4e 44 52 45 44 53 |; PRINT |HUNDREDS|
|000063b0| 0d 0a 09 43 41 4c 4c 09 | 50 41 43 09 3b 20 50 52 |...CALL.|PAC.; PR|
|000063c0| 49 4e 54 20 41 20 43 48 | 41 52 0d 0a 09 4c 44 09 |INT A CH|AR...LD.|
|000063d0| 42 2c 31 30 09 3b 20 50 | 52 49 4e 54 20 54 45 4e |B,10.; P|RINT TEN|
|000063e0| 53 0d 0a 09 43 41 4c 4c | 09 50 41 43 0d 0a 09 41 |S...CALL|.PAC...A|
|000063f0| 44 44 09 27 30 27 09 3b | 20 43 4f 4e 56 45 52 54 |DD.'0'.;| CONVERT|
+--------+-------------------------+-------------------------+--------+--------+