{{htmlmetatags>metatag-description:(ICL George 3 and George 4 GIN macro: DISCFAIL)}}
====== DISCFAIL ======
(GIN Macro)
**Defined in:** [[george:source:ACCESSMACROS|ACCESSMACROS]]
**Used in:**
D2PB ...#MAC DISCFAIL
D392 ...[
D3NL ...[ THERE ARE FRIGS IN THIS RESTORE TIME MACRO TO GENERATE TRANSFER FAILUR
D48= ...[
D4MW ...[ IP MANAGER1 CAN BE SET TO THE FOLLOWING:
D57G ...[ #1 FAIL ANY TRANSFER
D5M6 ...[ #2 ANY AUTONOMOUS TRANSFER
D66Q ...[ #4 A SWAP TRANSFER
D6LB ...[ #10 ANY DUMPER TRANSFER
D762 ...[ #20 TERMINAL FILE TRANSFER DURING DUMPING
D7KL ...[ #40 A VITAL SYSTEM FILE DURING DUMPING
D85= ...[ #100 NON AUTONOMOUS, NON CHAPTER TRANSFER
D8JW ...[ #200 CHAPTER TRANSFER
D94G ...[ #400 WRITE TRANSFERS AS WELL AS READ TRANSFERS
D9J6 ...[
D=3Q ...[ ALL TRANSFERS FAILED ARE READ TRANSFERS UNLESS #400 IS INCLUDED.
D=HB ...[
D?32 ...[ %A CAN BE SET TO THE NUMBER OF TRANSFERS DURING BACKMAP BEFORE
D?GL ...[ A FAIL (20 IS A GOOD FIGURE ... CAUSES PARTIAL RESTORE)
D#2= ...[
D#FW ...#SKI %A
D#^G ...(
D*F6 ... FCMENDV
D*YQ ..NBMAP +%A
DBDB ... FCENDV
DBY2 ...)
DCCL ...#MEN BSQ
DCX= ...#TRA K1BSQ+115
DDBW ... BRN FCPCM
DDWG ...#END
DFB6 ... FCMEND
DFTQ ...FCPCM
DG*B ... STO 0 BSMODE(3)
DGT2 ... BNZ 0 K1BSQ+116
DH#L ... LDCT 0 2
DHS= ... ANDX 0 BA1(2)
DJ?W ... BNZ 0 K1BSQ+116 [ J IF SWAP
DJRG ... LDX 0 BIT9
DK?6 ... ORS 0 ATRAN(3) [ SET BIT 9 IN ATRAN FOR DUMPER TEST
DL=B ... BRN K1BSQ+116
DLQ2 ... FCEND
DM9L ...#MEN BSTS
DMP= ...#TRA K1BSTS+221
DN8W ... BRN FCPCM1 [ TRANS ENTRY
DNNG ...#SKI %A
DP86 ...(
DPMQ ...#TRA K1BSTS+237
DQ7B ... BZE 3 FCPCMA [ BMAP ENTRY
DQM2 ...)
DR6L ...#END
DRL= ... FCMEND
DS5W ...#SKI %A
DSKG ...(
DT56 ...FCPCMA
DTJQ ... BSOFF EMSBIT,K1BSTS+239
DW4B ... LDX 0 HBMAP
DWJ2 ... SBN 0 1
DX3L ... STO 0 HBMAP
DXH= ... BNZ 0 K1BSTS+239
DY2W ... BRN FCPCMF
DYGG ...)
D^26 ...FCPCM1
D^FQ ... BSON EMSBIT,XOK [ DONT FAIL IF BMAP
D^^B ... LDX 0 INSTPARAM+1
F2F2 ... ANDN 0 #400
F2YL ... BNZ 0 FCPCM8 [ J - IF NOT TO ALLOW WRITE FAILS.
F3D= ... SMO CPPTR(2)
F3XW ... LDEX 3 IMODE
F4CG ... BNZ 3 XOK [ DONT FAIL WRITE TRANS
F4X6 ...FCPCM8 LDX 3 BSCHANAD(2)
F5BQ ... SBN 3 CHAINADD
F5WB ... LDX 0 INSTPARAM+1
F6B2 ... ANDN 0 #1 [ ANY TRANSFER
F6TL ... BZE 0 FCPCM2
F7*= ... ERS 0 INSTPARAM+1
F7SW ...FCPCMF
F8#G ...# FAILURE PART
F8S6 ... LDCT 0 #040
F9?Q ... STO 0 CPRW1(2)
F9RB ... BRN K1BSTS+253
F=?2 ...XOK
F=QL ...# NON FAIL PART
F?== ... LDX 3 JMBSTS
F?PW ... BRN K1BSTS+222
F#P6 ...FCPCM2
F*8Q ... LDX 0 ACOMMUNE1(2)
F*NB ... BPZ 0 FCPCMC [ NON AUTO TRANS
FB82 ... LDX 0 INSTPARAM+1
FBML ... ANDN 0 #2 [ ANY AUTO TRANS
FC7= ... BZE 0 FCPCM3
FCLW ... ERS 0 INSTPARAM+1
FD6G ... BRN FCPCMF
FDL6 ...FCPCM3
FF5Q ... LDX 0 BIT9
FFKB ... ANDX 0 ATRAN(3)
FG52 ... BNZ 0 FCPCM4 [ DUMPER !!!
FGJL ... LDCT 0 2
FH4= ... ANDX 0 ATRAN(3)
FHHW ... BZE 0 XOK
FJ3G ... LDN 0 #4 [ SWAP TRANS
FJH6 ... BRN FCPCM6
FK2Q ...FCPCM4 [ DUMPER
FKGB ... LDX 3 BPTR(3)
FL22 ... LDX 0 ATYPE(3)
FLFL ... TXL 0 CACT
FL^= ... BCS FCPCM4
FMDW ... HUNT2 3,FILE,ENT
FMYG ... LDX 0 INSTPARAM+1
FND6 ... ANDN 0 #10 [ DUMP FAIL
FNXQ ... BZE 0 FCPCMD
FPCB ... ERS 0 INSTPARAM+1
FPX2 ... BRN FCPCMF
FQBL ...FCPCMD
FQW= ... JMBS FCPCM5,3,BECARE,BECOOR,BEINDEX,BEREVERE
FR*W ...[ NO DY ETC
FRTG ... LDN 0 #20 [ TERMINAL FILE
FS*6 ... BRN FCPCM6
FSSQ ...FCPCM5
FT#B ... LDN 0 #40 [ VSF
FTS2 ...FCPCM6
FW?L ...# COMMON CODE
FWR= ... ANDX 0 INSTPARAM+1
FX=W ... BZE 0 XOK
FXQG ... ERS 0 INSTPARAM+1
FY=6 ... BRN FCPCMF
F^9B ...FCPCMC
F^P2 ...[ NON-AUTO TRANSFERS
G28L ... LDN 0 ASWAP
G2N= ... ANDX 0 ACOMMUNE1(2)
G37W ... BZE 0 FCPCM9 [ NOT A SWAP TRANSFER
G3MG ... LDN 0 #4
G476 ... BRN FCPCM6 [ SWAP FAILURE
G4LQ ...FCPCM9
G56B ... LDCT 0 #200
G5L2 ... ANDX 0 ACOMMUNE1(2)
G65L ... BNZ 0 FCPCM7 [ CHAPTER FAIL
G6K= ... LDN 0 #100
G74W ... BRN FCPCM6 [ NON CHAPTER, NON AUTO FAIL
G7JG ...FCPCM7
G846 ... LDN 0 #200 [ CHAPTER FAIL
G8HQ ... BRN FCPCM6
G93B ... FCEND
G9H2 ...#NOR