|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 3790 (0xece)
Types: TextFile
Names: »LTUX_J2«, »~ORPHAN_0x0310«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »~ORPHAN_0x0310«
└─⟦6c5de77de⟧ Bits:30005491 8" CR80 Floppy CR80FD_0213 ( 911023 FLOPPY LTUX_J1 LTUX_J2 fra CRI #4 )
└─⟦dbb83d649⟧
└─ ⟦this⟧ »LTUX_J2«
"
"
" ----------------------------------------------------------
" CRI A/S (C) SEPTEMBER 1991.
"
" TEST-TDX Script for test of LTUX-VDU.
"
" FILE: LTUX_J2 : Script for testing connection on Jack 2.
" For use with LTUX on dev.addr address #31.
" ----------------------------------------------------------
" Procedure section.
" ----------------------------------------------------------
"
"POSITION CURSOR ON LS BUTTON LINE:
PROCEDURE SET_CURSOR
BEGIN
APPEND #318F 8 ( #061E #161B #2016 #0033 )
END
"
PROCEDURE ENTER_LINE_MODE
BEGIN
APPEND #318F 6 ( #031E #1C1B #001C )
END
"
PROCEDURE TEST_SUBDEVICES
BEGIN
READ #318F 12 EXPECT PATTERN 3 DUMP " LS REQUEST "
" WAITINIT 200
APPEND #318F 10 PATTERN 4 " LS RESPONCE "
APPEND #318F 58 PATTERN 9 " THE FOX "
SET_CURSOR
"
READ #318F 12 EXPECT PATTERN 5 DUMP " US REQUEST "
" WAITINIT 200
APPEND #317F 10 PATTERN 6 " US RESPONCE "
APPEND #317F 58 PATTERN 9 " THE FOX "
SET_CURSOR
"
READ #318F 12 EXPECT PATTERN 7 DUMP " PR REQUEST "
" WAITINIT 200
APPEND #319F 10 PATTERN 8 " PR RESPONCE "
APPEND #319F 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 ( #0203 #0009 #0000 #0000 #0000 )
WAITINIT 2
"
" Open Upper Screen subdevice (J2)
"
INITREAD #310F 4 DUMP
APPEND #310F 6 ( #7001 #187F #3171 )
WAITINIT 2
"
" Open Lower Screen subdevice (J2)
"
INITREAD #310F 4 DUMP
APPEND #310F 6 ( #8001 #187F #3181 )
WAITINIT 2
"
" Open Printer subdevice (J2)
"
INITREAD #310F 4 DUMP
APPEND #310F 6 ( #9001 #187F #3191 )
WAITINIT 2
"
" Close Configuration channel to LTUX.
"
DISMANTLE #310F
"
" Create connection to Upper,Lower and printer (J2).
"
CREATE 0 #317F 4 80
CREATE 0 #318F 4 80
CREATE 0 #319F 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 #318F 10 EXPECT PATTERN 1 DUMP
APPEND #318F 12 PATTERN 2
"
REPEAT 10
BEGIN
TEST_SUBDEVICES
END
"
"
" CONSOLE OUT
" CONSOLE IN
"
DISMANTLE #317F "*** TERMINATE UPPER ***"
DISMANTLE #318F "*** TERMINATE LOWER ***"
DISMANTLE #319F "*** TERMINATE PRINTER ***"
"
CREATE 0 #316F 2 16
DISMANTLE #316F "*** TERMINATE ***"
"
"
" END OF TEST SCRIPT.
"
"
END «a5»