GR

* 0078-001-H102 (G$DR) DRAWING NO. 41285543-001-03 PAGE 5

0201 SUBR G$DR GENERIC DUMMY ROUTINE 0202 * 0203 SUBR I$AI,TABS INITIALISE SOURCE ASR 0204 SUBR I$AIE,TABS INITIALISE SOURCE ASR 0205 SUBR I$AA,ERNA ASR INPUT SOURCE RECORD 0206 SUBR I$AAE,ERNA ASR INPUT SOURCE RECORD 0207 SUBR I$AB,ERNA ASR INPUT OBJECT LINK 0208 SUBR I$AO,ERNA ASR INPUT OBJECT 0209 * 0210 SUBR O$AI,TABS INITIALISE SOURCE ASR 0211 SUBR O$SAIE,TABS INITIALISE SOURCE ASR 0212 SUBR O$AA,ERNA ASR OUTPUT SOURCE RECORD 0213 SUBR O$AAE,ERNA ASR OUTPUT SOURCE RECORD 0214 SUBR O$AS,NOP ASR OUTPUT END OF TEXT 0215 SUBR O$SASE,NOP ASR OUTPUT SOURCE END OF TEXT 0216 SUBR O$ASS,NOP ASR OUTPUT SOURCE END OF TEXT 0217 SUBR O$AC,NOP ASR OUTPUT CARRIAGE RETURN 0218 SUBR O$AF,NOP ASR OUTPUT LINE FEED 0219 SUBR O$ALDR,NOP ASR PUNCH LEADER 0220 SUBR O$SAB,ERNA ASR OUTPUT OBJECT LINK 0221 SUBR O$AO,ERNA ASR OUTPUT OBJECT 0222 SUBR O$ASO,NOP ASR OUTPUT OBJECT END OF TEXT 0223 SUBR O$AH,SKP ASR HEADING ROUTINE 0224 SUBR O$AL,ERNA ASR LISTING ROUTINE 0225 SUBR O$HH,SKP ASR LIST HEADING 0226 SUBR O$LL,ERNA ASR LIST 0227 SUBR O$AE,NOP ASR LIST EJECT PAGE 0228 SUBR O$AP,ERNA ASR PRINT ROUTINE 0229 * 0230 SUBR I$PI,TABS INITIALISE SOURCE HSR 0231 SUBR I$PIE,TABS INITIALISE SOURCE HSR 0232 SUBR I$PA,ERNA HSR INPUT SOURCE RECORD 0233 SUBR I$SPAE,ERNA HSR INPUT SOURCE RECORD 0234 SUBR I$PB,ERNA HSR INPUT OBJECT LINK 0235 SUBR I$PO,ERNA HSR INPUT OBJECT 0236 * 0237 SUBR O$PI,TABS INITIALISE SOURCE HSP 0238 SUBR O$PIE,TABS INITIALISE SOURCE HSP 0239 SUBR O$PAS,ERNA HSP OUTPUT SOURCE RECORD 0240 SUBR O$PAE,ERNA HSP OUTPUT SOURCE RECORD 0241 SUBR O$PS,NOP HSP OUTPUT END OF TEXT 0242 SUBR O$PSE,NOP HSP OUTPUT SOURCE END OF TEXT 0243 SUBR O$PSS,NOP HSP OUTPUT SOURCE END OF TEXT 0244 SUBR O$PC,NOP HSP OUTPUT CARRIAGE RETURN 0245 SUBR O$PF,NOP HSP OUTPUT LINE FEED 0246 SUBR O$PLDR,NOP HSP PUNCH LEADER 0247 SUBR O$POFF,NOP HSP OFF 0248 SUBR O$PB,ERNA HSP OUTPUT OBJECT LINK 0249 SUBR O$PO,ERNA HSP OUTPUT OBJECT 0250 SUBR O$PSO,NOP HSP OUTPUT OBJECT END OF TEXT