top - download
⟦ac6fb669f⟧ Wang Wps File
Length: 8198 (0x2006)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN68.00«
Derivation
└─⟦d6c5ca2c3⟧ Bits:30006095 8" Wang WCS floppy, CR 0149A
└─ ⟦this⟧ »~ORPHAN68.00«
WangText
D…06…C…0b…C…0d…C…0f…C B…09…B…0c…B…0e…B…01…B B…07…A…0b…A…86…1
…02…
…02…
…02…
…02…CPS/SDS/038
…02…JHH/820305…02……02…
MSO VDU
DETAILED
DESIGN
SPECIFICATION CAMPS
4.2.2.4.4 M̲S̲O̲S̲ ̲F̲/̲C̲ ̲K̲E̲Y̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲
4.2.2.4.4.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The purpose of this module is to analyse the FC ̲KEY
input, and, depending on the FC ̲key identity to callother
modules and procedures. Further it takes care of blanking
the command and the response-line and placing the cursor
on the command line.
4.2.2.4.4.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MSOS ̲FC ̲KEY ̲PROCESSING
b) MSOS ̲FC ̲KEY ̲PROCESSIG (R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.4.4.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
4.2.2.4.4.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
MSOS ̲CO ̲OP ̲TYPE refer 4.1.4
IOC ̲FIELD ̲DESCRIPTOR ̲TYPE refer 4.1.4
FC ̲KEY ̲TYPE refer CPS/DBD/001
SEQUENCE ̲CODE ̲NO ̲TYPE refr 4.2.2.5
BUFFER ̲LIST ̲ELEMENT ̲TYPE refer CPS/DBD/001
ERROR ̲NO ̲TYPE refer 4.2.2.5
INTERNAL ̲ERROR ̲TYPE refer 4.1.4
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
FIELD ̲DESCRIP (m) refer 4.1.4
VDU ̲SPLIT ̲FLAG (m) refer 4.1.4
INT ̲ERROR ̲INF (m) refer 4.1.4
MSO ̲FC ̲KEY(m) refer 4.2.2.5
OUTPUT ̲FLAG refer 4.2.2.5
SPLIT ̲DIGIT (m) refer 4.2.2.5
CURSOR ̲RECORD ̲1(m) refer 4.1.4
OUT ̲LINE ̲FLAG (m) refer 4.2.2.5
RESPONSE ̲TEXT ̲FLAG (m) refer 4.2.2.5
CMD ̲FLAG (m) refer 4.2.2.5
SEQUENCE ̲CODE ̲NO (m) refer 4.2.2.
FC ̲KEY ̲OP (m) refer STET
HEADER ̲IFCB refer 4.1.4
IN ̲LINE ̲FLAG (m) refer 4.2.2.5
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
CONST CMD = 1
CONST NUME = 1
CONST CMD ̲LINE = 3
VAR NOT ̲IN ̲FIELD: BOOLEAN
VAR LIST: BUFFER ̲LIST ̲ELEMENT ̲TYPE
VAR NOT ̲IN ̲FIELD: INTEGE
INIT NOT ̲IN ̲FIELD = FALSE
4.2.2.4.4.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
This module checks the FC ̲key inputs, invest if it
shall enter MSOS ̲SEQUENCE (4.2.2.4.11) and in cases
where flags are set other modules are called. On he
other hand, if no flags are set and the FC ̲key requests
one, it is set and ENTER FC ̲key input are expected.
The cursor position on the command ̲line, and ENTER
FC ̲key input are awaited.
MSOS ̲F/C ̲KEY ̲PROCESSING
CASE WAIT ̲SYSTEM ̲CALL(FC ̲KEY ̲OP)(SPLIT ̲DIGIT, MSO ̲FC
̲KEY, CC):
ERROR
̲OK
ERROR? CASE ANALYSE ̲ERROR(CC,2 PRIORITY ̲OVERRIDE,
VDU ̲SLIT ̲FAI-
LED):(ULB1, ULB2)
ULB1?
ULB2? SET VDU ̲SPLIT ̲FLAG = TRUE
SEQUENCE ̲CODE NO = SEQ ̲FAILURE
M̲S̲O̲S̲ ̲S̲E̲Q̲U̲E̲N̲C̲E̲(̲4̲.̲2̲.̲2̲.̲4̲.̲1̲1̲)̲
END CASE
OK? F̲C̲ ̲K̲E̲Y̲ ̲V̲A̲L̲I̲D̲A̲T̲I̲O̲N̲(̲4̲.̲2̲.̲2̲.̲4̲.̲4̲-̲2̲)̲
END CASE
F̲I̲G̲U̲R̲E̲ ̲4̲.̲2̲.̲2̲.̲4̲.̲4̲-̲1̲…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
FC ̲KEY ̲VALIDATION
MSO ̲FC ̲KEY EQ ENTER? SPLIT ̲DIGIT EQ FORMAT ̲IFCB
SET MSO ̲FC ̲KEY = RETURN
MSO ̲FC ̲KEY NOT IN MASK ̲1? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
UTPUT ̲FLAG EQ TRUE? D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲(̲R̲E̲S̲P̲ ̲L̲I̲N̲E̲,̲S̲P̲A̲C̲E̲S̲)
(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)
SET OUTPUT ̲FLAG = FALSE
MSO ̲FC ̲KEY IN MASK ̲2? S̲E̲T̲ ̲S̲E̲Q̲U̲E̲N̲C̲E̲ ̲C̲O̲D̲E̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲4̲-̲6̲)̲
M̲S̲O̲S̲ ̲S̲E̲Q̲U̲E̲N̲C̲E̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲1̲1̲)̲
MSO ̲FC ̲KEY EQ RETURN? I̲N̲P̲U̲T̲ ̲C̲M̲D̲ ̲L̲I̲N̲E̲ ̲(̲4̲2̲.̲2̲.̲4̲.̲4̲-̲4̲)̲
VDU ̲SPLIT ̲FALG EQ TRUE?
BYTE ̲TRANSFERRED EQ 0? -S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲R̲E̲T̲U̲R̲N̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
SET IN
̲FLAG =
FALSE
SET OUT
̲FLAG =
FALSE
SET CMD
̲FLAG =
FALSE
IN ̲FLAG EQ TRUE? SET REPONSE
̲TEXT
FLAG =
FALSE
OUT ̲FLAG EQ TRUE? M̲S̲O̲S̲ ̲I̲N̲/̲O̲U̲T̲
̲L̲I̲N̲E̲
(̲4̲.̲2̲.̲2̲.̲4̲.̲8̲)
RESPONSE ̲TEXT ̲FLAG EQ TRUE? M̲S̲O̲S̲
̲D̲I̲S̲P̲ ̲R̲E̲S̲P̲ ̲
M̲S̲G̲(̲4̲.̲2̲.̲2̲.̲4̲.̲l̲0̲)̲
CMD ̲FLAG EQ TRUE? M̲S̲O̲S̲ ̲C̲M̲D̲ ̲P̲E̲N̲D̲I̲N̲G̲(̲4̲.̲2̲.̲2̲.̲4̲9̲)
M̲S̲O̲S̲ ̲I̲N̲T̲E̲R̲B̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲)̲(̲4̲.̲l̲.̲5̲.̲2̲)̲
I̲N̲S̲P̲E̲C̲T̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲4̲.̲-̲3̲)̲
fig.4.2.2.4.4-2…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
INSPECT
G̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲ ̲P̲O̲S̲I̲T̲I̲O̲N̲ ̲(̲4̲.̲2̲.̲2̲.̲4̲.̲4̲-̲5̲)̲
VDU ̲SPLIT ̲FLAG EQ TRUE?
MSO FC ̲KEY EQ INSERT ̲LINE? NOT ̲IN ̲FIELD EQ TRUE?
D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
SET IN ̲FLAG = TRUE
S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲H̲E̲A̲D̲E̲R̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲(̲S̲M̲D̲.̲L̲I̲N̲E̲.̲S̲P̲A̲C̲E̲S̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)̲
MSO FC ̲KEY EQ DELETE ̲LINE? NOT ̲IN ̲FIELD EQ TRUE?
D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
SET OUTFLAG = TRUE
S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲H̲E̲A̲D̲E̲R̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲(̲C̲M̲D̲ ̲L̲I̲N̲E̲,̲S̲P̲A̲C̲E̲S̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)̲
MSO FC ̲KEY EQ RESPONSE ̲TEXT? SET RESPONSE ̲TEXT ̲FLAG
= TRUE
S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲H̲E̲A̲D̲E̲R̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲C̲M̲D̲ ̲L̲I̲N̲E̲,̲
S̲P̲A̲C̲E̲S̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)̲
MSO FC ̲KEY EQ COMMAND? SET CMD ̲FLAG = TRUE
S̲E̲T̲ ̲C̲U̲R̲S̲O̲R̲(̲H̲E̲A̲D̲E̲R̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲2̲)̲
D̲I̲S̲P̲L̲A̲Y̲ ̲V̲D̲U̲ ̲F̲I̲E̲L̲D̲(̲C̲M̲D̲.̲L̲I̲N̲E̲.̲S̲P̲A̲C̲E̲S̲)̲
(̲4̲.̲2̲.̲2̲.̲6̲.̲5̲)̲
M̲S̲O̲S̲ ̲I̲N̲T̲E̲R̲N̲A̲L̲ ̲E̲R̲R̲O̲R̲(̲G̲I̲V̲E̲ ̲U̲P̲1̲9̲1̲9̲A̲…00…CPS/SDS/038
…00…rt/uw …00…JHH …00…fra 4.2.2.4.4
…00…2̲6̲…00…0̲3̲…00…8̲2̲…00…1̲3̲…00…1̲6̲…00… ̲ ̲ ̲8̲…00…4̲8̲…00… ̲2̲0̲7̲1̲9̲…00…0̲3̲…00…0̲6̲…00…8̲2̲…00…1̲0̲…00…0̲4̲…00… ̲ ̲ ̲2̲…00…46…00… ̲ ̲2̲0̲3̲7…00…0̲3̲…00…0̲6̲…00…8̲2̲…00…1̲3̲…00…3̲2̲…00…03…00…06…00…82…00…13…00…46…00…0149A…00…
56…00… ̲ ̲2̲2̲…00…16…00… 636…00… ̲4̲4̲1̲5̲9…00…
…00……00……00……11……02……00……00……00……01……10……06…'…10……11……02……90…*̲J̲…15……05……00……00……00……00……00……00……00…7
E̲…00……86……00……00……00……00…B…0a……00……00…B…0b…B…0e…B
B…05…B…07…? >…09…>…0c…>…0e…>…01…> =…0a…=…0c…=…00…= <…08…<…0e…<…02…< ;…08……86…1
…02…
…02… …02…
…02…CPS/SDS/038
…02…JHH/820514…02……02…
MSO VDU
DETAILED DESIGN SPECIFICATION CAMPS
4.2.2.4.4 M̲S̲O̲S̲ ̲F̲/̲C̲ ̲K̲E̲Y̲ ̲P̲R̲O̲C̲E̲S̲S̲I̲N̲G̲
4.2.2.4.4.1 F̲u̲n̲c̲t̲i̲o̲n̲a̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
The purpose of this module is to analyse the FC ̲KEY
input, and, depending on the FC ̲key identity to callother
modules and procedures. Further it takes care of blanking
the command and the response-line and placing the cursor
on the command line.
4.2.2.4.4.2 M̲o̲d̲u̲l̲e̲ ̲I̲n̲t̲e̲r̲f̲a̲c̲e̲
C̲a̲l̲l̲ ̲S̲p̲e̲c̲i̲f̲i̲c̲a̲t̲i̲o̲n̲
a) MSOS ̲FC ̲KEY ̲PROCESSING
b) MSOS ̲FC ̲KEY ̲PROCESSIG (R6)
R̲e̲g̲i̲s̲t̲e̲r̲ ̲C̲o̲n̲v̲e̲n̲t̲i̲o̲n̲
C̲a̲l̲l̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
R6 LINK (DEST)
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲
None
R0 - R7 (DEST)
4.2.2.4.4.3 M̲o̲d̲u̲l̲e̲ ̲C̲o̲m̲p̲o̲n̲e̲n̲t̲s̲
None…86…1 …02… …02… …02… …02… …02…
4.2.2.4.4.4 D̲a̲t̲a̲ ̲D̲e̲s̲c̲r̲i̲p̲t̲i̲o̲n̲
a) D̲a̲t̲a̲ ̲R̲e̲f̲e̲r̲e̲n̲c̲e̲s̲
MSOS ̲CO ̲OP ̲TYPE refer 4.1.4
IOC ̲FIELD ̲DESCRIPTOR ̲TYPE refer 4.1.4
MSO ̲FC ̲KEY ̲TYPE refer 4.2.2.5
SEQUENCE ̲CODE ̲NO ̲TYPE refr 4.2.2.5
BUFFER ̲LIST ̲ELEMENT ̲TYPE refer CPS/DBD/001
ERROR ̲NO ̲TYPE refer 4.2.2.5
INTERNAL ̲ERROR ̲TYPE refer 4.1.4
FC ̲KEY ̲MASK ̲TYPE refer 4.2.2.5
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
FIELD ̲DESCRIP (m) refer 4.1.4
VDU ̲SPLIT ̲FLAG (m) refer 4.1.4
INT ̲ERRORINF (m) refer 4.1.4
OUTPUT ̲FLAG refer 4.2.2.5
SPLIT ̲DIGIT (m) refer 4.2.2.5
CURSOR ̲RECORD ̲1(m) refer 4.1.4
OUT ̲LINE ̲FLAG (m) refer 4.2.2.5
RESPONSE ̲TEXT ̲FLAG (m) refer 4.2.2.5
CMD ̲FLAG (m) refer 4.2.2.5
SEQUENCE ̲CODE ̲NO (m) refer 4.2..5
FC ̲KEY ̲OP (m) refer 4.1.4
HEADER ̲IFCB refer 4.1.4
IN ̲LINE ̲FLAG (m) refer 4.2.2.5
FORMAT ̲IFCB refer 4.1.4
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
CONST COUNT = 69
CONST CMD = 1
CONST NUME = 1
CONST CMD ̲LINE = 3
VAR NOT ̲IN ̲FIELD: BOOLEAN
VAR LIST: BUFFR ̲LIST ̲ELEMENT ̲TYPE
INIT NOT ̲IN ̲FIELD = FALSE
VAR MSO ̲FC ̲KEY: MSO ̲FC ̲KEY ̲TYPE
VAR MASK ̲1,
MASK ̲2: FC ̲KEY ̲MASK ̲TYPE…86…1 …02… …02… …02… …02…
…02…
4.2.2.4.4.5 M̲o̲d̲u̲l̲e̲ ̲D̲e̲s̲i̲g̲n̲
This module investigates the FC ̲key inputs, invest
if it shall enter MSOS ̲SEQUENCE (4.2.2.4.11) and in
cases where flags are set other modules are calle.
On the other hand, if no flags are set and the FC ̲key
requests one, it is set and ENTER FC ̲key input are
expected. The cursor position on the command ̲line,
and ENTER FC ̲key input are awaited.
MSOS ̲F/C ̲KEY ̲PROCESSING
CASE WAIT ̲SYSTEM ̲CALL(FC ̲KEY ̲OP)(SPLIT ̲DIGIT, MSO ̲FC
̲KEY, CC):
ERROR
̲OK
ERROR? CASE ANALYSE ̲ERROR(CC,2 PRIORITY ̲OVERRIDE,
VDU ̲SLIT ̲FAI-
LED):(ULB1, ULB2)
ULB1?
ULB2? SET VDU ̲SPLIT ̲FLAG = TRUE
END CASE
OK? F̲C̲ ̲K̲E̲Y̲ ̲V̲A̲L̲I̲D̲A̲T̲I̲O̲N̲(̲4̲.̲2̲.̲2̲.̲4̲.̲4̲-̲2̲)̲
END CASE
FIGURE 4.2.2.4.4-1…86…1 …02… …02… …02… …02… …02… …02… …02… …02…
FC ̲KEY ̲VALIDATION
MSO ̲FC ̲KEY EQ ENTER? SPLIT ̲DIGIT EQ FORMAT ̲IFCB?
SET MSO ̲FC ̲KEY = RETURN
MSO ̲FC ̲KEY NOT IN MASK ̲1? D̲I̲S̲P̲L̲A̲Y̲ ̲E̲R̲R̲O̲R̲ ̲M̲S̲G̲(̲E̲R̲R̲O̲R̲ ̲N̲O̲)̲(̲4̲.̲2̲.̲2̲.̲6̲.̲4̲)̲
