.Title Pasio - An initialization routine for dumb Pascal

;+
;Written by Kevin Carosso, May 3, 1981
;
;      Copyright 1981
;     Omnigraph Project
;    Harvey Mudd College
;-

        .Extrn  PAS$INPUT
        .Extrn  PAS$OUTPUT
        .Extrn  PAS$CLOSEINOUT

        input = 8
        output = 236

        .entry  PAS$INIT_IO, ^M<r11>

        movab   doof, r11               ;Get Pascal's global data area
        pushal  input(r11)              ;Get address of input FSB
        calls   #1,PAS$INPUT            ;and go initialize it.
        pushal  input(r11)              ;Get input
        pushal  output(r11)             ;and output FSB's
        calls   #2,PAS$OUTPUT
	movab	input(r11),r0		;return a pointer in $GLBL
        ret

        .entry  PAS$CLOSE_IO, ^M<r11>

        movab   doof, r11               ;Get location of FSB's
        pushal  input(r11)              ;pass input
        calls   #1, PAS$CLOSEINOUT      ;close it up
        pushal  output(r11)             ;then output
        calls   #1,PAS$CLOSEINOUT
        ret

        .psect $GLBL,pic,ovr,rel,gbl,noshr,noexe,rd,wrt,long

doof:   .blkb   464

        .end