top - download
⟦3bc2c7af1⟧ Wang Wps File
Length: 1308 (0x51c)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN01.02«
Derivation
└─⟦fa4d101ea⟧ Bits:30005807 8" Wang WCS floppy, CR 0112A
└─ ⟦this⟧ »~ORPHAN01.02«
WangText
us administration field.
4.2.5.6.15.2 I̲n̲t̲e̲r̲f̲a̲c̲e̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲C̲o̲n̲v̲e̲r̲t̲i̲o̲n̲
a) CONVERT ̲STORE ̲LTD (LTD: INTEGER)
b) CONVERT ̲STORE ̲LTD (R0, R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲
R0 LTD (Kept)
R6 LINK (est.)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
None
R1-R7 (Dest.)
4.2.5.6.15.3 D̲a̲t̲a̲ ̲D̲e̲f̲i̲n̲i̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
TABLE ̲TYPE CPS/DBD/001
DEVICE ̲PROFILE ̲TYPE CPS/DBD/001
TERMINAL ̲PROFILE ̲TYPE CPS/DBD/001
NO ̲OF ̲VDUS CPS/DBD/001
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
UMAM ̲TABLE ̲REC 4.2.5.5
4.2.5.6.15.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
CONVERT/STORE ̲LTD
LTD GT NO ̲OF ̲VDUS?
SET LDD = LTD-NO ̲OF ̲VDUS
CASE TMP ̲SEARCH(TERMINAL ̲PROFILE, LTD)
(LTD(ASCII), CC): ERROR ̲OK
ERRO? ANALYZE ̲ERROR(CC, 0)
OK?
END CASE
MOVE LTD(ASCII)TO STA ̲ADM.LTD
CASE TMP ̲SEARCH(DEVICE
̲PROFILE,LDD)
(LDD(ASCII),CC):ERROR ̲OK
ERROR? ANALYZE
̲ERRO:
OK?
END CASE
MOVE LDD(ASCII)
TO STA ̲ADM.LDD
Fig. 4.2.5.6.15
