Step |
Instruction |
|
Address |
Comment |
|
1004- |
JSBR |
IZ |
1640 |
SPLIT “PRINT?” |
|
1005- |
P1=1040- |
|
|
|
|
1006- |
JUMP |
|
xxxx |
No. |
|
1007- |
JSBR |
IZ |
1670 |
Yes. FETCH & LOCK Spool Header into Master Bufer. |
|
1010- |
P1=200000 |
|
|
Spool File Id=0 |
|
1011- |
P2=1037- |
|
|
Header record No. |
|
1012- |
P3=0 |
|
|
No extraction |
|
1013- |
LDA |
Z |
ssss |
Serial Number, last document (from System Control Record) |
|
1014- |
CMPA |
Z |
0357 |
CF50,000 |
|
1015- |
CLA |
|
|
|
|
1016- |
INCA |
|
|
|
|
1017- |
STA |
Z |
ssss |
Update Serial Number |
|
1020- |
JSBR |
IZ |
1725 |
STA Serial Number, this document |
|
1021- |
P1=3373- |
|
|
(into Spool Header) |
|
1022- |
JSBR |
IZ |
1771 |
REWRITE Spool Header |
|
1023- |
JSBR |
IZ |
1647 |
POST to Print Queue |
|
1024- |
P1=1037- |
|
|
Header Record No. |
|
1025- |
JSBR |
IZ |
1765 |
Serial Number ® ASCII |
|
1026- |
P1=0,0,1,7 |
|
|
|
|
1027- |
P2=3373- |
|
|
|
|
1030- |
P3=1053½- |
|
|
|
|
1031- |
JSBR |
IZ |
1652 |
PUT “SERIAL NO ” |
|
1032- |
P1=1046- |
|
|
|
|
1033- |
JSBR |
IZ |
1667 |
STOW Control Record |
|
1034- |
JUMP |
|
yyyy |
onto input of next document. |
|
1035- |
|
|
|
|
|
1036- |
|
|
|
|
|
1037- |
|
|
|
Spool Header Record No |
- |
1040- |
|
|
|
SPLIT “PRINT?” |
300000 |
1041- |
|
|
|
|
1042- |
1042- |
|
|
|
“PRINT?” |
CR P |
1043- |
|
|
|
R I |
|
1044- |
|
|
|
N T |
|
1045- |
|
|
|
? NUL |
|
1046- |
|
|
|
“SERIAL NO nnnnn ” |
CAN S |
1047- |
|
|
|
E R |
|
1050- |
|
|
|
I A |
|
1051- |
|
|
|
L SP |
|
1052- |
|
|
|
N O |
|
1053- |
|
|
|
SP · |
|
1054- |
|
|
|
· · |
|
1055- |
|
|
|
· · |
|
1056- |
|
|
|
· · |
|
1057- |
|
|
|
NUL |