top - download
⟦e58f7b150⟧ Wang Wps File
Length: 1149 (0x47d)
Types: Wang Wps File
Notes: Spelunked
Names: »~ORPHAN18.01«
Derivation
└─⟦11096526c⟧ Bits:30006108 8" Wang WCS floppy, CR 0171A
└─ ⟦this⟧ »~ORPHAN18.01«
WangText
CIF ̲BUF (INDEX: INTEGER)
b) WRITE ̲CIF ̲BUF (R0, 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̲s̲
R0 INTEGER destr.
R6 LINK
R̲e̲t̲u̲r̲n̲ ̲R̲e̲g̲i̲s̲t̲e̲r̲s̲
R0-R7 destr.
F̲a̲t̲a̲l̲ ̲E̲r̲r̲o̲r̲s̲
None
4.2.3.6.12.3 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̲
CIF ̲F ̲LIST4.2.3.5
CIF ̲FIELD ̲BYTE ̲ADDR 4.2.3.5
CIF ̲BUF ̲PT 4.2.3.5
BOCB 4.2.3.5
OUTPUT ̲CIF 4.1.4
b) E̲x̲t̲e̲r̲n̲a̲l̲ ̲D̲a̲t̲a̲
N/A
c) L̲o̲c̲a̲l̲ ̲D̲a̲t̲a̲
BUFSIZE INTEGER
4.2.3.6.12.4 P̲r̲o̲c̲e̲d̲u̲r̲e̲ ̲D̲e̲s̲i̲g̲n̲
Refer figure 4.2.3.6.12-1
W̲R̲I̲T̲E̲ ̲C̲I̲F̲ ̲B̲U̲F̲
BUF ̲SIZE = BOCB (INDEX) - CIF ̲BUF ̲PT (INDEX)
CIF ̲F ̲LIST. NO ̲OF ̲ELEM = 1
CIF ̲F ̲LIST.ELEM (INDEX).F ̲GROUP ̲ID = INDEX
CIF ̲F ̲LIST.ELEM(INDEX).F ̲BYTE ̲ADR = CIFFIELD ̲BYTE ̲ADDR
CIF ̲F ̲LIST.ELEM (INDEX).REC ̲LENGTH = BUF ̲SIZE
CIF ̲FIELD ̲BYTE ̲ADDR = CIF ̲FIELD ̲BYTE ̲ADDR + BUF ̲SIZE
CASE WRITE ̲VIEW (BUF ̲SIZE, CIF ̲F ̲LIST, OUTPUT ̲CIF,
BOCB
(INDEX) (CIF ̲F ̲LIST, CC):
ERROR ̲OK
ERROR? A̲N̲A̲Y̲S̲E̲ ̲ ̲E̲R̲R̲O̲R̲ ̲(̲0̲,̲C̲C̲)̲
OK?
END CASE
CIF ̲BUF ̲PT(INDEX) = BOCB (INDEX)
END
Figure 4.2.3.6.12-1
