home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: LBR Archive
(archive/lbr).
You can browse this item here: ztime23.lbr
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 100%
| dexvert
| LBR Archive (archive/lbr)
| magic
| Supported |
| 1%
| dexvert
| Micro Focus COBOL library (other/microFocusCobolLibrary)
| ext
| Unsupported |
| 1%
| dexvert
| Micro Focus COBOL Library (other/microFocusCOBOLLibrary)
| ext
| Unsupported |
| 100%
| file
| LBR archive data
| default
| |
| 99%
| file
| data
| default
| |
| 87%
| TrID
| LU library
| default
| |
| 12%
| TrID
| C64 Hires bitmap
| default (weak)
| |
| 100%
| lsar
| LBR
| default
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 20 20 20 20 20 20 20 | 20 20 20 20 00 00 02 00 |. | ....|
|00000010| 1b e2 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 5a 54 30 31 30 30 20 | 20 43 4f 4d 5a 00 05 00 |.ZT0100 | COMZ...|
|00000030| d7 b4 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 5a 54 38 30 30 30 20 | 20 43 4f 4d 5f 00 04 00 |.ZT8000 | COM_...|
|00000050| ac 39 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |.9......|........|
|00000060| 00 5a 54 49 4d 45 32 33 | 20 46 4f 52 02 00 04 00 |.ZTIME23| FOR....|
|00000070| d8 99 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000080| 00 5a 54 49 4d 45 32 33 | 20 4d 41 43 06 00 54 00 |.ZTIME23| MAC..T.|
|00000090| 06 a1 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000a0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000000b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000c0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000000d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000000e0| ff 20 20 20 20 20 20 20 | 20 20 20 20 00 00 00 00 |. | ....|
|000000f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000100| 5a 54 49 4d 45 32 33 2e | 4c 42 52 20 2d 20 77 69 |ZTIME23.|LBR - wi|
|00000110| 74 68 20 5a 43 50 52 33 | 33 20 73 75 70 70 6f 72 |th ZCPR3|3 suppor|
|00000120| 74 0d 0a 20 20 20 4d 6f | 72 65 20 6d 69 6e 6f 72 |t.. Mo|re minor|
|00000130| 20 74 77 65 61 6b 73 20 | 74 6f 20 2e 2e 2e 2e 0d | tweaks |to .....|
|00000140| 0a 20 20 20 4d 69 6e 6f | 72 20 74 77 65 61 6b 20 |. Mino|r tweak |
|00000150| 74 6f 20 42 72 75 63 65 | 20 4d 6f 72 67 65 6e 27 |to Bruce| Morgen'|
|00000160| 73 20 6d 69 6e 6f 72 20 | 74 77 65 61 6b 20 74 6f |s minor |tweak to|
|00000170| 20 46 72 65 64 20 4d 61 | 78 77 65 6c 6c 27 73 0d | Fred Ma|xwell's.|
|00000180| 0a 20 20 20 61 70 70 72 | 6f 70 72 69 61 74 65 6c |. appr|opriatel|
|00000190| 79 20 74 69 6e 79 20 72 | 65 61 64 65 72 20 70 72 |y tiny r|eader pr|
|000001a0| 6f 67 72 61 6d 20 66 6f | 72 20 74 68 65 20 4b 65 |ogram fo|r the Ke|
|000001b0| 6e 6d 6f 72 65 20 5a 2d | 54 69 6d 65 0d 0a 20 20 |nmore Z-|Time.. |
|000001c0| 20 63 6c 6f 63 6b 2c 20 | 61 20 76 65 72 79 20 70 | clock, |a very p|
|000001d0| 6f 70 75 6c 61 72 20 52 | 54 43 20 61 64 64 2d 6f |opular R|TC add-o|
|000001e0| 6e 2c 20 70 61 72 74 69 | 63 75 6c 61 72 6c 79 20 |n, parti|cularly |
|000001f0| 61 6d 6f 6e 67 20 41 6d | 70 72 6f 0d 0a 20 20 20 |among Am|pro.. |
|00000200| 6f 77 6e 65 72 73 2e 20 | 20 5a 54 49 4d 45 32 33 |owners. | ZTIME23|
|00000210| 20 69 73 20 61 20 74 79 | 70 65 20 33 20 5a 43 50 | is a ty|pe 3 ZCP|
|00000220| 52 33 33 20 75 74 69 6c | 69 74 79 2e 20 20 54 68 |R33 util|ity. Th|
|00000230| 65 20 73 75 70 70 6c 69 | 65 64 20 43 4f 4d 0d 0a |e suppli|ed COM..|
|00000240| 20 20 20 66 69 6c 65 73 | 20 61 72 65 20 6c 69 6e | files| are lin|
|00000250| 6b 65 64 20 74 6f 20 72 | 75 6e 20 61 74 20 31 30 |ked to r|un at 10|
|00000260| 30 48 20 61 6e 64 20 38 | 30 30 30 48 2e 20 20 54 |0H and 8|000H. T|
|00000270| 68 65 20 66 69 6c 65 20 | 66 6f 72 20 31 30 30 48 |he file |for 100H|
|00000280| 0d 0a 20 20 20 69 73 20 | 70 72 6f 76 69 64 65 64 |.. is |provided|
|00000290| 20 66 6f 72 20 75 73 65 | 20 69 6e 20 61 20 73 74 | for use| in a st|
|000002a0| 61 6e 64 61 72 64 20 43 | 50 2f 4d 20 32 2e 32 20 |andard C|P/M 2.2 |
|000002b0| 65 6e 76 69 72 6f 6e 6d | 65 6e 74 2e 0d 0a 20 20 |environm|ent... |
|000002c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000002d0| 20 2d 2d 20 43 68 61 6e | 20 57 65 62 62 2c 20 31 | -- Chan| Webb, 1|
|000002e0| 30 2f 32 30 2f 38 37 0d | 0a 1a 1a 1a 1a 1a 1a 1a |0/20/87.|........|
|000002f0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00000300| 3b 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;*******|********|
|00000310| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000320| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000330| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000340| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 0d 0a 3b 0d 0a 3b 20 |********|*..;..; |
|00000350| 56 65 72 73 69 6f 6e 20 | 32 2e 33 20 20 20 46 69 |Version |2.3 Fi|
|00000360| 78 65 64 20 62 75 66 66 | 65 72 20 70 6f 69 6e 74 |xed buff|er point|
|00000370| 65 72 20 74 6f 20 79 65 | 61 72 20 74 6f 20 70 72 |er to ye|ar to pr|
|00000380| 6f 70 65 72 6c 79 0d 0a | 3b 20 20 20 20 20 20 20 |operly..|; |
|00000390| 20 20 20 20 20 20 20 20 | 69 6e 63 72 65 6d 65 6e | |incremen|
|000003a0| 74 20 61 6e 64 20 75 70 | 64 61 74 65 20 59 45 41 |t and up|date YEA|
|000003b0| 52 20 6c 61 74 63 68 20 | 61 74 20 6e 65 77 20 79 |R latch |at new y|
|000003c0| 65 61 72 2e 0d 0a 3b 0d | 0a 3b 20 20 20 20 20 20 |ear...;.|.; |
|000003d0| 20 20 20 20 20 20 20 20 | 20 49 6e 63 6c 75 64 65 | | Include|
|000003e0| 64 20 2e 5a 38 30 20 70 | 73 65 75 64 6f 2d 6f 70 |d .Z80 p|seudo-op|
|000003f0| 20 66 6f 72 20 4d 69 63 | 72 6f 73 6f 66 74 20 4d | for Mic|rosoft M|
|00000400| 38 30 0d 0a 3b 20 20 20 | 20 20 20 20 20 20 20 20 |80..; | |
|00000410| 20 20 20 20 61 73 73 65 | 6d 62 6c 65 72 2e 0d 0a | asse|mbler...|
|00000420| 3b 0d 0a 3b 20 20 20 20 | 20 20 20 20 20 20 20 20 |;..; | |
|00000430| 20 20 20 20 20 20 20 20 | 20 20 20 43 68 61 6e 20 | | Chan |
|00000440| 57 65 62 62 20 2d 2d 20 | 4f 63 74 6f 62 65 72 20 |Webb -- |October |
|00000450| 32 30 2c 20 31 39 38 37 | 0d 0a 3b 0d 0a 3b 2a 2a |20, 1987|..;..;**|
|00000460| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000470| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000480| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000490| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000004a0| 2a 2a 2a 2a 2a 2a 0d 0a | 3b 0d 0a 3b 20 56 65 72 |******..|;..; Ver|
|000004b0| 73 69 6f 6e 20 32 2e 31 | 20 20 20 46 69 78 65 64 |sion 2.1| Fixed|
|000004c0| 20 64 61 79 73 20 74 61 | 62 6c 65 20 74 6f 20 69 | days ta|ble to i|
|000004d0| 6e 63 6c 75 64 65 20 54 | 75 65 73 64 61 79 20 61 |nclude T|uesday a|
|000004e0| 6e 64 20 69 6e 64 65 78 | 69 6e 67 0d 0a 3b 20 20 |nd index|ing..; |
|000004f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 6f 66 66 | | off|
|00000500| 73 65 74 20 69 6e 74 6f | 20 64 61 79 73 20 74 61 |set into| days ta|
|00000510| 62 6c 65 2e 0d 0a 3b 0d | 0a 3b 20 20 20 20 20 20 |ble...;.|.; |
|00000520| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000530| 20 52 69 63 68 61 72 64 | 20 4a 61 63 6f 62 73 6f | Richard| Jacobso|
|00000540| 6e 20 4a 75 6e 65 20 33 | 30 2c 20 31 39 38 37 0d |n June 3|0, 1987.|
|00000550| 0a 3b 0d 0a 3b 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |.;..;***|********|
|00000560| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000570| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000580| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000590| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 0d 0a 3b |********|*****..;|
|000005a0| 0d 0a 3b 20 56 65 72 73 | 69 6f 6e 20 32 2e 30 09 |..; Vers|ion 2.0.|
|000005b0| 46 69 78 65 64 20 73 74 | 61 63 6b 20 73 65 74 2d |Fixed st|ack set-|
|000005c0| 75 70 20 65 72 72 6f 72 | 2c 20 6d 6f 76 65 64 20 |up error|, moved |
|000005d0| 73 74 61 63 6b 20 61 6e | 64 20 73 74 72 69 6e 67 |stack an|d string|
|000005e0| 0d 0a 3b 09 09 62 75 66 | 66 65 72 73 20 74 6f 20 |..;..buf|fers to |
|000005f0| 44 53 45 47 20 61 74 20 | 65 6e 64 2c 20 70 72 69 |DSEG at |end, pri|
|00000600| 6e 74 20 22 31 39 38 37 | 22 20 72 61 74 68 65 72 |nt "1987|" rather|
|00000610| 20 74 68 61 6e 0d 0a 3b | 09 09 22 27 38 37 22 2c | than..;|.."'87",|
|00000620| 20 62 72 6f 6b 65 20 6f | 75 74 20 63 6f 6e 73 6f | broke o|ut conso|
|00000630| 6c 65 20 6f 75 74 70 75 | 74 20 73 74 75 66 66 20 |le outpu|t stuff |
|00000640| 74 6f 20 73 75 62 72 6f | 75 74 69 6e 65 73 0d 0a |to subro|utines..|
|00000650| 3b 09 09 61 6e 64 20 66 | 6f 72 6d 61 74 74 65 64 |;..and f|ormatted|
|00000660| 20 61 73 20 5a 43 50 52 | 33 33 20 74 79 70 65 20 | as ZCPR|33 type |
|00000670| 33 20 43 4f 4d 66 69 6c | 65 2e 20 20 57 69 6c 6c |3 COMfil|e. Will|
|00000680| 20 73 74 69 6c 6c 0d 0a | 3b 09 09 77 6f 72 6b 20 | still..|;..work |
|00000690| 6f 6e 20 6e 6f 6e 2d 5a | 33 33 2f 42 47 69 69 20 |on non-Z|33/BGii |
|000006a0| 73 79 73 74 65 6d 73 20 | 69 66 20 6c 69 6e 6b 65 |systems |if linke|
|000006b0| 64 20 61 74 20 31 30 30 | 48 20 28 75 73 65 0d 0a |d at 100|H (use..|
|000006c0| 3b 09 09 5a 54 30 31 30 | 30 2e 43 4f 4d 2c 20 5a |;..ZT010|0.COM, Z|
|000006d0| 54 38 30 30 30 2e 43 4f | 4d 20 69 73 20 6c 69 6e |T8000.CO|M is lin|
|000006e0| 6b 65 64 20 61 74 20 38 | 30 30 30 48 20 61 6e 64 |ked at 8|000H and|
|000006f0| 20 69 73 20 66 6f 72 0d | 0a 3b 09 09 66 6f 72 20 | is for.|.;..for |
|00000700| 5a 43 50 52 33 33 20 6f | 72 20 42 47 69 69 20 2d |ZCPR33 o|r BGii -|
|00000710| 20 31 2e 31 33 20 6f 72 | 20 6c 61 74 65 72 20 2d | 1.13 or| later -|
|00000720| 20 6f 6e 6c 79 29 2e 0d | 0a 3b 0d 0a 3b 09 09 09 | only)..|.;..;...|
|00000730| 42 72 75 63 65 20 4d 6f | 72 67 65 6e 20 40 31 31 |Bruce Mo|rgen @11|
|00000740| 3a 30 31 3a 31 31 20 4a | 75 6e 65 20 32 35 2c 20 |:01:11 J|une 25, |
|00000750| 31 39 38 37 0d 0a 3b 0d | 0a 3b 2a 2a 2a 2a 2a 2a |1987..;.|.;******|
|00000760| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000770| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000780| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000790| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000007a0| 2a 2a 0d 0a 3b 2a 09 09 | 09 09 09 09 09 09 09 2a |**..;*..|.......*|
|000007b0| 0d 0a 3b 2a 09 09 57 72 | 69 74 74 65 6e 20 62 79 |..;*..Wr|itten by|
|000007c0| 20 46 72 65 64 20 4d 61 | 78 77 65 6c 6c 20 61 6e | Fred Ma|xwell an|
|000007d0| 64 20 72 65 6c 65 61 73 | 65 64 20 69 6e 74 6f 20 |d releas|ed into |
|000007e0| 74 68 65 09 09 2a 0d 0a | 3b 2a 09 09 70 75 62 6c |the..*..|;*..publ|
|000007f0| 69 63 20 64 6f 6d 61 69 | 6e 20 69 6e 20 4a 61 6e |ic domai|n in Jan|
|00000800| 75 61 72 79 20 6f 66 20 | 31 39 38 37 2e 20 20 44 |uary of |1987. D|
|00000810| 6f 20 77 68 61 74 65 76 | 65 72 09 09 2a 0d 0a 3b |o whatev|er..*..;|
|00000820| 2a 09 09 79 6f 75 20 77 | 61 6e 74 20 77 69 74 68 |*..you w|ant with|
|00000830| 20 69 74 2c 20 62 75 74 | 20 70 6c 65 61 73 65 20 | it, but| please |
|00000840| 67 69 76 65 20 63 72 65 | 64 69 74 20 77 68 65 72 |give cre|dit wher|
|00000850| 65 09 09 2a 0d 0a 3b 2a | 09 09 63 72 65 64 69 74 |e..*..;*|..credit|
|00000860| 20 69 73 20 64 75 65 2e | 09 09 09 09 09 09 2a 0d | is due.|......*.|
|00000870| 0a 3b 2a 09 09 09 09 09 | 09 09 09 09 2a 0d 0a 3b |.;*.....|....*..;|
|00000880| 2a 09 5a 54 49 4d 45 2e | 4d 41 43 20 2d 20 54 68 |*.ZTIME.|MAC - Th|
|00000890| 69 73 20 70 72 6f 67 72 | 61 6d 20 72 65 61 64 73 |is progr|am reads|
|000008a0| 20 74 68 65 20 74 69 6d | 65 20 66 72 6f 6d 20 74 | the tim|e from t|
|000008b0| 68 65 20 4b 65 6e 6d 6f | 72 65 09 2a 0d 0a 3b 2a |he Kenmo|re.*..;*|
|000008c0| 09 09 43 6f 6d 70 75 74 | 65 72 20 54 65 63 68 6e |..Comput|er Techn|
|000008d0| 6f 6c 6f 67 69 65 73 20 | 5a 74 69 6d 65 2d 49 20 |ologies |Ztime-I |
|000008e0| 63 61 6c 65 6e 64 61 72 | 2f 63 6c 6f 63 6b 20 66 |calendar|/clock f|
|000008f0| 6f 72 09 2a 0d 0a 3b 2a | 09 09 5a 38 30 20 62 61 |or.*..;*|..Z80 ba|
|00000900| 73 65 64 20 73 79 73 74 | 65 6d 73 2e 20 20 49 74 |sed syst|ems. It|
|00000910| 20 69 73 20 61 73 73 75 | 6d 65 64 20 74 68 61 74 | is assu|med that|
|00000920| 20 74 68 65 20 63 6c 6f | 63 6b 09 2a 0d 0a 3b 2a | the clo|ck.*..;*|
|00000930| 09 09 69 73 20 61 64 64 | 72 65 73 73 65 64 20 74 |..is add|ressed t|
|00000940| 6f 20 49 2f 4f 20 61 64 | 64 72 65 73 73 20 45 30 |o I/O ad|dress E0|
|00000950| 68 2e 20 20 49 66 20 6e | 6f 74 2c 20 65 64 69 74 |h. If n|ot, edit|
|00000960| 09 09 2a 0d 0a 3b 2a 09 | 09 74 68 69 73 20 73 6f |..*..;*.|.this so|
|00000970| 75 72 63 65 20 66 69 6c | 65 20 61 6e 64 20 63 68 |urce fil|e and ch|
|00000980| 61 6e 67 65 20 42 41 53 | 45 20 74 6f 20 74 68 65 |ange BAS|E to the|
|00000990| 20 61 64 64 72 65 73 73 | 20 09 2a 0d 0a 3b 2a 09 | address| .*..;*.|
|000009a0| 09 74 68 61 74 20 79 6f | 75 20 68 61 76 65 20 79 |.that yo|u have y|
|000009b0| 6f 75 72 20 63 6c 6f 63 | 6b 20 61 64 64 72 65 73 |our cloc|k addres|
|000009c0| 73 65 64 20 74 6f 2e 09 | 54 68 65 72 65 09 09 2a |sed to..|There..*|
|000009d0| 0d 0a 3b 2a 09 09 68 61 | 73 20 62 65 65 6e 20 6e |..;*..ha|s been n|
|000009e0| 6f 20 61 74 74 65 6d 70 | 74 20 74 6f 20 6f 70 74 |o attemp|t to opt|
|000009f0| 69 6d 69 7a 65 20 74 68 | 69 73 20 70 72 6f 67 72 |imize th|is progr|
|00000a00| 61 6d 09 09 2a 0d 0a 3b | 2a 09 09 64 75 65 20 74 |am..*..;|*..due t|
|00000a10| 6f 20 69 74 73 20 69 6e | 68 65 72 65 6e 74 6c 79 |o its in|herently|
|00000a20| 20 73 6d 61 6c 6c 20 73 | 69 7a 65 20 61 6e 64 20 | small s|ize and |
|00000a30| 66 61 73 74 20 73 70 65 | 65 64 2e 09 2a 0d 0a 3b |fast spe|ed..*..;|
|00000a40| 2a 09 09 49 74 20 77 61 | 73 20 77 72 69 74 74 65 |*..It wa|s writte|
|00000a50| 6e 20 77 69 74 68 20 6c | 65 67 69 62 69 6c 69 74 |n with l|egibilit|
|00000a60| 79 20 69 6e 20 6d 69 6e | 64 2e 20 20 54 6f 09 09 |y in min|d. To..|
|00000a70| 2a 0d 0a 3b 2a 09 09 63 | 6f 6d 70 69 6c 65 20 74 |*..;*..c|ompile t|
|00000a80| 68 69 73 20 70 72 6f 67 | 72 61 6d 2c 20 75 73 65 |his prog|ram, use|
|00000a90| 20 5a 38 30 41 53 4d 20 | 6f 72 20 5a 38 30 41 53 | Z80ASM |or Z80AS|
|00000aa0| 4d 50 28 2b 29 09 09 2a | 0d 0a 3b 2a 09 09 66 72 |MP(+)..*|..;*..fr|
|00000ab0| 6f 6d 20 53 4c 52 20 73 | 79 73 74 65 6d 73 2e 20 |om SLR s|ystems. |
|00000ac0| 20 54 68 69 73 20 69 73 | 20 54 48 45 20 42 45 53 | This is| THE BES|
|00000ad0| 54 20 5a 38 30 20 61 73 | 73 65 6d 62 6c 65 72 09 |T Z80 as|sembler.|
|00000ae0| 2a 0d 0a 3b 2a 09 09 61 | 76 61 69 6c 61 62 6c 65 |*..;*..a|vailable|
|00000af0| 20 61 6e 64 20 69 74 27 | 73 20 66 72 6f 6d 20 61 | and it'|s from a|
|00000b00| 20 63 6f 6d 70 61 6e 79 | 20 74 68 61 74 20 69 73 | company| that is|
|00000b10| 20 73 74 69 6c 6c 20 09 | 2a 0d 0a 3b 2a 09 09 61 | still .|*..;*..a|
|00000b20| 63 74 69 76 65 6c 79 20 | 73 75 70 70 6f 72 74 69 |ctively |supporti|
|00000b30| 6e 67 20 43 50 2f 4d 20 | 75 73 65 72 73 2e 20 20 |ng CP/M |users. |
|00000b40| 4c 65 74 27 73 20 73 75 | 70 70 6f 72 74 09 09 2a |Let's su|pport..*|
|00000b50| 0d 0a 3b 2a 09 09 74 68 | 65 6d 20 62 79 20 62 75 |..;*..th|em by bu|
|00000b60| 79 69 6e 67 20 74 68 65 | 69 72 20 70 72 6f 64 75 |ying the|ir produ|
|00000b70| 63 74 73 2e 09 09 09 09 | 2a 0d 0a 3b 2a 09 09 09 |cts.....|*..;*...|
|00000b80| 09 09 09 09 09 09 2a 0d | 0a 3b 2a 09 09 09 54 68 |......*.|.;*...Th|
|00000b90| 69 73 20 70 72 6f 67 72 | 61 6d 20 77 69 6c 6c 20 |is progr|am will |
|00000ba0| 70 72 69 6e 74 20 74 68 | 65 20 64 61 74 65 20 6f |print th|e date o|
|00000bb0| 75 74 20 61 73 20 09 2a | 0d 0a 3b 2a 09 09 73 68 |ut as .*|..;*..sh|
|00000bc0| 6f 77 6e 20 62 65 6c 6f | 77 3a 09 09 09 09 09 09 |own belo|w:......|
|00000bd0| 2a 0d 0a 3b 2a 09 09 09 | 09 09 09 09 09 09 2a 0d |*..;*...|......*.|
|00000be0| 0a 3b 2a 09 09 53 75 6e | 64 61 79 09 4a 61 6e 75 |.;*..Sun|day.Janu|
|00000bf0| 61 72 79 20 31 38 2c 20 | 27 38 37 20 20 30 37 3a |ary 18, |'87 07:|
|00000c00| 34 33 3a 32 36 09 09 09 | 2a 0d 0a 3b 2a 09 09 09 |43:26...|*..;*...|
|00000c10| 09 09 09 09 09 09 2a 0d | 0a 3b 2a 09 09 2a 20 2a |......*.|.;*..* *|
|00000c20| 20 2a 20 2a 20 2a 20 2a | 20 2a 20 2a 20 53 50 45 | * * * *| * * SPE|
|00000c30| 43 49 41 4c 20 46 45 41 | 54 55 52 45 20 2a 20 2a |CIAL FEA|TURE * *|
|00000c40| 20 2a 20 2a 20 2a 20 2a | 20 2a 20 2a 20 09 2a 0d | * * * *| * * .*.|
|00000c50| 0a 3b 2a 09 09 09 09 09 | 09 09 09 09 2a 0d 0a 3b |.;*.....|....*..;|
|00000c60| 2a 09 09 54 68 69 73 20 | 70 72 6f 67 72 61 6d 20 |*..This |program |
|00000c70| 77 69 6c 6c 20 6b 65 65 | 70 20 74 68 65 20 79 65 |will kee|p the ye|
|00000c80| 61 72 20 63 6f 72 72 65 | 63 74 20 61 73 20 6c 6f |ar corre|ct as lo|
|00000c90| 6e 67 20 09 2a 0d 0a 3b | 2a 09 09 61 73 20 69 74 |ng .*..;|*..as it|
|00000ca0| 20 69 73 20 72 75 6e 20 | 61 74 20 6c 65 61 73 74 | is run |at least|
|00000cb0| 20 6f 6e 63 65 20 65 76 | 65 72 79 20 35 20 6d 6f | once ev|ery 5 mo|
|00000cc0| 6e 74 68 73 2e 20 20 49 | 74 09 09 2a 0d 0a 3b 2a |nths. I|t..*..;*|
|00000cd0| 09 09 64 6f 65 73 20 74 | 68 69 73 20 62 79 20 73 |..does t|his by s|
|00000ce0| 74 6f 72 69 6e 67 20 74 | 68 65 20 79 65 61 72 20 |toring t|he year |
|00000cf0| 69 6e 20 61 20 6c 61 74 | 63 68 20 69 6e 20 74 68 |in a lat|ch in th|
|00000d00| 65 20 09 2a 0d 0a 3b 2a | 09 09 35 38 31 36 37 20 |e .*..;*|..58167 |
|00000d10| 63 6c 6f 63 6b 20 63 68 | 69 70 2e 20 20 49 74 20 |clock ch|ip. It |
|00000d20| 61 6c 73 6f 20 73 74 6f | 72 65 73 20 74 68 65 20 |also sto|res the |
|00000d30| 6d 6f 6e 74 68 20 69 6e | 09 09 2a 0d 0a 3b 2a 09 |month in|..*..;*.|
|00000d40| 09 61 6e 6f 74 68 65 72 | 20 6c 61 74 63 68 2e 09 |.another| latch..|
|00000d50| 57 68 65 6e 20 74 68 65 | 20 74 69 6d 65 20 69 73 |When the| time is|
|00000d60| 20 72 65 61 64 2c 20 74 | 68 65 09 09 2a 0d 0a 3b | read, t|he..*..;|
|00000d70| 2a 09 09 63 75 72 72 65 | 6e 74 20 6d 6f 6e 74 68 |*..curre|nt month|
|00000d80| 20 69 73 20 63 6f 6d 70 | 61 72 65 64 20 74 6f 20 | is comp|ared to |
|00000d90| 74 68 65 20 6d 6f 6e 74 | 68 20 73 74 6f 72 65 64 |the mont|h stored|
|00000da0| 09 09 2a 0d 0a 3b 2a 09 | 09 69 6e 20 74 68 65 20 |..*..;*.|.in the |
|00000db0| 6c 61 74 63 68 2e 20 20 | 49 66 20 74 68 65 20 63 |latch. |If the c|
|00000dc0| 75 72 72 65 6e 74 20 6d | 6f 6e 74 68 20 6e 75 6d |urrent m|onth num|
|00000dd0| 62 65 72 20 69 73 09 09 | 2a 0d 0a 3b 2a 09 09 6c |ber is..|*..;*..l|
|00000de0| 6f 77 65 72 20 74 68 61 | 6e 20 74 68 65 20 6d 6f |ower tha|n the mo|
|00000df0| 6e 74 68 20 6e 75 6d 62 | 65 72 20 69 6e 20 74 68 |nth numb|er in th|
|00000e00| 65 20 6c 61 74 63 68 2c | 20 74 68 65 09 09 2a 0d |e latch,| the..*.|
|00000e10| 0a 3b 2a 09 09 79 65 61 | 72 20 69 73 20 69 6e 63 |.;*..yea|r is inc|
|00000e20| 72 65 6d 65 6e 74 65 64 | 20 62 79 20 6f 6e 65 20 |remented| by one |
|00000e30| 61 6e 64 20 73 74 6f 72 | 65 64 20 62 61 63 6b 20 |and stor|ed back |
|00000e40| 69 6e 09 09 2a 0d 0a 3b | 2a 09 09 74 68 65 20 6c |in..*..;|*..the l|
|00000e50| 61 74 63 68 2e 09 09 09 | 09 09 09 2a 0d 0a 3b 2a |atch....|...*..;*|
|00000e60| 09 09 09 09 09 09 09 09 | 09 2a 0d 0a 3b 2a 2a 2a |........|.*..;***|
|00000e70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000eb0| 2a 2a 2a 2a 2a 0d 0a 0d | 0a 2e 5a 38 30 0d 0a 0d |*****...|..Z80...|
|00000ec0| 0a 42 41 53 45 09 45 51 | 55 09 30 45 30 48 09 09 |.BASE.EQ|U.0E0H..|
|00000ed0| 3b 20 54 68 69 73 20 69 | 73 20 74 68 65 20 62 61 |; This i|s the ba|
|00000ee0| 73 65 20 61 64 64 72 65 | 73 73 20 6f 66 20 74 68 |se addre|ss of th|
|00000ef0| 65 20 35 38 31 36 37 2e | 0d 0a 0d 0a 53 45 43 09 |e 58167.|....SEC.|
|00000f00| 45 51 55 09 42 41 53 45 | 2b 30 32 48 09 3b 20 53 |EQU.BASE|+02H.; S|
|00000f10| 65 63 6f 6e 64 20 63 6f | 75 6e 74 65 72 2e 0d 0a |econd co|unter...|
|00000f20| 4d 49 4e 09 45 51 55 09 | 42 41 53 45 2b 30 33 48 |MIN.EQU.|BASE+03H|
|00000f30| 09 3b 20 4d 69 6e 75 74 | 65 20 63 6f 75 6e 74 65 |.; Minut|e counte|
|00000f40| 72 2e 0d 0a 48 4f 55 52 | 09 45 51 55 09 42 41 53 |r...HOUR|.EQU.BAS|
|00000f50| 45 2b 30 34 48 09 3b 20 | 48 6f 75 72 20 63 6f 75 |E+04H.; |Hour cou|
|00000f60| 6e 74 65 72 2e 0d 0a 44 | 41 59 09 45 51 55 09 42 |nter...D|AY.EQU.B|
|00000f70| 41 53 45 2b 30 35 48 09 | 3b 20 44 61 79 20 6f 66 |ASE+05H.|; Day of|
|00000f80| 20 77 65 65 6b 20 63 6f | 75 6e 74 65 72 2e 0d 0a | week co|unter...|
|00000f90| 44 41 54 45 09 45 51 55 | 09 42 41 53 45 2b 30 36 |DATE.EQU|.BASE+06|
|00000fa0| 48 09 3b 20 44 61 74 65 | 20 6f 66 20 6d 6f 6e 74 |H.; Date| of mont|
|00000fb0| 68 20 63 6f 75 6e 74 65 | 72 2e 0d 0a 4d 4f 4e 54 |h counte|r...MONT|
|00000fc0| 48 09 45 51 55 09 42 41 | 53 45 2b 30 37 48 09 3b |H.EQU.BA|SE+07H.;|
|00000fd0| 20 4d 6f 6e 74 68 20 63 | 6f 75 6e 74 65 72 2e 0d | Month c|ounter..|
|00000fe0| 0a 0d 0a 59 45 41 52 09 | 45 51 55 09 42 41 53 45 |...YEAR.|EQU.BASE|
|00000ff0| 2b 30 39 48 09 3b 20 31 | 31 73 20 6c 61 74 63 68 |+09H.; 1|1s latch|
|00001000| 20 77 68 65 72 65 20 77 | 65 20 73 74 6f 72 65 20 | where w|e store |
|00001010| 79 65 61 72 2e 0d 0a 50 | 52 56 4d 4f 4e 09 45 51 |year...P|RVMON.EQ|
|00001020| 55 09 42 41 53 45 2b 30 | 46 48 09 3b 20 4d 6f 6e |U.BASE+0|FH.; Mon|
|00001030| 74 68 20 6f 6e 20 6c 61 | 73 74 20 63 6c 6f 63 6b |th on la|st clock|
|00001040| 20 61 63 63 65 73 73 2e | 0d 0a 0d 0a 42 44 4f 53 | access.|....BDOS|
|00001050| 09 45 51 55 09 30 30 30 | 30 35 48 09 09 3b 20 41 |.EQU.000|05H..; A|
|00001060| 64 64 72 65 73 73 20 6f | 66 20 42 44 4f 53 20 65 |ddress o|f BDOS e|
|00001070| 6e 74 72 79 20 70 6f 69 | 6e 74 2e 0d 0a 0d 0a 5a |ntry poi|nt.....Z|
|00001080| 54 49 4d 45 3a 0d 0a 09 | 4a 50 09 53 54 41 52 54 |TIME:...|JP.START|
|00001090| 0d 0a 09 44 42 09 27 5a | 33 45 4e 56 27 2c 33 0d |...DB.'Z|3ENV',3.|
|000010a0| 0a 09 44 57 09 30 30 0d | 0a 09 44 57 09 5a 54 49 |..DW.00.|..DW.ZTI|
|000010b0| 4d 45 0d 0a 44 41 59 53 | 3a 09 09 09 09 3b 20 37 |ME..DAYS|:....; 7|
|000010c0| 20 44 61 79 73 20 78 20 | 31 32 20 62 79 74 65 73 | Days x |12 bytes|
|000010d0| 20 70 65 72 20 64 61 79 | 20 28 38 34 20 62 79 74 | per day| (84 byt|
|000010e0| 65 73 29 2e 0d 0a 09 44 | 42 09 27 53 75 6e 64 61 |es)....D|B.'Sunda|
|000010f0| 79 20 20 24 20 20 20 27 | 0d 0a 09 44 42 09 27 4d |y $ '|...DB.'M|
|00001100| 6f 6e 64 61 79 20 20 24 | 20 20 20 27 0d 0a 09 44 |onday $| '...D|
|00001110| 42 09 27 54 75 65 73 64 | 61 79 20 20 24 20 20 27 |B.'Tuesd|ay $ '|
|00001120| 0d 0a 09 44 42 09 27 57 | 65 64 6e 65 73 64 61 79 |...DB.'W|ednesday|
|00001130| 20 20 24 27 0d 0a 09 44 | 42 09 27 54 68 75 72 73 | $'...D|B.'Thurs|
|00001140| 64 61 79 20 20 24 20 27 | 0d 0a 09 44 42 09 27 46 |day $ '|...DB.'F|
|00001150| 72 69 64 61 79 20 20 24 | 20 20 20 27 0d 0a 09 44 |riday $| '...D|
|00001160| 42 09 27 53 61 74 75 72 | 64 61 79 20 20 24 20 27 |B.'Satur|day $ '|
|00001170| 0d 0a 0d 0a 4d 4f 4e 54 | 48 53 3a 09 09 09 09 3b |....MONT|HS:....;|
|00001180| 20 31 32 20 6d 6f 6e 74 | 68 73 20 78 20 31 31 20 | 12 mont|hs x 11 |
|00001190| 62 79 74 65 73 20 70 65 | 72 20 6d 6f 6e 74 68 20 |bytes pe|r month |
|000011a0| 28 31 33 32 20 62 79 74 | 65 73 29 2e 0d 0a 09 44 |(132 byt|es)....D|
|000011b0| 42 09 27 4a 61 6e 75 61 | 72 79 20 24 20 20 27 0d |B.'Janua|ry $ '.|
|000011c0| 0a 09 44 42 09 27 46 65 | 62 72 75 61 72 79 20 24 |..DB.'Fe|bruary $|
|000011d0| 20 27 0d 0a 09 44 42 09 | 27 4d 61 72 63 68 20 24 | '...DB.|'March $|
|000011e0| 20 20 20 20 27 0d 0a 09 | 44 42 09 27 41 70 72 69 | '...|DB.'Apri|
|000011f0| 6c 20 24 20 20 20 20 27 | 0d 0a 09 44 42 09 27 4d |l $ '|...DB.'M|
|00001200| 61 79 20 24 20 20 20 20 | 20 20 27 0d 0a 09 44 42 |ay $ | '...DB|
|00001210| 09 27 4a 75 6e 65 20 24 | 20 20 20 20 20 27 0d 0a |.'June $| '..|
|00001220| 09 44 42 09 27 4a 75 6c | 79 20 24 20 20 20 20 20 |.DB.'Jul|y $ |
|00001230| 27 0d 0a 09 44 42 09 27 | 41 75 67 75 73 74 20 24 |'...DB.'|August $|
|00001240| 20 20 20 27 0d 0a 09 44 | 42 09 27 53 65 70 74 65 | '...D|B.'Septe|
|00001250| 6d 62 65 72 20 24 27 0d | 0a 09 44 42 09 27 4f 63 |mber $'.|..DB.'Oc|
|00001260| 74 6f 62 65 72 20 24 20 | 20 27 0d 0a 09 44 42 09 |tober $ | '...DB.|
|00001270| 27 4e 6f 76 65 6d 62 65 | 72 20 24 20 27 0d 0a 09 |'Novembe|r $ '...|
|00001280| 44 42 09 27 44 65 63 65 | 6d 62 65 72 20 24 20 27 |DB.'Dece|mber $ '|
|00001290| 0d 0a 0d 0a 53 45 50 41 | 52 41 54 45 52 3a 0d 0a |....SEPA|RATER:..|
|000012a0| 09 44 42 09 27 2c 20 31 | 39 24 27 09 09 3b 20 42 |.DB.', 1|9$'..; B|
|000012b0| 65 74 77 65 65 6e 20 64 | 61 79 20 6f 66 20 6d 6f |etween d|ay of mo|
|000012c0| 6e 74 68 20 61 6e 64 20 | 79 65 61 72 2e 0d 0a 0d |nth and |year....|
|000012d0| 0a 53 50 41 43 45 53 3a | 0d 0a 09 44 42 09 27 20 |.SPACES:|...DB.' |
|000012e0| 2d 20 24 27 09 09 3b 20 | 42 65 74 77 65 65 6e 20 |- $'..; |Between |
|000012f0| 64 61 74 65 20 61 6e 64 | 20 74 69 6d 65 2e 0d 0a |date and| time...|
|00001300| 0d 0a 43 52 4c 46 3a 0d | 0a 09 44 42 09 30 44 48 |..CRLF:.|..DB.0DH|
|00001310| 2c 30 41 48 2c 27 24 27 | 09 3b 20 43 61 72 72 69 |,0AH,'$'|.; Carri|
|00001320| 61 67 65 20 52 65 74 75 | 72 6e 2c 20 4c 69 6e 65 |age Retu|rn, Line|
|00001330| 66 65 65 64 2e 0d 0a 0d | 0a 53 54 41 52 54 3a 0d |feed....|.START:.|
|00001340| 0a 09 4c 44 09 28 53 54 | 41 43 4b 29 2c 53 50 0d |..LD.(ST|ACK),SP.|
|00001350| 0a 09 4c 44 09 53 50 2c | 53 54 41 43 4b 09 3b 20 |..LD.SP,|STACK.; |
|00001360| 55 73 65 20 69 6e 74 65 | 72 6e 61 6c 20 73 74 61 |Use inte|rnal sta|
|00001370| 63 6b 2e 0d 0a 0d 0a 09 | 43 41 4c 4c 09 43 52 4c |ck......|CALL.CRL|
|00001380| 46 53 54 0d 0a 0d 0a 09 | 4c 44 09 48 4c 2c 42 55 |FST.....|LD.HL,BU|
|00001390| 46 46 45 52 09 3b 20 3c | 48 4c 3e 20 2d 2d 2d 2d |FFER.; <|HL> ----|
|000013a0| 3e 20 44 61 74 65 20 62 | 75 66 66 65 72 20 28 37 |> Date b|uffer (7|
|000013b0| 20 62 79 74 65 73 29 0d | 0a 09 43 41 4c 4c 09 52 | bytes).|..CALL.R|
|000013c0| 44 43 4c 4f 4b 09 09 3b | 20 47 65 74 20 64 61 74 |DCLOK..;| Get dat|
|000013d0| 65 20 26 20 74 69 6d 65 | 20 69 6e 74 6f 20 62 75 |e & time| into bu|
|000013e0| 66 66 65 72 20 69 6e 20 | 70 61 63 6b 65 64 20 42 |ffer in |packed B|
|000013f0| 43 44 2e 0d 0a 0d 0a 44 | 41 59 5f 50 52 49 4e 54 |CD.....D|AY_PRINT|
|00001400| 3a 0d 0a 09 4c 44 09 41 | 2c 28 48 4c 29 09 09 3b |:...LD.A|,(HL)..;|
|00001410| 20 47 65 74 20 64 61 79 | 20 6e 75 6d 62 65 72 20 | Get day| number |
|00001420| 69 6e 74 6f 20 3c 41 3e | 0d 0a 0d 0a 09 49 4e 43 |into <A>|.....INC|
|00001430| 09 48 4c 09 09 3b 20 50 | 6f 69 6e 74 20 74 6f 20 |.HL..; P|oint to |
|00001440| 6d 6f 6e 74 68 0d 0a 09 | 50 55 53 48 09 48 4c 0d |month...|PUSH.HL.|
|00001450| 0a 0d 0a 09 44 45 43 09 | 41 09 09 3b 20 30 20 3d |....DEC.|A..; 0 =|
|00001460| 20 53 75 6e 64 61 79 2c | 20 31 20 3d 20 4d 6f 6e | Sunday,| 1 = Mon|
|00001470| 64 61 79 2c 20 2e 2e 2e | 2c 20 36 20 3d 20 53 61 |day, ...|, 6 = Sa|
|00001480| 74 75 72 64 61 79 2e 0d | 0a 09 4c 44 09 42 2c 41 |turday..|..LD.B,A|
|00001490| 09 09 3b 20 3c 42 3e 20 | 3d 20 64 61 79 20 78 20 |..; <B> |= day x |
|000014a0| 31 0d 0a 09 41 44 44 09 | 41 2c 41 09 09 3b 20 58 |1...ADD.|A,A..; X|
|000014b0| 20 32 0d 0a 09 41 44 44 | 09 41 2c 41 09 09 3b 20 | 2...ADD|.A,A..; |
|000014c0| 58 20 34 0d 0a 09 41 44 | 44 09 41 2c 42 09 09 3b |X 4...AD|D.A,B..;|
|000014d0| 20 58 20 35 0d 0a 09 41 | 44 44 09 41 2c 41 09 09 | X 5...A|DD.A,A..|
|000014e0| 3b 20 58 20 31 30 0d 0a | 09 41 44 44 09 41 2c 42 |; X 10..|.ADD.A,B|
|000014f0| 09 09 3b 20 58 20 31 31 | 0d 0a 09 41 44 44 09 41 |..; X 11|...ADD.A|
|00001500| 2c 42 09 09 3b 20 58 20 | 31 32 0d 0a 09 4c 44 09 |,B..; X |12...LD.|
|00001510| 45 2c 41 09 09 3b 20 3c | 45 3e 20 3d 20 44 61 79 |E,A..; <|E> = Day|
|00001520| 20 78 20 31 32 20 3d 20 | 6f 66 66 73 65 74 20 69 | x 12 = |offset i|
|00001530| 6e 74 6f 20 64 61 79 20 | 6e 61 6d 65 20 74 61 62 |nto day |name tab|
|00001540| 6c 65 2e 0d 0a 09 4c 44 | 09 44 2c 30 09 09 3b 20 |le....LD|.D,0..; |
|00001550| 3c 44 45 3e 20 3d 20 4f | 66 66 73 65 74 0d 0a 09 |<DE> = O|ffset...|
|00001560| 4c 44 09 48 4c 2c 44 41 | 59 53 09 09 3b 20 3c 48 |LD.HL,DA|YS..; <H|
|00001570| 4c 3e 20 70 6f 69 6e 74 | 73 20 74 6f 20 74 61 62 |L> point|s to tab|
|00001580| 6c 65 20 6f 66 20 64 61 | 79 73 2e 0d 0a 09 41 44 |le of da|ys....AD|
|00001590| 44 09 48 4c 2c 44 45 09 | 09 3b 20 3c 48 4c 3e 20 |D.HL,DE.|.; <HL> |
|000015a0| 70 6f 69 6e 74 73 20 74 | 6f 20 6e 61 6d 65 20 6f |points t|o name o|
|000015b0| 66 20 64 61 79 2e 0d 0a | 09 45 58 09 44 45 2c 48 |f day...|.EX.DE,H|
|000015c0| 4c 09 09 3b 20 3c 44 45 | 3e 20 70 6f 69 6e 74 73 |L..; <DE|> points|
|000015d0| 20 74 6f 20 6e 61 6d 65 | 20 6f 66 20 64 61 79 2e | to name| of day.|
|000015e0| 0d 0a 09 43 41 4c 4c 09 | 42 50 53 54 52 0d 0a 0d |...CALL.|BPSTR...|
|000015f0| 0a 4d 4f 4e 54 48 5f 50 | 52 49 4e 54 3a 0d 0a 09 |.MONTH_P|RINT:...|
|00001600| 50 4f 50 09 48 4c 09 09 | 3b 20 47 65 74 20 70 6f |POP.HL..|; Get po|
|00001610| 69 6e 74 65 72 20 74 6f | 20 6d 6f 6e 74 68 2e 0d |inter to| month..|
|00001620| 0a 09 58 4f 52 09 41 09 | 09 3b 20 5a 65 72 6f 20 |..XOR.A.|.; Zero |
|00001630| 61 63 63 75 6d 75 6c 61 | 74 6f 72 2e 0d 0a 09 4c |accumula|tor....L|
|00001640| 44 09 42 2c 41 09 09 3b | 20 5a 65 72 6f 20 72 65 |D.B,A..;| Zero re|
|00001650| 67 69 73 74 65 72 20 3c | 42 3e 2e 0d 0a 09 52 4c |gister <|B>....RL|
|00001660| 44 09 09 09 3b 20 47 65 | 74 20 74 65 6e 73 20 64 |D...; Ge|t tens d|
|00001670| 69 67 69 74 2e 0d 0a 09 | 4a 52 09 5a 2c 42 49 4e |igit....|JR.Z,BIN|
|00001680| 41 52 59 09 3b 20 49 74 | 27 73 20 6c 65 73 73 20 |ARY.; It|'s less |
|00001690| 74 68 61 6e 20 31 30 20 | 69 66 20 64 69 67 69 74 |than 10 |if digit|
|000016a0| 20 69 73 20 30 0d 0a 0d | 0a 09 4c 44 09 42 2c 31 | is 0...|..LD.B,1|
|000016b0| 30 09 09 3b 20 41 64 64 | 20 74 68 69 73 20 74 6f |0..; Add| this to|
|000016c0| 20 6c 6f 77 20 6e 69 62 | 62 6c 65 20 74 6f 20 6d | low nib|ble to m|
|000016d0| 61 6b 65 20 62 69 6e 61 | 72 79 2e 0d 0a 0d 0a 42 |ake bina|ry.....B|
|000016e0| 49 4e 41 52 59 3a 0d 0a | 09 52 4c 44 09 09 09 3b |INARY:..|.RLD...;|
|000016f0| 20 47 65 74 20 6f 6e 65 | 73 20 64 69 67 69 74 20 | Get one|s digit |
|00001700| 69 6e 74 6f 20 3c 41 3e | 2e 0d 0a 09 41 44 44 09 |into <A>|....ADD.|
|00001710| 41 2c 42 09 09 3b 20 41 | 64 64 20 74 65 6e 73 20 |A,B..; A|dd tens |
|00001720| 64 69 67 69 74 2e 0d 0a | 0d 0a 09 49 4e 43 09 48 |digit...|...INC.H|
|00001730| 4c 09 09 3b 20 50 6f 69 | 6e 74 20 74 6f 20 64 61 |L..; Poi|nt to da|
|00001740| 74 65 2e 0d 0a 09 50 55 | 53 48 09 48 4c 09 09 3b |te....PU|SH.HL..;|
|00001750| 20 53 61 76 65 20 70 6f | 69 6e 74 65 72 0d 0a 0d | Save po|inter...|
|00001760| 0a 09 4c 44 09 42 2c 41 | 09 09 3b 20 53 61 76 65 |..LD.B,A|..; Save|
|00001770| 20 50 61 63 6b 65 64 20 | 42 43 44 20 6d 6f 6e 74 | Packed |BCD mont|
|00001780| 68 20 6e 75 6d 62 65 72 | 2e 0d 0a 0d 0a 09 44 45 |h number|......DE|
|00001790| 43 09 41 09 09 3b 20 30 | 20 3d 20 4a 61 6e 2e 2c |C.A..; 0| = Jan.,|
|000017a0| 20 31 20 3d 20 46 65 62 | 2c 20 2e 2e 2e 2c 20 31 | 1 = Feb|, ..., 1|
|000017b0| 31 20 3d 20 44 65 63 2e | 0d 0a 09 4c 44 09 42 2c |1 = Dec.|...LD.B,|
|000017c0| 41 09 09 3b 20 3c 42 3e | 20 3d 20 6d 6f 6e 74 68 |A..; <B>| = month|
|000017d0| 20 78 20 31 0d 0a 09 41 | 44 44 09 41 2c 41 09 09 | x 1...A|DD.A,A..|
|000017e0| 3b 20 58 20 32 0d 0a 09 | 41 44 44 09 41 2c 41 09 |; X 2...|ADD.A,A.|
|000017f0| 09 3b 20 58 20 34 0d 0a | 09 41 44 44 09 41 2c 42 |.; X 4..|.ADD.A,B|
|00001800| 09 09 3b 20 58 20 35 0d | 0a 09 41 44 44 09 41 2c |..; X 5.|..ADD.A,|
|00001810| 41 09 09 3b 20 58 20 31 | 30 0d 0a 20 20 09 41 44 |A..; X 1|0.. .AD|
|00001820| 44 09 41 2c 42 09 09 3b | 20 58 20 31 31 0d 0a 0d |D.A,B..;| X 11...|
|00001830| 0a 09 4c 44 09 45 2c 41 | 09 09 3b 20 3c 45 3e 20 |..LD.E,A|..; <E> |
|00001840| 3d 20 44 61 79 20 78 20 | 31 31 20 3d 20 6f 66 66 |= Day x |11 = off|
|00001850| 73 65 74 20 69 6e 74 6f | 20 6d 6f 6e 74 68 20 74 |set into| month t|
|00001860| 61 62 6c 65 2e 0d 0a 09 | 4c 44 09 44 2c 30 09 09 |able....|LD.D,0..|
|00001870| 3b 20 3c 44 45 3e 20 3d | 20 4f 66 66 73 65 74 0d |; <DE> =| Offset.|
|00001880| 0a 09 4c 44 09 48 4c 2c | 4d 4f 4e 54 48 53 09 3b |..LD.HL,|MONTHS.;|
|00001890| 20 3c 48 4c 3e 20 70 6f | 69 6e 74 73 20 74 6f 20 | <HL> po|ints to |
|000018a0| 74 61 62 6c 65 20 6f 66 | 20 6d 6f 6e 74 68 73 2e |table of| months.|
|000018b0| 0d 0a 09 41 44 44 09 48 | 4c 2c 44 45 09 09 3b 20 |...ADD.H|L,DE..; |
|000018c0| 3c 48 4c 3e 20 70 6f 69 | 6e 74 73 20 74 6f 20 6e |<HL> poi|nts to n|
|000018d0| 61 6d 65 20 6f 66 20 6d | 6f 6e 74 68 2e 0d 0a 09 |ame of m|onth....|
|000018e0| 45 58 09 44 45 2c 48 4c | 09 09 3b 20 3c 44 45 3e |EX.DE,HL|..; <DE>|
|000018f0| 20 70 6f 69 6e 74 73 20 | 74 6f 20 6e 61 6d 65 20 | points |to name |
|00001900| 6f 66 20 6d 6f 6e 74 68 | 2e 0d 0a 09 43 41 4c 4c |of month|....CALL|
|00001910| 09 42 50 53 54 52 0d 0a | 0d 0a 44 41 54 45 5f 50 |.BPSTR..|..DATE_P|
|00001920| 52 49 4e 54 3a 0d 0a 09 | 50 4f 50 09 48 4c 09 09 |RINT:...|POP.HL..|
|00001930| 3b 20 47 65 74 20 70 6f | 69 6e 74 65 72 20 74 6f |; Get po|inter to|
|00001940| 20 64 61 74 65 20 28 70 | 61 63 6b 65 64 20 42 43 | date (p|acked BC|
|00001950| 44 29 2e 0d 0a 09 4c 44 | 09 41 2c 28 48 4c 29 09 |D)....LD|.A,(HL).|
|00001960| 09 3b 20 47 65 74 20 70 | 61 63 6b 65 64 20 42 43 |.; Get p|acked BC|
|00001970| 44 20 69 6e 74 6f 20 3c | 41 3e 2e 0d 0a 0d 0a 09 |D into <|A>......|
|00001980| 49 4e 43 09 48 4c 09 09 | 3b 20 50 6f 69 6e 74 20 |INC.HL..|; Point |
|00001990| 74 6f 20 79 65 61 72 2e | 0d 0a 09 50 55 53 48 09 |to year.|...PUSH.|
|000019a0| 48 4c 09 09 3b 20 53 61 | 76 65 20 70 6f 69 6e 74 |HL..; Sa|ve point|
|000019b0| 65 72 2e 0d 0a 0d 0a 09 | 43 41 4c 4c 09 42 43 44 |er......|CALL.BCD|
|000019c0| 5f 50 52 49 4e 54 09 3b | 20 50 72 69 6e 74 20 32 |_PRINT.;| Print 2|
|000019d0| 20 64 69 67 69 74 73 20 | 6f 66 20 64 61 74 65 2e | digits |of date.|
|000019e0| 0d 0a 09 4c 44 09 44 45 | 2c 53 45 50 41 52 41 54 |...LD.DE|,SEPARAT|
|000019f0| 45 52 09 3b 20 50 72 69 | 6e 74 20 27 2c 20 31 39 |ER.; Pri|nt ', 19|
|00001a00| 27 2e 0d 0a 09 43 41 4c | 4c 09 42 50 53 54 52 0d |'....CAL|L.BPSTR.|
|00001a10| 0a 0d 0a 59 45 41 52 5f | 50 52 49 4e 54 3a 0d 0a |...YEAR_|PRINT:..|
|00001a20| 09 50 4f 50 09 48 4c 09 | 09 3b 20 47 65 74 20 70 |.POP.HL.|.; Get p|
|00001a30| 6f 69 6e 74 65 72 20 74 | 6f 20 79 65 61 72 20 28 |ointer t|o year (|
|00001a40| 70 61 63 6b 65 64 20 42 | 43 44 29 2e 0d 0a 09 4c |packed B|CD)....L|
|00001a50| 44 09 41 2c 28 48 4c 29 | 09 09 3b 20 47 65 74 20 |D.A,(HL)|..; Get |
|00001a60| 70 61 63 6b 65 64 20 42 | 43 44 20 69 6e 74 6f 20 |packed B|CD into |
|00001a70| 3c 41 3e 2e 0d 0a 0d 0a | 09 49 4e 43 09 48 4c 09 |<A>.....|.INC.HL.|
|00001a80| 09 3b 20 50 6f 69 6e 74 | 20 74 6f 20 68 6f 75 72 |.; Point| to hour|
|00001a90| 2e 0d 0a 09 50 55 53 48 | 09 48 4c 09 09 3b 20 53 |....PUSH|.HL..; S|
|00001aa0| 61 76 65 20 70 6f 69 6e | 74 65 72 2e 0d 0a 0d 0a |ave poin|ter.....|
|00001ab0| 09 43 41 4c 4c 09 42 43 | 44 5f 50 52 49 4e 54 09 |.CALL.BC|D_PRINT.|
|00001ac0| 3b 20 50 72 69 6e 74 20 | 32 20 64 69 67 69 74 73 |; Print |2 digits|
|00001ad0| 20 6f 66 20 79 65 61 72 | 2e 0d 0a 09 4c 44 09 44 | of year|....LD.D|
|00001ae0| 45 2c 53 50 41 43 45 53 | 09 3b 20 50 72 69 6e 74 |E,SPACES|.; Print|
|00001af0| 20 22 20 20 20 22 20 28 | 33 20 73 70 61 63 65 73 | " " (|3 spaces|
|00001b00| 29 2e 0d 0a 09 43 41 4c | 4c 09 42 50 53 54 52 0d |)....CAL|L.BPSTR.|
|00001b10| 0a 0d 0a 48 4f 55 52 5f | 50 52 49 4e 54 3a 0d 0a |...HOUR_|PRINT:..|
|00001b20| 09 50 4f 50 09 48 4c 09 | 09 3b 20 47 65 74 20 70 |.POP.HL.|.; Get p|
|00001b30| 6f 69 6e 74 65 72 20 74 | 6f 20 68 6f 75 72 20 28 |ointer t|o hour (|
|00001b40| 70 61 63 6b 65 64 20 42 | 43 44 29 2e 0d 0a 09 4c |packed B|CD)....L|
|00001b50| 44 09 41 2c 28 48 4c 29 | 09 09 3b 20 47 65 74 20 |D.A,(HL)|..; Get |
|00001b60| 70 61 63 6b 65 64 20 42 | 43 44 20 69 6e 74 6f 20 |packed B|CD into |
|00001b70| 3c 41 3e 2e 0d 0a 0d 0a | 09 49 4e 43 09 48 4c 09 |<A>.....|.INC.HL.|
|00001b80| 09 3b 20 50 6f 69 6e 74 | 20 74 6f 20 6d 69 6e 75 |.; Point| to minu|
|00001b90| 74 65 73 0d 0a 09 50 55 | 53 48 09 48 4c 09 09 3b |tes...PU|SH.HL..;|
|00001ba0| 20 53 61 76 65 20 70 6f | 69 6e 74 65 72 2e 0d 0a | Save po|inter...|
|00001bb0| 0d 0a 09 43 41 4c 4c 09 | 42 43 44 5f 50 52 49 4e |...CALL.|BCD_PRIN|
|00001bc0| 54 09 3b 20 50 72 69 6e | 74 20 32 20 64 69 67 69 |T.; Prin|t 2 digi|
|00001bd0| 74 73 20 6f 66 20 64 61 | 74 65 2e 0d 0a 09 4c 44 |ts of da|te....LD|
|00001be0| 09 45 2c 27 3a 27 09 09 | 3b 20 50 72 69 6e 74 20 |.E,':'..|; Print |
|00001bf0| 22 3a 22 20 28 63 6f 6c | 6f 6e 29 2e 0d 0a 09 43 |":" (col|on)....C|
|00001c00| 41 4c 4c 09 42 50 43 48 | 41 52 0d 0a 0d 0a 4d 49 |ALL.BPCH|AR....MI|
|00001c10| 4e 5f 50 52 49 4e 54 3a | 0d 0a 09 50 4f 50 09 48 |N_PRINT:|...POP.H|
|00001c20| 4c 09 09 3b 20 47 65 74 | 20 70 6f 69 6e 74 65 72 |L..; Get| pointer|
|00001c30| 20 74 6f 20 6d 69 6e 75 | 74 65 73 20 28 70 61 63 | to minu|tes (pac|
|00001c40| 6b 65 64 20 42 43 44 29 | 2e 0d 0a 09 4c 44 09 41 |ked BCD)|....LD.A|
|00001c50| 2c 28 48 4c 29 09 09 3b | 20 47 65 74 20 70 61 63 |,(HL)..;| Get pac|
|00001c60| 6b 65 64 20 42 43 44 20 | 69 6e 74 6f 20 3c 41 3e |ked BCD |into <A>|
|00001c70| 2e 0d 0a 0d 0a 09 49 4e | 43 09 48 4c 09 09 3b 20 |......IN|C.HL..; |
|00001c80| 50 6f 69 6e 74 20 74 6f | 20 73 65 63 6f 6e 64 73 |Point to| seconds|
|00001c90| 2e 0d 0a 09 50 55 53 48 | 09 48 4c 09 09 3b 20 53 |....PUSH|.HL..; S|
|00001ca0| 61 76 65 20 70 6f 69 6e | 74 65 72 2e 0d 0a 0d 0a |ave poin|ter.....|
|00001cb0| 09 43 41 4c 4c 09 42 43 | 44 5f 50 52 49 4e 54 09 |.CALL.BC|D_PRINT.|
|00001cc0| 3b 20 50 72 69 6e 74 20 | 32 20 64 69 67 69 74 73 |; Print |2 digits|
|00001cd0| 20 6f 66 20 6d 69 6e 75 | 74 65 73 2e 0d 0a 09 4c | of minu|tes....L|
|00001ce0| 44 09 45 2c 27 2e 27 09 | 09 3b 20 50 72 69 6e 74 |D.E,'.'.|.; Print|
|00001cf0| 20 22 3a 22 20 28 63 6f | 6c 6f 6e 29 2e 0d 0a 09 | ":" (co|lon)....|
|00001d00| 43 41 4c 4c 09 42 50 43 | 48 41 52 0d 0a 0d 0a 53 |CALL.BPC|HAR....S|
|00001d10| 45 43 5f 50 52 49 4e 54 | 3a 0d 0a 09 50 4f 50 09 |EC_PRINT|:...POP.|
|00001d20| 48 4c 09 09 3b 20 47 65 | 74 20 70 6f 69 6e 74 65 |HL..; Ge|t pointe|
|00001d30| 72 20 74 6f 20 73 65 63 | 6f 6e 64 73 20 28 70 61 |r to sec|onds (pa|
|00001d40| 63 6b 65 64 20 42 43 44 | 29 2e 0d 0a 09 4c 44 09 |cked BCD|)....LD.|
|00001d50| 41 2c 28 48 4c 29 09 09 | 3b 20 47 65 74 20 70 61 |A,(HL)..|; Get pa|
|00001d60| 63 6b 65 64 20 42 43 44 | 20 69 6e 74 6f 20 3c 41 |cked BCD| into <A|
|00001d70| 3e 2e 0d 0a 0d 0a 09 43 | 41 4c 4c 09 42 43 44 5f |>......C|ALL.BCD_|
|00001d80| 50 52 49 4e 54 09 3b 20 | 50 72 69 6e 74 20 32 20 |PRINT.; |Print 2 |
|00001d90| 64 69 67 69 74 73 20 6f | 66 20 73 65 63 6f 6e 64 |digits o|f second|
|00001da0| 73 2e 0d 0a 09 4c 44 09 | 44 45 2c 43 52 4c 46 09 |s....LD.|DE,CRLF.|
|00001db0| 09 3b 20 50 72 69 6e 74 | 20 43 52 2c 4c 46 0d 0a |.; Print| CR,LF..|
|00001dc0| 09 43 41 4c 4c 09 42 50 | 53 54 52 0d 0a 0d 0a 09 |.CALL.BP|STR.....|
|00001dd0| 4c 44 09 53 50 2c 28 53 | 54 41 43 4b 29 09 3b 20 |LD.SP,(S|TACK).; |
|00001de0| 52 65 73 74 6f 72 65 20 | 69 74 2e 0d 0a 09 52 45 |Restore |it....RE|
|00001df0| 54 09 09 09 3b 20 41 6c | 6c 20 64 6f 6e 65 2e 0d |T...; Al|l done..|
|00001e00| 0a 0d 0a 3b 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |...;****|********|
|00001e10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e20| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 0d 0a 3b 2a |********|****..;*|
|00001e50| 09 09 09 09 09 09 09 09 | 09 2a 0d 0a 3b 2a 09 42 |........|.*..;*.B|
|00001e60| 43 44 5f 50 52 49 4e 54 | 20 2d 20 74 68 69 73 20 |CD_PRINT| - this |
|00001e70| 73 75 62 72 6f 75 74 69 | 6e 65 20 70 72 69 6e 74 |subrouti|ne print|
|00001e80| 73 20 74 68 65 20 74 77 | 6f 20 64 69 67 69 74 20 |s the tw|o digit |
|00001e90| 70 61 63 6b 65 64 20 09 | 2a 0d 0a 3b 2a 09 09 42 |packed .|*..;*..B|
|00001ea0| 43 44 20 6e 75 6d 62 65 | 72 20 69 6e 20 3c 41 3e |CD numbe|r in <A>|
|00001eb0| 20 74 6f 20 74 68 65 20 | 63 6f 6e 73 6f 6c 65 2e | to the |console.|
|00001ec0| 09 09 09 2a 0d 0a 3b 2a | 09 09 09 09 09 09 09 09 |...*..;*|........|
|00001ed0| 09 2a 0d 0a 3b 2a 09 4f | 4e 20 45 4e 54 52 59 3a |.*..;*.O|N ENTRY:|
|00001ee0| 09 3c 41 3e 20 63 6f 6e | 74 61 69 6e 73 20 70 61 |.<A> con|tains pa|
|00001ef0| 63 6b 65 64 20 42 43 44 | 20 6e 75 6d 62 65 72 2e |cked BCD| number.|
|00001f00| 20 09 09 2a 0d 0a 3b 2a | 09 09 09 09 09 09 09 09 | ..*..;*|........|
|00001f10| 09 2a 0d 0a 3b 2a 09 4f | 4e 20 45 58 49 54 3a 09 |.*..;*.O|N EXIT:.|
|00001f20| 41 6c 6c 20 72 65 67 69 | 73 74 65 72 73 20 74 6f |All regi|sters to|
|00001f30| 20 62 65 20 63 6f 6e 73 | 69 64 65 72 65 64 20 74 | be cons|idered t|
|00001f40| 72 61 73 68 65 64 2e 20 | 09 2a 0d 0a 3b 2a 09 09 |rashed. |.*..;*..|
|00001f50| 09 09 09 09 09 09 09 2a | 0d 0a 3b 2a 2a 2a 2a 2a |.......*|..;*****|
|00001f60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001f90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001fa0| 2a 2a 2a 0d 0a 0d 0a 42 | 43 44 5f 50 52 49 4e 54 |***....B|CD_PRINT|
|00001fb0| 3a 0d 0a 09 50 55 53 48 | 09 41 46 09 09 3b 20 53 |:...PUSH|.AF..; S|
|00001fc0| 61 76 65 20 70 61 63 6b | 65 64 20 42 43 44 20 6e |ave pack|ed BCD n|
|00001fd0| 75 6d 62 65 72 0d 0a 09 | 53 52 4c 09 41 09 09 3b |umber...|SRL.A..;|
|00001fe0| 20 47 65 74 20 74 65 6e | 73 20 64 69 67 69 74 20 | Get ten|s digit |
|00001ff0| 69 6e 20 6c 6f 77 20 6e | 69 62 62 6c 65 2e 2e 2e |in low n|ibble...|
|00002000| 0d 0a 09 53 52 4c 09 41 | 09 09 3b 20 41 6e 64 20 |...SRL.A|..; And |
|00002010| 68 69 67 68 20 6e 69 62 | 62 6c 65 20 7a 65 72 6f |high nib|ble zero|
|00002020| 65 64 2e 0d 0a 09 53 52 | 4c 09 41 0d 0a 09 53 52 |ed....SR|L.A...SR|
|00002030| 4c 09 41 0d 0a 09 41 44 | 44 09 41 2c 30 33 30 48 |L.A...AD|D.A,030H|
|00002040| 09 09 3b 20 4d 61 6b 65 | 20 69 74 20 41 53 43 49 |..; Make| it ASCI|
|00002050| 49 2e 0d 0a 09 4c 44 09 | 45 2c 41 0d 0a 09 43 41 |I....LD.|E,A...CA|
|00002060| 4c 4c 09 42 50 43 48 41 | 52 0d 0a 0d 0a 09 50 4f |LL.BPCHA|R.....PO|
|00002070| 50 09 41 46 09 09 3b 20 | 47 65 74 20 70 61 63 6b |P.AF..; |Get pack|
|00002080| 65 64 20 42 43 44 20 62 | 61 63 6b 20 69 6e 20 3c |ed BCD b|ack in <|
|00002090| 41 3e 2e 0d 0a 09 41 4e | 44 09 30 46 48 09 09 3b |A>....AN|D.0FH..;|
|000020a0| 20 53 74 72 69 70 20 74 | 65 6e 73 20 64 69 67 69 | Strip t|ens digi|
|000020b0| 74 2e 0d 0a 09 41 44 44 | 09 41 2c 30 33 30 48 09 |t....ADD|.A,030H.|
|000020c0| 09 3b 20 4d 61 6b 65 20 | 41 53 43 49 49 2e 0d 0a |.; Make |ASCII...|
|000020d0| 09 4c 44 09 45 2c 41 0d | 0a 09 4a 50 09 42 50 43 |.LD.E,A.|..JP.BPC|
|000020e0| 48 41 52 0d 0a 0d 0a 3b | 09 52 45 54 09 09 3b 20 |HAR....;|.RET..; |
|000020f0| 41 6c 6c 20 64 6f 6e 65 | 2e 0d 0a 0d 0a 0d 0a 3b |All done|.......;|
|00002100| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002110| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002130| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002140| 2a 2a 2a 2a 2a 2a 2a 2a | 0d 0a 3b 2a 09 09 09 09 |********|..;*....|
|00002150| 09 09 09 09 09 2a 0d 0a | 3b 2a 09 52 44 43 4c 4f |.....*..|;*.RDCLO|
|00002160| 4b 20 2d 20 54 68 69 73 | 20 72 6f 75 74 69 6e 65 |K - This| routine|
|00002170| 20 72 65 61 64 73 20 74 | 68 65 20 64 61 79 20 28 | reads t|he day (|
|00002180| 31 2d 37 29 2c 20 79 65 | 61 72 20 28 30 30 2d 39 |1-7), ye|ar (00-9|
|00002190| 39 29 2c 09 2a 0d 0a 3b | 2a 09 09 6d 6f 6e 74 68 |9),.*..;|*..month|
|000021a0| 20 28 31 2d 31 32 29 2c | 20 64 61 74 65 20 28 31 | (1-12),| date (1|
|000021b0| 2d 33 31 29 2c 20 68 6f | 75 72 73 20 28 30 2d 32 |-31), ho|urs (0-2|
|000021c0| 33 29 2c 20 6d 69 6e 75 | 74 65 73 09 2a 0d 0a 3b |3), minu|tes.*..;|
|000021d0| 2a 09 09 28 30 2d 35 39 | 29 2c 20 61 6e 64 20 73 |*..(0-59|), and s|
|000021e0| 65 63 6f 6e 64 73 20 28 | 30 2d 35 39 29 2e 20 20 |econds (|0-59). |
|000021f0| 54 68 65 73 65 20 76 61 | 6c 75 65 73 20 61 72 65 |These va|lues are|
|00002200| 09 09 2a 0d 0a 3b 2a 09 | 09 72 65 74 75 72 6e 65 |..*..;*.|.returne|
|00002210| 64 20 61 73 20 70 61 63 | 6b 65 64 20 42 43 44 20 |d as pac|ked BCD |
|00002220| 69 6e 20 61 20 62 75 66 | 66 65 72 20 70 6f 69 6e |in a buf|fer poin|
|00002230| 74 65 64 20 74 6f 09 09 | 2a 0d 0a 3b 2a 09 09 62 |ted to..|*..;*..b|
|00002240| 79 20 3c 48 4c 3e 20 69 | 6e 20 74 68 65 20 66 6f |y <HL> i|n the fo|
|00002250| 72 6d 61 74 3a 09 09 09 | 09 09 2a 0d 0a 3b 2a 09 |rmat:...|..*..;*.|
|00002260| 09 09 09 09 09 09 09 09 | 2a 0d 0a 3b 2a 09 09 42 |........|*..;*..B|
|00002270| 59 54 45 09 09 43 4f 4e | 54 45 4e 54 53 09 09 09 |YTE..CON|TENTS...|
|00002280| 09 2a 0d 0a 3b 2a 09 09 | 2d 2d 2d 2d 09 09 2d 2d |.*..;*..|----..--|
|00002290| 2d 2d 2d 2d 2d 2d 09 09 | 09 09 2a 0d 0a 3b 2a 09 |------..|..*..;*.|
|000022a0| 09 31 09 09 44 61 79 09 | 09 09 09 09 2a 0d 0a 3b |.1..Day.|....*..;|
|000022b0| 2a 09 09 32 09 09 4d 6f | 6e 74 68 09 09 09 09 09 |*..2..Mo|nth.....|
|000022c0| 2a 0d 0a 3b 2a 09 09 33 | 09 09 44 61 74 65 09 09 |*..;*..3|..Date..|
|000022d0| 09 09 09 2a 0d 0a 3b 2a | 09 09 34 09 09 59 65 61 |...*..;*|..4..Yea|
|000022e0| 72 09 09 09 09 09 2a 0d | 0a 3b 2a 09 09 35 09 09 |r.....*.|.;*..5..|
|000022f0| 48 6f 75 72 73 09 09 09 | 09 09 2a 0d 0a 3b 2a 09 |Hours...|..*..;*.|
|00002300| 09 36 09 09 4d 69 6e 75 | 74 65 73 20 09 09 09 09 |.6..Minu|tes ....|
|00002310| 2a 0d 0a 3b 2a 09 09 37 | 09 09 53 65 63 6f 6e 64 |*..;*..7|..Second|
|00002320| 73 20 09 09 09 09 2a 0d | 0a 3b 2a 09 09 09 09 09 |s ....*.|.;*.....|
|00002330| 09 09 09 09 2a 0d 0a 3b | 2a 09 4e 4f 54 45 3a 20 |....*..;|*.NOTE: |
|00002340| 53 69 6e 63 65 20 74 68 | 65 20 79 65 61 72 20 69 |Since th|e year i|
|00002350| 73 20 73 74 6f 72 65 64 | 20 69 6e 20 61 20 73 74 |s stored| in a st|
|00002360| 61 74 69 63 20 6c 6f 63 | 61 74 69 6f 6e 20 69 6e |atic loc|ation in|
|00002370| 09 09 2a 0d 0a 3b 2a 09 | 09 74 68 65 20 63 6c 6f |..*..;*.|.the clo|
|00002380| 63 6b 2c 20 69 74 20 69 | 73 20 69 6e 63 72 65 6d |ck, it i|s increm|
|00002390| 65 6e 74 65 64 20 77 68 | 65 6e 65 76 65 72 20 74 |ented wh|enever t|
|000023a0| 68 65 20 63 75 72 72 65 | 6e 74 09 2a 0d 0a 3b 2a |he curre|nt.*..;*|
|000023b0| 09 09 6d 6f 6e 74 68 20 | 69 73 20 6c 65 73 73 20 |..month |is less |
|000023c0| 74 68 61 6e 20 74 68 65 | 20 70 72 65 76 69 6f 75 |than the| previou|
|000023d0| 73 20 6d 6f 6e 74 68 20 | 28 61 6c 73 6f 20 73 74 |s month |(also st|
|000023e0| 6f 72 65 64 09 2a 0d 0a | 3b 2a 09 09 69 6e 20 61 |ored.*..|;*..in a|
|000023f0| 20 73 74 61 74 69 63 20 | 6c 6f 63 61 74 69 6f 6e | static |location|
|00002400| 20 69 6e 20 74 68 65 20 | 63 6c 6f 63 6b 29 2e 09 | in the |clock)..|
|00002410| 09 09 2a 0d 0a 3b 2a 09 | 09 09 09 09 09 09 09 09 |..*..;*.|........|
|00002420| 2a 0d 0a 3b 2a 09 4f 4e | 20 45 4e 54 52 59 3a 20 |*..;*.ON| ENTRY: |
|00002430| 3c 48 4c 3e 20 70 6f 69 | 6e 74 73 20 74 6f 20 62 |<HL> poi|nts to b|
|00002440| 75 66 66 65 72 2e 09 09 | 09 09 2a 0d 0a 3b 2a 09 |uffer...|..*..;*.|
|00002450| 09 09 09 09 09 09 09 09 | 2a 0d 0a 3b 2a 09 4f 4e |........|*..;*.ON|
|00002460| 20 45 58 49 54 20 3a 20 | 3c 48 4c 3e 20 70 6f 69 | EXIT : |<HL> poi|
|00002470| 6e 74 73 20 74 6f 20 62 | 75 66 66 65 72 2e 09 09 |nts to b|uffer...|
|00002480| 09 09 2a 0d 0a 3b 2a 09 | 09 09 09 09 09 09 09 09 |..*..;*.|........|
|00002490| 2a 0d 0a 3b 2a 09 4e 4f | 54 45 3a 20 20 54 68 65 |*..;*.NO|TE: The|
|000024a0| 20 73 65 63 6f 6e 64 73 | 20 61 72 65 20 72 65 61 | seconds| are rea|
|000024b0| 64 20 61 74 20 74 68 65 | 20 62 65 67 69 6e 6e 69 |d at the| beginni|
|000024c0| 6e 67 20 61 6e 64 20 65 | 6e 64 20 6f 66 20 74 68 |ng and e|nd of th|
|000024d0| 65 09 2a 0d 0a 3b 2a 09 | 09 63 6c 6f 63 6b 20 72 |e.*..;*.|.clock r|
|000024e0| 65 61 64 2e 20 20 54 68 | 65 79 20 6d 75 73 74 20 |ead. Th|ey must |
|000024f0| 62 65 20 74 68 65 20 73 | 61 6d 65 20 74 6f 20 67 |be the s|ame to g|
|00002500| 75 61 72 61 6e 74 65 65 | 20 09 2a 0d 0a 3b 2a 09 |uarantee| .*..;*.|
|00002510| 09 74 68 61 74 20 74 68 | 65 20 63 6c 6f 63 6b 20 |.that th|e clock |
|00002520| 68 61 73 6e 27 74 20 63 | 68 61 6e 67 65 64 20 64 |hasn't c|hanged d|
|00002530| 75 72 69 6e 67 20 74 68 | 65 20 72 65 61 64 2e 09 |uring th|e read..|
|00002540| 54 68 65 09 2a 0d 0a 3b | 2a 09 09 73 74 61 74 75 |The.*..;|*..statu|
|00002550| 73 20 62 69 74 20 77 68 | 69 63 68 20 69 6e 64 69 |s bit wh|ich indi|
|00002560| 63 61 74 65 73 20 72 6f | 6c 6c 2d 6f 76 65 72 20 |cates ro|ll-over |
|00002570| 69 73 20 62 61 73 69 63 | 61 6c 6c 79 09 2a 0d 0a |is basic|ally.*..|
|00002580| 3b 2a 09 09 77 6f 72 74 | 68 6c 65 73 73 2c 20 73 |;*..wort|hless, s|
|00002590| 69 6e 63 65 20 74 68 65 | 20 63 6c 6f 63 6b 20 63 |ince the| clock c|
|000025a0| 61 6e 20 72 6f 6c 6c 20 | 6f 76 65 72 20 62 65 74 |an roll |over bet|
|000025b0| 77 65 65 6e 09 2a 0d 0a | 3b 2a 09 09 72 65 61 64 |ween.*..|;*..read|
|000025c0| 69 6e 67 20 6d 69 6e 75 | 74 65 73 20 61 6e 64 20 |ing minu|tes and |
|000025d0| 68 6f 75 72 73 20 77 69 | 74 68 6f 75 74 20 65 76 |hours wi|thout ev|
|000025e0| 65 72 20 73 65 74 74 69 | 6e 67 20 74 68 65 09 2a |er setti|ng the.*|
|000025f0| 0d 0a 3b 2a 09 09 62 69 | 74 2e 20 20 54 68 69 73 |..;*..bi|t. This|
|00002600| 20 63 61 6e 20 6c 65 61 | 64 20 74 6f 20 74 69 6d | can lea|d to tim|
|00002610| 65 73 20 6c 69 6b 65 20 | 31 31 3a 30 30 3a 30 30 |es like |11:00:00|
|00002620| 20 77 68 65 6e 20 69 74 | 09 2a 0d 0a 3b 2a 09 09 | when it|.*..;*..|
|00002630| 72 65 61 6c 6c 79 20 6a | 75 73 74 20 74 75 72 6e |really j|ust turn|
|00002640| 65 64 20 74 6f 20 31 32 | 20 6f 27 63 6c 6f 63 6b |ed to 12| o'clock|
|00002650| 2e 09 09 09 2a 0d 0a 3b | 2a 09 09 09 09 09 09 09 |....*..;|*.......|
|00002660| 09 09 2a 0d 0a 3b 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |..*..;**|********|
|00002670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002680| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00002690| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000026a0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 0d 0a |********|******..|
|000026b0| 0d 0a 52 44 43 4c 4f 4b | 3a 09 50 55 53 48 09 48 |..RDCLOK|:.PUSH.H|
|000026c0| 4c 09 09 3b 20 53 61 76 | 65 20 61 64 64 72 65 73 |L..; Sav|e addres|
|000026d0| 73 20 6f 66 20 62 75 66 | 66 65 72 2e 0d 0a 0d 0a |s of buf|fer.....|
|000026e0| 09 49 4e 09 41 2c 28 53 | 45 43 29 09 09 3b 20 52 |.IN.A,(S|EC)..; R|
|000026f0| 65 61 64 20 73 65 63 6f | 6e 64 73 20 66 69 72 73 |ead seco|nds firs|
|00002700| 74 20 61 6e 64 20 76 65 | 72 69 66 79 0d 0a 09 4c |t and ve|rify...L|
|00002710| 44 09 45 2c 41 09 09 3b | 20 54 68 61 74 20 74 68 |D.E,A..;| That th|
|00002720| 65 79 20 64 6f 6e 27 74 | 20 63 68 61 6e 67 65 2e |ey don't| change.|
|00002730| 0d 0a 0d 0a 09 4c 44 09 | 43 2c 44 41 59 09 09 3b |.....LD.|C,DAY..;|
|00002740| 20 47 65 74 20 74 68 65 | 20 64 61 79 20 66 69 72 | Get the| day fir|
|00002750| 73 74 2e 0d 0a 09 49 4e | 49 09 09 09 3b 20 52 65 |st....IN|I...; Re|
|00002760| 61 64 20 69 74 20 61 6e | 64 20 73 74 6f 72 65 20 |ad it an|d store |
|00002770| 69 6e 20 62 75 66 66 65 | 72 2e 0d 0a 09 4c 44 09 |in buffe|r....LD.|
|00002780| 43 2c 4d 4f 4e 54 48 09 | 09 3b 20 4e 6f 77 20 72 |C,MONTH.|.; Now r|
|00002790| 65 61 64 20 74 68 65 20 | 6d 6f 6e 74 68 20 69 6e |ead the |month in|
|000027a0| 74 6f 20 62 75 66 66 65 | 72 2e 0d 0a 09 49 4e 49 |to buffe|r....INI|
|000027b0| 0d 0a 09 4c 44 09 43 2c | 44 41 54 45 09 09 3b 20 |...LD.C,|DATE..; |
|000027c0| 52 65 61 64 20 64 61 74 | 65 20 69 6e 74 6f 20 62 |Read dat|e into b|
|000027d0| 75 66 66 65 72 2e 0d 0a | 09 49 4e 49 0d 0a 09 4c |uffer...|.INI...L|
|000027e0| 44 09 43 2c 59 45 41 52 | 09 09 3b 20 50 6f 69 6e |D.C,YEAR|..; Poin|
|000027f0| 74 20 74 6f 20 74 68 65 | 20 79 65 61 72 2e 0d 0a |t to the| year...|
|00002800| 09 49 4e 49 09 09 09 3b | 20 52 65 61 64 20 69 74 |.INI...;| Read it|
|00002810| 20 69 6e 74 6f 20 74 68 | 65 20 62 75 66 66 65 72 | into th|e buffer|
|00002820| 2e 0d 0a 09 4c 44 09 43 | 2c 48 4f 55 52 09 09 3b |....LD.C|,HOUR..;|
|00002830| 20 4e 6f 77 2c 20 72 65 | 61 64 20 74 68 65 20 68 | Now, re|ad the h|
|00002840| 6f 75 72 2e 0d 0a 09 49 | 4e 49 0d 0a 09 4c 44 09 |our....I|NI...LD.|
|00002850| 43 2c 4d 49 4e 09 09 3b | 20 52 65 61 64 20 6d 69 |C,MIN..;| Read mi|
|00002860| 6e 75 74 65 73 20 69 6e | 74 6f 20 62 75 66 66 65 |nutes in|to buffe|
|00002870| 72 2e 0d 0a 09 49 4e 49 | 0d 0a 09 49 4e 09 41 2c |r....INI|...IN.A,|
|00002880| 28 53 45 43 29 09 09 3b | 20 41 6e 64 20 66 69 6e |(SEC)..;| And fin|
|00002890| 61 6c 6c 79 2c 20 72 65 | 61 64 20 73 65 63 6f 6e |ally, re|ad secon|
|000028a0| 64 73 2e 0d 0a 0d 0a 09 | 43 50 09 45 09 09 3b 20 |ds......|CP.E..; |
|000028b0| 44 69 64 20 63 6c 6f 63 | 6b 20 63 68 61 6e 67 65 |Did cloc|k change|
|000028c0| 20 64 75 72 69 6e 67 20 | 72 65 61 64 3f 0d 0a 09 | during |read?...|
|000028d0| 4a 52 09 5a 2c 41 4f 4b | 09 09 3b 20 57 65 27 72 |JR.Z,AOK|..; We'r|
|000028e0| 65 20 4f 4b 20 69 66 20 | 73 65 63 6f 6e 64 73 20 |e OK if |seconds |
|000028f0| 6d 61 74 63 68 2e 0d 0a | 09 50 4f 50 09 48 4c 09 |match...|.POP.HL.|
|00002900| 09 3b 20 52 65 73 74 6f | 72 65 20 62 75 66 66 65 |.; Resto|re buffe|
|00002910| 72 20 61 64 64 72 65 73 | 73 2e 0d 0a 09 4a 52 09 |r addres|s....JR.|
|00002920| 52 44 43 4c 4f 4b 09 09 | 3b 20 54 72 79 20 61 67 |RDCLOK..|; Try ag|
|00002930| 61 69 6e 2e 0d 0a 0d 0a | 41 4f 4b 3a 09 4c 44 09 |ain.....|AOK:.LD.|
|00002940| 28 48 4c 29 2c 41 09 09 | 3b 20 53 74 6f 72 65 20 |(HL),A..|; Store |
|00002950| 73 65 63 6f 6e 64 73 20 | 69 6e 20 62 75 66 66 65 |seconds |in buffe|
|00002960| 72 2e 0d 0a 0d 0a 3b 09 | 4e 6f 77 2c 20 61 64 6a |r.....;.|Now, adj|
|00002970| 75 73 74 20 74 68 65 20 | 79 65 61 72 20 69 66 20 |ust the |year if |
|00002980| 63 75 72 72 65 6e 74 20 | 6d 6f 6e 74 68 20 69 73 |current |month is|
|00002990| 20 6c 65 73 73 20 74 68 | 61 6e 20 6d 6f 6e 74 68 | less th|an month|
|000029a0| 20 61 74 20 6c 61 73 74 | 0d 0a 3b 09 09 63 6c 6f | at last|..;..clo|
|000029b0| 63 6b 20 72 65 61 64 2e | 0d 0a 0d 0a 09 50 4f 50 |ck read.|.....POP|
|000029c0| 09 48 4c 09 09 3b 20 48 | 4c 3d 73 74 61 72 74 20 |.HL..; H|L=start |
|000029d0| 62 75 66 66 65 72 20 61 | 64 64 72 65 73 73 2e 0d |buffer a|ddress..|
|000029e0| 0a 09 50 55 53 48 09 48 | 4c 0d 0a 09 49 4e 43 09 |..PUSH.H|L...INC.|
|000029f0| 48 4c 09 09 3b 20 50 6f | 69 6e 74 20 74 6f 20 6d |HL..; Po|int to m|
|00002a00| 6f 6e 74 68 20 73 74 6f | 72 61 67 65 2e 0d 0a 09 |onth sto|rage....|
|00002a10| 49 4e 09 41 2c 28 50 52 | 56 4d 4f 4e 29 09 3b 20 |IN.A,(PR|VMON).; |
|00002a20| 4d 6f 6e 74 68 20 61 74 | 20 6c 61 73 74 20 63 6c |Month at| last cl|
|00002a30| 6f 63 6b 20 72 65 61 64 | 2e 0d 0a 09 4c 44 09 42 |ock read|....LD.B|
|00002a40| 2c 41 09 09 3b 20 3c 42 | 3e 20 3d 20 50 72 65 76 |,A..; <B|> = Prev|
|00002a50| 69 6f 75 73 20 4d 6f 6e | 74 68 0d 0a 09 4c 44 09 |ious Mon|th...LD.|
|00002a60| 41 2c 28 48 4c 29 09 09 | 3b 20 3c 41 3e 20 3d 20 |A,(HL)..|; <A> = |
|00002a70| 43 75 72 72 65 6e 74 20 | 4d 6f 6e 74 68 0d 0a 09 |Current |Month...|
|00002a80| 4f 55 54 09 28 50 52 56 | 4d 4f 4e 29 2c 41 09 3b |OUT.(PRV|MON),A.;|
|00002a90| 20 55 70 64 61 74 65 20 | 70 72 65 76 69 6f 75 73 | Update |previous|
|00002aa0| 20 6d 6f 6e 74 68 20 73 | 74 6f 72 61 67 65 2e 0d | month s|torage..|
|00002ab0| 0a 09 43 50 09 42 09 09 | 3b 20 49 73 20 43 75 72 |..CP.B..|; Is Cur|
|00002ac0| 72 65 6e 74 20 3c 20 50 | 72 65 76 69 6f 75 73 3f |rent < P|revious?|
|00002ad0| 0d 0a 09 4a 52 09 4e 43 | 2c 44 4f 4e 45 09 09 3b |...JR.NC|,DONE..;|
|00002ae0| 20 49 66 20 6e 6f 74 2c | 20 77 65 27 72 65 20 64 | If not,| we're d|
|00002af0| 6f 6e 65 2e 0d 0a 20 20 | 20 20 20 20 20 20 49 4e |one... | IN|
|00002b00| 43 20 20 20 20 20 48 4c | 0d 0a 09 49 4e 43 09 48 |C HL|...INC.H|
|00002b10| 4c 09 09 3b 20 50 6f 69 | 6e 74 20 62 61 63 6b 20 |L..; Poi|nt back |
|00002b20| 74 6f 20 79 65 61 72 20 | 73 74 6f 72 61 67 65 2e |to year |storage.|
|00002b30| 0d 0a 09 4c 44 09 41 2c | 28 48 4c 29 09 09 3b 20 |...LD.A,|(HL)..; |
|00002b40| 3c 41 3e 20 3d 20 59 65 | 61 72 2e 0d 0a 09 41 44 |<A> = Ye|ar....AD|
|00002b50| 44 09 41 2c 31 09 09 3b | 20 59 65 61 72 20 3c 2d |D.A,1..;| Year <-|
|00002b60| 2d 20 59 65 61 72 20 2b | 20 31 0d 0a 09 44 41 41 |- Year +| 1...DAA|
|00002b70| 09 09 09 3b 20 41 64 6a | 75 73 74 20 66 6f 72 20 |...; Adj|ust for |
|00002b80| 70 61 63 6b 65 64 20 42 | 43 44 2e 0d 0a 09 4c 44 |packed B|CD....LD|
|00002b90| 09 28 48 4c 29 2c 41 09 | 09 3b 20 53 74 6f 72 65 |.(HL),A.|.; Store|
|00002ba0| 20 59 65 61 72 2e 0d 0a | 09 4f 55 54 09 28 59 45 | Year...|.OUT.(YE|
|00002bb0| 41 52 29 2c 41 09 3b 20 | 49 6e 20 63 68 69 70 2c |AR),A.; |In chip,|
|00002bc0| 20 74 6f 6f 2e 0d 0a 0d | 0a 44 4f 4e 45 3a 09 50 | too....|.DONE:.P|
|00002bd0| 4f 50 09 48 4c 09 09 3b | 20 52 65 73 74 6f 72 65 |OP.HL..;| Restore|
|00002be0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 62 75 66 66 | pointer| to buff|
|00002bf0| 65 72 2e 0d 0a 09 52 45 | 54 09 09 09 3b 20 41 6c |er....RE|T...; Al|
|00002c00| 6c 20 64 6f 6e 65 2e 0d | 0a 0d 0a 42 50 43 48 41 |l done..|...BPCHA|
|00002c10| 52 3a 09 4c 44 09 43 2c | 32 0d 0a 09 4a 52 09 42 |R:.LD.C,|2...JR.B|
|00002c20| 44 4a 50 0d 0a 0d 0a 43 | 52 4c 46 53 54 3a 09 4c |DJP....C|RLFST:.L|
|00002c30| 44 09 44 45 2c 43 52 4c | 46 0d 0a 42 50 53 54 52 |D.DE,CRL|F..BPSTR|
|00002c40| 3a 09 4c 44 09 43 2c 39 | 0d 0a 42 44 4a 50 3a 09 |:.LD.C,9|..BDJP:.|
|00002c50| 4a 50 09 42 44 4f 53 0d | 0a 0d 0a 09 44 53 45 47 |JP.BDOS.|....DSEG|
|00002c60| 0d 0a 0d 0a 42 55 46 46 | 45 52 3a 09 44 53 09 37 |....BUFF|ER:.DS.7|
|00002c70| 09 09 3b 20 53 74 6f 72 | 61 67 65 20 66 6f 72 20 |..; Stor|age for |
|00002c80| 64 61 74 65 20 61 6e 64 | 20 74 69 6d 65 20 69 6e |date and| time in|
|00002c90| 20 70 61 63 6b 65 64 20 | 42 43 44 2e 0d 0a 0d 0a | packed |BCD.....|
|00002ca0| 09 44 53 09 33 30 09 09 | 3b 20 31 35 20 6c 65 76 |.DS.30..|; 15 lev|
|00002cb0| 65 6c 20 73 74 61 63 6b | 2e 0d 0a 53 54 41 43 4b |el stack|...STACK|
|00002cc0| 3a 09 44 53 09 32 0d 0a | 0d 0a 09 45 4e 44 0d 0a |:.DS.2..|...END..|
|00002cd0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002ce0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002cf0| 1a 1a 1a 1a 1a 1a 1a 1a | 1a 1a 1a 1a 1a 1a 1a 1a |........|........|
|00002d00| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d10| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00002d20| 00 00 00 00 00 00 00 00 | 00 00 c3 1b 02 5a 33 45 |........|.....Z3E|
|00002d30| 4e 56 03 00 00 2a 01 53 | 75 6e 64 61 79 20 20 24 |NV...*.S|unday $|
|00002d40| 20 20 20 4d 6f 6e 64 61 | 79 20 20 24 20 20 20 54 | Monda|y $ T|
|00002d50| 75 65 73 64 61 79 20 20 | 24 20 20 57 65 64 6e 65 |uesday |$ Wedne|
|00002d60| 73 64 61 79 20 20 24 54 | 68 75 72 73 64 61 79 20 |sday $T|hursday |
|00002d70| 20 24 20 46 72 69 64 61 | 79 20 20 24 20 20 20 53 | $ Frida|y $ S|
|00002d80| 61 74 75 72 64 61 79 20 | 20 24 20 4a 61 6e 75 61 |aturday | $ Janua|
|00002d90| 72 79 20 24 20 20 46 65 | 62 72 75 61 72 79 20 24 |ry $ Fe|bruary $|
|00002da0| 20 4d 61 72 63 68 20 24 | 20 20 20 20 41 70 72 69 | March $| Apri|
|00002db0| 6c 20 24 20 20 20 20 4d | 61 79 20 24 20 20 20 20 |l $ M|ay $ |
|00002dc0| 20 20 4a 75 6e 65 20 24 | 20 20 20 20 20 4a 75 6c | June $| Jul|
|00002dd0| 79 20 24 20 20 20 20 20 | 41 75 67 75 73 74 20 24 |y $ |August $|
|00002de0| 20 20 20 53 65 70 74 65 | 6d 62 65 72 20 24 4f 63 | Septe|mber $Oc|
|00002df0| 74 6f 62 65 72 20 24 20 | 20 4e 6f 76 65 6d 62 65 |tober $ | Novembe|
|00002e00| 72 20 24 20 44 65 63 65 | 6d 62 65 72 20 24 20 2c |r $ Dece|mber $ ,|
|00002e10| 20 31 39 24 20 2d 20 24 | 0d 0a 24 ed 73 28 01 31 | 19$ - $|..$.s(.1|
|00002e20| 28 01 cd fc 02 21 03 01 | cd bc 02 7e 23 e5 3d 47 |(....!..|...~#.=G|
|00002e30| 87 87 80 87 80 80 5f 16 | 00 21 37 01 19 eb cd ff |......_.|.!7.....|
|00002e40| 02 e1 af 47 ed 6f 28 02 | 06 0a ed 6f 80 23 e5 47 |...G.o(.|...o.#.G|
|00002e50| 3d 47 87 87 80 87 80 5f | 16 00 21 8b 01 19 eb cd |=G....._|..!.....|
|00002e60| ff 02 e1 7e 23 e5 cd a4 | 02 11 0f 02 cd ff 02 e1 |...~#...|........|
|00002e70| 7e 23 e5 cd a4 02 11 14 | 02 cd ff 02 e1 7e 23 e5 |~#......|.....~#.|
|00002e80| cd a4 02 1e 3a cd f8 02 | e1 7e 23 e5 cd a4 02 1e |....:...|.~#.....|
|00002e90| 2e cd f8 02 e1 7e cd a4 | 02 11 18 02 cd ff 02 ed |.....~..|........|
|00002ea0| 7b 28 01 c9 f5 cb 3f cb | 3f cb 3f cb 3f c6 30 5f |{(....?.|?.?.?.0_|
|00002eb0| cd f8 02 f1 e6 0f c6 30 | 5f c3 f8 02 e5 db e2 5f |.......0|_......_|
|00002ec0| 0e e5 ed a2 0e e7 ed a2 | 0e e6 ed a2 0e e9 ed a2 |........|........|
|00002ed0| 0e e4 ed a2 0e e3 ed a2 | db e2 bb 28 03 e1 18 dc |........|...(....|
|00002ee0| 77 e1 e5 23 db ef 47 7e | d3 ef b8 30 09 23 23 7e |w..#..G~|...0.##~|
|00002ef0| c6 01 27 77 d3 e9 e1 c9 | 0e 02 18 05 11 18 02 0e |..'w....|........|
|00002f00| 09 c3 05 00 3a cd f8 02 | e1 7e 23 e5 cd a4 02 1e |....:...|.~#.....|
|00002f10| 2e cd f8 02 e1 7e cd a4 | 02 11 18 02 cd ff 02 ed |.....~..|........|
|00002f20| 7b 28 01 c9 f5 cb 3f cb | 3f cb 3f cb 3f c6 30 5f |{(....?.|?.?.?.0_|
|00002f30| cd f8 02 f1 e6 0f c6 30 | 5f c3 f8 02 e5 db e2 5f |.......0|_......_|
|00002f40| 0e e5 ed a2 0e e7 ed a2 | 0e e6 ed a2 0e e9 ed a2 |........|........|
|00002f50| 0e e4 ed a2 0e e3 ed a2 | db e2 bb 28 03 e1 18 dc |........|...(....|
|00002f60| 77 e1 e5 23 db ef 47 7e | d3 ef b8 30 09 23 23 7e |w..#..G~|...0.##~|
|00002f70| c6 01 27 77 d3 e9 e1 c9 | 0e 02 18 05 11 18 02 0e |..'w....|........|
|00002f80| c3 f1 80 5a 33 45 4e 56 | 03 00 00 00 80 53 75 6e |...Z3ENV|.....Sun|
|00002f90| 64 61 79 20 20 24 20 20 | 20 4d 6f 6e 64 61 79 20 |day $ | Monday |
|00002fa0| 20 24 20 20 20 54 75 65 | 73 64 61 79 20 20 24 20 | $ Tue|sday $ |
|00002fb0| 20 57 65 64 6e 65 73 64 | 61 79 20 20 24 54 68 75 | Wednesd|ay $Thu|
|00002fc0| 72 73 64 61 79 20 20 24 | 20 46 72 69 64 61 79 20 |rsday $| Friday |
|00002fd0| 20 24 20 20 20 53 61 74 | 75 72 64 61 79 20 20 24 | $ Sat|urday $|
|00002fe0| 20 4a 61 6e 75 61 72 79 | 20 24 20 20 46 65 62 72 | January| $ Febr|
|00002ff0| 75 61 72 79 20 24 20 4d | 61 72 63 68 20 24 20 20 |uary $ M|arch $ |
|00003000| 20 20 41 70 72 69 6c 20 | 24 20 20 20 20 4d 61 79 | April |$ May|
|00003010| 20 24 20 20 20 20 20 20 | 4a 75 6e 65 20 24 20 20 | $ |June $ |
|00003020| 20 20 20 4a 75 6c 79 20 | 24 20 20 20 20 20 41 75 | July |$ Au|
|00003030| 67 75 73 74 20 24 20 20 | 20 53 65 70 74 65 6d 62 |gust $ | Septemb|
|00003040| 65 72 20 24 4f 63 74 6f | 62 65 72 20 24 20 20 4e |er $Octo|ber $ N|
|00003050| 6f 76 65 6d 62 65 72 20 | 24 20 44 65 63 65 6d 62 |ovember |$ Decemb|
|00003060| 65 72 20 24 20 2c 20 31 | 39 24 20 20 20 24 0d 0a |er $ , 1|9$ $..|
|00003070| 24 ed 73 fe 81 31 fe 81 | cd d1 81 21 d9 81 cd 92 |$.s..1..|...!....|
|00003080| 81 7e 23 e5 3d 47 87 87 | 80 87 80 80 5f 16 00 21 |.~#.=G..|...._..!|
|00003090| 0d 80 19 eb cd d4 81 e1 | af 47 ed 6f 28 02 06 0a |........|.G.o(...|
|000030a0| ed 6f 80 23 e5 47 3d 47 | 87 87 80 87 80 5f 16 00 |.o.#.G=G|....._..|
|000030b0| 21 61 80 19 eb cd d4 81 | e1 7e 23 e5 cd 7a 81 11 |!a......|.~#..z..|
|000030c0| e5 80 cd d4 81 e1 7e 23 | e5 cd 7a 81 11 ea 80 cd |......~#|..z.....|
|000030d0| d4 81 e1 7e 23 e5 cd 7a | 81 1e 3a cd cd 81 e1 7e |...~#..z|..:....~|
|000030e0| 23 e5 cd 7a 81 1e 3a cd | cd 81 e1 7e cd 7a 81 11 |#..z..:.|...~.z..|
|000030f0| ee 80 cd d4 81 ed 7b fe | 81 c9 f5 cb 3f cb 3f cb |......{.|....?.?.|
|00003100| 3f cb 3f c6 30 5f cd cd | 81 f1 e6 0f c6 30 5f c3 |?.?.0_..|.....0_.|
|00003110| cd 81 e5 db e2 5f 0e e5 | ed a2 0e e7 ed a2 0e e6 |....._..|........|
|00003120| ed a2 0e e9 ed a2 0e e4 | ed a2 0e e3 ed a2 db e2 |........|........|
|00003130| bb 28 03 e1 18 dc 77 e1 | e5 23 db ef 47 7e d3 ef |.(....w.|.#..G~..|
|00003140| b8 30 08 2b 7e c6 01 27 | 77 d3 e9 e1 c9 0e 02 18 |.0.+~..'|w.......|
|00003150| 05 11 ee 80 0e 09 c3 05 | 00 00 00 00 00 00 00 00 |........|........|
|00003160| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003170| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+
