Control Data Corporation 3300 Reference Manual page 236

00900
0('1901
00902
00903
00904
00905
009()6
00907
0090R
0090Q
00910
00911
00912
00913
00914
00915
00916
00917
00918
00919
00920
00921
00922
00923
00924
00925
00926
00927
00928
00929
00930
00931
00932
00933
00934
00935
00936
00937
0093R
00939
00940
00941
00942
00943
00944
MOVE PSH.KEY TO TEM-KEY-7.
MovE PSR.A~-RQCKT TO ~SR-KEY.
READ P~H-FILE l~VALID KEy ~ERFCRM PROGRAM-BUG.
MOvE
TEM.KEY.]
Ta
PS~-AK-FORW.
WRITE PSR-FIL~-REC INVALIO KEY PERFORM PROGRAM-BUG.
ADn 1 10
UELF
ft.:. -SliR.
AO TO NO.PSR-LJNK-l.
EQUAL-oSR-LINKAGf.
MovE TEM.KEY.j TO PSP-AK.FCRW.
MOvE
PSR.AK-A~CKT
TO TEM-KEY.6.
MOVE TEM.KEY-7 TO
PSR-AK-8AC~T.
wRrTE PSR-FILt-REC INVALIU KEY PERFORM PROGRAM-BUG.
MOVE TEM-KEY-o
TO
PSP-KEv.
R~AD PSR-FILF INVALID KEY PERFORM PROGRAM-8UG
MOVE NUMRER-QfC TO PSH-AK-FORW.
WQJTE PSR-FILf-RI:::C INVllL!1) KEY PERFORM PROGRAM-BUG.
~CVE NUMBER-qcC TO PSR-K~Y.
READ PSR-rlLE INVALID
KEy
PERFORM PROGRAM-BUG.
MOVE TEM-KEY-~ TO PSR-AK.8ACK.
WQyTE
PSR-FIL~-REC
INVALID KEY PERFORM PROGRAM-BUG
MOVE TEM-KEY-' TO PSR-KEY.
WRITF
~SR-FIL~-REC
INVALIO KEY PERFORM PROGRAM-BUG.
Ann
1
TO UELEr~-5U8.
~O TO NC.PSR-LINK-l.
NO-::}THER-PSR.
MOVE TEM·KEY-l TO PSR-KEv.
WRITE ~SR-FIL~-REC FROM PSR-FILE-RECT INVALID KEY
PERFORM PRCGQAM-AUG.
GO TO TApE-CH~CK.
NEED-SECCNDARY-LI~T SECTION.
NEED-LIST-l.
IF MASTER-LIST-~KT IS NOT ZERO
MOVE
MASTE~-LIsT-AKT
TO TEM-KEY-} GO TO NEEO-lIST-2.
IF MSOS.LIST-AKl IS ~OT ZERO
MOVE MSOS-LIST-AKT TO TEM-KEY-l GO TO NEEO-LIST-2.
IF RTS-LIST-~KT IS NCT ZERO
MOVE RTS-LIST-AKT TO TEM-KEY-l GO TO NEEO-LIST-2.
pERFORM
PROGR~M-8UG.
NEED-LTST-2.
MovE PRIM-KEY TO TEM-KEy-2.
MovE TEM-KEY-l TO pRIM-KEY.
READ
PRIM-Sf~-LIST
INVALID KEY PERFORM PROGRAM-BUG.
MovE HEADEk.SAK TO PHIM.KEY.
READ
PRIM-SE~-LJST
INVALIO KEY PERFORM PROGRAM-BUG.
MOVE HEADER-LINK To PRIM-KEY, TEM-KEY.I.