Retro1.org codex

*DECK     CSSRHR
USETEXT TEXTCS
USETEXT TEXTSS
USETEXT TXTAPSS 
PROC CSSRHR;
# TITLE CSSRHR - RESPOND TO HISTORY REQUEST.   #
 
      BEGIN  # CSSRHR # 
# 
**    CSSRHR - RESPOND TO HISTORY REQUEST.
* 
*     D. G. DEPEW.           82/03/22.
* 
*     THIS IS A STUB ROUTINE THAT IS NEEDED TO GET THE HOP C-LAYER
*     WORKING.  IT WORKS FOR NOP'S, ALSO. 
* 
*     PROC CSSRHR 
* 
*     ENTRY   THE HISTORY REQUEST QUEUE (*HRQ*) CONTAINS ONE OR MORE
*             ENTRIES.
* 
*     EXIT    1. THE *HRQ* IS EMPTY.
*             2. FOR EACH ENTRY THAT WAS IN THE *HRQ* UPON ENTRY, A 
*                TERMINAL TEXT ENTRY HAS BEEN PLACED IN THE CONNECTION
*                TRAFFIC QUEUE (*CNQ*). 
# 
 
# 
****  PROC CSSRHR - XREF LIST.
# 
      XREF
        BEGIN 
        PROC SSTAQE;         # ACCEPT QUEUE ENTRY                      #
        PROC SSTRQE;         # REMOVE QUEUE ENTRY                      #
        END 
# 
****
# 
 
 
      ITEM I;                # LOOP INDUCTION VARIABLE                 #
 
 
      ARRAY HISTWC [00:00] S(1);
        BEGIN 
        ITEM HWC$SMID   U(00,00,12) = [SMID"TTEXT"];
        ITEM HWC$IAF    B(00,12,01) = [TRUE]; 
        ITEM HWC$WC     U(00,48,12) = [6];
        END 
 
      ARRAY HISTABH [00:00] S(1); 
        BEGIN 
        ITEM HH$OPER    U(00,06,12);
        ITEM HH$TLC     U(00,48,12) = [40]; 
        END 
 
      ARRAY HISTMSG [00:00] S(4); 
        BEGIN 
        ITEM HM$TEXT    C(00,00,37) = 
                             ["WELCOME TO THE WONDERFUL WORLD OF CS."]; 
        ITEM HM$ZERO    U(03,42,18) = [0];
        END 
 
 
 
 
 
      FOR I=0  WHILE HRQL NQ 0
      DO
        BEGIN 
        SSTRQE (P<HRQ>, WCBUF[0], ABHBUF[0], MSGBUF[0]);
        HH$OPER[0] = ABHADR[0]; 
        SSTAQE (P<CNQ>, HISTWC[0], HISTABH[0], HISTMSG[0]); 
        END 
 
      END  # CSSRHR # 
 
 
      TERM