DataMuseum.dk

top - download

    Length: 3790 (0xece)
    Types: TextFile
    Names: »~ORPHAN_0x0315«

└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
    └─ ⟦this⟧ »~ORPHAN_0x0315« 

TextFile

"
"
" ----------------------------------------------------------
" CRI A/S (C) SEPTEMBER 1991.
"
" TEST-TDX Script for test of LTUX-VDU.
"
" FILE: LTUX_J1  : Script for testing connection on Jack 1.
"                  For use with LTUX on dev.addr address #31.
" ----------------------------------------------------------
"  Procedure section.
" ----------------------------------------------------------
"
"POSITION CURSOR ON LS BUTTON LINE:
PROCEDURE SET_CURSOR
BEGIN
    APPEND #314F  8 ( #061E #161B #2016 #0033 )
END
"
PROCEDURE ENTER_LINE_MODE
BEGIN
  APPEND #314F 6 ( #031E #1C1B #001C )
END
"
PROCEDURE TEST_SUBDEVICES
    BEGIN
             READ #314F 12 EXPECT PATTERN 3 DUMP   "  LS REQUEST  "
"        WAITINIT 200
         APPEND   #314F 10 PATTERN 4               "  LS RESPONCE  "
         APPEND   #314F 58 PATTERN 9               "  THE FOX  "
         SET_CURSOR
"
             READ #314F 12 EXPECT PATTERN 5 DUMP   "  US REQUEST  "
"        WAITINIT 200
         APPEND   #313F 10 PATTERN 6               "  US RESPONCE  "
         APPEND   #313F 58 PATTERN 9               "  THE FOX  "
         SET_CURSOR
"
             READ #314F 12 EXPECT PATTERN 7 DUMP   "  PR REQUEST  "
"        WAITINIT 200
         APPEND   #315F 10 PATTERN 8               "  PR RESPONCE  "
         APPEND   #315F 58 PATTERN 9               "  THE FOX  "
         SET_CURSOR
    END
"
" ---------------------------------------------------
" MAIN PROCEDURE
" ---------------------------------------------------
"
BEGIN
"
" Initialization.
" ----------------------------------------------------------
"
" DEFINITION OF COMMON TEST STRINGS
DEFINE PATTERN 1 = '(:30:)(:08:)PCREADY(:10:)'
DEFINE PATTERN 2 = '(:30:)(:10:)HOSTREADY(:10:)'
"
DEFINE PATTERN 3 = '(:30:)(:10:)REQUESTLS(:10:)'
DEFINE PATTERN 4 = '(:30:)(:08:)SEND-LS(:10:)'
"
DEFINE PATTERN 5 = '(:30:)(:10:)REQUESTUS(:10:)'
DEFINE PATTERN 6 = '(:30:)(:08:)SEND-US(:10:)'
"
DEFINE PATTERN 7 = '(:30:)(:10:)REQUESTPR(:10:)'
DEFINE PATTERN 8 = '(:30:)(:08:)SEND-PR(:10:)'
"
DEFINE PATTERN 9 = '(:30:)(:56:)THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG 0123456789.(:10:)'
"
" ----------------------------------------------------------
"
CREATE    0  #310F  11  16
APPEND #310F   0 ( #0004)
"
"  Open Subdevice 0, - Config channel to LTUX.
"
INITREAD  #310F   4 DUMP
APPEND #310F   6 ( #0001 #187F #3101 )
WAITINIT   2
"
" Load LTUX - SIO parameter block. (Baudrate, parity etc)
"
INITREAD  #310F   4 DUMP
APPEND #310F  10 ( #0103 #0009 #0000 #0000 #0000 )
WAITINIT   2
"
" Open Upper Screen subdevice (J1)
"
INITREAD  #310F   4 DUMP
APPEND #310F   6 ( #3001 #187F #3131 )
WAITINIT   2
"
" Open Lower Screen subdevice (J1)
"
INITREAD  #310F   4 DUMP
APPEND #310F   6 ( #4001 #187F #3141 )
WAITINIT   2
"
" Open Printer subdevice (J1)
"
INITREAD  #310F   4 DUMP
APPEND #310F   6 ( #5001 #187F #3151 )
WAITINIT   2
"
" Close Configuration channel to LTUX.
"
DISMANTLE #310F
"
" Create connection to Upper,Lower and printer (J1).
"
CREATE    0  #313F   4  80
CREATE    0  #314F   4  80
CREATE    0  #315F   4  80
"
" End of initialization.
"
ENTER_LINE_MODE
SET_CURSOR
"
" MAIN PROCEDURE FOR TEST PROGRAM.
"
" AWAIT START MESSAGE FROM PC LOWER SCREEN, AND SEND REPLY.
"
" ---------------------------------------------------------
"
"  START PC - TEST PROGRAM NOW PLEASE.
"
" ---------------------------------------------------------
"
 READ    #314F 10 EXPECT PATTERN 1 DUMP
 APPEND  #314F 12 PATTERN 2
"
 REPEAT 10
    BEGIN
         TEST_SUBDEVICES
    END
"
"
" CONSOLE OUT
" CONSOLE IN
"
DISMANTLE #313F     "***  TERMINATE  UPPER ***"
DISMANTLE #314F     "***  TERMINATE  LOWER ***"
DISMANTLE #315F     "***  TERMINATE  PRINTER ***"
"
CREATE    0  #316F   2  16
DISMANTLE #316F     "***  TERMINATE  ***"
"
"
" END OF TEST SCRIPT.
"
"
END «nul»