Retro1.org codex

User Tools

Site Tools

Trace: • CONBUF Source
ibm:vm370-lib:copy:conbuf.copy_src

Table of Contents

CONBUF Source

References

Source Listing

CONBUF.COPY.txt 
  1. *COPY CONBUF                                                            00001000
  2.          PUSH  PRINT                                                    00001200
  3.          AIF   ('&SYSPARM' NE 'SUP').CON01                              00001400
  4.          PRINT OFF,NOGEN                                                00001600
  5. .CON01   ANOP                                                           00001800
  6. BUFFER   DSECT                                                          00002000
  7.          SPACE                                                          00003000
  8. ***                 BUFFER  -  CONSOLE FUNCTION INPUT BUFFER            00004000
  9. *                                                                       00005000
  10. *          0   +------------------------------------------------+       00006000
  11. *              |                                                |       00007000
  12. *              =                     BUFIN                      =       00008000
  13. *              |                                                |       00009000
  14. *         88   +-----------------------+------------------------+       00010000
  15. *              |        BUFNXT         |        BUFCNT          |       00011000
  16. *         90   +-----------------------+------------------------+       00012000
  17. *                                                                       00013000
  18. ***                 BUFFER  -  CONSOLE FUNCTION INPUT BUFFER            00014000
  19.          SPACE                                                          00017000
  20. BUFIN    DS    CL136          INPUT LINE                                00018000
  21. BUFNXT   DS    1F             POINTER TO NEXT BYTE IN BUFFER            00019000
  22. BUFCNT   DS    1F             COUNT OF CHARACTERS IN INPUT LINE         00020000
  23.          SPACE                                                          00021000
  24. BUFINLTH EQU   L'BUFIN        INPUT BUFFER SIZE IN BYTES                00022000
  25. BUFSIZE  EQU   (*-BUFFER)/8   CONBUF SIZE IN DOUBLE WORDS               00023000
  26.          EJECT                                                          00024000
  27.          POP   PRINT                                                    00025000
  28.          SPACE                                                          00026000
ibm/vm370-lib/copy/conbuf.copy_src.txt · Last modified: 2023/08/06 13:36 by Site Administrator