$HPAGE 23 $LABEL ATFA10 NOP MOV #177241, R2 MOV #177646, @#UISAR0 MOV #125252, @377(R2) MOV #175646, R3 MOV #177650, @#UISAR1 MOV #52525, @1774(R3) ADD @377(R2), @1774(R3) ROL @1774(R3) ADC @1774(R3) ADD @1774(R3), R0 BIC @377(R2), @1774(R3) ROR @1774(R3) SBC @1774(R3) BIS @377(R2), @1774(R3) ADD @1774(R3), R0 ADD @#PS, R0 SWAB @1774(R3) CMP @1774(R3), R0 ADD @#PS, R0 SBC @377(R2) COM @1774(R3) SUB @1774(R3), @377(R2) NEG @377(R2) ADD @1774(R3), R0 ADD @#PS, R0 ASL @1774(R3) ASR @377(R2) BIT @377(R2), @1774(R3) ADD @1774(R3), R0 ADD @#PS, R0 MOV #177640, R5 MOV #177640, @#UISAR1 MOV #177640, @#UISAR2 MOV #177652, @#UISAR3 MOV #177653, @#UISAR4 MOV #125252, (R5) MOV #177650, R2 MOV (R5), R3 CLR (R2) MOVB (R5)+, (R2) ADD (R2), R0 INC R2 ADD R2, R0 MOVB (R5)+, (R2) MOVB (R2), R0 ADD R4, R0 DEC R2 CMP @(R5)+, (R2) ADD @#PS, R0 BICB @(R5)+, (R2) SWAB (R2) CMP -(R5), (R2) BICB @(R5)+, (R2) ADD @#PS, R0 MOV R5, R2 MOV 177772(R5), R5 ADD R5, R0 MOVB R5, @0(R2) SWAB @0(R2) BISB R5, @0(R2) ADD @0(R2), R0 MOV #175406, R3 JMP (R3) ADD PC, R0 MOV #P23422, R3 JMP @(R3)+ ADD PC, R0 $LABEL P23416 JMP (R3) ADD PC, R0 $LABEL P23422 .WORD P23416 CALL P23432 ADD (SP), R0 P23432: ADD (SP), R0 MOV #P23444, (SP) RETURN ADD PC, R0 $LABEL P23444 CLR -(SP) MOV #P23456, -(SP) RTI ADD PC, R0 $LABEL P23456 JMP P23464 ADD PC, R0 P23464: MOV #0, @#PS ADD @#PS, R0 CCC SEN SEZ SEV SEC ADD @#PS, R0 SCC CLN CLZ CLV CLC ADD @#PS, R0 MOV #252, @#PS ADD @#PS, R0 MOV #105, @#PS ADD @#PS, R0 MOV #357, @#PS ADD @#PS, R0 MOV #1, @#UISAR0 ADD @#UISAR0, R0 CMP #2, @#UISAR0 ADD @#PS, R0 MOV #0, @#UISAR0 SEC ROL @#UISAR0 ADD @#PS, R0 MOV #1, @#UISAR0 CLC ROL @#UISAR0 ADD @#PS, R0 MOV #100000, @#UISAR0 CLC ROR @#UISAR0 ADD @#PS, R0 SUB #2, @#UISAR7 BNE P23742 CMP #47634, R0 NOP BEQ P23722 MOV #175654, R1 BR P23726 P23722: MOV #175517, R1 P23726: $GOTO #17, #APFA4A P23742: $GOTO #21, #AR002E $FILL