.TITLE TEST .DSABL GBL .NLIST .INCLUDE /KXX:ASCII.MAC/ .INCLUDE /KXX:HWDF.MAC/ .LIST .ASECT .=0 V.0: .WORD V.0 HALT V.4: .WORD V.4+2 IOT V.10: .WORD V.10+2 IOT V.BPT: .WORD V.BPT+2 IOT V.IOT: .WORD V.IOT+2 IOT .WORD V.200 IOT V.EMT: .WORD V.EMT+2 IOT V.TRAP: .WORD V.TRAP+2 IOT V.40: .WORD V.40+2 HALT .WORD V.204 BIC (R0)+, (SP) V.50: .WORD V.50+2 HALT V.54: .WORD V.54+2 IOT V.TKB: .WORD V.TKB+2 IOT V.TPS: .WORD V.TPS+2 IOT V.70: .WORD V.70+2 IOT V.74: .WORD V.74+2 IOT V.LTC: .WORD V.LTC+2 IOT V.104: .WORD V.104+2 IOT V.110: .WORD V.110+2 IOT V.PRTY: .WORD V.PRTY+2 IOT V.120: .WORD V.120+2 IOT V.124: .WORD V.124+2 IOT V.130: .WORD V.130+2 IOT V.134: .WORD V.134+2 IOT V.140: .WORD V.140+2 IOT V.144: .WORD V.144+2 IOT V.150: .WORD V.150+2 IOT V.154: .WORD V.154+2 IOT V.160: .WORD V.160+2 IOT V.164: .WORD V.164+2 IOT V.170: .WORD V.170+2 IOT .WORD V.0 HALT V.200: .WORD V.134+3 BNE 177760 V.204: .WORD V.0 BNE V.210 V.210: .WORD V.0+1 RTI .WORD V.0 .WORD 14 V.220: .WORD V.220+2 IOT V.224: .WORD V.224+2 IOT V.230: .WORD V.230+2 IOT V.234: .WORD V.234+2 IOT V.240: .WORD V.240+2 IOT V.244: .WORD V.244+2 IOT V.MMU: .WORD V.MMU+2 IOT V.254: .WORD V.254+2 IOT V.260: .WORD V.260+2 IOT V.264: .WORD V.264+2 IOT V.270: .WORD V.270+2 IOT V.274: .WORD V.274+2 IOT V.300: .WORD V.300+2 IOT V.304: .WORD V.304+2 IOT V.310: .WORD V.310+2 IOT V.314: .WORD V.314+2 IOT V.320: .WORD V.320+2 IOT V.324: .WORD V.324+2 IOT V.330: .WORD V.330+2 IOT V.334: .WORD V.334+2 IOT V.340: .WORD V.340+2 IOT V.344: .WORD V.344+2 IOT V.350: .WORD V.350+2 IOT V.354: .WORD V.354+2 IOT V.360: .WORD V.360+2 IOT V.364: .WORD V.364+2 IOT V.370: .WORD V.370+2 IOT V.374: .WORD V.374+2 IOT V.400: .WORD V.400+2 IOT V.404: .WORD V.404+2 IOT V.410: .WORD V.410+2 IOT V.414: .WORD V.414+2 IOT V.420: .WORD V.420+2 IOT V.424: .WORD V.424+2 IOT V.430: .WORD V.430+2 IOT V.434: .WORD V.434+2 IOT V.440: .WORD V.440+2 IOT V.444: .WORD V.444+2 IOT V.450: .WORD V.450+2 IOT V.454: .WORD V.454+2 IOT V.460: .WORD V.460+2 IOT V.464: .WORD V.464+2 IOT V.470: .WORD V.470+2 IOT V.474: .WORD V.474+2 IOT V.500: .WORD V.500+2 IOT V.504: .WORD V.504+2 IOT V.510: .WORD V.510+2 IOT V.514: .WORD V.514+2 IOT V.520: .WORD V.520+2 IOT V.524: .WORD V.524+2 IOT V.530: .WORD V.530+2 IOT V.534: .WORD V.534+2 IOT V.540: .WORD V.540+2 IOT V.544: .WORD V.544+2 IOT V.550: .WORD V.550+2 IOT V.554: .WORD V.554+2 IOT V.560: .WORD V.560+2 IOT V.564: .WORD V.564+2 IOT V.570: .WORD V.570+2 IOT V.574: .WORD V.574+2 IOT V.600: .WORD V.600+2 IOT V.604: .WORD V.604+2 IOT V.610: .WORD V.610+2 IOT V.614: .WORD V.614+2 IOT V.620: .WORD V.620+2 IOT V.624: .WORD V.624+2 IOT V.630: .WORD V.630+2 IOT V.634: .WORD V.634+2 IOT V.640: .WORD V.640+2 IOT V.644: .WORD V.644+2 IOT V.650: .WORD V.650+2 IOT V.654: .WORD V.654+2 IOT V.660: .WORD V.660+2 IOT V.664: .WORD V.664+2 IOT V.670: .WORD V.670+2 IOT V.674: .WORD V.674+2 IOT V.700: .WORD V.700+2 IOT V.704: .WORD V.704+2 IOT V.710: .WORD V.710+2 IOT V.714: .WORD V.714+2 IOT V.720: .WORD V.720+2 IOT V.724: .WORD V.724+2 IOT V.730: .WORD V.730+2 IOT V.734: .WORD V.734+2 IOT V.740: .WORD V.740+2 IOT V.744: .WORD V.744+2 IOT V.750: .WORD V.750+2 IOT V.754: .WORD V.754+2 IOT V.760: .WORD V.760+2 IOT V.764: .WORD V.764+2 IOT V.770: .WORD V.770+2 IOT V.774: .WORD V.774+2 IOT M01000: HALT M01002: HALT M01004: HALT M01006: HALT HALT HALT M01014: HALT M01016: HALT M01020: M01021 =: .+1 HALT HALT BGE M01026 M01026: HALT M01030: HALT M01032: HALT M01034: HALT HALT M01040: HALT HALT M01044: HALT M01046: .WORD 177570 M01050: .WORD 177570 M01052: HALT M01054: HALT HALT HALT M01062: HALT M01064: HALT M01066: HALT M01070: HALT M01072: HALT M01074: .WORD 177777 HALT HALT A01102: .ASCII /CACHE SYSTEM ERROR/ A01126: .ASCII <0> A01127: .ASCIZ /ERROR DURING CPU TESTS/ A01160: .ASCIZ /ERROR WHILE TESTING BOARD FUNCTIONS/ A01226: .ASCIZ /ERROR # =/ A01242: .ASCIZ /ERROR PC =/ A01257: .ASCIZ / /<0> MOV #14, @#CCR MOV #1000, SP MOV #43470, @#V.EMT MOV #340, @#V.EMT+2 MOV #43152, @#V.TRAP MOV #340, @#V.TRAP+2 CLR M01006 MOV M41762+2, M41754+2 CLRB M01052 MOV @#V.4, -(SP) MOV #1406, @#V.4 MOV #177570, M01046 MOV #177570, M01050 CMP #177777, @M01046 BNE M01430 BR M01414 MOV #1414, (SP) RTI M01414: MOV #176, M01046 MOV #174, M01050 M01430: MOV (SP)+, @#V.4 CLR M01006 BITB #200, M01021 BEQ M01456 MOV #1022, M01046 M01456: MOV #43470, @#V.IOT MOV #340, @#V.IOT+2 CLR @#CPUERR M01476: CLR M01004 MOV #14, @#CCR INC M01004 SCC CLZ BEQ M01524 BNE M01532 M01524: EMT 0 WAIT BNE M02010 M01532: CCC SEZ BNE M01542 BEQ M01550 M01542: EMT 0 RTI BNE M02024+2 M01550: INC M01004 CCC BCC M01566 EMT 0 BPT BNE M02044 M01566: SEC BCS M01600 EMT 0 IOT BNE M02054+2 M01600: INC M01004 CLR R0 BNE M01622 CLR (R0) BNE M01622 TST @#V.0 BEQ M01630 M01622: EMT 0 RESET BNE M02106 M01630: INC M01004 MOV #125252, @#V.0 CMP #125252, @#V.0 BEQ M01660 EMT 0 RTT BNE M02136 M01660: INC M01004 MOV #52525, @#V.0 CMP @#V.0, #52525 BEQ M01710 EMT 0 MFPT BNE M02166 M01710: INC M01004 CLR @#V.0 COM @#V.0 CMP @#V.0, #177777 BEQ M01742 EMT 0 .WORD 10 BNE M02220 M01742: INC M01004 MOV #177777, R0 CMP R0, #177777 BEQ M01766 EMT 0 .WORD 11 BNE M02244 M01766: CLR R0 CMP R0, #0 BEQ M02004 EMT 0 .WORD 12 BNE M02260+2 M02004: MOV #125252, R0 M02010: CMP R0, #125252 BEQ M02024 EMT 0 .WORD 13 BNE M02302 M02024: MOV #52525, R0 CMP R0, #52525 BEQ M02044 EMT 0 .WORD 14 BNE M02322 M02044: INC M01004 MOV #177777, R1 M02054: CMP R1, #177777 BEQ M02070 EMT 0 .WORD 15 BNE M02346 M02070: CLR R1 CMP R1, #0 BEQ M02106 EMT 0 .WORD 16 BNE M02362+2 M02106: MOV #125252, R1 CMP R1, #125252 BEQ M02126 EMT 0 .WORD 17 BNE M02404 M02126: MOV #52525, R1 CMP R1, #52525 M02136: BEQ M02146 EMT 0 .WORD 20 BNE M02424 M02146: INC M01004 MOV #177777, R2 CMP R2, #177777 BEQ M02172 EMT 0 M02166: .WORD 21 BNE M02450 M02172: CLR R2 CMP R2, #0 BEQ M02210 EMT 0 .WORD 22 BNE M02464+2 M02210: MOV #125252, R2 CMP R2, #125252 M02220: BEQ M02230 EMT 0 .WORD 23 BNE M02506 M02230: MOV #52525, R2 CMP R2, #52525 BEQ M02250 EMT 0 M02244: .WORD 24 BNE M02526 M02250: INC M01004 MOV #177777, R3 M02260: CMP R3, #177777 BEQ M02274 EMT 0 .WORD 25 BNE M02552 M02274: CLR R3 CMP R3, #0 M02302: BEQ M02312 EMT 0 .WORD 26 BNE M02566+2 M02312: MOV #125252, R3 CMP R3, #125252 M02322: BEQ M02332 EMT 0 .WORD 27 BNE M02610 M02332: MOV #52525, R3 CMP R3, #52525 BEQ M02352 EMT 0 M02346: .WORD 30 BNE M02630 M02352: INC M01004 MOV #177777, R4 M02362: CMP R4, #177777 BEQ M02376 EMT 0 .WORD 31 BNE M02654 M02376: CLR R4 CMP R4, #0 M02404: BEQ M02414 EMT 0 .WORD 32 BNE M02670+2 M02414: MOV #125252, R4 CMP R4, #125252 M02424: BEQ M02434 EMT 0 .WORD 33 BNE M02712 M02434: MOV #52525, R4 CMP R4, #52525 BEQ M02454 EMT 0 M02450: .WORD 34 BNE M02732 M02454: INC M01004 MOV #177777, R5 M02464: CMP R5, #177777 BEQ M02500 EMT 0 .WORD 35 BNE M02756 M02500: CLR R5 CMP R5, #0 M02506: BEQ M02516 EMT 0 .WORD 36 BNE M02770+4 M02516: MOV #125252, R5 CMP R5, #125252 M02526: BEQ M02536 EMT 0 .WORD 37 BNE M03014 M02536: MOV #52525, R5 CMP R5, #52525 BEQ M02556 EMT 0 M02552: .WORD 40 BNE M03034 M02556: INC M01004 MOV #177777, SP M02566: CMP SP, #177777 BEQ M02602 EMT 0 .WORD 41 BNE M03060 M02602: CLR SP CMP SP, #0 M02610: BEQ M02620 EMT 0 .WORD 42 BNE M03076 M02620: MOV #125252, SP CMP SP, #125252 M02630: BEQ M02640 EMT 0 .WORD 43 BNE M03116 M02640: MOV #52525, SP CMP SP, #52525 BEQ M02660 EMT 0 M02654: .WORD 44 BNE M03136 M02660: MOV #1000, SP INC M01004 M02670: MOV #377, @#PS CMP #357, @#PS BEQ M02714 EMT 0 .WORD 45 M02712: BNE M03172 M02714: CLR @#PS CMP #0, @#PS BEQ M02736 EMT 0 M02732: .WORD 46 BNE M03214 M02736: MOV #105, @#PS CMP #105, @#PS BEQ M02762 EMT 0 M02756: .WORD 47 BNE M03240 M02762: MOV #252, @#PS M02770: CMP #252, @#PS BEQ M03006 EMT 0 .WORD 50 BNE M03264 M03006: INC M01004 CLR R4 M03014: COM R4 CLR R4 BEQ M03030 EMT 0 .WORD 51 BNE M03306 M03030: COM R4 INC R4 M03034: BEQ M03044 EMT 0 .WORD 52 BNE M03322 M03044: INC M01004 CLR R4 COM R4 CLRB R4 BEQ M03066 M03060: EMT 0 .WORD 53 BNE M03344 M03066: DECB R4 BPL M03076 COMB R4 BEQ M03104 M03076: EMT 0 .WORD 54 BNE M03362 M03104: INC M01004 CLR R4 CLR (R4) COM (R4) M03116: CLR (R4) BEQ M03130 EMT 0 .WORD 55 BNE M03406 M03130: COM (R4) BEQ M03142 BPL M03142 M03136: INC (R4) BEQ M03150 M03142: EMT 0 .WORD 56 BNE M03426 M03150: INC M01004 CLR R4 CLR (R4) COM (R4) CLRB (R4) CLRB (R4) BEQ M03176 EMT 0 M03172: .WORD 57 BNE M03454 M03176: INCB (R4) BMI M03214 BEQ M03214 COMB (R4) INCB (R4) INCB (R4) BEQ M03222 M03214: EMT 0 .WORD 60 BNE M03500 M03222: INC M01004 CLR R4 CLR (R4) COM (R4) INC R4 CLRB (R4) M03240: BEQ M03250 EMT 0 .WORD 61 BNE M03526 M03250: DEC R4 INC (R4) INC R4 COMB (R4) INCB (R4) BPL M03272 M03264: BEQ M03272 INCB (R4) BEQ M03300 M03272: EMT 0 .WORD 62 BNE M03556 M03300: INC M01004 CLR R4 M03306: COMB R4 INC R4 CLR (R4) COM (R4) CLR (R4)+ BEQ M03330 M03322: EMT 0 .WORD 63 BNE M03606 M03330: DEC R4 DEC R4 COM (R4)+ BPL M03350 DEC R4 DEC R4 M03344: INC (R4)+ BEQ M03356 M03350: EMT 0 .WORD 64 BNE M03634 M03356: INC M01004 M03362: CLR R4 COMB R4 INC R4 CLR (R4) COM (R4) CLRB (R4)+ BEQ M03406 EMT 0 .WORD 65 BNE M03664 M03406: DEC R4 DECB (R4)+ BPL M03422 DEC R4 COMB (R4)+ BEQ M03430 M03422: EMT 0 .WORD 66 M03426: BNE M03706 M03430: INC M01004 CLR R4 COMB R4 INC R4 CLR (R4) COM (R4) INC (R4) CLRB (R4)+ BEQ M03462 M03454: EMT 0 .WORD 67 BNE M03740 M03462: DEC R4 DEC R4 INCB (R4)+ COMB (R4)+ BPL M03502 DEC R4 INCB (R4)+ M03500: BEQ M03510 M03502: EMT 0 .WORD 70 BNE M03766 M03510: INC M01004 CLR R4 CLR (R4) COMB (R4) INC (R4) CLR @(R4)+ M03526: BEQ M03536 EMT 0 .WORD 71 BNE M04012+2 M03536: DEC R4 DEC R4 COM @(R4)+ BPL M03556 DEC R4 DEC R4 INC @(R4)+ BEQ M03564 M03556: EMT 0 .WORD 72 BNE M04042 M03564: INC M01004 CLR R4 CLR R1 COMB R1 INC R1 CLR (R1) COM (R1)+ CLR (R1) M03606: COMB (R1) CLR (R4) COMB (R4) INC (R4) CLRB @(R4)+ BEQ M03630 EMT 0 .WORD 73 BNE M04106 M03630: DEC R4 DEC R4 M03634: COMB @(R4)+ DEC R4 DEC R4 INCB @(R4)+ BEQ M03654 EMT 0 .WORD 74 BNE M04132 M03654: DEC R4 DEC R4 INC (R4) INCB @(R4)+ M03664: BNE M03676 DEC R4 DEC R4 CLRB @(R4)+ BEQ M03704 M03676: EMT 0 .WORD 75 BNE M04162 M03704: DEC R4 M03706: DEC R4 COMB @(R4)+ DEC R4 DEC R4 INCB @(R4)+ BEQ M03730 EMT 0 .WORD 76 BNE M04206 M03730: INC M01004 CLR R4 COMB R4 M03740: INC R4 CLR (R4) COM (R4)+ CLR (R4) INC (R4)+ CLR -(R4) BEQ M03764 EMT 0 .WORD 77 BNE M04242 M03764: DEC -(R4) M03766: COM (R4) BEQ M04004 BMI M04004 INC R4 INC R4 DEC -(R4) BEQ M04012 M04004: EMT 0 JMP R0 BNE M04270 M04012: INC M01004 CLR R4 COMB R4 INC R4 CLR -(R4) COMB (R4) INC (R4)+ CLR (R4) COM (R4)+ INC R4 CLRB -(R4) M04042: BEQ M04052 EMT 0 JMP R1 BNE M04326+2 M04052: INC R4 INC R4 COMB -(R4) DEC R4 DEC R4 INCB -(R4) BEQ M04076 EMT 0 JMP R2 BNE M04354 M04076: DECB -(R4) BEQ M04110 EMT 0 JMP R3 M04106: BNE M04366 M04110: INC M01004 CLR R4 CLR (R4) COMB (R4) INC (R4)+ CLR @-(R4) BEQ M04136 EMT 0 M04132: JMP R4 BNE M04414 M04136: INC R4 INC R4 COM @-(R4) BEQ M04164 INC R4 INC R4 DEC @-(R4) BEQ M04164 INC (R4)+ INCB @-(R4) M04162: BEQ M04172 M04164: EMT 0 JMP R5 BNE M04450 M04172: INC M01004 CLR R4 COMB R4 INC R4 CLR R1 M04206: COMB R1 DEC R1 CLR R2 CLR (R2) CLR (R4) COM (R4) CLR (R1) NEG @-(R4) BEQ M04236 EMT 0 JMP SP BNE M04514 M04236: DEC @(R4)+ NEG @-(R4) M04242: BEQ M04252 BVS M04252 BMI M04252 BCS M04260 M04252: EMT 0 JMP PC BNE M04536 M04260: DEC @(R4)+ BEQ M04272 EMT 0 JMP (R0) M04270: BNE M04550 M04272: INCB (R2) NEG @-(R4) BEQ M04306 BVS M04306 BCC M04306 BMI M04314 M04306: EMT 0 JMP (R1) BNE M04572 M04314: INCB (R2) BEQ M04326 EMT 0 JMP (R2) BNE M04602+2 M04326: INC M01004 CLR R4 INC R4 INC R4 CLR R1 COMB R1 INC R1 CLR (R1) COM (R1)+ CLR (R1) M04354: INC (R1) CLR R2 CLR (R2) CLR V.374+2(R4) M04366: BEQ M04376 EMT 0 JMP (R3) BNE M04654 M04376: DEC V.374+2(R4) COM V.400(R4) BEQ M04422 INC V.400(R4) M04414: INC V.400(R4) BEQ M04430 M04422: EMT 0 JMP (R4) BNE M04706 M04430: INC 177776(R1) BEQ M04444 EMT 0 JMP (R5) BNE M04722 M04444: INC M01004 M04450: CLR R1 CLR R4 COMB R4 INC R4 CLR (R4) COM (R4) CLR -(R4) CLR -(R4) INC (R4)+ NEG V.0+2(R4) BEQ M04506 BVS M04506 BMI M04506 BCS M04514 M04506: EMT 0 JMP (SP) BNE M04772 M04514: DEC V.0+2(R4) BEQ M04530 EMT 0 JMP (PC) BNE M05004+2 M04530: NEG V.0(R4) BEQ M04544 M04536: EMT 0 JMP (R0)+ BNE M05020+2 M04544: NEGB V.374(R1) M04550: BVS M04560 BEQ M04560 BPL M04560 BCS M04566 M04560: EMT 0 JMP (R1)+ BNE M05044 M04566: INCB V.374(R1) M04572: BEQ M04602 EMT 0 JMP (R2)+ BNE M05060 M04602: INC M01004 CLR R1 CLR R4 COMB R4 INC R4 CLR (R1) COMB (R1) INC (R1) INC (R1) INC (R1) CLR (R4) CLR V.0+2(R4) COM V.0+2(R4) CLR @177400(R4) BEQ M04656 EMT 0 JMP (R3)+ M04654: BNE M05134 M04656: COM @V.0(R1) BMI M04672 EMT 0 JMP (R4)+ BNE M05150 M04672: COM R4 INC @V.400+1(R4) BEQ M04710 EMT 0 JMP (R5)+ M04706: BNE M05166 M04710: INC M01004 CLR R4 CLR (R4) CLR R2 M04722: COMB R2 INC R2 CLR (R2) NEG @177400(R2) BCS M04740 BEQ M04746 M04740: EMT 0 JMP (SP)+ BNE M05224 M04746: DEC (R4) NEG @V.400(R4) BEQ M04764 BVS M04764 BMI M04764 BCS M04772 M04764: EMT 0 JMP #1127 M04772: INC M01004 CLR R4 COMB R4 INC R4 M05004: CLR #177777 BEQ M05020 EMT 0 JMP @(R0)+ BNE M05276 M05020: INC M01004 CLR R4 SCC CLZ TST R4 BCS M05044 BVS M05044 BMI M05044 BEQ M05052 M05044: EMT 0 JMP @(R1)+ BNE M05330 M05052: DEC R4 SCC CLN M05060: TST R4 BCS M05072 BVS M05072 BEQ M05072 BMI M05100 M05072: EMT 0 JMP @(R2)+ BNE M05356 M05100: INC M01004 CLR R4 COMB R4 SCC CLN TSTB R4 BVS M05126 BCS M05126 BVS M05126 BMI M05134 M05126: EMT 0 JMP @(R3)+ BNE M05412 M05134: INC R4 TSTB R4 BEQ M05150 EMT 0 JMP @(R4)+ BNE M05426 M05150: INC M01004 CLR R4 CLR (R4) SCC CLZ TST (R4) M05166: BCS M05176 BVS M05176 BMI M05176 BEQ M05204 M05176: EMT 0 JMP @(R5)+ BNE M05462 M05204: INC (R4) SCC TST (R4) BEQ M05222 BVS M05222 BCS M05222 BPL M05230 M05222: EMT 0 M05224: JMP @(SP)+ BNE M05506 M05230: INC M01004 CLR R4 CLR (R4) COMB (R4) INC (R4) SCC CLZ TSTB (R4) BCS M05262 BVS M05262 BMI M05262 BEQ M05270 M05262: EMT 0 M05264: JMP @#A01127 M05270: INC R4 SCC TSTB (R4) M05276: BEQ M05306 BMI M05306 BVS M05306 BCC M05314 M05306: EMT 0 JMP -(R0) BNE M05572 M05314: INC M01004 CLR R4 CLR (R4)+ CLR (R4) COM (R4) M05330: CLR R4 SCC CLZ TST (R4)+ BCS M05350 BVS M05350 BMI M05350 BEQ M05356 M05350: EMT 0 JMP -(R1) BNE M05634 M05356: TST (R4)+ BCS M05370 BVS M05370 BEQ M05370 BMI M05376 M05370: EMT 0 JMP -(R2) BNE M05654 M05376: INC M01004 CLR R4 CLR (R4)+ COMB -(R4) DEC R4 M05412: SCC CLZ TSTB (R4)+ BVS M05430 BCS M05430 BMI M05430 M05426: BEQ M05436 M05430: EMT 0 JMP -(R3) BNE M05714 M05436: SCC CLN TSTB (R4)+ BEQ M05454 BCS M05454 BVS M05454 BMI M05462 M05454: EMT 0 JMP -(R4) BNE M05740 M05462: INC M01004 CLR R4 CLR (R4) COMB (R4) INC (R4) CLR @(R4)+ CLR R4 SCC CLZ M05506: TST @(R4)+ BCS M05520 BVS M05520 BMI M05520 BEQ M05526 M05520: EMT 0 JMP -(R5) BNE M06004 M05526: DEC R4 DEC R4 DEC @(R4)+ CLR R4 SCC CLN TST @(R4)+ BCS M05554 BEQ M05554 BVS M05554 BMI M05562 M05554: EMT 0 JMP -(SP) BNE M06040 M05562: INC M01004 CLR R4 CLR (R4) M05572: COMB (R4) INC (R4) CLR R1 COMB R1 INC R1 CLR (R1) SCC TST @(R4)+ BCS M05622 BVS M05622 BMI M05622 BEQ M05630 M05622: EMT 0 JMP -(PC) BNE M06106 M05630: DEC R4 DEC R4 M05634: TST R4 BEQ M05646 EMT 0 JMP @-(R0) BNE M06124 M05646: INC M01004 CLR R4 M05654: CLR (R4) COMB (R4) INC (R4) INC (R4) CLR R1 COMB R1 INC R1 CLR (R1) COM (R1) CLRB (R1) TSTB @(R4)+ BEQ M05712 BCS M05712 BVS M05712 BMI M05720 M05712: EMT 0 M05714: JMP @-(R1) BNE M06176 M05720: DEC R4 DEC R4 BEQ M05734 EMT 0 JMP @-(R2) BNE M06212 M05734: INC M01004 M05740: CLR R4 CLR (R4) INC R4 INC R4 SCC CLZ TST -(R4) BCS M05766 BVS M05766 BMI M05766 BEQ M05774 M05766: EMT 0 JMP @-(R3) BNE M06252 M05774: TST R4 BEQ M06006 EMT 0 JMP @-(R4) M06004: BNE M06264 M06006: INC M01004 CLR R4 CLR (R4) COM (R4) COMB (R4) SCC INC R4 INC R4 TSTB -(R4) BEQ M06042 BCS M06042 BVS M06042 M06040: BMI M06050 M06042: EMT 0 JMP @-(R5) BNE M06326 M06050: TSTB -(R4) BEQ M06062 EMT 0 JMP @-(SP) BNE M06340 M06062: INC M01004 CLR R4 CLR (R4)+ SCC CLZ TST @-(R4) BCS M06110 BVS M06110 BMI M06110 M06106: BEQ M06116 M06110: EMT 0 JMP @-(PC) BNE M06374 M06116: TST R4 BEQ M06130 EMT 0 M06124: JMP A01127(R0) M06130: INC M01004 CLR R4 CLR (R4) COMB (R4) INC (R4) CLR @(R4)+ COM @-(R4) COMB @(R4)+ TSTB @-(R4) BCS M06164 BMI M06164 BVS M06164 BEQ M06172 M06164: EMT 0 JMP A01127(R1) M06172: INC (R4)+ TSTB @-(R4) M06176: BMI M06206 EMT 0 JMP A01127(R2) M06206: INC M01004 M06212: CLR R4 CLR (R4) COMB R4 INC R4 CLR (R4) COM (R4) TST 177400(R4) BCS M06242 BVS M06242 BMI M06242 BEQ M06250 M06242: EMT 0 JMP A01127(R3) M06250: CLR R4 M06252: TST V.400(R4) BEQ M06262 BMI M06270 M06262: EMT 0 M06264: JMP A01127(R4) M06270: INC M01004 CLR R4 CLR (R4) COM (R4)+ CLR (R4) CLR R2 CLR R4 COMB R4 INC R4 CLR (R4) TST @177402(R4) BCS M06332 BVS M06332 M06326: BEQ M06332 BMI M06340 M06332: EMT 0 JMP A01127(R5) M06340: INC (R2)+ TST @177402(R4) BMI M06352 BEQ M06360 M06352: EMT 0 JMP A01127(SP) M06360: INC M01004 CLR R4 CLR R1 COM R1 MOV R1, R4 M06374: BEQ M06402 BVS M06402 BMI M06410 M06402: EMT 0 JMP M07537 M06410: INC R4 BNE M06402 INC M01004 CLR R4 CLR R1 COM R1 ADD R1, R4 BEQ M06440 BCS M06440 BVS M06440 BMI M06446 M06440: EMT 0 JMP @A01127(R0) M06446: INC R4 BEQ M06460 EMT 0 JMP @A01127(R1) M06460: INC M01004 CLR R4 CLR R1 INC R1 SUB R1, R4 BVS M06504 BCC M06504 BEQ M06504 BMI M06512 M06504: EMT 0 JMP @A01127(R2) M06512: COM R1 INC R1 SUB R1, R4 BEQ M06530 EMT 0 JMP @A01127(R3) M06530: INC M01004 CCC MOV #125252, R4 BEQ M06546 BMI M06554 M06546: EMT 0 JMP @A01127(R4) M06554: MOV #52525, R1 BMI M06564 BNE M06572 M06564: EMT 0 JMP @A01127(R5) M06572: ADD R1, R4 BMI M06604 M06576: EMT 0 JMP @A01127(SP) M06604: INC R4 BNE M06576 INC M01004 CLR R4 COM R4 MOV #125252, R1 MOV #52525, R2 SEC BIC R1, R4 BCC M06644 BVS M06644 BEQ M06644 BPL M06652 M06644: EMT 0 JMP @M10001 M06652: CMP R4, R2 BEQ M06664 EMT 0 RTS R0 BNE M07142 M06664: DEC R1 BIS R2, R1 BMI M06700 M06672: EMT 0 RTS R0 BNE M07156 M06700: INC R1 INC R1 INC R1 BNE M06672 INC M01004 MOV #125252, R1 MOV #100000, R4 MOV #52525, R2 BIT R4, R1 BEQ M06736 BMI M06744 M06736: EMT 0 RTS R0 BNE M07220+2 M06744: CMP R4, R1 BEQ M06754 BCC M06754 BMI M06762 M06754: EMT 0 RTS R0 BNE M07240 M06762: CMP R1, R4 BEQ M06774 BCS M06774 BVS M06774 BPL M07002 M06774: EMT 0 RTS R0 BNE M07260 M07002: CLR R4 INC R4 SCC BIT R4, R1 BEQ M07022 EMT 0 RTS R0 BNE M07300 M07022: INC M01004 MOV #400, R4 MOV #402, R1 CLR (R4) COM (R4) CLR (R1) COMB (R1) CLR R2 MOV #405, R3 SCC MOV (R4), (R2) BEQ M07070 BVS M07070 BCC M07070 BMI M07076 M07070: EMT 0 RTS R0 BNE M07354 M07076: INC (R2) BNE M07112 CCC MOVB (R1), (R3) BEQ M07112 BMI M07120 M07112: EMT 0 RETURN BNE M07374+2 M07120: INCB (R3) BNE M07112 CLR R2 MOVB (R1), R2 BPL M07144 BVS M07144 BCS M07144 CMP #177777, R2 M07142: BEQ M07152 M07144: EMT 0 .WORD 210 BNE M07430 M07152: INC M01004 M07156: MOV #400, R4 MOV #402, R1 MOV #177753, (R4) MOV #24, (R1) ADD (R1), (R4) BEQ M07212 BCS M07212 BPL M07212 INC (R4) BEQ M07220 M07212: EMT 0 .WORD 211 BNE M07474+2 M07220: INC M01004 MOV #400, R4 MOV #404, R1 MOV #3, (R4) M07240: MOV #6, (R1) SCC SUB (R4), (R1) BEQ M07256 BMI M07256 BCC M07264 M07256: EMT 0 M07260: .WORD 212 BNE M07542 M07264: SUB (R4), (R1) BNE M07256 INC M01004 MOV #400, R4 M07300: MOV #402, R1 MOV #52525, (R4) MOV #125252, (R1) BIS (R4), (R1) BEQ M07322 BMI M07330 M07322: EMT 0 .WORD 213 BNE M07606 M07330: INC (R1) BEQ M07342 EMT 0 .WORD 214 BNE M07620 M07342: DEC (R1) BIC (R4), (R1) BEQ M07352 BMI M07360 M07352: EMT 0 M07354: .WORD 215 BNE M07636 M07360: COM (R1) BIC (R1), (R4) BEQ M07374 EMT 0 .WORD 216 BNE M07652 M07374: INC M01004 MOV #400, R4 MOV #52525, (R4) MOV #402, R1 MOV #125252, (R1) CLC BIT (R4), (R1) BCS M07430 BEQ M07436 M07430: EMT 0 .WORD 217 BNE M07714 M07436: CMP (R4), (R1) BEQ M07450 BCC M07450 BVC M07450 BMI M07456 M07450: EMT 0 .WORD 220 BNE M07734 M07456: CLR (R4) INC (R4) BIT (R1), (R4) BEQ M07474 EMT 0 .WORD 221 BNE M07752 M07474: INC M01004 MOV #400, R4 MOV #402, R1 MOV #5, (R4) CLR (R1)+ CLR (R1) COM (R1) TST -(R1) SCC MOV (R1)+, (R4)+ BMI M07540 BCC M07540 BVS M07540 M07536: M07537 =: .+1 BEQ M07546 M07540: EMT 0 M07542: .WORD 222 BNE M10024 M07546: INC -(R4) ADD (R4), (R1) BEQ M07562 EMT 0 .WORD 223 BNE M10040 M07562: INC M01004 MOV #400, R4 MOV #402, R1 MOV #177760, (R4) MOV #177750, (R1) M07606: SUB (R4)+, (R1)+ BEQ M07620 BVS M07620 BCC M07620 BMI M07626 M07620: EMT 0 .WORD 224 BNE M10104 M07626: INC -(R1) SUB #177771, (R1)+ BMI M07640 M07636: BEQ M07646 M07640: EMT 0 .WORD 225 BNE M10124 M07646: INC M01004 M07652: MOV #400, R4 MOV #402, R1 MOV #404, R2 MOV #141401, (R4) MOV #177405, (R1) MOV #70, (R2)+ MOV #177777, (R2)+ BIC (R4)+, (R1)+ BEQ M07714 BPL M07722 M07714: EMT 0 .WORD 226 BNE M10176+2 M07722: BIS (R4)+, (R1)+ BICB (R4)+, (R1)+ DEC R1 BISB (R4)+, (R1)+ BMI M07742 M07734: EMT 0 .WORD 227 BNE M10220 M07742: INC (R4) BEQ M07754 EMT 0 SPL 0 M07752: BNE M10232 M07754: INC M01004 MOV #400, R4 MOV #402, R1 MOV #125252, (R4) MOV #100001, (R1)+ M10000: M10001 =: .+1 MOV #100002, (R1) TST -(R1) BITB (R4)+, (R1)+ BMI M10014 BEQ M10022 M10014: EMT 0 SPL 1 M10021 =: .+1 BNE M10276+2 M10022: BITB (R1)+, (R4)+ M10024: BEQ M10030 BMI M10036 M10030: EMT 0 SPL 2 BNE M10312+2 M10036: CMP (R4)+, (R1)+ M10040: BEQ M10046 BCC M10046 BMI M10054 M10046: EMT 0 SPL 3 BNE M10332 M10054: DEC -(R1) TST -(R1) CMP (R1)+, (R4)+ BEQ M10072 EMT 0 SPL 4 BNE M10350 M10072: INC M01004 CLR R4 MOV #2, R1 M10104: MOV #400, R2 MOV #400, (R4) MOV #402, (R1) MOV #200, (R2)+ M10124: MOV #54320, (R2) SUB @(R4)+, @(R1)+ BEQ M10140 BCS M10140 BPL M10146 M10140: EMT 0 SPL 5 BNE M10424 M10146: CMP #54120, (R2) BEQ M10162 EMT 0 SPL 6 BNE M10440 M10162: CLR V.0 CLR V.0+2 INC M01004 M10176: MOV #400, R4 MOV #402, R1 MOV #125366, (R1)+ MOV #173001, (R4)+ CMP -(R4), -(R1) M10220: BCS M10224 BPL M10232 M10224: EMT 0 SPL 7 BNE M10510 M10232: INC R4 INC R1 SEC BITB -(R1), -(R4) BCC M10246 BEQ M10254 M10246: EMT 0 NOP BNE M10532 M10254: TST (R4)+ INC R1 CMPB -(R4), -(R1) BEQ M10272 EMT 0 CLC BNE M10550 M10272: INC M01004 M10276: MOV #400, R4 MOV #1, (R4)+ MOV #177776, (R4)+ M10312: MOV #400, (R4)+ MOV #402, (R4) MOV #410, R1 ADD @-(R4), @-(R1) BEQ M10336 M10332: BPL M10336 BCC M10344 M10336: EMT 0 CLV BNE M10622 M10344: ADD #4, R4 M10350: ADD @-(R1), @-(R4) BEQ M10362 EMT 0 .WORD CLV!CLC BNE M10636+2 M10362: INC M01004 CLR R4 MOV #400, R1 MOV #125252, (R1)+ MOV #1, (R1)+ MOV #100000, (R1)+ BIT V.400(R4), 177774(R1) BEQ M10426 EMT 0 CLZ M10424: BNE M10704 M10426: BITB V.404+1(R4), 177772(R1) BEQ M10440 BMI M10446 M10440: EMT 0 .WORD CLZ!CLC BNE M10724 M10446: INC M01004 MOV #400, R4 CLR R1 MOV #177776, (R4)+ MOV #177777, (R4)+ MOV #400, (R4)+ MOV #402, (R1) INC R1 SUB @177372(R4), @V.400+3(R1) M10510: BEQ M10514 BMI M10522 M10514: EMT 0 .WORD CLZ!CLV BNE M11000 M10522: SUB @177777(R1), @177776(R4) BEQ M10540 M10532: EMT 0 .WORD CLZ!CLV!CLC BNE M11016 M10540: CLR V.0 CLR V.0+2 M10550: INC M01004 MOV #125252, R4 SCC ROL R4 BVC M10576 BCC M10576 CMP #52525, R4 BEQ M10604 M10576: EMT 0 CLN BNE M11062 M10604: MOV #125252, R4 CCC ROLB R4 BCC M10630 BVC M10630 BMI M10630 M10622: CMP #125124, R4 BEQ M10636 M10630: EMT 0 .WORD CLN!CLC BNE M11114 M10636: INC M01004 CLR R4 MOV #52525, (R4) ROL (R4) BPL M10666 BVC M10666 BCS M10666 CMP (R4), #125252 BEQ M10674 M10666: EMT 0 .WORD CLN!CLV BNE M11152 M10674: MOV #125252, (R4) INC R4 SCC M10704: ROLB (R4) BMI M10724 BCC M10724 BVC M10724 DEC R4 CMP #52652, (R4) BEQ M10732 M10724: EMT 0 .WORD CLN!CLV!CLC BNE M11210 M10732: INC M01004 CLR R4 MOV #100000, (R4) CCC ROL (R4)+ BCC M10756 BVC M10756 BEQ M10764 M10756: EMT 0 .WORD CLN!CLZ BNE M11242 M10764: DEC R4 DEC R4 BNE M11016 MOV #4040, (R4) CLC M11000: ROLB (R4)+ BCS M11016 BVS M11016 DEC R4 CMP #4100, (R4) BEQ M11024 M11016: EMT 0 .WORD CLN!CLZ!CLC BNE M11302 M11024: INC M01004 CLR R4 MOV #52525, (R4) SCC ROL @#V.0 BPL M11060 BVC M11060 BCS M11060 CMP #125253, (R4) BEQ M11066 M11060: EMT 0 M11062: .WORD CLN!CLZ!CLV BNE M11342+2 M11066: MOV #125252, (R4) SEC ROLB @#V.0 BMI M11106 BCC M11106 BVS M11114 M11106: EMT 0 CCC BNE M11372 M11114: INC M01004 CLR R1 MOV #2, R4 MOV #54321, (R1) SCC ROL -(R4) BPL M11156 BVC M11156 BCS M11156 CMP #130643, (R1) BNE M11156 M11152: TST R4 BEQ M11164 M11156: EMT 0 .WORD NOP!20 BNE M11440+2 M11164: INC M01004 CLR R4 MOV #400, (R4) MOV #123456, @(R4)+ SCC ROL @-(R4) BMI M11230 M11210: BCC M11230 BVC M11230 TST R4 BNE M11230 CMP #47135, @#V.400 BEQ M11236 M11230: EMT 0 SEC BNE M11512+2 M11236: INC M01004 M11242: MOV #400, R4 CLR R1 MOV #32525, (R1) SCC ROL 177400(R4) BMI M11276 BCS M11276 BVS M11276 CMP #65253, (R1) BEQ M11304 M11276: EMT 0 SEV M11302: BNE M11562 M11304: INC M01004 MOV #400, R4 CLR @#V.400+2 MOV #100000, @#V.0 ROL @V.0+2(R4) BMI M11350 BNE M11350 BCC M11350 BVC M11350 M11342: TST @#V.0 BEQ M11356 M11350: EMT 0 .WORD SEV!SEC BNE M11630+4 M11356: INC M01004 MOV #400, R4 MOV #40700, (R4) M11372: SWAB @#V.400 BMI M11414 CMP #140101, (R4) BNE M11414 SWAB @#V.400 BMI M11422 M11414: EMT 0 SEZ BNE M11676+2 M11422: INC M01004 MOV #52525, R4 CCC ROR R4 BCC M11446 M11440: CMP #25252, R4 BEQ M11454 M11446: EMT 0 .WORD SEZ!SEC BNE M11730+2 M11454: INC M01004 CLR R4 MOV #1, (R4) SCC RORB (R4) BCC M11504 BPL M11504 CMP #200, (R4) BEQ M11512 M11504: EMT 0 .WORD SEZ!SEV BNE M11770 M11512: INC M01004 MOV #1, @#M01066 MOV #11600, R1 JMP (R1) CMP @#M01066, #2 BEQ M11550 EMT 0 .WORD SEZ!SEV!SEC BNE M12026 M11550: CMP R1, #11534 BEQ M11564 EMT 0 SEN M11562: BNE M12042 M11564: INC @#M01066 MOV #11576, R1 JMP @(R1)+ MOV (SP), @(R0)+ CMP @#M01066, #1 BEQ M11616 EMT 0 .WORD SEN!SEC BNE M12074 M11616: INC @#M01066 MOV #11532, R1 JMP (R1)+ M11630: CMP @#M01066, #3 BEQ M11646 EMT 0 .WORD SEN!SEV BNE M12122+2 M11646: CMP #11600, R1 BEQ M11662 EMT 0 .WORD SEN!SEV!SEC BNE M12136+2 M11662: INC @#M01066 MOV #11746, R1 JMP -(R1) HALT M11676: CMP #12012, R1 BEQ M11712 EMT 0 .WORD SEN!SEZ BNE M12166+2 M11712: CMP @#M01066, #5 BEQ M11730 EMT 0 .WORD SEN!SEZ!SEC BNE M12206 M11730: INC @#M01066 MOV #12007, R1 JMP V.4+1(R1) NOP CMP #11744, R1 BEQ M11762 EMT 0 .WORD SEN!SEZ!SEV BNE M12240 M11762: CMP @#M01066, #4 M11770: BEQ M12000 EMT 0 SCC BNE M12254+2 M12000: INC @#M01066 MOV #12014, R1 JMP @-(R1) MOV (SP), @M22734+3(SP) RTT BNE M12174+2 BEQ M12032 EMT 0 M12026: SWAB R0 BNE M12310 M12032: INC @#M01066 MOV #12056, R1 M12042: JMP @177770(R1) MOV (R0)+, @-(R2) HALT CMP #7, @#M01066 BEQ M12070 EMT 0 SWAB R1 BNE M12346 M12070: INC M01004 M12074: MOV #12404, R1 MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) M12122: MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) M12136: MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) M12166: MOV #240, (PC) JMP (R1) M12174: MOV #240, (PC) JMP (R1) MOV #240, (PC) M12206: JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) M12240: MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) M12254: MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) M12310: JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) M12346: JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) MOV #240, (PC) JMP (R1) JMP @#M12412 EMT 0 SWAB R2 BNE M12666+2 M12412: MOV #40, R2 MOV #12104, R3 M12422: MOV #111, (R3) ADD #6, R3 SOB R2, M12422 INC M01004 MOV #0, @#M01066 JMP (PC) TST @#M01066 BEQ M12464 EMT 0 SWAB R3 BNE M12740+2 M12464: INC @#M01066 JMP #401 HALT CMP @#M01066, #1 BEQ M12514 EMT 0 SWAB R4 BNE M12772 M12514: INC @#M01066 JMP @#M12576 M12524: CMP @#M01066, #3 BEQ M12542 EMT 0 SWAB R5 BNE M13020 M12542: INC @#M01066 CCC JMP @M12556 HALT M12556: MOV (R5)+, M23727(R0) BNE M12740 IOT BEQ M12624 EMT 0 SWAB SP BNE M13050+4 M12576: CMP @#M01066, #2 BEQ M12614 EMT 0 SWAB PC BNE M13072 M12614: INC @#M01066 JMP M12524 M12624: INC M01004 MOV SP, @#M01070 MOV SP, @#M01072 SUB #2, @#M01072 MOV #1, @#M01066 MOV #12760, R1 CLR R4 COM R4 JSR R4, (R1) M12666: CMP #2, @#M01066 BEQ M12704 EMT 0 SWAB (R0) BNE M13162 M12704: CMP @#M01072, SP BNE M12726 CMP (SP), #125252 BNE M12726 CMP #13050, R4 BEQ M12734 M12726: EMT 0 SWAB (R1) BNE M13212 M12734: INC @#M01066 M12740: MOV @#M01070, SP MOV #12756, R1 CLR R4 JSR R4, @(R1)+ HALT MOV @(R1)+, -(R4) CMP #1, @#M01066 BEQ M12776 EMT 0 M12772: SWAB (R2) BNE M13254 M12776: CMP @#M01072, SP BNE M13020 CMP (SP), #177777 BNE M13020 CMP #12666, R4 BEQ M13026 M13020: EMT 0 SWAB (R3) BNE M13304 M13026: INC @#M01066 MOV @#M01070, SP MOV #125252, R4 MOV #12666, R1 JSR R4, (R1)+ M13050: CMP #4, @#M01066 BEQ M13066 EMT 0 SWAB (R4) BNE M13344 M13066: CMP @#M01072, SP M13072: BNE M13110 CMP (SP), #52525 BNE M13110 CMP #13236, R4 BEQ M13116 M13110: EMT 0 SWAB (R5) BNE M13374 M13116: INC @#M01066 MOV @#M01070, SP MOV #377, R4 MOV #13144, R1 JSR R4, @-(R1) HALT MOV @(R3)+, @(R2)+ CMP #3, @#M01066 BEQ M13162 EMT 0 SWAB (SP) BNE M13440 M13162: CMP @#M01072, SP BNE M13204 CMP (SP), #0 BNE M13204 CMP #12754, R4 BEQ M13212 M13204: EMT 0 SWAB (PC) BNE M13470 M13212: INC @#M01066 MOV @#M01070, SP MOV #52525, R4 MOV #13052, R1 CCC JSR R4, -(R1) CMP #6, @#M01066 BEQ M13254 EMT 0 SWAB (R0)+ BNE M13532 M13254: CMP @#M01072, SP BNE M13276 CMP (SP), #123456 BNE M13276 CMP #13424, R4 BEQ M13304 M13276: EMT 0 SWAB (R1)+ BNE M13562 M13304: INC @#M01066 MOV @#M01070, SP MOV #177773, R4 MOV #13340, R1 JSR R4, @177770(R1) MOV @(R4)+, (R4)+ CMP #5, @#M01066 BEQ M13350 EMT 0 M13344: SWAB (R2)+ BNE M13626 M13350: CMP @#M01072, SP BNE M13372 CMP (SP), #377 BNE M13372 CMP #13140, R4 BEQ M13400 M13372: EMT 0 M13374: SWAB (R3)+ BNE M13654+2 M13400: INC @#M01066 MOV @#M01070, SP MOV #123456, R4 MOV #13246, R1 JSR R4, 177770(R1) CMP #7, @#M01066 BEQ M13442 EMT 0 SWAB (R4)+ M13440: BNE M13720 M13442: CMP @#M01072, SP BNE M13464 CMP (SP), #177773 BNE M13464 CMP #13330, R4 BEQ M13472 M13464: EMT 0 SWAB (R5)+ M13470: BNE M13750 M13472: MOV @#M01070, SP INC M01004 MOV #1, @#M01066 MOV SP, @#M01070 MOV SP, @#M01072 SUB #2, @#M01072 MOV #177777, R4 M13532: JSR R4, #240 CMP #1, @#M01066 BNE M13570 CMP @#M01072, SP BNE M13570 CMP (SP), #177777 BNE M13570 M13562: CMP R4, #13536 BEQ M13576 M13570: EMT 0 SWAB (SP)+ BNE M14054 M13576: INC @#M01066 MOV #152525, R4 MOV @#M01070, SP JSR R4, @#M13702+2 HALT M13620: CMP @#M01066, #3 M13626: BNE M13652 CMP @#M01072, SP BNE M13652 CMP (SP), #125 BNE M13652 CMP R4, #13764 BEQ M13660 M13652: EMT 0 M13654: SWAB #1127 M13660: INC @#M01066 MOV @#M01070, SP MOV #1, R4 JSR R4, @M13702 HALT M13702: MOV @#M23727, M01066(R4) RTI BNE M13736 CMP @#M01072, SP M13720: BNE M13736 CMP (SP), #152525 BNE M13736 CMP R4, #13616 BEQ M13744 M13736: EMT 0 SWAB @(R0)+ BNE M14220+2 M13744: INC @#M01066 M13750: MOV @#M01070, SP MOV #125, R4 JSR R4, M13620 CMP @#M01066, #4 BNE M14016 CMP @#M01072, SP BNE M14016 CMP (SP), #1 BNE M14016 CMP R4, #13700 BEQ M14024 M14016: EMT 0 SWAB @(R1)+ BNE M14302 M14024: MOV @#M01070, SP INC M01004 MOV #1000, SP MOV #123456, -(SP) MOV #14060, R3 RTS R0 EMT 0 M14054: SWAB @(R2)+ BNE M14334+2 CMP #123456, R3 BEQ M14074 EMT 0 SWAB @(R3)+ BNE M14350+2 M14074: MOV SP, R1 MOV #14114, R5 MOV R5, SP RTS R0 EMT 0 SWAB @(R4)+ BNE M14370+2 CMP (R5), SP BEQ M14126 EMT 0 SWAB @(R5)+ BNE M14404 M14126: MOV R1, SP INC M01004 MOV #40000, @#PS MOV #177777, SP CMP #177777, SP BEQ M14162 EMT 0 SWAB @(SP)+ BNE M14440 M14162: CLR SP CMP #0, SP BEQ M14200 EMT 0 SWAB @#A01127 M14200: MOV #125252, SP CMP #125252, SP BEQ M14220 EMT 0 SWAB -(R0) BNE M14474+2 M14220: MOV #52525, SP CMP #52525, SP BEQ M14240 EMT 0 SWAB -(R1) BNE M14516 M14240: MOV #700, SP MOV #140000, @#PS MOV #177777, SP CMP #177777, SP BEQ M14272 EMT 0 SWAB -(R2) BNE M14550 M14272: CLR SP CMP #0, SP BEQ M14310 M14302: EMT 0 SWAB -(R3) BNE M14566 M14310: MOV #125252, SP CMP #125252, SP BEQ M14330 EMT 0 SWAB -(R4) BNE M14606 M14330: MOV #52525, SP M14334: CMP #52525, SP BEQ M14350 EMT 0 SWAB -(R5) BNE M14626 M14350: MOV #600, SP CLR @#PS MOV #1000, SP CLR @#V.700 M14370: CLR @#V.600 CLR @#M01000 CALL M14474 M14404: MOV #40000, @#PS CMP #700, SP BEQ M14426 EMT 0 SWAB -(SP) BNE M14702+2 M14426: MOV #140000, @#PS CMP #600, SP M14440: BEQ M14450 EMT 0 SWAB -(PC) BNE M14726 M14450: CLR @#PS CMP #1000, SP BEQ M14470 EMT 0 SWAB @-(R0) BNE M14746 M14470: JMP M14746 M14474: MOV #40000, @#PS CALL M14566 CMP #0, (SP) BEQ M14522 EMT 0 M14516: SWAB @-(R1) BNE M15000 M14522: MOV #140000, @#PS CMP #0, (SP) BEQ M14544 EMT 0 SWAB @-(R2) BNE M15022 M14544: CLR @#PS M14550: CMP #14404, (SP) BEQ M14564 EMT 0 SWAB @-(R3) BNE M15042 M14564: RETURN M14566: MOV #140000, @#PS CALL M14660 CMP #0, (SP) BEQ M14614 M14606: EMT 0 SWAB @-(R4) BNE M15070+2 M14614: CLR @#PS CMP #14404, (SP) BEQ M14634 M14626: EMT 0 SWAB @-(R5) BNE M15112 M14634: MOV #40000, @#PS CMP #14506, (SP) BEQ M14656 EMT 0 SWAB @-(SP) BNE M15134 M14656: RETURN M14660: CMP #14600, (SP) BEQ M14674 EMT 0 SWAB @-(PC) BNE M15152 M14674: MOV #40000, @#PS M14702: CMP #14506, (SP) BEQ M14716 EMT 0 SWAB A01127(R0) M14716: CLR @#PS CMP #14404, (SP) M14726: BEQ M14736 EMT 0 SWAB A01127(R1) M14736: MOV #140000, @#PS RETURN M14746: INC M01004 SCC CLZ MOV #0, R4 BMI M14772 BVS M14772 BCC M14772 BEQ M15000 M14772: EMT 0 SWAB A01127(R2) M15000: SCC .WORD CLN!CLC MOV #100000, R4 BEQ M15020 BVS M15020 BCS M15020 BMI M15026 M15020: EMT 0 M15022: SWAB A01127(R3) M15026: INC M01004 CLR R4 COM R4 SCC CLZ M15042: BIT #0, R4 BMI M15056 BVS M15056 BCC M15056 BEQ M15064 M15056: EMT 0 SWAB A01127(R4) M15064: SCC .WORD CLN!CLC M15070: BIT #100000, R4 BEQ M15104 BVS M15104 BCS M15104 BMI M15112 M15104: EMT 0 SWAB A01127(R5) M15112: INC M01004 CLR R4 COM R4 SCC CLZ BIC #177777, R4 BMI M15142 M15134: BVS M15142 BCC M15142 BEQ M15150 M15142: EMT 0 SWAB A01127(SP) M15150: COM R4 M15152: SCC .WORD CLN!CLC BIC #77777, R4 BEQ M15172 BVS M15172 BCS M15172 BMI M15200 M15172: EMT 0 SWAB M16327 M15200: INC M01004 CLR R4 SCC .WORD CLZ!CLV BIS #0, R4 BMI M15226 BVS M15226 BCC M15226 BEQ M15234 M15226: EMT 0 SWAB @A01127(R0) M15234: SCC CLC BIS #100076, R4 BEQ M15254 BVS M15254 BCS M15254 BMI M15262 M15254: EMT 0 SWAB @A01127(R1) M15262: INC M01004 MOV #77777, R4 CCC SEC INC R4 BEQ M15310 BPL M15310 BVC M15310 BCS M15316 M15310: EMT 0 SWAB @A01127(R2) M15316: CCC INC R4 BCS M15352 BVS M15352 DEC R4 BVS M15352 BCS M15352 SCC .WORD CLN!CLV DEC R4 BEQ M15352 BVC M15352 BCC M15352 BPL M15360 M15352: EMT 0 SWAB @A01127(R3) M15360: INC M01004 SCC CLZ CLR R4 BMI M15402 BVS M15402 BCS M15402 BEQ M15410 M15402: EMT 0 SWAB @A01127(R4) M15410: COM R4 SCC TST R4 BEQ M15426 BVS M15426 BCS M15426 BMI M15434 M15426: EMT 0 SWAB @A01127(R5) M15434: SCC SWAB R4 BVS M15446 BCS M15446 BMI M15454 M15446: EMT 0 SWAB @A01127(SP) M15454: INC M01004 MOV #77777, R4 MOV #1, R1 CCC ADD R4, R1 BVC M15504 BCS M15504 BEQ M15504 BMI M15512 M15504: EMT 0 SWAB @M16641 M15512: INC R4 ADD R4, R1 BVC M15524 BCC M15524 BEQ M15532 M15524: EMT 0 BR M15530 M15530: BNE M16010 M15532: ADD R4, R1 BVS M15542 BCS M15542 BMI M15550 M15542: EMT 0 BR M15550 BNE M16024+2 M15550: INC M01004 MOV #177777, R4 SCC ADC R4 BMI M15574 BVS M15574 BCC M15574 BEQ M15602 M15574: EMT 0 BR M15602+2 BNE M16060 M15602: MOV #77777, R4 SCC CLV ADC R4 BPL M15624 BCS M15624 BEQ M15624 BVS M15632 M15624: EMT 0 BR M15636 BNE M16110 M15632: SCC ADC R4 M15636: BVS M15644 BCS M15644 BMI M15652 M15644: EMT 0 BR M15656+2 BNE M16130 M15652: INC M01004 M15656: MOV #77777, R4 CCC NEG R4 BVS M15676 BCC M15676 BEQ M15676 BMI M15704 M15676: EMT 0 BR M15714 BNE M16162 M15704: CLR R4 CCC NEG R4 BMI M15722 M15714: BCS M15722 BVS M15722 BEQ M15730 M15722: EMT 0 BR M15742 BNE M16204+2 M15730: MOV #77777, R4 MOV #170000, R1 CCC M15742: CMP R4, R1 BVC M15754 BCC M15754 BEQ M15754 BMI M15762 M15754: EMT 0 BR M15776 BNE M16240 M15762: CCC COM R1 BMI M15776 BEQ M15776 BCC M15776 BVC M16004 M15776: EMT 0 BR M16020+2 BNE M16262 M16004: SCC COM R1 M16010: BMI M16020 EMT 0 BR M16040 BNE M16276 M16020: INC M01004 M16024: MOV #77775, R4 CCC SUB #137757, R4 BVC M16046 M16040: BPL M16046 BEQ M16046 BCS M16054 M16046: EMT 0 BR M16076 BNE M16332 M16054: MOV #5, R4 M16060: CCC SUB #12, R4 BCC M16076 BVS M16076 BEQ M16076 BMI M16104 M16076: EMT 0 BR M16130 BNE M16362 M16104: INC M01004 M16110: MOV #100000, R4 CCC SBC R4 BPL M16136 BVS M16136 SEC SBC R4 M16130: BVC M16136 BCS M16136 BPL M16144 M16136: EMT 0 BR M16172 BNE M16422 M16144: CLR R4 SCC CLC SBC R4 BCS M16176 BVS M16176 BNE M16176 M16162: SEC SBC R4 BCC M16176 BVS M16176 M16172: BEQ M16176 BMI M16204 M16176: EMT 0 BR M16234 BNE M16462 M16204: INC M01004 MOV #60000, R4 CCC ROL R4 BCS M16226 BVC M16226 BMI M16234 M16226: EMT 0 BR M16266 BNE M16512 M16234: ROL R4 BCC M16244 M16240: BVS M16244 BMI M16252 M16244: EMT 0 BR M16306 BNE M16530 M16252: ROL R4 BVC M16264 BCC M16264 BMI M16264 M16262: BNE M16272 M16264: EMT 0 M16266: BR M16330 BNE M16550 M16272: ROL R4 BVS M16302 M16276: BCS M16302 BPL M16310 M16302: EMT 0 BR M16350 M16306: BNE M16566 M16310: INC M01004 MOV #3, R4 CCC ROR R4 BCC M16332 M16327 =: .+1 BVC M16332 M16330: BPL M16340 M16332: EMT 0 BR M16402 BNE M16616 M16340: ROR R4 BCC M16350 BVS M16350 BMI M16356 M16350: EMT 0 BR M16422 BNE M16634 M16356: ROR R4 BVC M16366 M16362: BCS M16366 BMI M16374 M16366: EMT 0 BR M16442 BNE M16652 M16374: ROR R4 BVS M16404 BCS M16404 M16402: BPL M16412 M16404: EMT 0 BR M16462 BNE M16670 M16412: INC M01004 MOV #52525, R1 M16422: CLC ROR R1 ROR R1 ROR R1 BCS M16442 EMT 0 BR M16514 BNE M16720 M16442: CMP #45252, R1 BEQ M16456 EMT 0 BR M16532 BNE M16734 M16456: MOV #125252, R1 M16462: CLC ROL R1 ROL R1 ROL R1 BCS M16502 EMT 0 BR M16560 BNE M16760 M16502: CMP #52522, R1 BEQ M16516 EMT 0 M16512: BR M16576 M16514: BNE M16774 M16516: INC M01004 MOV #60000, R4 CCC M16530: ASL R4 M16532: BCS M16540 BVC M16540 M16537 =: .+1 BMI M16546 M16540: EMT 0 BR M16626+2 BNE M17022+2 M16546: ASL R4 M16550: BCC M16556 BVS M16556 BMI M16564 M16556: EMT 0 M16560: BR M16650 BNE M17042 M16564: ASL R4 M16566: BVC M16576 BCC M16576 BMI M16576 BEQ M16604 M16576: EMT 0 BR M16672 BNE M17060+2 M16604: ASL R4 BVS M16614 BCS M16614 BPL M16622 M16614: EMT 0 M16616: BR M16712 BNE M17100 M16622: INC M01004 M16626: MOV #341, R4 CCC M16634: ASR R4 BCC M16644 M16641 =: .+1 BVC M16644 BPL M16652 M16644: EMT 0 BR M16742+2 M16650: BNE M17130 M16652: BIS #100001, R4 ASR R4 BCC M16666 BVS M16666 BMI M16674 M16666: EMT 0 M16670: BR M16770 M16672: BNE M17152 M16674: ASR R4 BVC M16704 BCS M16704 BMI M16712 M16704: EMT 0 BR M17010 BNE M17170 M16712: ASR R4 BVC M16730 BCS M16730 M16720: BPL M16730 CMP #170016, R4 BEQ M16736 M16730: EMT 0 BR M17036 M16734: BNE M17214 M16736: INC M01004 M16742: MOV #123456, R4 MOV R4, R1 CCC SXT R4 BCS M16764 BMI M16764 M16760: BVS M16764 BEQ M16772 M16764: EMT 0 BR M17074 M16770: BNE M17250 M16772: MOV R1, R4 M16774: SCC SXT R4 BEQ M17014 BPL M17014 BCC M17014 BVS M17014 M17010: COM R4 BEQ M17022 M17014: EMT 0 BR M17126 BNE M17276+2 M17022: INC M01004 MOV #123456, R4 MOV #52525, R1 M17036: CCC XOR R4, R1 M17042: BVS M17052 BEQ M17052 BCS M17052 BMI M17060 M17052: EMT 0 BR M17166 BNE M17336 M17060: MOV #125252, R1 SCC XOR R4, R1 BMI M17100 BEQ M17100 M17074: BCC M17100 BVC M17106 M17100: EMT 0 BR M17216 BNE M17364 M17106: XOR R4, R4 BVS M17126 BMI M17126 BCC M17126 BNE M17126 CMP #0, R4 BEQ M17134 M17126: EMT 0 M17130: BR M17246 BNE M17412 M17134: INC M01004 CLR R4 CCC .WORD SEN!SEC SXT R4 BVS M17164 M17152: BPL M17164 BEQ M17164 BCC M17164 INC R4 BEQ M17172 M17164: EMT 0 M17166: BR M17306 M17170: BNE M17450 M17172: SCC CLN CLR R4 MOV #55, (R4) SXT (R4) BNE M17222 M17210: BVS M17222 BCS M17222 M17214: BMI M17222 M17216: TST (R4) BEQ M17230 M17222: EMT 0 BR M17346 BNE M17504+2 M17230: MOV #177777, R0 CLR R4 SXT R0 TST R0 BEQ M17252 EMT 0 M17246: BR M17372 M17250: BNE M17530 M17252: CLR R0 MOV #177777, R4 SXT R0 CMP #177777, R0 BEQ M17276 EMT 0 BR M17420 BNE M17554 M17276: INC M01004 MOV #7643, R1 M17306: MOV #133333, R4 SCC XOR R1, R4 BPL M17334 BEQ M17334 BCC M17334 BVS M17334 CMP R1, #134570 BEQ M17342 M17334: EMT 0 M17336: BR M17466 BNE M17620 M17342: MOV R1, R2 CCC M17346: XOR R2, R4 BMI M17364 BVS M17364 BCS M17364 CMP R2, #7643 BEQ M17372 M17364: EMT 0 BR M17520 BNE M17650 M17372: INC M01004 MOV #555, R4 SCC M17404: BCC M17444 BVC M17444 BPL M17444 M17412: BNE M17444 SOB R4, M17404 BCC M17432 M17420: BVC M17432 BPL M17432 BNE M17432 JMP M17452 M17432: EMT 0 BR M17570 BNE M17716 JMP M17452 M17444: EMT 0 BR M17604 M17450: BNE M17730 M17452: CMP R4, #0 BEQ M17466 EMT 0 BR M17622 BNE M17740+4 M17466: INC M01004 MOV #700, SP MOV #125252, @#V.774+2 M17504: MOV #17526, R5 MOV #6437, -(SP) SCC JMP (SP) M17520: EMT 0 BR M17664 BNE M20004 BHI M17534 M17530: BPL M17534 BVS M17542 M17534: EMT 0 BR M17676+4 BNE M20014+4 M17542: CMP #125252, R5 BEQ M17556 EMT 0 BR M17720 M17554: BNE M20034 M17556: CMP SP, #1000 BEQ M17572 EMT 0 BR M17736 M17570: BNE M20046+2 M17572: MOV #52525, -(SP) MOV #6400, -(SP) MOV SP, R5 M17604: CALL M17614 JMP M17626 M17614: CCC RTS R0 M17620: EMT 0 M17622: BR M17772+2 BNE M20100+4 M17626: BLOS M17634 BMI M17634 BVC M17642 M17634: EMT 0 BR M20010+2 BNE M20120 M17642: CMP SP, #1000 BEQ M17656 M17650: EMT 0 BR M20024+4 BNE M20132+2 M17656: CMP #52525, R5 BEQ M17672 M17664: EMT 0 BR M20046 BNE M20150 M17672: INC M01004 M17676: MOV #30017, @#PS CCC CMP #30000, @#PS BEQ M17724 M17716: EMT 0 M17720: BR M20100+2 BNE M20202 M17724: INC M01004 M17730: MOV #30017, @#PS M17736: CLC M17740: CMP #30016, @#PS BEQ M17756 EMT 0 BR M20132+4 BNE M20234 M17756: INC M01004 MOV #30017, @#PS CLN M17772: CMP #30007, @#PS BEQ M20010 EMT 0 M20004: BR M20172 BNE M20266 M20010: INC M01004 M20014: MOV #30017, @#PS CLV M20024: CMP #30015, @#PS BEQ M20042 M20034: EMT 0 BR M20226 BNE M20314+4 M20042: INC M01004 M20046: MOV #30017, @#PS CLZ CMP #30013, @#PS BEQ M20074 EMT 0 BR M20260+2 BNE M20352 M20074: INC M01004 M20100: MOV #30000, @#PS SCC CMP #30017, @#PS BEQ M20126 M20120: EMT 0 BR M20314+2 BNE M20402+2 M20126: INC M01004 M20132: MOV #30000, @#PS SEC CMP #30001, @#PS M20150: BEQ M20160 EMT 0 BR M20352 BNE M20436 M20160: INC M01004 MOV #30000, @#PS M20172: SEN CMP #30010, @#PS M20202: BEQ M20212 EMT 0 BR M20402+4 BNE M20470 M20212: INC M01004 MOV #30000, @#PS SEV M20226: CMP #30002, @#PS M20234: BEQ M20244 EMT 0 BR M20442 BNE M20522 M20244: INC M01004 MOV #30000, @#PS SEZ M20260: CMP #30004, @#PS M20266: BEQ M20276 EMT 0 BR M20476 BNE M20554 M20276: INC M01004 MOV #30000, @#PS SCC .WORD CLV!CLC M20314: CMP #30014, @#PS BEQ M20332 EMT 0 BR M20534 BNE M20610 M20332: SCC .WORD CLZ!CLC CMP #30012, @#PS BEQ M20354 EMT 0 BR M20556+2 M20352: BNE M20632 M20354: SCC .WORD CLZ!CLV CMP #30011, @#PS BEQ M20376 EMT 0 BR M20600+4 BNE M20654 M20376: SCC .WORD CLZ!CLV!CLC M20402: CMP #30010, @#PS BEQ M20420 EMT 0 BR M20630 BNE M20676 M20420: SCC .WORD CLN!CLC CMP #30006, @#PS BEQ M20442 EMT 0 M20436: BR M20654 BNE M20720 M20442: SCC .WORD CLN!CLV CMP #30005, @#PS BEQ M20464 EMT 0 BR M20676+2 BNE M20742 M20464: SCC .WORD CLN!CLV!CLC M20470: CMP #30004, @#PS M20476: BEQ M20506 EMT 0 BR M20720+4 BNE M20764 M20506: SCC .WORD CLN!CLZ CMP #30003, @#PS BEQ M20530 M20522: EMT 0 BR M20750 BNE M21006 M20530: SCC .WORD CLN!CLZ!CLC M20534: CMP #30002, @#PS BEQ M20552 EMT 0 BR M20774 BNE M21030 M20552: SCC M20554: .WORD CLN!CLZ!CLV M20556: CMP #30001, @#PS BEQ M20574 EMT 0 BR M21020 BNE M21052 M20574: INC M01004 M20600: MOV #30000, @#PS .WORD SEV!SEC M20610: CMP #30003, @#PS BEQ M20626 EMT 0 BR M21052+2 BNE M21104 M20626: CCC M20630: .WORD SEZ!SEC M20632: CMP #30005, @#PS BEQ M20650 EMT 0 BR M21100 BNE M21126 M20650: CCC .WORD SEZ!SEV M20654: CMP #30006, @#PS BEQ M20672 EMT 0 BR M21124 BNE M21150 M20672: CCC .WORD SEZ!SEV!SEC M20676: CMP #30007, @#PS BEQ M20714 EMT 0 BR M21150 BNE M21172 M20714: CCC .WORD SEN!SEC M20720: CMP #30011, @#PS BEQ M20736 EMT 0 BR M21174 BNE M21214 M20736: CCC .WORD SEN!SEV M20742: CMP #30012, @#PS M20750: BEQ M20760 EMT 0 BR M21220 BNE M21236 M20760: CCC .WORD SEN!SEV!SEC M20764: CMP #30013, @#PS BEQ M21002 M20774: EMT 0 BR M21244 BNE M21260 M21002: CCC .WORD SEN!SEZ M21006: CMP #30014, @#PS BEQ M21024 EMT 0 M21020: BR M21270 BNE M21302 M21024: CCC .WORD SEN!SEZ!SEC M21030: CMP #30015, @#PS BEQ M21046 EMT 0 M21042: BR M21314 BNE M21324 M21046: CCC .WORD SEN!SEZ!SEV M21052: CMP #30016, @#PS BEQ M21070 EMT 0 BR M21340 BNE M21346 M21070: INC M01004 CCC BGE M21106 M21100: EMT 0 BR M21356+2 M21104: BNE M21362+2 M21106: BGT M21116 EMT 0 BR M21370+2 BNE M21374 M21116: BLE M21122 BR M21130 M21122: EMT 0 M21124: BR M21404+2 M21126: BNE M21404+2 M21130: BLT M21134 BR M21142 M21134: EMT 0 BR M21420+2 BNE M21420 M21142: SEZ BLE M21154 EMT 0 M21150: BR M21436 BNE M21432 M21154: BGT M21160 BR M21166 M21160: EMT 0 BR M21452 BNE M21442+2 M21166: CCC SEN M21172: BLT M21202 M21174: EMT 0 BR M21470 BNE M21460 M21202: BLE M21212 EMT 0 BR M21500+2 BNE M21470 M21212: BGE M21216 M21214: BR M21224 M21216: EMT 0 M21220: BR M21516 BNE M21500+2 M21224: BGT M21230 BR M21236 M21230: EMT 0 BR M21532 BNE M21514 M21236: CCC SEV BLE M21252 M21244: EMT 0 BR M21546+2 BNE M21524+4 M21252: BLT M21262 EMT 0 BR M21562 M21260: BNE M21540 M21262: BGE M21266 BR M21274 M21266: EMT 0 M21270: BR M21576 BNE M21552 M21274: BGT M21300 BR M21306 M21300: EMT 0 M21302: BR M21612 BNE M21564 M21306: CCC .WORD SEN!SEV BGE M21322 M21314: EMT 0 BR M21630 BNE M21600 M21322: BGT M21332 M21324: EMT 0 BR M21642 BNE M21610 M21332: BLE M21336 BR M21344 M21336: EMT 0 M21340: BR M21656 BNE M21622 M21344: BLT M21350 M21346: BR M21356 M21350: EMT 0 BR M21672 BNE M21632+2 M21356: INC M01004 M21362: MOV #30000, @#PS M21370: MOV #1, R0 M21374: MOV #2, R1 MOV #3, R2 M21404: MOV #4, R3 MOV #5, R4 MOV #6, R5 M21420: MOV SP, @#M01030 MOV #30017, @#M01034 M21432: SCC NOP M21436: NOP NOP M21442: CALL M21524 CMP SP, @#M01030 M21452: BEQ M21462 EMT 0 BR M22000 M21460: BNE M21740 M21462: MOV #30000, @#M01034 M21470: CCC .WORD NOP!20 .WORD NOP!20 .WORD NOP!20 M21500: CALL M21524 CMP SP, @#M01030 BEQ M21520 EMT 0 M21514: BR M22040 M21516: BNE M21776 M21520: JMP M21664 M21524: CMP @#M01034, @#PS M21532: BEQ M21552 MOV R0, V.400 M21540: EMT 0 BR M22066+2 BNE M22024 M21546: MOV V.400, R0 M21552: CMP #1, R0 BEQ M21566 EMT 0 M21562: BR M22110+2 M21564: BNE M22044 M21566: CMP #2, R1 BEQ M21602 EMT 0 M21576: BR M22130 M21600: BNE M22060 M21602: CMP #3, R2 BEQ M21616 M21610: EMT 0 M21612: BR M22146 BNE M22074 M21616: CMP #4, R3 M21622: BEQ M21632 EMT 0 BR M22164 M21630: BNE M22110 M21632: CMP #5, R4 BEQ M21646 EMT 0 M21642: BR M22202 BNE M22124 M21646: CMP #6, R5 BEQ M21662 EMT 0 M21656: BR M22220 BNE M22134+4 M21662: RETURN M21664: INC M01004 CLR R0 M21672: CLR R1 CLR R2 M21676: CLR R3 CLR R4 CLR R5 MOV #4000, PS BIT #4000, PS M21720: BNE M21730 EMT 0 BR M22270 BNE M22206 M21730: MOV #177777, R0 MOV R0, R1 MOV R1, R2 M21740: MOV R2, R3 M21742: MOV R3, R4 MOV R4, R5 BIC #4000, PS BIT #4000, PS BEQ M21772 EMT 0 BR M22334 M21770: BNE M22246+2 M21772: TST R0 BEQ M22004 M21776: EMT 0 M22000: BR M22350 BNE M22262 M22004: TST R1 BEQ M22016 M22010: EMT 0 BR M22364 BNE M22274 M22016: TST R2 BEQ M22030 EMT 0 M22024: BR M22400 BNE M22304+2 M22030: TST R3 M22032: BEQ M22042 EMT 0 BR M22414 M22040: BNE M22320 M22042: TST R4 M22044: BEQ M22054 EMT 0 BR M22426+2 BNE M22332 M22054: TST R5 BEQ M22066 M22060: EMT 0 BR M22442+2 BNE M22344 M22066: MOV #4000, PS M22074: CLR R0 CLR R1 CLR R2 M22102: CLR R3 CLR R4 CLR R5 M22110: BIC #4000, PS MOV #177777, R0 M22122: MOV R0, R1 M22124: MOV R1, R2 MOV R2, R3 M22130: MOV R3, R4 MOV R4, R5 M22134: BIS #4000, PS TST R0 M22144: BEQ M22154 M22146: EMT 0 BR M22534 BNE M22432 M22154: TST R1 BEQ M22166 EMT 0 BR M22550 M22164: BNE M22442+2 M22166: TST R2 BEQ M22200 EMT 0 BR M22564 BNE M22456 M22200: TST R3 M22202: BEQ M22212 EMT 0 M22206: BR M22600 BNE M22470 M22212: TST R4 M22214: BEQ M22224 EMT 0 M22220: BR M22612+2 BNE M22502 M22224: TST R5 BEQ M22236 EMT 0 BR M22626+2 M22234: BNE M22514 M22236: INC M01004 MOV #177777, R0 M22246: CMP R0, #177777 BEQ M22262 EMT 0 M22256: BR M22656 BNE M22540 M22262: CLR R0 CMP R0, #0 M22270: BEQ M22300 EMT 0 M22274: BR M21676 BNE M22554+2 M22300: MOV #125252, R0 M22304: CMP R0, #125252 BEQ M22320 EMT 0 BR M21720 BNE M22576 M22320: MOV #52525, R0 M22324: CMP R0, #52525 BEQ M22340 M22332: EMT 0 M22334: BR M21742 BNE M22616 M22340: INC M01004 M22344: MOV #177777, R1 M22350: CMP R1, #177777 BEQ M22364 EMT 0 BR M21770 BNE M22642 M22364: CLR R1 M22366: CMP R1, #0 BEQ M22402 EMT 0 BR M22010 M22400: BNE M22656+2 M22402: MOV #125252, R1 CMP R1, #125252 M22412: BEQ M22422 M22414: EMT 0 BR M22032 BNE M22700 M22422: MOV #52525, R1 M22426: CMP R1, #52525 M22432: BEQ M22442 EMT 0 BR M22054 M22440: BNE M22720 M22442: INC M01004 MOV #177777, R2 CMP R2, #177777 M22456: BEQ M22466 M22460: EMT 0 BR M22102 BNE M22744 M22466: CLR R2 M22470: CMP R2, #0 BEQ M22504 EMT 0 BR M22122 M22502: BNE M22760+2 M22504: MOV #125252, R2 CMP R2, #125252 M22514: BEQ M22524 EMT 0 BR M22144 BNE M23002 M22524: MOV #52525, R2 CMP R2, #52525 M22534: BEQ M22544 EMT 0 M22540: BR M22166 BNE M23022 M22544: INC M01004 M22550: MOV #177777, R3 M22554: CMP R3, #177777 BEQ M22570 EMT 0 M22564: BR M22214 BNE M23046 M22570: CLR R3 CMP R3, #0 M22576: BEQ M22606 M22600: EMT 0 BR M22234 BNE M23064 M22606: MOV #125252, R3 M22612: CMP R3, #125252 M22616: BEQ M22626 EMT 0 BR M22256 BNE M23102+2 M22626: MOV #52525, R3 CMP R3, #52525 BEQ M22646 EMT 0 M22642: BR M22300 BNE M23124 M22646: INC M01004 MOV #177777, R4 M22656: CMP R4, #177777 BEQ M22672 M22664: EMT 0 BR M22324+2 BNE M23150 M22672: CLR R4 CMP R4, #0 M22700: BEQ M22710 EMT 0 BR M22344+2 BNE M23166 M22710: MOV #125252, R4 CMP R4, #125252 M22720: BEQ M22730 EMT 0 BR M22366+2 BNE M23206 M22730: MOV #52525, R4 M22734: CMP R4, #52525 BEQ M22750 EMT 0 M22744: BR M22412 BNE M23224+2 M22750: INC M01004 MOV #177777, R5 M22760: CMP R5, #177777 BEQ M22774 EMT 0 M22770: BR M22440 BNE M23252 M22774: CLR R5 CMP R5, #0 M23002: BEQ M23012 EMT 0 M23006: BR M22460 BNE M23266+2 M23012: MOV #125252, R5 CMP R5, #125252 M23022: BEQ M23032 EMT 0 BR M22502 BNE M23310 M23032: MOV #52525, R5 CMP R5, #52525 BEQ M23052 EMT 0 M23046: BR M22524 BNE M23330 M23052: BIC #4000, PS INC M01004 M23064: CLR R4 MOV #23330, R1 MOV #23340, R2 MOV #23346, R3 M23102: MOV (R1)+, @#PS MFPS R4 CMP @#PS, (R2)+ BEQ M23124 EMT 0 BR M22600 BNE M23402 M23124: CMP R4, (R3)+ BEQ M23136 EMT 0 BR M22612+2 BNE M23414 M23136: CMP (R1), #177777 BNE M23102 MOV #23330, R1 M23150: MOV #23340, R2 MOV #23346, R3 MOV SP, R5 MOV (R1), @#PS M23166: MFPS SP CMP @#PS, (R2) BEQ M23204 EMT 0 BR M22664 BNE M23462 M23204: CMP SP, (R3) M23206: BEQ M23216 EMT 0 BR M22700 BNE M23474 M23216: MOV R5, SP MOV #23330, R1 M23224: MOV #23340, R2 MOV #23354, R3 CLR @#M01034 M23240: MOV #1034, R4 M23244: MOV (R1)+, @#PS MFPS (R4)+ M23252: CMP @#PS, (R2)+ BEQ M23266 EMT 0 BR M22750+2 BNE M23544 M23266: CMP R4, #1035 M23272: BEQ M23302 EMT 0 BR M22770 BNE M23560 M23302: CMP @#M01034, (R3)+ M23306: BEQ M23316 M23310: EMT 0 BR M23006 BNE M23574 M23316: CMP (R1), #177777 BNE M23240 JMP M23362 M23330: BIT R2, PC BIT R0, R0 BIT R0, @-(PC) M23336: .WORD 177777 BIT R2, (R1) BIT R0, R4 BIT R0, -(R1) .WORD 177607 HALT M23352: .WORD 57 RETURN HALT .WORD 57 M23362: NOP M23364: INC M01004 MOV #30000, @#PS MOV #23722, R1 M23402: MOV #23700, R2 MOV R1, R3 CALL M23556 M23414: MOV #140000, @#PS MOV #600, SP MOV #23722, R1 MOV #23712, R2 MOV R1, R3 CALL M23556 MOV #140000, @#PS MOV #23674, R1 MOV #23712, R2 M23462: MOV #23722, R3 MOV R1, R4 CALL M23620 M23474: MOV #30000, @#PS MOV #23674, R1 M23506: MOV #23700, R2 MOV #23722, R3 MOV R1, R4 CALL M23620 M23524: CLR @#PS MTPS #177412 CMP #12, @#PS BEQ M23552 M23544: EMT 0 BR M23244 BNE M24026+2 M23552: JMP M23732 M23556: MOV (R1)+, R5 M23560: MTPS R5 CMP @#PS, (R2)+ BEQ M23576 EMT 0 BR M23272 M23574: BNE M24054 M23576: CMP (R3)+, R5 BEQ M23610 EMT 0 BR M23306 BNE M24064+2 M23610: CMP (R2), #177777 M23614: BNE M23556 RETURN M23620: MTPS (R1)+ CMP @#PS, (R2)+ BEQ M23636 EMT 0 BR M23336 BNE M24112+2 M23636: CMPB (R4)+, (R3)+ BEQ M23650 EMT 0 BR M23352 BNE M24122+4 M23650: CMP R1, R4 BEQ M23662 EMT 0 BR M23364+2 BNE M24134+4 M23662: INC R3 CMP (R2), #177777 BNE M23620 RETURN M23674: SWAB @76552 BIT R3, @-(PC) BIT R0, R0 BIT R2, @-(R2) BIT R1, R5 .WORD 177777 BICB R0, (PC) BICB R0, R0 BICB R0, (R2) BICB R0, R5 M23722: .WORD 177777 .WORD 177400 M23727 =: .+1 .WORD 177652 .WORD 177525 M23732: INC M01004 MOV @#V.10, -(SP) M23742: MOV #24070, @#V.10 MOV #177777, R0 M23754: MOV #30000, @#PS MFPT CMP #30000, @#PS BEQ M24002 EMT 0 M23776: BR M23506+2 BNE M24256+2 M24002: CMP R0, #5 BEQ M24016 EMT 0 BR M23524+2 BNE M24274 M24016: MOV #177777, R0 SCC MFPT M24026: CMP #30017, @#PS BEQ M24044 EMT 0 BR M23556 BNE M24316+4 M24044: CMP R0, #5 BEQ M24060 EMT 0 M24054: BR M23574 BNE M24336 M24060: MOV (SP)+, @#V.10 M24064: JMP M24076 EMT 0 BR M23614 BNE M24354 M24076: INC M01004 CLR @#CPUERR CLR @#PS M24112: MOV @#V.4, -(SP) MOV @#V.4+2, -(SP) M24122: MOV #24162, @#V.4 CLR @#V.4+2 M24134: MOV #140000, PS MOV #600, SP HALT EMT 0 BR M23674+2 M24154: BNE M24434 JMP M24246 CMP #30000, @#PS BEQ M24200 EMT 0 BR M23722 BNE M24456 M24200: CMP #200, @#CPUERR BEQ M24216 EMT 0 BR M23742 BNE M24474 M24216: CMP (SP)+, #24150 BEQ M24232 EMT 0 M24226: BR M23754+4 BNE M24510 M24232: CMP (SP)+, #140000 BEQ M24246 EMT 0 BR M23776 BNE M24524 M24246: CLR @#CPUERR MOV (SP)+, @#V.4+2 M24256: MOV (SP)+, @#V.4 INC M01004 M24266: CMPB #1, M01020 M24274: BNE M24302 JMP M24730 M24302: MOV #30340, @#PS MOV #160000, @#SSR0 M24316: MOV #77, @#SSR3 CLR @#PIRQ CMP @#PIRQ, #0 M24336: BEQ M24346 EMT 0 BR M24076+2 BNE M24624 M24346: MOV #25000, @#PIRQ M24354: CMP #25252, @#PIRQ BEQ M24372 EMT 0 BR M24122+4 M24370: BNE M24646+2 M24372: MOV #77000, @#PIRQ CMP #77314, @#PIRQ BEQ M24416 EMT 0 BR M24154 BNE M24674 M24416: SCC M24420: RESET CMP #30357, @#PS BEQ M24440 EMT 0 M24434: BR M24200 BNE M24714+2 M24440: MOV @#SSR0, R1 BIC #176, R1 CMP #0, R1 BEQ M24464 M24456: EMT 0 BR M24226 BNE M24740+2 M24464: CMP #0, @#SSR3 BEQ M24502 M24474: EMT 0 BR M24246 BNE M24756+2 M24502: CMP #0, @#PIRQ M24510: BEQ M24520 EMT 0 BR M24266 BNE M24774+2 M24520: MOV @#V.4, R2 M24524: MOV @#V.4+2, R3 MOV #24706, @#V.4 MOV #340, @#V.4+2 MOV #140340, @#PS M24552: MOV #160000, @#SSR0 MOV #77, @#SSR3 MOV #77000, @#PIRQ SCC RESET CMP #140357, @#PS BEQ M24620 HALT EMT 0 BR M24370 M24616: BNE M25076 M24620: MOV @#SSR0, R1 M24624: BIC #176, R1 CMP #160000, R1 BEQ M24646 HALT EMT 0 BR M24420 BNE M25122+2 M24646: CMP #77, @#SSR3 BEQ M24666 HALT EMT 0 BR M24440+2 BNE M25144 M24666: CMP #77314, @#PIRQ M24674: BEQ M24710 HALT EMT 0 BR M24464 BNE M25164 RTI M24710: CLR @#PIRQ M24714: CLR @#PS MOV R2, @#V.4 MOV R3, @#V.4+2 M24730: INC M01004 MOV #10, R5 M24740: MOV #25174, R1 M24744: MOV #30000, @#PS CALL M25042 M24756: CMP (R1)+, @#PS BEQ M24772 EMT 0 BR M24552 BNE M25250 M24772: SOB R5, M24744 M24774: MOV #10, R5 M25000: MOV #140000, @#PS MOV #600, SP CALL M25042 CMP #140017, @#PS BEQ M25034 EMT 0 BR M24616 BNE M25310+2 M25034: SOB R5, M25000 JMP M25214 M25042: CMP R5, #10 BNE M25056 SCC SPL 0 BR M25172 M25056: CMP R5, #7 BNE M25072 SCC SPL 1 BR M25172 M25072: CMP R5, #6 M25076: BNE M25106 SCC SPL 2 BR M25172 M25106: CMP R5, #5 BNE M25122 SCC SPL 3 BR M25172 M25122: CMP R5, #4 BNE M25136 SCC SPL 4 BR M25172 M25136: CMP R5, #3 BNE M25152 M25144: SCC SPL 5 BR M25172 M25152: CMP R5, #2 BNE M25166 SCC SPL 6 M25164: BR M25172 M25166: SCC SPL 7 M25172: RETURN BIT R0, (PC) BIT R0, @-(PC) BIT R1, (PC) BIT R1, @-(PC) BIT R2, (PC) BIT R2, @-(PC) BIT R3, (PC) BIT R3, @-(PC) M25214: INC M01004 CLR @#PS MOV #12, R3 MOV #400, R1 MOV #25426, R0 M25240: MOV (R0)+, (R1)+ SOB R3, M25240 MOV @#V.10, -(SP) M25250: MOV #25452, @#V.10 M25256: CLR R0 MOV #400, R1 MOV #410, R2 MOV #416, R3 MOV R1, R4 M25276: MOV #30000, @#PS SEV TSTSET (R1)+ M25310: CMP (R2)+, @#PS BEQ M25324 EMT 0 BR M25106+2 BNE M25602 M25324: CMP R0, (R3) BEQ M25336 EMT 0 BR M25122+2 BNE M25614 M25336: INC R4 INC R4 CMP R4, R1 BEQ M25354 EMT 0 BR M25144 BNE M25632 M25354: BIS #1, (R3) CMP (R3)+, -(R1) BEQ M25372 EMT 0 BR M25164 BNE M25650 M25372: INC R1 INC R1 CMP (R1), #177777 BNE M25276 MOV #25460, @#V.10 TSTSET R1 EMT 0 M25416: BR M25214+2 BNE M25700 JMP M25464 SUB @V.0(SP), R4 M25432: WAIT .WORD 177777 BIT R0, (R0) BIT R0, R4 BIT R0, R1 SUB @V.0(SP), R4 WAIT M25452: EMT 0 BR M25256 BNE M25736 TST (SP)+ TST (SP)+ M25464: MOV (SP)+, @#V.10 INC M01004 CLR @#PS MOV #12, R3 MOV #400, R1 MOV #25714, R0 M25514: MOV (R0)+, (R1)+ SOB R3, M25514 M25520: MOV @#V.10, -(SP) MOV #25740, @#V.10 MOV #400, R1 MOV #410, R2 MOV #416, R3 MOV R2, R4 M25550: MOV #30000, @#PS MOV (R1), R0 M25560: CMP R3, #416 BEQ M25570 BR M25574 M25570: SEC BR M25576 M25574: CLC M25576: SEV WRTLCK (R2)+ M25602: CMP (R3)+, @#PS BEQ M25616 EMT 0 BR M25416 M25614: BNE M26074 M25616: CMP (R1), R0 BEQ M25630 EMT 0 BR M25432 BNE M26104+2 M25630: INC R4 M25632: INC R4 CMP R2, R4 BEQ M25646 EMT 0 BR M25452 BNE M26124 M25646: CMP (R1)+, -(R2) M25650: BEQ M25660 M25652: EMT 0 BR M25464+2 BNE M26136 M25660: INC R2 INC R2 CMP (R1), #177777 M25670: BNE M25550 MOV #25746, @#V.10 M25700: WRTLCK R2 EMT 0 BR M25520 M25706: BNE M26166 JMP M25752 SUB @V.0(SP), R4 WAIT .WORD 177777 .WORD 177777 M25726: .WORD 177777 .WORD 177777 BIT R0, (R1) BIT R0, R4 M25736: BIT R0, R0 EMT 0 BR M25560 BNE M26224 TST (SP)+ TST (SP)+ M25752: MOV (SP)+, @#V.10 INC M01004 CLR @#PS MOV #26266, R1 M25772: MOV R1, @#M01034 ADD #2, @#M01034 M26004: MOV #122222, R3 MOV (R1), R2 SCC MUL V.0+2(R1), R2 M26020: CMP V.4(R1), @#PS BEQ M26036 EMT 0 BR M25652 BNE M26314 M26036: CMP V.4+2(R1), R3 BEQ M26052 EMT 0 M26046: BR M25670 BNE M26330 M26052: CMP V.10(R1), R2 BEQ M26066 EMT 0 BR M25706 BNE M26344 M26066: CMP V.0+2(R1), @M01034 M26074: BEQ M26104 M26076: EMT 0 BR M25726 BNE M26362 M26104: ADD #12, R1 CMP R1, #26514 BNE M25772 M26116: MOV #26266, R1 M26122: MOV R1, R2 M26124: MOV #1000, SP M26130: MOV #4, R4 MOV (R1), R5 M26136: SCC MUL V.0+2(R1), R5 CMP V.4(R1), @#PS BEQ M26162 EMT 0 BR M26004+2 BNE M26440 M26162: CMP V.4+2(R1), R5 M26166: BEQ M26176 EMT 0 BR M26020+4 BNE M26454 M26176: CMP SP, #1000 BEQ M26216 MOV #1000, SP EMT 0 M26212: BR M26046 BNE M26474 M26216: TST (R2)+ M26220: CMP (R2), V.0+2(R1) M26224: BEQ M26234 EMT 0 BR M26066 BNE M26512 M26234: CMP R4, #4 BEQ M26250 EMT 0 BR M26104 BNE M26526 M26250: ADD #12, R1 CMP R1, #26514 BNE M26122 JMP M26514 .WORD 177777 .WORD 177777 HALT WAIT M26276: HALT SXT @100000(R2) .WORD 11 HALT .WORD 174403 .WORD 177777 M26314: SOB PC, M26116+2 .WORD 10 BPL M26324 .WORD 177777 M26324: SOB PC, M26130 BR M26464 M26330: WAIT .WORD 177322 .WORD 226 .WORD 173210 HALT IOT M26344: HALT HALT HALT BGT M26076 IOT HALT HALT M26362: HALT HALT IOT HALT HALT BPL M26376 M26376: WAIT .WORD 10 BPL M26404 M26404: .WORD 177777 SOB PC, M26212 WAIT HALT SOB PC, M26220 HALT .WORD 10 MOV R0, R0 WAIT BPL M26430 M26430: HALT BEQ M26560 BIT -(R5), #1 M26440: ADD V.264+1(R5), SP MFPT BR M26450 M26450: HALT BLE M26454 M26454: HALT RTI BPL M26462 M26462: .WORD 11 M26464: HALT .WORD 177777 BPL M26472 M26472: SOB PC, M26276 M26474: .WORD 11 BPL M26500 M26500: BICB R0, R0 M26502: WAIT .WORD 177777 .WORD 10 .WORD 177777 M26512: .WORD 177777 M26514: INC M01004 CLR @#PS CLR SP M26526: MOV @#V.0, R5 MOV @#V.0+2, R1 MOV #137, @#V.0 MOV #26572, @#V.0+2 M26552: SCC MUL #2, SP M26560: MOV #1000, SP EMT 0 BR M26430 M26570: BNE M27046+2 CMP #0, @#PS BEQ M26614 MOV #1000, SP M26606: EMT 0 BR M26454 BNE M27072 M26614: MOV #26560, R4 ASR R4 CMP R4, SP BEQ M26640 MOV #1000, SP EMT 0 BR M26502 BNE M27114+2 M26640: MOV R5, @#V.0 MOV R1, @#V.0+2 MOV #1000, SP MOV #6, R2 M26660: MOV #47, R3 SCC MUL R2, R3 CMP #2, @#PS M26676: BEQ M26706 EMT 0 BR M26552 BNE M27162+2 M26706: CMP #6, R2 BEQ M26722 EMT 0 BR M26570 BNE M27176+2 M26722: CMP #47, R3 BEQ M26736 EMT 0 BR M26606 BNE M27212+2 M26736: CLR R4 M26740: MOV #4, R5 SCC MUL #0, R4 CMP #7, @#PS BEQ M26770 M26762: EMT 0 BR M26640+2 BNE M27242+4 M26770: CMP #0, R4 BEQ M27004 EMT 0 M27000: BR M26660 BNE M27260+2 M27004: CMP #4, R5 BEQ M27020 EMT 0 BR M26676 M27016: BNE M27274+2 M27020: MOV #4, R0 MOV #10, R5 CLR R4 SCC MUL R0, R4 CMP #0, @#PS BEQ M27064 M27046: MOV R0, V.400 M27052: EMT 0 BR M26740 BNE M27336 MOV V.400, R0 M27064: CMP #4, R0 M27070: BEQ M27100 M27072: EMT 0 BR M26762 BNE M27354+2 M27100: CMP #2, R4 BEQ M27114 M27106: EMT 0 BR M27000 BNE M27372 M27114: CMP #0, R5 BEQ M27130 EMT 0 BR M27016 BNE M27406 M27130: MOV #10, R5 CLR R4 SCC MUL #3, R4 CMP #0, @#PS BEQ M27162 EMT 0 M27156: BR M27052 BNE M27440 M27162: CMP #2, R4 BEQ M27176 EMT 0 BR M27070 M27174: BNE M27454 M27176: CMP #2, R5 BEQ M27212 EMT 0 BR M27106 BNE M27470 M27212: MOV #27366, R1 M27216: MOV R1, @#M01034 MOV (R1), R4 MOV V.4(R1), R3 M27230: MOV V.0+2(R1), R5 SCC MUL V.4(R1), R4 M27242: CMP V.4+2(R1), @#PS BEQ M27260 M27252: EMT 0 BR M27156 BNE M27536 M27260: CMP V.10(R1), R5 BEQ M27274 EMT 0 BR M27174 BNE M27552 M27274: CMP V.10+2(R1), R4 BEQ M27310 EMT 0 BR M27212 BNE M27566 M27310: CMP @#M01034, R1 BEQ M27330 EMT 0 BR M27230 BNE M27602 MOV @#M01034, R1 M27330: CMP V.4(R1), R3 BEQ M27350 M27336: EMT 0 BR M27252 BNE M27622 MOV R3, V.4(R1) M27350: ADD #14, R1 M27354: CMP (R1), #333 BNE M27216 JMP M27704 .WORD 177777 .WORD 177777 M27372: .WORD 177777 HALT HALT WAIT HALT .WORD 177777 M27406: .WORD 177777 .WORD 12 .WORD 177777 HALT .WORD 177777 HALT .WORD 177777 RTI HALT .WORD 177777 HALT .WORD 7642 .WORD 7643 M27440: IOT .WORD 7642 HALT HALT JMP @#177543 M27454: IOT JMP @#V.0 HALT .WORD 7643 .WORD 7643 M27470: HALT M27472: HALT WAIT BPL M27500 M27500: JSR R3, @M10021(SP) .WORD 12 JSR R3, @100000(SP) .WORD 177700 .WORD 170033 MOV R0, (R1)+ .WORD 10 .WORD 171307 .WORD 176024 .WORD 177700 .WORD 170033 SUB @M27536, @-(PC) M27536: .WORD 171307 BEQ M27472 HALT .WORD 177777 WAIT RTI M27552: .WORD 177777 HALT .WORD 177777 BIC @-(PC), (SP) WAIT .WORD 12 M27566: BIC @-(PC), (SP) .WORD 177777 HALT RTI .WORD 177770 IOT M27602: RTI HALT .WORD 177777 .WORD 177776 .WORD 10 IOT .WORD 177776 HALT M27622: WAIT .WORD 177777 WAIT RTI .WORD 177777 WAIT WAIT HALT RTI M27644: RTI HALT WAIT M27652: WAIT HALT BPT HALT WAIT BIS (R5)+, (R5)+ .WORD 23 M27670: MOV M16537(R0), @-(R4) HALT MOV R2, (R2)+ .WORD CLZ!CLV SWAB @(R3)+ M27704: INC M01004 CLR @#PS MOV #1, R2 SCC ASH R2, R2 M27724: CMP #0, @#PS BEQ M27742 EMT 0 BR M27652 BNE M30220 M27742: CMP R2, #2 BEQ M27756 EMT 0 BR M27670 BNE M30234 M27756: MOV #100000, R2 M27762: MOV #1, R3 CCC ASH R3, R2 CMP #7, @#PS BEQ M30010 EMT 0 BR M27724 BNE M30266 M30010: CMP R3, #1 BEQ M30024 M30016: EMT 0 BR M27742 BNE M30276+4 M30024: CMP R2, #0 BEQ M30040 EMT 0 M30034: BR M27756+2 BNE M30316 M30040: MOV #30154, R1 M30044: MOV R1, R3 M30046: MOV V.0+2(R1), R2 SCC ASH (R1), R2 CMP V.4(R1), @#PS BEQ M30074 M30066: EMT 0 BR M30016 BNE M30352 M30074: CMP V.4+2(R1), R2 BEQ M30110 EMT 0 BR M30034 BNE M30366 M30110: CMP R3, R1 BEQ M30124 EMT 0 BR M30046+2 BNE M30376+2 MOV R3, R1 M30124: CMP (R3), (R1) BEQ M30136 EMT 0 BR M30066 BNE M30414 M30136: ADD #10, R1 CMP R1, #30414 BNE M30044 JMP M30414 .WORD 177761 SOB PC, M27762 RESET HALT .WORD 177700 M30166: MOV @M30166+4, @50173 .WORD 177700 BPL M30200 M30200: .WORD 10 BPL M30204 M30204: .WORD 177777 BPL M30210 M30210: .WORD 10 BICB R0, R0 .WORD 177761 .WORD 177777 M30220: .WORD 11 .WORD 177777 .WORD 177706 BVC M30230 M30230: MFPT HALT M30234: .WORD 177710 MOV @M30255, @M27644 .WORD 177713 .WORD 12 HALT BIS R0, R0 M30255 =: .+1 .WORD 177707 .WORD 170001 RTI RTS R0 .WORD 177717 M30266: WAIT .WORD 12 BPL M30274 M30274: .WORD 177740 M30276: MOV @M30306, @M30304 M30304: .WORD 177771 M30306: BISB R0, R0 .WORD 10 .WORD 177640 .WORD 177742 M30316: BPL M30320 M30320: .WORD 11 .WORD 177777 .WORD 177764 BPL M30330 M30330: .WORD 10 .WORD 177770 .WORD 177750 BIS (R5)+, (R5)+ IOT HALT .WORD 177760 BPL M30350 M30350: .WORD 11 M30352: .WORD 177777 .WORD 177770 BPL M30360 M30360: .WORD 10 .WORD 177600 .WORD 177712 M30366: JSR R3, M30405 BISB 177764(R0), R0 M30376: MOV @M30376+5, @M30405 M30404: M30405 =: .+1 .WORD 177701 MOVB R0, R0 BPT M30412: CMP R0, R0 M30414: INC M01004 CLR @#PS MOV #23, R1 M30430: MOV #52525, R5 CLR R4 SCC ASHC R1, R4 M30442: CMP @#PS, #12 BEQ M30460 EMT 0 BR M30412 BNE M30736 M30460: CMP R1, #23 M30464: BEQ M30474 EMT 0 BR M30430 BNE M30750+2 M30474: CMP R4, #125250 BEQ M30510 EMT 0 BR M30442+4 BNE M30766 M30510: CMP R5, #0 BEQ M30524 EMT 0 BR M30464 BNE M31002 M30524: MOV #52525, R3 CLR R2 MOV #164731, R4 SCC M30540: ASHC #23, R3 CMP @#PS, #12 BEQ M30562 EMT 0 BR M30524 M30560: BNE M31036+2 M30562: CMP R2, #0 BEQ M30576 EMT 0 BR M30540+2 BNE M31054 M30576: CMP R3, #0 BEQ M30612 EMT 0 BR M30560 BNE M31070 M30612: CMP R4, #164731 BEQ M30626 EMT 0 BR M30576 BNE M31104 M30626: MOV #30762, R1 M30632: MOV R1, R4 MOV V.0+2(R1), R2 M30640: MOV V.4(R1), R3 SCC ASHC (R1), R2 CMP @#PS, V.4+2(R1) M30656: BEQ M30666 EMT 0 BR M30640 BNE M31144 M30666: CMP V.10(R1), R2 BEQ M30702 M30674: EMT 0 BR M30656 BNE M31156+2 M30702: CMP V.10+2(R1), R3 BEQ M30716 M30710: EMT 0 BR M30674 BNE M31174 M30716: CMP R4, R1 BEQ M30732 EMT 0 BR M30710 M30726: BNE M31206 MOV R4, R1 M30732: CMP (R1), (R4) BEQ M30744 M30736: EMT 0 BR M30726 BNE M31222 M30744: ADD #14, R1 M30750: CMP R1, #31372 BNE M30632 JMP M31370+2 .WORD 177700 BPL M31234+4 M30766: .WORD 177777 .WORD 10 BPL M31246 .WORD 177777 .WORD 177777 WAIT M31002: HALT HALT HALT BPL M31012 M31012: .WORD 177701 BIC @131020, @M31034 M31022: MOVB @M31022+4, @M30736 JSR R2, @-(SP) .WORD 177700 M31034: RTI M31036: CMP @-(SP), @M21042 .WORD 177711 ADD @-(PC), R0 .WORD 12 .WORD 13 BPL M31054 M31054: MOV (R0)+, R0 .WORD 177761 HALT WAIT IOT HALT M31070: HALT .WORD 177736 HALT WAIT HALT BIC R0, R0 M31104: HALT .WORD 177740 BPL M31112 M31112: HALT .WORD 11 .WORD 177777 .WORD 177777 .WORD 177725 .WORD 177777 .WORD 174000 MFPT HALT HALT .WORD 177724 .WORD 177777 .WORD 174000 M31144: .WORD 11 BPL M31150 M31150: HALT .WORD 177733 .WORD 177777 M31156: BISB @V.10+2(R0), (R3)+ MOVB -(R0), R0 HALT .WORD 177727 HALT .WORD 177777 M31174: .WORD 13 .WORD 177600 HALT .WORD 177717 .WORD 177777 M31206: WAIT .WORD 11 BPL M31214 M31214: BPL M31216 M31216: .WORD 177741 BPL M31222 M31222: HALT .WORD 10 .WORD 177777 .WORD 177777 .WORD 177742 M31234: BIT @M31234+3, @M31247 HALT HALT M31246: M31247 =: .+1 .WORD 177742 SOB PC, M31054 .WORD 177777 WAIT HALT WAIT .WORD 177711 ADD @-(SP), R0 .WORD 12 BPT HALT MOV (R0)+, R0 .WORD 177740 SOB PC, M31104 .WORD 177777 M31304: IOT HALT HALT .WORD 177761 .WORD 177777 .WORD 177774 .WORD 11 .WORD 177777 .WORD 177777 .WORD 177747 BPL M31332 M31332: .WORD 174000 .WORD 10 .WORD 177777 .WORD 177700 .WORD 177753 ASL (R4)+ MUL R2, R0 WAIT HALT JMP -(SP) .WORD 177765 BVC M31304 .WORD 177231 .WORD 11 .WORD 177760 M31370: MOVB M05264+3(R4), @M01004 CLR SP MOVB (SP)+, M01040 M31404: CMP #2, SP BEQ M31420 EMT 0 BR M31404 BNE M31676 M31420: CLR SP MOVB (SP)+, M01040 MOVB (SP)+, M01040 M31432: CMP #4, SP BEQ M31446 EMT 0 BR M31432+2 BNE M31722+2 M31446: MOV #1000, SP MOVB -(SP), M01040 CMP #776, SP M31462: BEQ M31472 EMT 0 BR M31462 BNE M31746+2 M31472: MOV #1000, SP MOVB -(SP), M01040 MOVB -(SP), M01040 CMP #774, SP BEQ M31522 M31514: EMT 0 BR M31514 BNE M32000 M31522: CLR SP TSTB (SP)+ CMP SP, #2 BEQ M31542 EMT 0 M31536: BR M31536 BNE M32016+2 M31542: MOV #1000, SP TSTB -(SP) CMP #776, SP BEQ M31564 EMT 0 BNE M31562 M31562: BNE M32040+2 M31564: MOV #1000, SP INC M01004 CLR CPUERR MOV #150, SP MOV V.4, M01030 MOV #31654, V.4 MOV V.144+2, R1 MOV V.144, R2 MOV V.140+2, R3 CLR V.144+2 CLR -(SP) MOV #1000, SP EMT 0 BNE M31654 BNE M32132 M31654: CMP #10, CPUERR BNE M31672 CMP SP, #142 BEQ M31700 M31672: EMT 0 BNE M31700+2 M31676: BNE M32156 M31700: CLR CPUERR MOV M01030, V.4 MOV R1, V.144+2 MOV R2, V.144 M31722: MOV R3, V.140+2 MOV #1000, SP INC M01004 CLR CPUERR MOV #400, SP M31746: MOV V.4, M01030 MOV #32002, V.4 CLR V.374+2 CLR -(SP) MOV #1000, SP EMT 0 BNE M32006 M32000: BNE M32254+4 CLR CPUERR M32006: MOV #1000, R5 MOV #400, SP M32016: MOV #32040, V.4 ADD -(SP), -(R5) MOV #1000, SP EMT 0 BNE M32044+2 BNE M32316 M32040: CLR CPUERR M32044: MOV #150, SP MOV #32072, V.4 BIC -(R5), -(SP) MOV #1000, SP EMT 0 BNE M32076+4 BNE M32346+2 CLR CPUERR M32076: MOV M01030, V.4 MOV #1000, SP INC M01004 CLR CPUERR MOV #400, SP MOV V.10, M01030 M32132: MOV #32160, V.10 MOV V.4, M01032 MOV #32172, V.4 .WORD 77 M32156: NOP MOV #1000, SP EMT 0 BNE M32200+4 BNE M32446+2 MOV M01032, V.4 M32200: MOV M01030, V.10 CLR CPUERR MOV #1000, SP INC M01004 CLR CPUERR MOV #400, SP MOV V.IOT, M01030 MOV #32266, V.IOT MOV V.4, M01032 M32254: MOV #32300, V.4 IOT NOP MOV #1000, SP EMT 0 BNE M32310+4 BNE M32554+2 CLR CPUERR MOV #1000, SP M32310: MOV M01032, V.4 M32316: MOV M01030, V.IOT INC M01004 CLR CPUERR MOV #400, SP MOV V.EMT, M01030 M32346: MOV #32374, V.EMT MOV V.4, M01032 MOV #32406, V.4 EMT 0 NOP MOV #1000, SP EMT 0 BNE M32422+2 BNE M32662+2 MOV M01030, V.EMT MOV M01032, V.4 M32422: CLR CPUERR MOV #1000, SP INC M01004 CLR CPUERR MOV #400, SP M32446: MOV V.TRAP, M01030 MOV #32502, V.TRAP MOV V.4, M01032 MOV #32520, V.4 TRAP 0 NOP MOV SP, @#M01062 MOV #1000, SP EMT 0 BNE M32540 BNE M32776 MOV M01030, V.TRAP MOV M01032, V.4 CLR CPUERR M32540: MOV #1000, SP INC M01004 CLR CPUERR M32554: MOV #400, SP MOV V.BPT, M01030 MOV #32614, V.BPT MOV V.4, M01032 MOV #32632, V.4 BPT NOP MOV SP, @#M01062 MOV #1000, SP EMT 0 BNE M32652+2 BNE M33104+4 CLR CPUERR MOV M01030, V.BPT MOV M01032, V.4 M32652: MOV #1000, SP INC M01004 M32662: CLR CPUERR MOV #400, SP MOV V.10, M01030 MOV #32730, V.10 MOV V.4, M01032 MOV #32742, V.4 CLR R1 JMP R1 NOP MOV #1000, SP EMT 0 BNE M32766 BNE M33220 MOV M01032, V.4 MOV M01030, V.10 CLR CPUERR MOV #1000, SP M32766: INC M01004 MOV #400, SP M32776: MOV V.10, M01030 MOV #33034, V.10 MOV V.4, M01032 MOV #33046, V.4 CLR R1 JSR R5, R1 NOP MOV #1000, SP EMT 0 BNE M33072+2 BNE M33322+2 CLR @#CPUERR MOV M01030, V.10 MOV M01032, V.4 MOV #1000, SP M33072: INC M01004 MOV V.4, M01030 M33104: MOV #33152, V.4 MOV #1002, SP TST -(SP) MOV #2002, SP TST -(SP) MOV #4002, SP TST -(SP) MOV #10002, SP TST -(SP) MOV #100402, SP TST -(SP) BR M33164 MOV #1000, SP EMT 0 BNE M33214 BNE M33440+2 M33164: MOV M01030, V.4 MOV #1000, SP INC M01004 MOV #1000, SP MOV V.BPT, M01030 M33214: MOV #20, -(SP) M33220: MOV #33242, -(SP) MOV #33250, V.BPT RTI EMT 0 BNE M33274 BNE M33520 EMT 0 BNE M33300+4 BNE M33526 CMP #774, SP BEQ M33264 EMT 0 BNE M33322 BNE M33540+2 M33264: CMP (SP), #33242 BEQ M33300 EMT 0 M33274: BNE M33340 BNE M33552+4 M33300: MOV M01030, V.BPT MOV #1000, SP INC M01004 MOV #1000, SP M33322: MOV V.BPT, M01030 MOV #20, -(SP) MOV #33356, -(SP) M33340: MOV #33366, V.BPT RTT EMT 0 BNE M33416+2 BNE M33634 NOP EMT 0 BNE M33430+2 BNE M33640+4 CMP #774, SP BEQ M33402 EMT 0 BNE M33446+2 BNE M33660 M33402: CMP (SP), #33360 BEQ M33416 EMT 0 BNE M33464+2 BNE M33674 M33416: MOV M01030, V.BPT MOV #1000, SP M33430: INC M01004 MOV #1000, SP M33440: MOV V.BPT, M01030 M33446: MOV #20, -(SP) MOV #33504, -(SP) MOV #33512, V.BPT M33464: MOV #357, PS SCC RTI EMT 0 BNE M33552+4 BNE M33762 EMT 0 BNE M33566 BNE M33770 CMP V.774+2, #20 M33520: BEQ M33530 EMT 0 BNE M33606 M33526: BNE M34006 M33530: MOV #1000, SP MOV #377, -(SP) M33540: MOV #33572, -(SP) MOV #33600, V.BPT M33552: MOV #0, PS CCC RTI EMT 0 M33566: BNE M33646+4 BNE M34050 EMT 0 BNE M33662 BNE M34056 CMP V.774+2, #377 M33606: BEQ M33616 EMT 0 BNE M33700+2 BNE M34074 M33616: MOV M01030, V.BPT MOV #1000, SP INC M01004 M33634: MOV #1000, SP M33640: MOV V.10, M01030 M33646: MOV #33664, V.10 .WORD 77 EMT 0 M33660: BNE M33752 M33662: BNE M34142 CMP #774, SP BEQ M33700 EMT 0 M33674: BNE M33770 BNE M34156 M33700: CMP (SP), #33656 BEQ M33714 EMT 0 BNE M34006 BNE M34170+2 M33714: MOV M01030, V.10 MOV #1000, SP INC M01004 MOV #1000, SP MOV V.10, M01030 MOV #33770, V.10 M33752: CLR PS CCC .WORD 77 M33762: EMT 0 BNE M34064 BNE M34246 M33770: CMP V.774+2, #0 BEQ M34006 EMT 0 BNE M34100+4 BNE M34260+4 M34006: MOV #1000, SP MOV #34040, V.10 MOV #357, PS SCC .WORD 77 EMT 0 BNE M34140 BNE M34316 CMP V.774+2, #357 BEQ M34056 M34050: EMT 0 BNE M34160 BNE M34332+2 M34056: MOV M01030, V.10 M34064: MOV #1000, SP INC M01004 M34074: MOV #1000, SP M34100: MOV V.TRAP, M01030 MOV #34132, V.TRAP CLR PS CCC TRAP 0 EMT 0 BNE M34236 BNE M34410 CMP #774, SP BEQ M34146 M34140: EMT 0 M34142: BNE M34254 BNE M34424 M34146: CMP (SP), #34124 BEQ M34162 EMT 0 M34156: BNE M34266+4 M34160: BNE M34440 M34162: MOV M01030, V.TRAP M34170: MOV #1000, SP INC M01004 MOV #1000, SP MOV V.TRAP, M01030 MOV #34236, V.TRAP CLR PS CCC TRAP 0 EMT 0 BNE M34350 BNE M34514 M34236: CMP V.774+2, #0 BEQ M34254 M34246: EMT 0 BNE M34364+4 BNE M34532 M34254: MOV #1000, SP M34260: MOV #34306, V.TRAP M34266: MOV #357, PS SCC TRAP 0 EMT 0 BNE M34424 BNE M34562+2 CMP V.774+2, #357 BEQ M34324 M34316: EMT 0 BNE M34442+2 BNE M34600+2 M34324: MOV M01030, V.TRAP M34332: MOV #1000, SP INC M01004 CLR R3 MOV #1000, SP M34350: MOV V.TRAP, M01030 MOV V.4, M01032 M34364: MOV #34420, V.4 MOV #34426, V.TRAP JMP M34426 M34404: HALT EMT 0 M34410: BNE M34536 BNE M34666+4 JMP M34426 EMT 0 BNE M34552 M34424: BNE M34704 M34426: INC R3 MOV #1000, SP CMP R3, #400 M34440: BEQ M34456 M34442: MOV #104400, M34404 ADD R3, M34404 BR M34404 M34456: MOV M01030, V.TRAP MOV M01032, V.4 MOV #1000, SP INC M01004 MOV #1000, SP MOV V.IOT, M01030 M34514: MOV #34532, V.IOT IOT EMT 0 BNE M34660 BNE M35006+2 M34532: CMP #774, SP M34536: BEQ M34546 EMT 0 BNE M34676 BNE M35022+2 M34546: CMP (SP), #34524 M34552: BEQ M34562 EMT 0 BNE M34714 BNE M35036+2 M34562: MOV M01030, V.IOT MOV #1000, SP INC M01004 M34600: MOV #1000, SP MOV V.IOT, M01030 MOV #34636, V.IOT CLR PS CCC IOT EMT 0 BNE M34770+2 BNE M35110+4 CMP V.774+2, #0 BEQ M34654 EMT 0 BNE M35012 BNE M35132 M34654: MOV #1000, SP M34660: MOV #34706, V.IOT M34666: MOV #357, PS SCC M34676: IOT EMT 0 BNE M35044+2 M34704: BNE M35164 CMP V.774+2, #357 M34714: BEQ M34724 EMT 0 BNE M35066 BNE M35202 M34724: MOV M01030, V.IOT MOV #1000, SP INC M01004 MOV #1000, SP MOV V.EMT, M01030 MOV #35006, V.EMT MOV V.TRAP, M01032 M34770: MOV #43470, V.TRAP EMT 0 TRAP 0 BNE M35152 BNE M35260+4 M35006: CMP #774, SP M35012: BEQ M35022 EMT 0 BNE M35164+4 BNE M35276+2 M35022: CMP (SP), #35000 BEQ M35036 EMT 0 BNE M35204+2 BNE M35312+2 M35036: MOV M01032, V.TRAP M35044: MOV M01030, V.EMT MOV #1000, SP INC M01004 MOV #1000, SP M35066: MOV V.EMT, M01030 MOV #35134, V.EMT MOV V.TRAP, M01032 M35110: MOV #43470, V.TRAP CLR PS CCC EMT 0 TRAP 0 BNE M35306 M35132: BNE M35412 CMP V.774+2, #0 BEQ M35152 EMT 0 BNE M35326 BNE M35424+4 M35152: MOV #1000, SP MOV #35204, V.EMT M35164: MOV #357, PS SCC EMT 0 TRAP 0 BNE M35356+4 M35202: BNE M35462 M35204: CMP V.774+2, #357 BEQ M35222 EMT 0 BNE M35402 BNE M35476+2 M35222: MOV M01032, V.TRAP MOV M01030, V.EMT MOV #1000, SP INC M01004 MOV #1000, SP MOV V.BPT, M01030 M35260: MOV #35276, V.BPT BPT EMT 0 BNE M35460 BNE M35554 M35276: CMP #774, SP BEQ M35312 EMT 0 M35306: BNE M35476 BNE M35570 M35312: CMP (SP), #35270 BEQ M35326 EMT 0 BNE M35512+2 BNE M35602+2 M35326: MOV M01030, V.BPT MOV #1000, SP INC M01004 MOV #1000, SP MOV V.BPT, M01030 M35356: MOV #35402, V.BPT CLR PS CCC BPT EMT 0 BNE M35570+2 BNE M35660 M35402: CMP V.774+2, #0 BEQ M35420 M35412: EMT 0 BNE M35612 BNE M35676 M35420: MOV #1000, SP M35424: MOV #35452, V.BPT MOV #357, PS SCC BPT EMT 0 BNE M35646 BNE M35730 CMP V.774+2, #357 M35460: BEQ M35470 M35462: EMT 0 BNE M35664+2 BNE M35746 M35470: MOV M01030, V.BPT M35476: MOV #1000, SP INC M01004 MOV #1000, SP M35512: MOV V.10, M01030 MOV #35540, V.10 CLR R1 JMP R1 EMT 0 BNE M35734+4 BNE M36016 CMP #774, SP BEQ M35554 EMT 0 BNE M35756 BNE M36032 M35554: CMP (SP), #35532 BEQ M35570 EMT 0 BNE M35774 BNE M36046 M35570: MOV M01030, V.10 MOV #1000, SP M35602: INC M01004 MOV #1000, SP M35612: MOV V.10, M01030 MOV #35646, V.10 CLR PS CCC CLR R1 JMP R1 EMT 0 BNE M36052+2 BNE M36124 M35646: CMP V.774+2, #4 BEQ M35664 EMT 0 M35660: BNE M36072+2 BNE M36142 M35664: MOV #1000, SP MOV #35716, V.10 M35676: MOV #357, PS SCC JMP R1 EMT 0 BNE M36130 BNE M36174 CMP V.774+2, #357 BEQ M35734 EMT 0 M35730: BNE M36150 BNE M36212 M35734: MOV M01030, V.10 MOV #1000, SP M35746: INC M01004 MOV #1000, SP M35756: MOV V.10, M01030 MOV #36004, V.10 CLR R3 M35774: JSR R3, R3 EMT 0 BNE M36222 BNE M36256+4 CMP #774, SP BEQ M36020 EMT 0 BNE M36236+2 M36016: BNE M36274+2 M36020: CMP (SP), #35776 BEQ M36034 EMT 0 BNE M36256 M36032: BNE M36310+2 M36034: MOV M01030, V.10 MOV #1000, SP M36046: INC M01004 M36052: MOV #1000, SP MOV V.10, M01030 MOV #36112, V.10 M36072: CLR PS CCC CLR R3 JSR R3, R3 EMT 0 BNE M36336 BNE M36370 CMP V.774+2, #4 BEQ M36130 EMT 0 M36124: BNE M36354+2 BNE M36406 M36130: MOV #1000, SP MOV #36162, V.10 M36142: MOV #357, PS M36150: SCC JSR R3, R3 EMT 0 BNE M36412 BNE M36440 CMP V.774+2, #357 BEQ M36200 EMT 0 M36174: BNE M36432 BNE M36456 M36200: MOV M01030, V.10 MOV #1000, SP M36212: INC M01004 CLR CPUERR M36222: MOV V.4, M01030 MOV #36256, V.4 M36236: MOV #30000, PS TST @#177700 EMT 0 BNE M36512 BNE M36534 M36256: CMP #20, CPUERR BEQ M36274 EMT 0 BNE M36532 BNE M36552 M36274: CMP (SP)+, #36250 BEQ M36310 EMT 0 BNE M36550 BNE M36566 M36310: CMP (SP)+, #30000 BEQ M36324 EMT 0 BNE M36566 BNE M36602 M36324: CLR CPUERR MOV M01030, V.4 M36336: INC M01004 CLR CPUERR MOV V.4, M01030 M36354: MOV #36414, V.4 MOV V.4+2, M01032 M36370: CLR V.4+2 MOV #30000, -(SP) MOV #36407, -(SP) RTI M36406: EMT 0 BNE M36660 M36412: BNE M36670+2 CMP #100, CPUERR BEQ M36432 EMT 0 BNE M36674+4 BNE M36710 M36432: CMP #36407, (SP)+ BEQ M36446 M36440: EMT 0 BNE M36716 BNE M36722+2 M36446: CMP #30000, (SP)+ BEQ M36462 EMT 0 M36456: BNE M36734 BNE M36740 M36462: CLR CPUERR MOV #36520, V.4 MOV #30340, V.4+2 CLR PS JMP PS M36512: EMT 0 BNE M36774 BNE M36776 MOV PS, R1 CMP #100, CPUERR M36532: BEQ M36542 M36534: EMT 0 BNE M37020 BNE M37020 M36542: CMP #177776, (SP)+ BEQ M36556 M36550: EMT 0 M36552: BNE M37036 BNE M37030+4 M36556: CMP #0, (SP)+ BEQ M36572 EMT 0 M36566: BNE M37052+2 BNE M37046+2 M36572: CMP #340, R1 BEQ M36606 EMT 0 M36602: BNE M37072 BNE M37060+4 M36606: CLR CPUERR MOV M01030, V.4 MOV M01032, V.4+2 INC M01004 MOV @#V.4, M01030 MOV #36722, @#V.4 CLR R1 M36650: MOV #777, SP CLR CPUERR M36660: CLR PS TST @#177700 M36670: MOV #1000, SP M36674: CMPB #1, @#M01020 BNE M36714 TST R1 BNE M36714 M36710: INC R1 BR M36650 M36714: EMT 0 M36716: BNE M37206+2 BNE M37262 M36722: CMP #0, SP BEQ M36742 MOV #1000, SP M36734: EMT 0 BNE M37232 M36740: BNE M37302 M36742: CMP #36670, (SP)+ BEQ M36762 MOV #1000, SP EMT 0 BNE M37254 BNE M37322 M36762: CMP #0, (SP) BEQ M37002 MOV #1000, SP M36774: EMT 0 M36776: BNE M37276 BNE M37342 M37002: CMP #124, CPUERR BEQ M37020 EMT 0 BNE M37314+2 BNE M37360 M37020: CLR CPUERR MOV #1000, SP M37030: MOV M01030, @#V.4 M37036: CLR @#V.0 CLR @#V.0+2 M37046: INC M01004 M37052: MOV V.4, M01030 M37060: MOV #37106, V.4 CLR CPUERR M37072: TST @#PIRQ MOV M01030, V.4 BR M37114 EMT 0 BNE M37414 BNE M37454 M37114: INC M01004 MOV @#V.240, M01030 MOV @#V.240+2, M01032 MOV #37346, @#V.240 MOV #340, @#V.240+2 MOV #1000, R3 MOV #37230, R4 SPL 7 CLR @#PIRQ CMP @#PIRQ, (R4)+ BEQ M37202 EMT 0 BNE M37502+2 BNE M37540+2 M37202: MOV R3, @#PIRQ M37206: CMP @#PIRQ, (R4)+ BEQ M37222 EMT 0 BNE M37526 BNE M37562 M37222: ASL R3 BCC M37202 BR M37250 HALT M37232: BNE M37340 BGE M37446 JSR R1, -(SP) MOV R2, (R0) CMP R2, @-(R2) BIC R3, (R4) BPL M37202+2 M37250: INC M01004 M37254: SPL 7 CLR @#PIRQ M37262: MOV #177000, R3 MOV #37326, R4 M37272: MOV R3, @#PIRQ M37276: CMP @#PIRQ, (R4) M37302: BEQ M37312 EMT 0 BNE M37616+2 BNE M37652 M37312: ROR R3 M37314: BIC #777, R3 TST (R4)+ M37322: BNE M37272 BR M37354 .WORD 177356 SOB R3, M37302 BIT @M17210(R2), @-(R2) .WORD 7146 M37340: BGT M37552 M37342: BNE M37450 HALT EMT 0 BNE M37664 BNE M37714 M37354: INC M01004 M37360: MOV #1000, R3 MOV #37432, @#V.240 MOV #340, @#V.240+2 CLR R4 M37402: TST (R4)+ BIS R3, @#PIRQ SPL 0 EMT 0 M37414: BNE M37732 BNE M37760 M37420: ADD #4, SP ASL R3 BCC M37402 BR M37464 MOV @#PIRQ, R5 CLR @#PIRQ BIC #177761, R5 M37446: CMP R4, R5 M37450: BEQ M37460 EMT 0 M37454: BNE M37774 BNE M40014+4 M37460: JMP M37420 M37464: INC M01004 CLR @#PIRQ CLR @#PS SPL 7 M37502: MOV #1000, R3 MOV #37540, @#V.240 MOV #340, @#V.240+2 M37522: MOV R3, @#PIRQ M37526: ASL R3 BCC M37522 CLR @#PIRQ BR M37552 M37540: CLR @#PIRQ EMT 0 BNE M40070 BNE M40112 M37552: INC M01004 CLR @#PIRQ M37562: MOV #37700, @#V.240 MOV #340, @#V.240+2 MOV #37766, R5 MOV #6, @#M01054 M37610: CLR R4 MOV #1000, R3 M37616: MOV (R5)+, PS M37622: TST (R4)+ MOV R3, @#PIRQ MOV @#PS, R1 MOV @#PIRQ, R2 BIC #177437, R1 BIC #177437, R2 CMP R1, R2 M37652: BGE M37662 EMT 0 BNE M40200+2 BNE M40222 M37662: ASL R3 M37664: BCC M37622 DEC @#M01054 BNE M37610 JMP M40002 MOV @#PIRQ, -(SP) CLR @#PIRQ MOV V.4(SP), R1 M37714: MOV (SP), R2 BIC #177437, R2 BIC #177437, R1 CMP R1, R2 BMI M37740 M37732: EMT 0 BNE M40256+4 BNE M40300 M37740: MOV (SP)+, R2 BIC #177761, R2 CMP R4, R2 BEQ M37760 EMT 0 BNE M40300+4 BNE M40320 M37760: MOV #37662, (SP) RTI SWAB R0 NOP RTS R0 M37774: JMP -(R0) JMP R0 .WORD 40 M40002: INC M01004 CLR @#PIRQ SPL 7 M40014: MOV #40060, @#V.240 MOV #340, @#V.240+2 MOV #177000, R3 MOV R3, @#PIRQ MOV #16, R4 SPL 0 TST R4 BEQ M40120 EMT 0 BNE M40406 BNE M40414+4 MOV @#PIRQ, R2 BIC #177761, R2 M40070: CMP R4, R2 BEQ M40102 EMT 0 BNE M40432 BNE M40442 M40102: TST -(R4) ROR R3 BIC #777, R3 M40112: MOV R3, @#PIRQ RTI M40120: MOV M01030, @#V.240 MOV M01032, @#V.240+2 INC M01004 CMPB #1, M01020 BNE M40156 TST M01006 BNE M40314 M40156: MOV #340, PS MOV @#V.TPS, M01030 MOV @#V.TPS+2, M01032 M40200: MOV #40236, V.TPS MOV #340, V.TPS+2 MOV #100, TPS M40222: MOV #0, @#PS EMT 0 BNE M40570 BNE M40572+4 CLR TPS CMP #40230, (SP) BEQ M40256 EMT 0 BNE M40612 BNE M40612+4 M40256: CMP #0, V.0+2(SP) BEQ M40274 EMT 0 BNE M40626+4 BNE M40634 M40274: ADD #4, SP M40300: MOV M01030, @#V.TPS MOV M01032, @#V.TPS+2 M40314: INC M01004 M40320: MOV @#V.4, R1 MOV @#V.4+2, R2 MOV #40366, @#V.4 MOV #340, @#V.4+2 CLR CPUERR TST @#LCCSR MOV R1, @#V.4 MOV R2, @#V.4+2 BR M40374 EMT 0 BNE M40732+2 BNE M40732+2 M40374: INC M01004 BIT #100, LCCSR M40406: BEQ M40432 CLR LCCSR M40414: BIT #100, LCCSR BEQ M40432 EMT 0 BNE M40770+4 BNE M40770+2 M40432: SPL 7 MOV @#V.LTC, M01030 M40442: MOV @#V.LTC+2, M01032 MOV #40534, @#V.LTC MOV #340, @#V.LTC+2 BIS #100, LCCSR BIT #100, LCCSR BNE M40510 EMT 0 BNE M41054 BNE M41046+2 M40510: CLR LCCSR BIT #100, LCCSR BEQ M40542 EMT 0 BNE M41076+2 BNE M41070+2 BR M40542 EMT 0 BNE M41112 BNE M41102 M40542: MOV @#M01030, @#V.LTC MOV @#M01032, @#V.LTC+2 INC M01004 BIT #2000, @M01046 M40570: BEQ M40604 M40572: ADD #5, @#M01004 JMP M41550 M40604: CLR LCCSR SPL 7 M40612: MOV @#V.LTC, @#M01030 MOV @#V.LTC+2, @#M01032 M40626: MOV #40666, @#V.LTC M40634: MOV #340, @#V.LTC+2 MOV @#M01074, R1 BIS #100, LCCSR SPL 5 M40656: SOB R1, M40656 EMT 0 BNE M41240 BNE M41226 CLR LCCSR ADD #4, SP MOV @#M01030, @#V.LTC MOV @#M01032, @#V.LTC+2 INC M01004 SPL 7 BIS #100, LCCSR CLR LCCSR M40732: BIT #100, LCCSR BEQ M40750 EMT 0 BNE M41324 BNE M41310 M40750: INC M01004 SPL 7 CLR LCCSR MOV @#V.LTC, @#M01030 M40770: MOV @#V.LTC+2, @#M01032 MOV #41024, @#V.LTC MOV #340, @#V.LTC+2 MOV #1074, R1 SPL 5 M41020: SOB R1, M41020 BR M41032 EMT 0 BNE M41410 BNE M41372 M41032: MOV @#M01030, @#V.LTC MOV @#M01032, @#V.LTC+2 M41046: INC M01004 SPL 7 M41054: MOV @#V.LTC, @#M01030 MOV @#V.LTC+2, @#M01032 M41070: MOV #41122, @#V.LTC M41076: MOV @#M01074, R1 M41102: BIS #100, LCCSR M41110: SOB R1, M41110 M41112: CLR LCCSR SPL 5 BR M41130 EMT 0 BNE M41510 BNE M41470 M41130: MOV @#M01030, @#V.LTC MOV @#M01032, @#V.LTC+2 INC M01004 CLR @#PS MOV @#V.LTC, @#M01030 MOV @#V.LTC+2, @#M01032 MOV #41230, @#V.LTC MOV #340, @#V.LTC+2 MOV @#M01074, R1 M41210: SPL 4 BIS #100, LCCSR M41220: SOB R1, M41220 EMT 0 BNE M41612 M41226: BNE M41570 CLR LCCSR ADD #4, SP M41240: MOV #41272, @#V.LTC MOV @#M01074, R1 SPL 5 BIS #100, LCCSR M41262: SOB R1, M41262 EMT 0 BNE M41656 BNE M41626+4 CLR LCCSR ADD #4, SP MOV #41330, @#V.LTC M41310: MOV @#M01074, R1 SPL 6 BIS #100, LCCSR M41324: SOB R1, M41324 BR M41336 EMT 0 BNE M41722+2 BNE M41674+2 M41336: CLR LCCSR MOV #41370, @#V.LTC MOV @#M01074, R1 SPL 7 BIS #100, LCCSR M41364: SOB R1, M41364 BR M41376 EMT 0 M41372: BNE M41762+4 BNE M41736 M41376: CLR LCCSR MOV @#M01030, @#V.LTC M41410: MOV @#M01032, @#V.LTC+2 INC M01004 MOV @#V.LTC, @#M01030 MOV @#V.LTC+2, @#M01032 MOV #41476, @#V.LTC MOV #240, @#V.LTC+2 MOV #1074, R1 BIS #100, LCCSR SPL 5 M41466: SOB R1, M41466 M41470: EMT 0 BNE M42070 BNE M42036 ADD #4, SP MOV #41520, @#V.LTC M41510: WAIT EMT 0 BNE M42114 BNE M41776 CLR LCCSR CLR PS ADD #4, SP MOV M01030, @#V.LTC MOV M01032, @#V.LTC+2 M41550: INC M01004 MOV @#V.4, M01030 MOV @#V.4+2, M01032 M41570: MOV #41604, @#V.4 MOV @#CPUMR, R1 BR M41612 EMT 0 BNE M41210 BNE M42152 M41612: BIT R1, #21 BNE M41626 EMT 0 BNE M41226 BNE M42164+2 M41626: BIT #10, @#CPUMR BEQ M41714 MOV #41712, @#V.4 CLR @#CPUERR CLR PS HALT M41656: BIT #200, @#CPUERR BNE M41714 MOV #6, @#V.4 M41674: MOV #777, @#V.4+2 EMT 0 BNE M41310+2 BNE M42246+2 BR M41714 RTI M41714: MOV @#M01030, @#V.4 M41722: MOV @#M01032, @#V.4+2 TST M01006 BNE M41742 M41736: TRAP 1 BIC (R0)+, @(SP)+ M41742: INC M01006 BIC #100000, M01006 M41754: DEC #1 BGT M42026 M41762: MOV #1, @#M41754+2 TRAP 1 BIC (R0)+, @60744 M41776: BITB @104405(R0), SP TRAP 1 M42004: BIC (R0)+, @(R2)+ MOV @#V.40+2, R0 BEQ M42026 RESET CALL (R0) NOP NOP NOP M42026: JMP @#M01476 .WORD 177777 HALT M42036: CLR (R5) BIS @-(R1), R3 BIC (R1)+, (R3) CMP M26502(R5), (R2) CMP R0, M42110+3(R0) BIT R5, (R2) CMP R0, 50103(R1) CMP R1, (R5)+ BIC -(R5), R4 BIC @(R5)+, R1 M42070: BIC @52123(R5), (SP) BIC (R5), (R1) MARK 0 BIC (R4), (R2) BIC @-(R5), @(R2)+ BIC @-(R1), R4 CMP R1, R2 M42110: BIC @M20100+4(R1), R5 M42114: BIC R5, (R0)+ BIS (R5), (R3)+ CMP (R4), -(R0) HALT M42124: TSTB M42473 BPL M42136 HALT BR M42216 M42136: MOV R0, -(SP) MOV @V.0+2(SP), R0 CMPB #1, M01020 M42152: BNE M42176 BITB #100, M01021 BEQ M42176 M42164: MOV R0, M42174 CALL M43230 M42174: HALT M42176: BITB #40, M01021 BNE M42214 M42206: MOVB (R0)+, -(SP) BNE M42224 TST (SP)+ M42214: MOV (SP)+, R0 M42216: ADD #2, (SP) RTI M42224: CMPB #11, (SP) BEQ M42312 CMPB #200, (SP) BNE M42254 TST (SP)+ TRAP 1 BNE M42004 M42246: CLRB M42452+2 BR M42206 M42254: CALL M42336 M42260: CMPB M42472, (SP)+ BNE M42206 MOV M42470, -(SP) M42272: DECB V.0+1(SP) BLT M42260 CALL M42336 DECB M42452+2 BR M42272 M42312: MOVB #40, (SP) M42316: CALL M42336 BITB #7, M42452+2 BNE M42316 TST (SP)+ BR M42206 M42336: TSTB @M42460 BPL M42410 MOV @M42462, -(SP) BIC #177600, (SP) CMPB #23, (SP) BNE M42406 M42362: TSTB @M42460 BPL M42362 MOVB @M42462, (SP) BIC #177600, (SP) CMPB #21, (SP) BNE M42362 M42406: TST (SP)+ M42410: TSTB @M42464 BPL M42410 MOVB V.0+2(SP), @M42466 CMPB #15, V.0+2(SP) BNE M42442 CLRB M42452+2 BR M42456 M42442: CMPB #12, V.0+2(SP) BEQ M42456 M42452: INCB #0 M42456: RETURN M42460: .WORD 177560 M42462: .WORD 177562 M42464: .WORD 177564 M42466: .WORD 177566 M42470: BNE M42472 M42472: M42473 =: .+1 .WORD 12 CLR @M42500 M42500: MOV R0, -(SP) MOV R1, -(SP) MOV R2, -(SP) MOV R3, -(SP) MOV R5, -(SP) MOV #20200, -(SP) MOV V.IOT(SP), R5 BPL M42534 NEG R5 MOVB #55, V.0+1(SP) M42534: CLR R0 MOV #42714, R3 MOVB #40, (R3)+ M42546: CLR R2 MOV M42704(R0), R1 M42554: SUB R1, R5 BLT M42564 INC R2 BR M42554 M42564: ADD R1, R5 TST R2 BNE M42576 TSTB (SP) BMI M42614 M42576: ASLB (SP) BCC M42610 MOVB V.0+1(SP), 177777(R3) M42610: BIS #60, R2 M42614: BIS #40, R2 MOVB R2, (R3)+ TST (R0)+ CMP R0, #10 M42630: BLT M42546 BGT M42640 MOV R5, R2 BR M42610 M42640: TSTB (SP)+ BPL M42652 MOVB 177777(SP), 177776(R3) M42652: CLRB (R3) MOV (SP)+, R5 MOV (SP)+, R3 MOV (SP)+, R2 MOV (SP)+, R1 MOV (SP)+, R0 TRAP 1 BIC #16666, (R4) RTI IOT MOV (SP)+, (SP) RTI M42704: CMP @(R4)+, (R0)+ BEQ M42630 JMP -(R4) .WORD 12 HALT HALT HALT HALT MOV @V.0(SP), -(SP) MOVB V.0+1(SP), M43147 MOVB (SP)+, M43151 ADD #2, (SP) BR M42764 MOVB #1, M43147 MOVB #6, M43151 M42764: MOVB #5, M43146 MOV R3, -(SP) MOV R4, -(SP) MOV R5, -(SP) MOVB M43151, R4 NEG R4 ADD #6, R4 MOVB R4, M43150 MOVB M43147, R4 MOV V.10+2(SP), R5 CLR R3 ROL R5 BR M43044 M43034: ROL R5 ROL R5 ROL R5 MOV R5, R3 M43044: ROL R3 DECB M43150 BPL M43110 BIC #177770, R3 BNE M43066 TST R4 BEQ M43074 M43066: INC R4 BIS #60, R3 M43074: BIS #40, R3 MOVB R3, M43144 TRAP 1 BIC @(R1)+, -(R4) M43110: DECB M43146 BGT M43034 BLT M43124 INC R4 BR M43034 M43124: MOV (SP)+, R5 MOV (SP)+, R4 MOV (SP)+, R3 MOV V.0+2(SP), V.4(SP) MOV (SP)+, (SP) RTI M43144: HALT M43146: M43147 =: .+1 HALT M43150: M43151 =: .+1 HALT MOV R0, -(SP) MOV V.0+2(SP), R0 TST -(R0) MOVB (R0), R0 ASL R0 MOV M43206(R0), R0 RTS R0 MOV (SP), -(SP) MOV V.4(SP), V.0+2(SP) RTI M43206: BIC @(R1)+, @M42124(R4) BIC #42724, @-(R0) BIC #42500, 112767(R4) WAIT SPL 6 M43230: MOVB #1, M43464 BR M43246 M43240: MOVB #1, M43466 M43246: MOV R0, -(SP) MOV R1, -(SP) TSTB M43464 BEQ M43400 CMPB #1, M01020 BNE M43352 BITB #100, M01021 BEQ M43352 MOV @V.4(SP), R0 M43304: ADD #2, V.4(SP) M43312: TST M01000 BNE M43312 MOV R0, M01014 M43324: TSTB (R0)+ BNE M43324 SUB M01014, R0 ASR R0 MOV R0, M01016 MOV #4, M01000 BR M43400 M43352: MOV @V.4(SP), M43376 ADD #2, V.4(SP) MOV PS, -(SP) CALL M42124 M43376: HALT M43400: TSTB M43466 BEQ M43442 TST M01020 BEQ M43442 M43414: TST M01000 BNE M43414 MOV @V.4(SP), M01002 ADD #2, V.4(SP) INC M01000 M43442: CLRB M43466 CLRB M43465 CLRB M43464 MOV (SP)+, R1 MOV (SP)+, R0 RETURN M43464: M43465 =: .+1 HALT M43466: HALT M43470: INC M01052 BEQ M43470 INC M01044 CMP (SP), #1002 BHI M43530 MOV #7777, M43624 MOV (SP)+, @#M01062 MOV (SP)+, @#M01064 BR M43610 M43530: MOV @V.0(SP), M43624 MOV (SP), M43634 ADD #2, (SP) MOV @V.0(SP), @#M43556 TRAP 1 M43556: HALT ADD #2, (SP) TRAP 1 BNE M43240+4 MOV M43624, -(SP) TRAP 2 TRAP 1 BNE M43304+2 MOV M43634, -(SP) TRAP 2 M43610: CMPB #1, M01020 BNE M43630 CALL M43240 M43624: HALT M43626: BR M43626 M43630: HALT RTI M43634: HALT .END