.TITLE ICHAIN - ICHAIN.K52 .MCALL .GTLIN .PRINT .CHAIN START:: MOV #500,R1 ; POINT TO CHAIN ARGUMENT AREA MOV #FIXED,R0 ; POINT TO FIXED ARGUMENTS 10$: ; MOVE LOOP MOV (R0)+,(R1) ; GET A WORD AND PUT IN ARG AREA CMP #-1,(R1)+ ; END OF LIST? BNE 10$ ; NO, KEEP MOVING FIXED PART TST -(R1) ; BACKUP OVER -1 WORD .GTLIN R1,#PROMPT ; GET COMMAND LINE FOR K52 .PRINT #AWAY ; TELL WE'RE CHAINING .CHAIN ; AND CHAIN TO K52 FIXED: .RAD50 /SY / .RAD50 /K52 / .RAD50 /SAV/ .WORD 0 .RAD50 /DK / .RAD50 /OCHAIN/ .RAD50 /SAV/ .WORD -1 ; END OF LIST PROMPT: .ASCII /K52>/<200> AWAY: .ASCIZ /!ICHAIN-I-CHAINING TO K52/ .EVEN .END START