$PAGE 11 BR P11024 .WORD 0 $LABEL DEBMNU $LABEL AJ0014 P11024: MOV #P11222, R0 P11030: TSTB @#TPS BPL P11030 MOVB (R0)+, @#TPB TSTB @#TKS BPL P11072 CMPB @#TKB, #23 BNE P11072 P11060: TSTB @#TKS BPL P11060 TSTB @#TKB P11072: CMPB #377, (R0) BNE P11030 $LABEL P11100 MOV #KDSAR0, SP ; !!!!!! P11114 =: .+10 P11120 =: .+14 $GOTO2 #5, #AFF798 ; ! CALL MOV #P11666, R3 P11132: CMPB R2, #CR BEQ P11210 MOV (R3)+, R4 CMP #177777, (R3) BEQ P11210 MOV (R3)+, R5 CMP R2, (R3)+ BEQ P11160 BR P11132 P11160: MOV #P11100, -(SP) BIT #177400, R5 BEQ P11120 MOV R5, -(SP) MOV R4, -(SP) $GOTO #12, #AKF814 P11210: ; MOV #175022, R4 MOV #AFFA12, R4 ; on Page 5 - BRTBL+2 MOV #P11100, -(SP) BR P11114 $LABEL P11222 .ASCII .ASCII |DEBUG MENU PAGE 4| .ASCII |1 = | .ASCII |2 = | .ASCII |3 = | .ASCII |4 = | .ASCII |5 = | .ASCII |6 = | .ASCII |7 = | .ASCII |8 = | .ASCII |9 = | .ASCII |0 = | .ASCII |= = NEXT MENU| .ASCII |- = BOOT SELECTION| .ASCII |INPUT SELECTION? | .BYTE 377 .REPT ^D<14> .WORD 177777 .ENDR $LABEL P11666 $PGO2 11, AJ0014 .ASCIZ |1| $PGO2 11, AJ0014 .ASCIZ |2| $PGO2 11, AJ0014 .ASCIZ |3| $PGO2 11, AJ0014 .ASCIZ |4| $PGO2 11, AJ0014 .ASCIZ |5| $PGO2 11, AJ0014 .ASCIZ |6| $PGO2 11, AJ0014 .ASCIZ |7| $PGO2 11, AJ0014 .ASCIZ |8| $PGO2 11, AJ0014 .ASCIZ |9| $PGO2 11, AJ0014 .ASCIZ |0| $PGO2 6, AG0014 .ASCIZ |=| $PGO2 0, AA0018 .ASCIZ |-| $FILL