Retro1.org codex

User Tools

Site Tools

Trace: • NMI=LDM
cdc:nos2.source:nam5871:nmi_ldm

Table of Contents

NMI=LDM

Table Of Contents

Source Code

NMI=LDM.txt 
  1. *DECK     NMI=LDM 
  2.           IDENT  MSGS 
  3.           COMMENT MSGS - L-DISPLAY MESSAGE BLOCKS 
  4. *CALL     NMI=MAC 
  5.           LIST   *
  6.  
  7. **        MSGS
  8. *         A COLLECTION OF L-DISPLAY AND TERMINAL MESSAGE
  9. *         FORMATS AND SKELETONS 
  10. * 
  11.  
  12.  
  13.           USE    /TBLADR/ 
  14.           VFD    30/OPTIONS,30/.OPTIONS-OPTIONS 
  15.           VFD    30/OPTION2,30/.OPTION2-OPTION2 
  16.           VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
  17.           VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
  18.           VFD    30/CBUFR1,30/.CBUFR1-CBUFR1
  19.           VFD    30/ZBUFR1,30/.ZBUFR1-ZBUFR1
  20.           VFD    60/0 
  21.           USE 
  22.  
  23.           EJECT 
  24.  
  25. OPTIONS   EQU    *
  26.           DISPLAY  OPTION,INFORM,(OPTION SELECTION) 
  27.           LINE   S,N,C,,(    )
  28.           LINE   S,N,C,,(        ENTER OPTION --       )
  29.           LINE   S,N,C,,(    )
  30.           LINE   S,N,C,,(    1.  SHOW OPTIONS         4.  SAVE JOB     )
  31.           LINE   S,N,C,,(    2.  SELECT JOB           5.  SUBMIT JOB   )
  32.           LINE   S,N,C,,(    3.  MODIFY JOB CCL       6.  TERMINATE    )
  33.           LINE   S,N,C,,(    )
  34.           DISEND OPTION 
  35. .OPTIONS  EQU    *-1
  36.  
  37.           SPACE  4,8
  38.  
  39. OPTION2   EQU    *
  40.           DISPLAY  OPTN02,INFORM,(JOB SELECTION)
  41.           SMALL  (    ) 
  42.           SMALL  (    SELECT JOB/PARAM RECORD NAME-)
  43.           SMALL  (    ) 
  44.           SMALL  (01- .......             .......  )
  45.           SMALL  (03-                              )
  46.           DISEND   OPTN02 
  47. .OPTION2  EQU    *-1
  48.  
  49.           SPACE  4,8
  50.  
  51. CBUFR1    EQU    *
  52.           DISPLAY  CCBF01,INFORM,(    =CONTROL CARD BUFFER=)
  53.           SMALL  (CC--00000000011111111112222222222333333333344444444445
  54. ,5555555556)
  55.           SMALL  (CC--12345678901234567890123456789012345678901234567895
  56. ,1234567890)
  57.           DUP    18,1 
  58.           SMALL  (CC--
  59. ,          )
  60.           DISEND CCBF01 
  61. .CBUFR1   EQU    *-1
  62.  
  63.           SPACE  4,8
  64.  
  65. ZBUFR1    EQU    *
  66.           DISPLAY  ZZBF01,INFORM,( )
  67.           DISEND   ZZBF01 
  68. .ZBUFR1   EQU    *-1
  69.  
  70.           END
cdc/nos2.source/nam5871/nmi_ldm.txt · Last modified: 2023/08/05 17:22 by Site Administrator