Technical data

Example 1 continued:
: BEGINNING OF TRANSFER
:L KB 0 COMPARISON VALUE
:L FY 246 FIELD LENGTH, HIGH BYTE
:!=F FIELD LENGTH >= 256 WORDS ?
:SLW 1 MULTIPLIED BY 2, NUMBER OF SUB-
:T RS 60 FIELDS EACH WITH 128 WORDS
:L FW 244 END ADDRESS OF THE DATA SOURCE
:L FW 242 END ADDRESS OF THE DATA DESTINATION
:JC =REST JUMP, IF FIELD LENGTH < 256 WORDS
LOOP :TNW 128 TRANSFER A SUB-FIELD
:ADD KF -128 REDUCE SOURCE END ADDRESS BY
:TAK LENGTH OF THE SUB-FIELD
:ADD KF -128 REDUCE DESTINATION END ADDRESS
:TAK BY LENGTH OF THE SUB-FIELD
:JU OB 160 COUNT LOOP
:JC =LOOP JUMP, IF NOT ALL SUB-
: FIELDS HAVE BEEN TRANSFERRED
REST :DO FW 246 FIELD LENGTH, LOW BYTE
:TNW 0 TRANSFER REMAINDER OF FIELD
: END TRANSFER
:
:
:
:
:
: BEGINNING OF CONDITION CODE
:L KB 0 ID 00 (HEX): NO ERROR
END :T =STAT OUTPUT PARAMETER STATUS/ERROR
:BEU
F001 :L KB 129 ERROR ID 81 (HEX):
:JU =END SOURCE DB = DESTINATION DB
F002 :L KB 130 ERROR ID 82 (HEX):
:JU =END
OFFSET OR LENGTH >= 4096
F003 :L KB 131 ERROR ID 83 (HEX):
:JU =END SOURCE DB ILLEGAL
F004 :L KB 132 ERROR ID 84 (HEX):
:JU =END SOURCE DB TOO SHORT
F005 :L KB 133 ERROR ID 85 (HEX):
:JU =END DESTINATION DB ILLEGAL
F006 :L KB 134 ERROR ID 86 (HEX):
:JU =END DESTINATION DB IN READ-ONLY MEMORY
F007 :L KB 135 ERROR ID 87 (HEX):
:JU =END DESTINATION DB TOO SHORT
: END OF CONDITION CODE
:BE
9
Transferring Fields of Memory
CPU 928B Programming Guide
C79000-B8576-C898-01
9 - 25