.TITLE ICHAIN - ICHAIN.KED .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 KED .PRINT #AWAY ; TELL WE'RE CHAINING .CHAIN ; AND CHAIN TO KED FIXED: .RAD50 /SY / .RAD50 /KED / .RAD50 /SAV/ .WORD 0 .RAD50 /DK / .RAD50 /OCHAIN/ .RAD50 /SAV/ .WORD -1 ; END OF LIST PROMPT: .ASCII /KED>/<200> AWAY: .ASCIZ /!ICHAIN-I-CHAINING TO KED/ .EVEN .END START