image of READY prompt

Wang2200.org

Listing of file='TEMP' on disk='vmedia/bsc_host.wvd.zip'

# Sector 254, program filename = 'TEMP'
1230 REM    A0     =    LEN(IDACK)
1240 REM    A0$    =    IDACK STRING
1250 REM    A2     =    PTR TO ACK0/ACK1
1260 REM    B$     =    WORKING 2 BYTE
1270 REM    B0     =    LEN(ID ENQ)
1280 REM    B0$    =    ID ENQ STRING
1290 REM    C$     =    WORKING CONTROL MNEMONIC IN '161
1300 REM    C$(    =    DL CONTROL CODES
1310 REM    C0$(   =    SYNC CHARS, BCC START/STOP CODES
1320 REM    C1$    =    LIST OF 1-BYTE DL CODES
1330 REM    C2     =    CRT ROW
1340 REM    C2$    =    LIST OF DLE FOLLOWER CODES
1350 REM    D$(    =    LIST OF DEVICE ADRESSES D$(1) = TC BD
1360 REM    D1     =    # OF BYTES TO SEND IN A CONTROL SEQ
1370 REM    D1$(   =    ARG 3 FOR CONTROL SEQ SEND
1380 REM    D2$    =    WORKING, ARG 3 FOR CONTROL SEQ SEND
1390 REM    E$(    =    MNEMONIC - ETB, ETX
1400 REM    E1     =    1 IF ETB RX, 2 IF ETX RX, ELSE 0
1410 REM    F1$    =    NAME OF FILE TO OPEN
1420 REM    F1$(   =    FLAGS
1430 REM        01 =    DSR STATE
1440 REM    G$     =    FLAGS GIO SEQ TO USE, EG "R" = RECEIVE
1450 REM    G$(    =    GIO ARGS FOR TC BD, 1 PER ELEMENT
1460 REM    H$     =    HEX DATA TO BE DISPLAYED
1470 REM    I$     =    RX MSG WITH LEADING SYNCS TRUNCATED
1480 REM    K      =    POS OF CHOICE IN KEYSTROKE LIST
1490 REM    K$     =    KEYSTROKE BUFFER
1500 REM    K$(    =    AUTH KEYSTROKE LIST
1510 REM    K1$(   =    KEYSTROKE ACTION DISPLAY PROMPTS
1520 REM    K2$    =    WORKING BUFFER FOR KEYSTROKE LISTS
1530 REM    K9     =    NUMBER OF KEYSTROKE ACTIONS
1540 REM    M1     =    NUMBER OF FOX BLOCKS SENT
1550 REM    M1$    =    ARG 1 TO '99 (TYPE ACTION WANTED, EG BID)
1560 REM    M2$(   =    ARG 2 TO '99 (DATA)
1570 REM    M3     =    ARG 3 TO '99 (OPTIONAL NUMERIC DATA)
1580 REM    O$     =    ARG 1 TO '150 (DL HEADER DATA)
1590 REM    O$(    =    ARG 2 TO '150 (TEXT DATA)
1600 REM    O0     =    ARG 1 TO '210 (CRT ROW FOR MSG)
1610 REM    O0$(   =    ON/OFF MNEMONICS FOR PRINTER
1620 REM    O1$    =    ARG 3 TO '150 (USUALLY DL TRAILER)
1630 REM    O5$    =    ARG 5 TO '150 (OPTIONAL ORDERS)
1640 REM    P9     =    FLAGS PRINTER 1=ON 0=OFF
1650 REM    Q$     =    WORKING, RETURN CODE
1660 REM    R      =    # OF BYTES RECEIVED (0 FLAGS NOTHING RX)
1670 REM    R$(    =    RX MSG BUFFER
1680 REM    R0$(   =    ARG 2 IN TC GIO
1690 REM    R1     =    PTR TO RX EVENT (1=T/O,2=JUNK,3=ACK0, ETC)
1700 REM    R1$    =    MNEMOMIC FOR RX EVENT (T/O,JUNK,ACK0, ETC)
1710 REM    R1$(   =    LIST OF RX EVENT MNEMONICS (T/O,JUNK, ACK0, ETC)
1720 REM    S      =    LEN OF TC GIO SEND DATA ARG
1730 REM    S$     =    TC BD STATUS
1740 REM    S1     =    # OF BYTES BETWEEN INSERTED SYNCS
1750 REM    S2     =    WORKING, LEN OF SEND DATA ARG
1760 REM    T      =    ITERATION CTR FOR RETRIES
1770 REM    T0$    =    ARG 1 FOR CRT DISP (DIRECTION ARROW)
1780 REM    T1$    =    ARG 2 FOR CRT DISP (EVENT MNEMONIC, EG BID)
1790 REM    T1$(   =    XLATE ASCII INTO EBCIDIC
1800 REM    T2$    =    ARG 3 FOR CRT DISP (USUALLY RX OR TX DATA IN HEX)
1810 REM    T3$    =    IMAGE FOR CRT DISP
1820 REM    T9     =    LIMIT FOR RX DATA TIMEOUT CTR
1830 REM    W$     =    ARG 2 FOR GIO WAIT
1840 REM    X      =    WORKING
1850 REM    Y$     =    WORKING
1860 REM    Y0$    =    WORKING, HOLDS DATA DIRECTION MNEMONIC
1870 REM    Y1$    =    WORKING, USUALLY CRT DISP DATA
1880 REM    Y3$    =    ARG 2 FOR CRT MSG
1890 REM    Y5$    =    ARG 3 FOR CRT MSG