GR

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

0251 SUBR O$PH,SKP HSP LIST HEADING 0252 SUBR O$PL,ERNA HSP LIST 0253 SUBR O$PE,NOP HSP LIST EJECT PAGE 0254 SUBR O$PP,ERNA HSP PRINT ROUTINE 0255 * 0256 SUBR I$CA,ERNA CARD READER INPUT SOURCE RECORD 0257 SUBR I$CABL,NOP CARD READER SOURCE INPUT BUFFER LENGTH 0258 SUBR I$CO,NOP CARD READER OFFSET STACK CARD 0259 SUBR I$CB,ERNA CARD READER INPUT OBJECT LINK 0260 SUBR I$CBO,ERNA CARD READER INPUT OBJECT 0261 * 0262 SUBR O$CA,ERNA CARD READER OUTPUT SOURCE RECORD 0263 SUBR O$CABL,NOP CARD PUNCH SOURCE OUTPUT BUFFER LENGTH 0264 SUBR O$CO,NOP CARD PUNCH OFFSET STACK CARD 0265 SUBR O$CS,NOP CARD PUNCH OUTPUT END OF TEXT 0266 SUBR O$CSS,NOP CARD PUNCH OUTPUT SOURCE END OF TEXT 0267 SUBR O$CB,ERNA CARD PUNCH OUTPUT OBJECT LINK 0268 SUBR O$CBO,ERNA CARD PUNCH OUTPUT OBJECT 0269 * 0270 SUBR O$LH,SKP LINE PRINTER LIST HEADING 0271 SUBR O$LA,ERNA LINE PRINTER LIST LINE 0272 SUBR O$LE,NOP LINE PRINTER LIST EJECT PAGE 0273 SUBR O$LF,NOP LINE PRINTER ADVANCE ONE LINE 0274 SUBR O$LO,ERNA LINE PRINTER PRINT ONE LINE 0275 SUBR O$LP,NOP LINE PRINTER ADVANCE TO TOP OF FORM 0276 * 0277 SUBR I$MA,ERNA READ MAGNETIC TAPE BCD 0278 SUBR I$MB,ERNA READ MAGNETIC TAPE BINARY, 2 CH/WORD 0279 SUBR I$MC,ERNA READ MAGNETIC TAPE BINARY, 3 CH/WORD 0280 * 0281 SUBR O$MA,ERNA WRITE MAGNETIC TAPE BCD 0282 SUBR O$MB,ERNA WRITE MAGNETIC TAPE BINARY, 2 CH/WORD 0283 SUBR O$MC,ERNA WRITE MAGNETIC TAPE BINARY, 3 CH/WORD 0284 SUBR O$ME,SKP MAGNETIC TAPE WRITE FILE MARK 0285 * 0286 SUBR M$UNIT,NOP MAGNETIC TAPE UNIT NUMBER ROUTINE 0287 SUBR C$MR,SKP MAGNETIC TAPE REWIND 0288 SUBR C$FR,ERNA MAGNETIC TAPE FORWARD ONE RECORD 0289 SUBR C$BR,ERNA MAGNETIC TAPE BACKSPACE ONE RECORD 0290 SUBR C$FF,ERNA MAGNETIC TAPE FORWARD ONE FILE MARK 0291 SUBR C$BF,ERNA MAGNETIC TAPE BACKSPACE ONE FILE MARK 0292 * 0293 SUBR C$6TO8,ERNA CONVERT FROM SIX-BIT CODE TO ISO CODE 0294 SUBR C$8TO6,ERNA CONVERT FROM ISO CODE TO SIX-BIT CODE 0295 SUBR C$IS,ERNA CONVERT FROM INVISIBLE TO SIX-BIT CODE 0296 SUBR C$SI,ERNA CONVERT FROM SIX-BIT CODE TO INVISIBLE CODE 0297 SUBR C$IN,TABS INITIALISE SOURCE 0298 * 0299 SUBR G$FF FIRST FREE LOCATION 0300 *