!***************
!*  DDLOS      *
!*  DL HANDLER *
!***************

%CONTROL K'101011';                    ! 'SYSTEM' PROGRAM (FAST
                                       ! ROUTINE ENTRY/EXIT)
%SYSTEMROUTINESPEC LINKIN(%INTEGER SER)
%SYSTEMROUTINESPEC MAPHWR(%INTEGER SEG)
%PERMINTEGERFNSPEC SVC(%INTEGER EP, R0, R1)


%BEGIN

     %RECORDFORMAT PF(%BYTEINTEGER SER, REPLY, %INTEGER A1, A2, A3)
     %RECORDFORMAT P2F(%INTEGER D)
     %RECORDFORMAT LPF(%INTEGER STATUS, DATA)

     %CONSTRECORD (LPF) %NAME LP = K'116504'
                                       ! IN SEG 4 (REALLY A PUNCH!!)
     %CONSTBYTEINTEGERNAME ID = K'160030'

     %CONSTINTEGER EOT = 4
     %INTEGER I, SEG, REPLY, LEN, N

     %RECORDFORMAT BUFF(%BYTEINTEGERARRAYNAME B)
     %RECORDFORMAT BUXF(%INTEGER ARRAY PT)
     %RECORD (BUFF)BUF
     %RECORD (BUXF) %NAME BUX

      MAPHWR(4)
     I = SVC(18, 0, 0);                    ! PUT PRIORITY = 0
     SELECT INPUT(1)
     %CYCLE
         READSYMBOL(I)
         %IF I < 0 %START
              PRINTSTRING("LOADED
")
              %STOP
         %FINISH
         LP_DATA = I
         %WHILE LP_STATUS&K'200' = 0 %CYCLE; %REPEAT
      %REPEAT
%ENDOFPROGRAM