;procedure OCTDEC 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 162706 sub #6,sp 000006 000012 016500 mov 6(r5),r0 000006 000016 042700 bic #-8,r0 177770 000022 010065 mov r0,- 2(r5) 177776 000026 016500 mov 6(r5),r0 000006 000032 072027 ash #-3,r0 177775 000036 010065 mov r0,-4(r5) 177774 000042 005765 tst -4(r5) 177774 000046 001421 beq 000112 000050 005046 clr -(sp) 000052 016546 mov -4(r5),-(sp) 177774 000056 011504 mov @r5,r4 000060 004767 jsr pc,000062 000000 000064 012665 mov (sp)+,-6(r5) 177772 000070 012701 mov #10,r1 000012 000074 070165 mul -6(r5),r1 177772 000100 010165 mov r1,-6(r5) 177772 000104 066565 add -6(r5),-2(r5) 177772 177776 000112 016565 mov -2(r5),8(r5) 177776 000010 000120 010506 mov r5,sp 000122 012604 mov (sp)+,r4 000124 012605 mov (sp)+,r5 000126 012603 mov (sp)+,r3 000130 005726 tst (sp)+ 000132 000113 jmp @r3 ;procedure WRITEUNIT 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 005046 clr -(sp) 000010 005046 clr -(sp) 000012 016546 mov 6(r5),-(sp) 000 006 000016 004767 jsr pc,000020 000000 000022 012665 mov (sp)+,-2(r5) 177776 000026 026527 cmp -2(r5),#10 177776 000012 000034 002011 bge 000060 000036 012746 mov #-602,-(sp) 176646 000042 011667 mov @sp,000054 000 010 000046 012746 mov #48,-(sp) 000060 000052 005046 clr -(sp) 000054 004767 jsr pc,000056 000000 000060 012746 mov #-602,-(sp) 176646 000064 011667 mov @sp,000076 000010 000070 016546 mov -2(r5),-(sp) 177776 000074 005046 clr -(sp) 000076 004767 jsr pc,000100 000000 000102 016746 mov 000114,-(sp) 000010 000106 012746 mov #58,-(sp) 000072 000112 005046 clr -(sp) 000114 004767 jsr pc,000116 000000 000120 010506 mov r5,sp 0001 22 012604 mov (sp)+,r4 000124 012605 mov (sp)+,r5 000126 012603 mov (sp)+,r3 000130 005726 tst (sp)+ 000132 000113 jmp @r3 ;procedure WRITEUIC 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 005046 clr -(sp) 000010 005046 clr -(sp) 000012 016546 mov 8(r5),-(sp) 000010 000016 004767 jsr pc,000020 000000 000022 012665 mov (sp)+,-2(r5) 177776 000026 012746 mov #-602,-(sp) 176646 000032 011667 mo v @sp,000044 000010 000036 012746 mov #91,-(sp) 000133 000042 005046 clr -(sp) 000044 004767 jsr pc,000046 000000 000050 016746 mov 000062,-(sp) 000010 000054 016546 mov -2(r5),-(sp) 177776 000060 012746 mov #3,- (sp) 000003 000064 004767 jsr pc,000066 000000 000070 016746 mov 000102,-(sp) 000010 000074 012746 mov #44,-(sp) 000054 000100 005046 clr -(sp) 000102 004767 jsr pc,000104 000000 000106 005046 clr -(sp) 000110 01654 6 mov 6(r5),-(sp) 000006 000114 004767 jsr pc,000116 000000 000120 012665 mov (sp)+,-2(r5) 177776 000124 012746 mov #-602,-(sp) 176646 000130 011667 mov @sp,000142 000010 000134 016546 mov -2(r5),-(sp) 177776 00014 0 012746 mov #3,-(sp) 000003 000144 004767 jsr pc,000146 000000 000150 016746 mov 000162,-(sp) 000010 000154 012746 mov #93,-(sp) 000135 000160 005046 clr -(sp) 000162 004767 jsr pc,000164 000000 000166 010506 mov r5,sp 000170 012604 mov (sp)+,r4 000172 012605 mov (sp)+,r5 000174 012603 mov (sp)+,r3 000176 062706 add #4,sp 000004 000202 000113 jmp @r3 ;procedure ADDTIME 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 0 00004 010605 mov sp,r5 000006 162706 sub #6,sp 000006 000012 017500 mov @10(r5),r0 000012 000016 167500 sub @12(r5),r0 000014 000022 010065 mov r0,-6(r5) 177772 000026 005765 tst -6(r5) 177772 000032 002003 bge 0 00042 000034 062765 add #24,-6(r5) 000030 177772 000042 016500 mov 10(r5),r0 000012 000046 016000 mov 2(r0),r0 000002 000052 016501 mov 12(r5),r1 000014 000056 166100 sub 2(r1),r0 000002 000062 010065 mov r0,-4(r5) 177774 000066 016500 mov 10(r5),r0 000012 000072 016000 mov 4(r0),r0 000004 000076 016501 mov 12(r5),r1 000014 000102 166100 sub 4(r1),r0 000004 000106 010065 mov r0,-2(r5) 177776 000112 005765 tst -2(r5) 177776 000116 002005 bge 000132 000120 062765 add #60,-2(r5) 000074 177776 000126 005365 dec -4(r5) 177774 000132 005765 tst -4(r5) 177774 000136 002005 bge 000152 000140 062765 add #60,-4(r5) 000074 177774 000146 00536 5 dec -6(r5) 177772 000152 016501 mov 6(r5),r1 000006 000156 070165 mul -6(r5),r1 177772 000162 010165 mov r1,-6(r5) 177772 000166 016501 mov 6(r5),r1 000006 000172 070165 mul -4(r5),r1 177774 000176 010165 mov r1,-4(r5) 177774 000202 016501 mov 6(r5),r1 000006 000206 070165 mul -2(r5),r1 177776 000212 010165 mov r1,-2(r5) 177776 000216 066575 add -6(r5),@8(r5) 177772 000010 000224 016500 mov 8(r5),r0 000010 000230 066560 add -4(r5),2(r0) 177774 000002 000236 016500 mov 8(r5),r0 000010 000242 066560 add -2(r5),4(r0) 177776 000004 000250 016500 mov 8(r5),r0 000010 000254 016501 mov 8(r5),r1 000010 000260 016101 mov 4(r1),r1 000004 000264 010046 mov r0,-(sp) 000266 005701 tst r1 000270 006700 sxt r0 000272 071027 div #60,r0 000074 000276 012601 mov (sp)+,r1 000300 060061 add r0,2(r1) 000002 000304 016500 mov 8(r5),r0 000010 000310 016501 mov 8(r5),r1 000010 000314 016101 mov 4(r1),r1 000004 000320 010046 mov r0,-(sp) 000322 005701 tst r1 000324 006700 sxt r0 000326 071027 div #60,r0 000074 000332 012600 mov (sp)+,r0 000334 010160 mov r1,4(r0) 000 004 000340 016500 mov 8(r5),r0 000010 000344 016001 mov 2(r0),r1 000002 000350 006700 sxt r0 000352 071027 div #60,r0 000074 000356 060075 add r0,@8(r5) 000010 000362 016500 mov 8(r5),r0 000010 000366 016501 mov 8(r5),r1 000010 000372 016101 mov 2(r1),r1 000002 000376 010046 mov r0,-(sp) 000400 005701 tst r1 000402 006700 sxt r0 000404 071027 div #60,r0 000074 000410 012600 mov (sp)+,r0 000412 010160 mov r1,2(r0) 000002 000416 010506 mov r5,sp 000420 012604 mov (sp)+,r4 000422 012605 mov (sp)+,r5 000424 012603 mov (sp)+,r3 000426 062706 add #8,sp 000010 000432 000113 jmp @r3 ;procedure INSERT 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 016575 mov 8(r5),@6(r5) 000010 000006 000014 016500 mov 6(r5),r0 000006 000020 016501 mov 8(r5),r1 000010 000024 016160 mov 2(r1),2(r0) 000002 000002 000032 016500 mov 8(r5),r0 000010 000036 016560 mov 6(r5),2(r0) 000006 000002 000044 016500 mov 6(r5),r0 000006 000050 016570 mov 6(r5),@2(r0) 000006 000002 000056 010506 mov r5,sp 000060 012604 mov (sp)+,r4 000062 012605 mov (sp )+,r5 000064 012603 mov (sp)+,r3 000066 062706 add #4,sp 000004 000072 000113 jmp @r3 ;procedure SETTIME 000000 010546 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 017575 mov @8(r5),@6(r5) 000010 000006 000014 016500 mov 6(r5),r0 000006 000020 016501 mov 8(r5),r1 000010 000024 016160 mov 2(r1),2(r0) 000002 000002 000032 016500 mov 6(r5),r0 000006 000036 016501 mov 8(r5),r1 000010 000042 016160 mov 4(r1),4(r0) 000004 000004 000050 010506 mov r5,sp 000052 012604 mov (sp)+,r4 000054 012605 mov (sp)+,r5 000056 012603 mov (sp)+,r3 000060 062706 add #4,sp 000004 000064 000113 jmp @r3 ;procedure SUMMARIZE 000000 01054 6 mov r5,-(sp) 000002 010446 mov r4,-(sp) 000004 010605 mov sp,r5 000006 017767 mov @176654,176654 176644 176642 000014 105067 clrb 176645 176627 000020 026767 cmp 176664,176670 176642 176644 000026 001412 beq 000 054 000030 016700 mov 176674,r0 176642 000034 126760 cmpb 176662,4(r0) 176624 000004 000042 003404 ble 000054 000044 017767 mov @176710,176712 176642 176642 000052 000762 br 000020 000054 026767 cmp 176720,176724 1 76642 176644 000062 001004 bne 000074 000064 112767 movb #3,176717 000003 176627 000072 000475 br 000266 000074 016700 mov 176740,r0 176642 000100 126760 cmpb 176726,4(r0) 176624 000004 000106 001064 bne 000260 000 110 026767 cmp 176754,176760 176642 176644 000116 001420 beq 000160 000120 016700 mov 176764,r0 176642 000124 126760 cmpb 176752,4(r0) 176624 000004 000132 001012 bne 000160 000134 016700 mov 177000,r0 176642 000140 126760 cmpb 176764,5(r0) 176622 000005 000146 003404 ble 000160 000150 017767 mov @177014,177016 176642 176642 000156 000754 br 000110 000160 026767 cmp 177024,177030 176642 176644 000166 001004 bne 000200 000170 112767 movb #3,177023 000003 176627 000176 000433 br 000266 000200 016700 mov 177044,r0 176642 000204 126760 cmpb 177032,4(r0) 176624 000004 000212 001404 beq 000224 000214 112767 movb #1,177047 000001 176627 00022 2 000421 br 000266 000224 016700 mov 177070,r0 176642 000230 126760 cmpb 177054,5(r0) 176622 000005 000236 001404 beq 000250 000240 112767 movb #1,177073 000001 176627 000246 000407 br 000266 000250 112767 movb #2 ,177103 000002 176627 000256 000403 br 000266 000260 112767 movb #1,177113 000001 176627 000266 116700 movb 177117,r0 176627 000272 042700 bic #-256,r0 177400 000276 006300 asl r0 000300 060700 add pc,r0 000302 066 007 add 4(r0),pc 000004 000306 000010 ..... 000310 000076 ..... 000312 000370 swab @62(r0) 000076 000316 012746 mov #10,-(sp) 000012 000322 011667 mov @sp,000334 000010 000326 012746 mov #10,-(sp) 000012 000332 005 046 clr -(sp) 000334 004767 jsr pc,000336 000000 000340 016746 mov 000352,-(sp) 000010 000344 012746 mov #13,-(sp) 000015 000350 005046 clr -(sp) 000352 004767 jsr pc,000354 000000 000356 016746 mov 000370,-(sp) 000010 000362 012746 mov #0,-(sp) 000000 000366 012746 mov #13,-(sp) 000015 000372 005046 clr -(sp) 000374 004767 jsr pc,000376 000000 000400 000167 jmp 001336 000734 000404 126727 cmpb 177241,#1 176633 000001 0004 12 001040 bne 000514 000414 105767 tstb 177237 176621 000420 001402 beq 000426 000422 000167 jmp 001336 000712 000426 012746 mov #-602,-(sp) 176646 000432 011667 mov @sp,000444 000010 000436 012746 mov #10,-(sp) 0 00012 000442 005046 clr -(sp) 000444 004767 jsr pc,000446 000000 000450 016746 mov 000462,-(sp) 000010 000454 012746 mov #13,-(sp) 000015 000460 005046 clr -(sp) 000462 004767 jsr pc,000464 000000 000466 016746 mov 000500,-(sp) 000010 000472 012746 mov #13,-(sp) 000015 000476 012746 mov #11,-(sp) 000013 000502 005046 clr -(sp) 000504 004767 jsr pc,000506 000000 000510 000167 jmp 001336 000624 000514 016746 mov 000524,-(sp) 000006 000520 012746 mov #22,-(sp) 000026 000524 004767 jsr pc,000526 000000 000530 012667 mov (sp)+,177362 176630 000534 016746 mov 177400,-(sp) 176642 000540 016746 mov 177372,-(sp) 176630 000544 011504 mov @r5,r4 000546 004767 jsr pc,000550 000000 000552 016700 mov 177404,r0 176630 000556 005060 clr 6(r0) 000006 000562 016700 mov 177414,r0 176630 000566 005060 clr 8(r0) 000010 000572 016700 mov 177424,r0 176630 000576 0050 60 clr 10(r0) 000012 000602 016700 mov 177434,r0 176630 000606 105060 clrb 12(r0) 000014 000612 012746 mov #-612,-(sp) 176634 000616 016700 mov 177450,r0 176630 000622 062700 add #14,r0 000016 000626 010046 mov r0,-(sp) 000630 004767 jsr pc,000632 000000 000634 016700 mov 177466,r0 176630 000640 116760 movb 000155,4(r0) 177313 000004 000646 016700 mov 177500,r0 176630 000652 116760 movb 000166,5(r0) 177312 000005 000660 01670 0 mov 177512,r0 176630 000664 012760 mov #1,20(r0) 000001 000024 000672 000167 jmp 001336 000442 000676 016700 mov 177542,r0 176642 000702 126027 cmpb 12(r0),#1 000014 000001 000710 001043 bne 001020 000712 126727 cmpb 177547,#1 176633 000001 000720 001037 bne 001020 000722 105767 tstb 177545 176621 000726 001402 beq 000734 000730 000167 jmp 001336 000404 000734 012746 mov #-602,-(sp) 176646 000740 011667 mov @sp,000752 0 00010 000744 012746 mov #10,-(sp) 000012 000750 005046 clr -(sp) 000752 004767 jsr pc,000754 000000 000756 016746 mov 000770,-(sp) 000010 000762 012746 mov #13,-(sp) 000015 000766 005046 clr -(sp) 000770 004767 jsr pc,000772 000000 000774 016746 mov 001006,-(sp) 000010 001000 012746 mov #24,-(sp) 000030 001004 012746 mov #12,-(sp) 000014 001010 005046 clr -(sp) 001012 004767 jsr pc,001014 000000 001016 000550 br 001340 0010 20 016700 mov 177664,r0 176642 001024 126027 cmpb 12(r0),#1 000014 000001 001032 001024 bne 001104 001034 016700 mov 177700,r0 176642 001040 105060 clrb 12(r0) 000014 001044 016700 mov 177710,r0 176642 001050 012760 mov #1,20(r0) 000001 000024 001056 012746 mov #-612,-(sp) 176634 001062 016700 mov 177726,r0 176642 001066 062700 add #14,r0 000016 001072 010046 mov r0,-(sp) 001074 011504 mov @r5,r4 001076 004767 jsr pc,001100 000000 001102 000516 br 001340 001104 105767 tstb 177741 176633 001110 001041 bne 001214 001112 105767 tstb 177735 176621 001116 001031 bne 001202 001120 012746 mov #-602,-(sp) 176646 001124 011667 mov @sp,001136 000010 001130 012746 mov #10,-(sp) 000012 001134 005046 clr -(sp) 001136 004767 jsr pc,001140 000000 001142 016746 mov 001154,-(sp) 000010 001146 012746 mov #13,-(sp) 000015 001152 005046 clr -(sp) 001154 004767 jsr pc,001156 000000 001160 016746 mov 001172,-(sp) 000010 001164 012746 mov #36,-(sp) 000044 001170 012746 mov #15,-(sp) 000017 001174 005046 clr -(sp) 001176 004767 jsr pc,001200 000000 001202 016700 mov 000046,r0 176642 001206 005260 inc 20(r0) 000024 001212 000452 br 001340 001214 016700 mov 000060,r0 176642 001220 062700 add #14,r0 000016 001224 010046 mov r0,-(sp) 001226 012746 mov #-612,-(sp) 176634 001232 016700 mov 000076,r0 176642 001236 062700 add #6,r0 000006 001242 010046 mov r0,-(sp) 001244 016700 mov 000110,r0 176642 001250 016046 mov 20(r0),-(sp) 000024 001254 011504 mov @r5,r4 001256 004767 jsr pc,001260 000000 00126 2 016700 mov 000126,r0 176642 001266 062700 add #14,r0 000016 001272 010046 mov r0,-(sp) 001274 012746 mov #-612,-(sp) 176634 001300 004767 jsr pc,001302 000000 001304 016700 mov 000150,r0 176642 001310 005360 dec 20(r0) 000024 001314 016700 mov 000160,r0 176642 001320 005760 tst 20(r0) 000024 001324 001005 bne 001340 001326 016700 mov 000172,r0 176642 001332 112760 movb #1,12(r0) 000001 000014 001340 010506 mov r5,sp 0013 42 012604 mov (sp)+,r4 001344 012605 mov (sp)+,r5 001346 000207 rts pc ;procedure ACCOUNTER 000000 012706 mov #0,sp 000000 000004 010605 mov sp,r5 000006 012700 mov #0,r0 000000 000012 004767 jsr pc,000014 000000 000016 162706 sub #628,sp 001164 000022 012746 mov #-602,-(sp) 176646 000026 012746 mov #1,-(sp) 000001 000032 012746 mov #256,-(sp) 000400 000036 004767 jsr pc,000040 000000 000042 012746 mov #-288,-(sp) 177340 00 0046 012746 mov #26,-(sp) 000032 000052 012746 mov #256,-(sp) 000400 000056 004767 jsr pc,000060 000000 000062 012746 mov #-288,-(sp) 177340 000066 012746 mov #0,-(sp) 000000 000072 005046 clr -(sp) 000074 004767 jsr pc,000076 000000 000100 112767 movb #58,176722 000072 176616 000106 112767 movb #32,176731 000040 176617 000114 012746 mov #10,-(sp) 000012 000120 011667 mov @sp,000132 000010 000124 012746 mov #10,-(sp) 000012 000130 005046 clr -(sp) 000132 004767 jsr pc,000134 000000 000136 016746 mov 000150,-(sp) 000010 000142 012746 mov #13,-(sp) 000015 000146 005046 clr -(sp) 000150 004767 jsr pc,000152 000000 000154 016746 mov 00016 6,-(sp) 000010 000160 012746 mov #16,-(sp) 000020 000164 012746 mov #42,-(sp) 000052 000170 005046 clr -(sp) 000172 004767 jsr pc,000174 000000 000176 012746 mov #10,-(sp) 000012 000202 004767 jsr pc,000204 000000 000206 012746 mov #74,-(sp) 000112 000212 011667 mov @sp,000224 000010 000216 012746 mov #-624,-(sp) 176620 000222 004767 jsr pc,000224 000000 000226 012746 mov #10,-(sp) 000012 000232 011667 mov @sp,000244 000010 000236 012746 mov #10,-(sp) 000012 000242 005046 clr -(sp) 000244 004767 jsr pc,000246 000000 000250 016746 mov 000262,-(sp) 000010 000254 012746 mov #13,-(sp) 000015 000260 005046 clr -(sp) 000262 004767 jsr pc,0 00264 000000 000266 016746 mov 000300,-(sp) 000010 000272 012746 mov #58,-(sp) 000072 000276 012746 mov #40,-(sp) 000050 000302 005046 clr -(sp) 000304 004767 jsr pc,000306 000000 000310 012746 mov #10,-(sp) 000012 000314 004767 jsr pc,000316 000000 000320 012746 mov #74,-(sp) 000112 000324 011667 mov @sp,000336 000010 000330 012746 mov #-628,-(sp) 176614 000334 004767 jsr pc,000336 000000 000340 016746 mov 000352,-(sp) 0000 10 000344 012746 mov #-627,-(sp) 176615 000350 004767 jsr pc,000352 000000 000354 012746 mov #10,-(sp) 000012 000360 011667 mov @sp,000372 000010 000364 012746 mov #10,-(sp) 000012 000370 005046 clr -(sp) 000372 004 767 jsr pc,000374 000000 000376 016746 mov 000410,-(sp) 000010 000402 012746 mov #13,-(sp) 000015 000406 005046 clr -(sp) 000410 004767 jsr pc,000412 000000 000414 016746 mov 000426,-(sp) 000010 000420 012746 mov #98,-(sp) 000142 000424 012746 mov #18,-(sp) 000022 000430 005046 clr -(sp) 000432 004767 jsr pc,000434 000000 000436 016746 mov 000450,-(sp) 000010 000442 012746 mov #-628,-(sp) 176614 000446 012746 mov #4,-(sp) 000004 000452 005046 clr -(sp) 000454 004767 jsr pc,000456 000000 000460 012746 mov #10,-(sp) 000012 000464 004767 jsr pc,000466 000000 000470 126727 cmpb 177312,#89 176620 000131 000476 001404 beq 000510 000500 1267 27 cmpb 177322,#121 176620 000171 000506 001003 bne 000516 000510 105067 clrb 177333 176621 000514 000403 br 000524 000516 112767 movb #1,177343 000001 176621 000524 105767 tstb 177347 176621 000530 001007 bne 000 550 000532 012746 mov #-602,-(sp) 176646 000536 012746 mov #-628,-(sp) 176614 000542 005046 clr -(sp) 000544 004767 jsr pc,000546 000000 000550 016746 mov 000560,-(sp) 000006 000554 012746 mov #22,-(sp) 000026 00056 0 004767 jsr pc,000562 000000 000564 012667 mov (sp)+,177432 176644 000570 016777 mov 177436,@177440 176644 176644 000576 016700 mov 177444,r0 176644 000602 016760 mov 177450,2(r0) 176644 000002 000610 016700 mov 177456,r0 176644 000614 105060 clrb 4(r0) 000004 000620 016700 mov 177466,r0 176644 000624 105060 clrb 5(r0) 000005 000630 105767 tstb 000174 177342 000634 001402 beq 000642 000636 000167 jmp 002074 001234 000642 012 700 mov #-314,r0 177306 000646 016701 mov 000210,r1 177340 000652 012702 mov #13,r2 000015 000656 012120 mov (r1)+,(r0)+ 000660 077202 sob r2,000656 000662 012746 mov #-288,-(sp) 177340 000666 012746 mov #26,-(sp) 000032 000672 004767 jsr pc,000674 000000 000676 026727 cmp 000210,#13012 177310 031324 000704 001002 bne 000712 000706 105067 clrb 177543 176633 000712 026727 cmp 000224,#4205 177310 010155 000720 001003 bne 0007 30 000722 112767 movb #1,177561 000001 176633 000730 026727 cmp 000242,#32614 177310 077546 000736 001003 bne 000746 000740 112767 movb #3,177577 000003 176633 000746 026727 cmp 000260,#-31573 177310 102253 000754 00 1003 bne 000764 000756 112767 movb #2,177615 000002 176633 000764 116700 movb 000301,r0 177313 000770 042700 bic #-256,r0 177400 000774 010067 mov r0,177622 176624 001000 116700 movb 000314,r0 177312 001004 042700 bic #-256,r0 177400 001010 010067 mov r0,177634 176622 001014 016767 mov 000344,177654 177326 176634 001022 016767 mov 000354,177664 177330 176636 001030 016767 mov 000364,177674 177332 176640 001036 105767 tstb 177 661 176621 001042 001402 beq 001050 001044 000167 jmp 001634 000566 001050 012746 mov #-602,-(sp) 176646 001054 011667 mov @sp,001066 000010 001060 012746 mov #10,-(sp) 000012 001064 005046 clr -(sp) 001066 004767 j sr pc,001070 000000 001072 016746 mov 001104,-(sp) 000010 001076 012746 mov #13,-(sp) 000015 001102 005046 clr -(sp) 001104 004767 jsr pc,001106 000000 001110 016746 mov 001122,-(sp) 000010 001114 012746 mov #-30 8,-(sp) 177314 001120 012746 mov #2,-(sp) 000002 001124 005046 clr -(sp) 001126 004767 jsr pc,001130 000000 001132 016746 mov 000452,-(sp) 177316 001136 010504 mov r5,r4 001140 004767 jsr pc,001142 000000 001144 016 746 mov 177772,-(sp) 176624 001150 016746 mov 177774,-(sp) 176622 001154 010504 mov r5,r4 001156 004767 jsr pc,001160 000000 001162 105767 tstb 000017 176633 001166 001013 bne 001216 001170 012746 mov #-602,-(sp) 176646 001174 011667 mov @sp,001206 000010 001200 012746 mov #116,-(sp) 000164 001204 012746 mov #16,-(sp) 000020 001210 005046 clr -(sp) 001212 004767 jsr pc,001214 000000 001216 126727 cmpb 000053,#1 176633 000001 001224 001013 bne 001254 001226 012746 mov #-602,-(sp) 176646 001232 011667 mov @sp,001244 000010 001236 012746 mov #132,-(sp) 000204 001242 012746 mov #16,-(sp) 000020 001246 005046 clr -(sp) 001250 004767 jsr p c,001252 000000 001254 126727 cmpb 000111,#3 176633 000003 001262 001013 bne 001312 001264 012746 mov #-602,-(sp) 176646 001270 011667 mov @sp,001302 000010 001274 012746 mov #148,-(sp) 000224 001300 012746 mov #16, -(sp) 000020 001304 005046 clr -(sp) 001306 004767 jsr pc,001310 000000 001312 126727 cmpb 000147,#2 176633 000002 001320 001013 bne 001350 001322 012746 mov #-602,-(sp) 176646 001326 011667 mov @sp,001340 000010 0 01332 012746 mov #164,-(sp) 000244 001336 012746 mov #16,-(sp) 000020 001342 005046 clr -(sp) 001344 004767 jsr pc,001346 000000 001350 012746 mov #-602,-(sp) 176646 001354 011667 mov @sp,001366 000010 001360 016746 mov 000710,-(sp) 177326 001364 012746 mov #2,-(sp) 000002 001370 004767 jsr pc,001372 000000 001374 016746 mov 001406,-(sp) 000010 001400 012746 mov #58,-(sp) 000072 001404 005046 clr -(sp) 001406 004767 jsr pc,0 01410 000000 001412 016746 mov 001424,-(sp) 000010 001416 016746 mov 000750,-(sp) 177330 001422 012746 mov #2,-(sp) 000002 001426 004767 jsr pc,001430 000000 001432 016746 mov 001444,-(sp) 000010 001436 012746 mov #58,-(sp) 000072 001442 005046 clr -(sp) 001444 004767 jsr pc,001446 000000 001450 012746 mov #-602,-(sp) 176646 001454 011667 mov @sp,001466 000010 001460 016746 mov 001014,-(sp) 177332 001464 012746 mov #2,-(sp) 000002 001470 004767 jsr pc,001472 000000 001474 016746 mov 001506,-(sp) 000010 001500 012746 mov #180,-(sp) 000264 001504 012746 mov #4,-(sp) 000004 001510 005046 clr -(sp) 001512 004767 jsr pc,001514 000000 001516 016746 mov 001530,-(sp) 000010 001522 016746 mov 001046,-(sp) 177322 001526 012746 mov #2,-(sp) 000002 001532 004767 jsr pc,001534 000000 001536 012746 mov #-602,-(sp) 176646 001542 011667 mov @sp,001554 000010 00 1546 012746 mov #47,-(sp) 000057 001552 005046 clr -(sp) 001554 004767 jsr pc,001556 000000 001560 016746 mov 001572,-(sp) 000010 001564 016746 mov 001112,-(sp) 177324 001570 012746 mov #2,-(sp) 000002 001574 004767 jsr pc,001576 000000 001600 016746 mov 001612,-(sp) 000010 001604 012746 mov #47,-(sp) 000057 001610 005046 clr -(sp) 001612 004767 jsr pc,001614 000000 001616 016746 mov 001630,-(sp) 000010 001622 016746 mov 001 144,-(sp) 177320 001626 012746 mov #2,-(sp) 000002 001632 004767 jsr pc,001634 000000 001636 126727 cmpb 000473,#3 176633 000003 001644 001051 bne 001770 001646 017767 mov @000514,000514 176644 176642 001654 026767 cm p 000520,000524 176642 176644 001662 001440 beq 001764 001664 016700 mov 000530,r0 176642 001670 112760 movb #1,12(r0) 000001 000014 001676 016700 mov 000542,r0 176642 001702 062700 add #14,r0 000016 001706 010046 mov r0,-(sp) 001710 012746 mov #-612,-(sp) 176634 001714 016700 mov 000560,r0 176642 001720 062700 add #6,r0 000006 001724 010046 mov r0,-(sp) 001726 016700 mov 000572,r0 176642 001732 016046 mov 20(r0),-(sp) 00 0024 001736 010504 mov r5,r4 001740 004767 jsr pc,001742 000000 001744 016700 mov 000610,r0 176642 001750 005060 clr 20(r0) 000024 001754 017767 mov @000620,000622 176642 176642 001762 000734 br 001654 001764 10506 7 clrb 000621 176633 001770 126727 cmpb 000625,#2 176633 000002 001776 001032 bne 002064 002000 105067 clrb 000635 176633 002004 010504 mov r5,r4 002006 004767 jsr pc,002010 000000 002012 112767 movb #1,000651 0000 01 176633 002020 116700 movb 001357,r0 177335 002024 042700 bic #-256,r0 177400 002030 010067 mov r0,000656 176624 002034 116700 movb 001372,r0 177334 002040 042700 bic #-256,r0 177400 002044 010067 mov r0,000670 1 76622 002050 116767 movb 001407,001367 177335 177313 002056 116767 movb 001414,001374 177334 177312 002064 010504 mov r5,r4 002066 004767 jsr pc,002070 000000 002072 000167 jmp 000626 176532 002076 012746 mov #-602,- (sp) 176646 002102 012746 mov #-628,-(sp) 176614 002106 005046 clr -(sp) 002110 004767 jsr pc,002112 000000 002114 017767 mov @000762,000762 176644 176642 002122 026767 cmp 000766,000772 176642 176644 002130 001002 b ne 002136 002132 000167 jmp 002562 000426 002136 012746 mov #-602,-(sp) 176646 002142 011667 mov @sp,002154 000010 002146 012746 mov #10,-(sp) 000012 002152 005046 clr -(sp) 002154 004767 jsr pc,002156 000000 00 2160 016746 mov 002172,-(sp) 000010 002164 012746 mov #13,-(sp) 000015 002170 005046 clr -(sp) 002172 004767 jsr pc,002174 000000 002176 016746 mov 002210,-(sp) 000010 002202 012746 mov #184,-(sp) 000270 002206 01274 6 mov #15,-(sp) 000017 002212 005046 clr -(sp) 002214 004767 jsr pc,002216 000000 002220 016700 mov 001064,r0 176642 002224 005046 clr -(sp) 002226 116016 movb 4(r0),@sp 000004 002232 016700 mov 001076,r0 176642 002236 005046 clr -(sp) 002240 116016 movb 5(r0),@sp 000005 002244 010504 mov r5,r4 002246 004767 jsr pc,002250 000000 002252 012746 mov #-602,-(sp) 176646 002256 011667 mov @sp,002270 000010 002262 012746 mov #199, -(sp) 000307 002266 012746 mov #4,-(sp) 000004 002272 005046 clr -(sp) 002274 004767 jsr pc,002276 000000 002300 016746 mov 002312,-(sp) 000010 002304 016700 mov 001150,r0 176642 002310 016046 mov 6(r0),-(sp) 00000 6 002314 012746 mov #6,-(sp) 000006 002320 004767 jsr pc,002322 000000 002324 016746 mov 002336,-(sp) 000010 002330 012746 mov #58,-(sp) 000072 002334 005046 clr -(sp) 002336 004767 jsr pc,002340 000000 002342 01274 6 mov #-602,-(sp) 176646 002346 011667 mov @sp,002360 000010 002352 016700 mov 001216,r0 176642 002356 016046 mov 8(r0),-(sp) 000010 002362 012746 mov #2,-(sp) 000002 002366 004767 jsr pc,002370 000000 002372 01674 6 mov 002404,-(sp) 000010 002376 012746 mov #58,-(sp) 000072 002402 005046 clr -(sp) 002404 004767 jsr pc,002406 000000 002410 012746 mov #-602,-(sp) 176646 002414 011667 mov @sp,002426 000010 002420 016700 mov 0 01264,r0 176642 002424 016046 mov 10(r0),-(sp) 000012 002430 012746 mov #2,-(sp) 000002 002434 004767 jsr pc,002436 000000 002440 016746 mov 002452,-(sp) 000010 002444 012746 mov #203,-(sp) 000313 002450 012746 mov #16,-(sp) 000020 002454 005046 clr -(sp) 002456 004767 jsr pc,002460 000000 002462 016700 mov 001326,r0 176642 002466 105760 tstb 12(r0) 000014 002472 001014 bne 002524 002474 012746 mov #-602,-(sp) 176646 002500 01 1667 mov @sp,002512 000010 002504 012746 mov #219,-(sp) 000333 002510 012746 mov #10,-(sp) 000012 002514 005046 clr -(sp) 002516 004767 jsr pc,002520 000000 002522 000413 br 002552 002524 012746 mov #-602,-(sp) 176646 002530 011667 mov @sp,002542 000010 002534 012746 mov #229,-(sp) 000345 002540 012746 mov #11,-(sp) 000013 002544 005046 clr -(sp) 002546 004767 jsr pc,002550 000000 002552 017767 mov @001416,001420 176642 1 76642 002560 000167 jmp 002120 177336 002564 012746 mov #-602,-(sp) 176646 002570 004767 jsr pc,002572 000000 002574 012746 mov #10,-(sp) 000012 002600 011667 mov @sp,002612 000010 002604 012746 mov #10,-(sp) 00001 2 002610 005046 clr -(sp) 002612 004767 jsr pc,002614 000000 002616 016746 mov 002630,-(sp) 000010 002622 012746 mov #13,-(sp) 000015 002626 005046 clr -(sp) 002630 004767 jsr pc,002632 000000 002634 016746 mov 00 2646,-(sp) 000010 002640 012746 mov #240,-(sp) 000360 002644 012746 mov #13,-(sp) 000015 002650 005046 clr -(sp) 002652 004767 jsr pc,002654 000000 002656 016746 mov 002670,-(sp) 000010 002662 012746 mov #10,-(sp) 000012 002666 005046 clr -(sp) 002670 004767 jsr pc,002672 000000 002674 016746 mov 002706,-(sp) 000010 002700 012746 mov #13,-(sp) 000015 002704 005046 clr -(sp) 002706 004767 jsr pc,002710 000000 002712 012746 mov #10,-(sp) 000012 002716 004767 jsr pc,002720 000000 002722 012746 mov #-602,-(sp) 176646 002726 004767 jsr pc,002730 000000 002732 012746 mov #-288,-(sp) 177340 002736 004767 jsr pc,002740 000000 002742 010506 mov r5,sp 002744 004767 jsr pc,002746 000000