$PAGE MTPS #340 BR AA0018 .WORD 0 AA0018: CLR R5 BNE P00070 BMI P00070 BVS P00070 BCS P00070 BLT P00070 BHI P00070 BGT P00070 SCC CLZ BEQ P00070 BPL P00070 BVC P00070 BCC P00070 BLT P00070 BNE P00072 P00070: HALT P00072: INC R5 SWAB R5 DECB R5 NEG R5 MOV R5, R4 ASL R5 INCB R5 XOR R4, R5 SWAB R5 ADD R4, R5 MOV R4, R3 XOR R5, R3 CLC ASR R5 BIS R3, R5 SEC ADCB R5 SBC R5 ADD R3, R5 SUB R5, R4 ROLB R4 SWAB R4 BIS R4, R5 ADCB R5 DECB R5 ROL R5 MOV R3, R2 ROLB R2 BIC R2, R5 SWAB R5 ASL R5 ROLB R5 ADD R3, R2 XOR R5, R2 NEG R5 ADD R2, R5 SWAB R2 MOV R2, R1 SUB R1, R5 SWAB R5 ASLB R5 SBCB R5 SUB R4, R5 DEC R5 ADD R1, R5 ROL R5 COM R5 ADCB R5 ASL R5 ASRB R5 ADC R5 ROR R5 ROL R5 SWAB R5 MOV R5, R0 MOV #157111, R2 CMP R2, R0 BEQ P00262 HALT P00262: $GOTO #1, #ABFA14, JUMP $FILL