home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
kermit.columbia.edu
/
kermit.columbia.edu.tar
/
kermit.columbia.edu
/
archives
/
honeywellgcosc.tar.gz
/
honeywellgcosc.tar
/
hgboot.a
< prev
next >
Wrap
Text File
|
1988-08-16
|
1KB
|
63 lines
10$$n,j,moni
20$:IDENT:NEWEAGLE,TCARLIN BUILD BOOT
30$:gmap:ndeck
40:lodm:.dmac
60:symref:.dvlri
70:symdef:open
80open:dopen:,,[*,fib,in,,.dvlri]
90begin:stz:cnt
100:eax2:inbuf
110:awdx:0,2,2
120loop:dlgxt:fib,vibot,eof,[rsz,64]
130:mlr:,(1)
140:adsc9:wksp,0,64
150:adsc9:0,0,64,2
160:awd:16,,2
170:aos:cnt
180:lda:=6
190:cmpa:cnt
200:tnz:loop
210:eax5:inbuf
220:lda:=o717717717720
230:rpt:96,1
240:asa:0,5
250:mlr
260:adsc9:inbuf,0,384
270:adsc6:otbuf,0,384
280:mme:geinos
290:sdia
300:zero:fc,dcw1
310:wdic
320:zero:fc,dcw2
330:zero:statr,0
340:mme:geroad
350* WRITE H*
360:aos:ctr
370:lda:ctr
380:sta:ptr
390:tra:begin
400eof:null
410:mme:gefini
420***************************
430* DATA
440***************************
450dcw1:iotd:ptr,1
460ptr:zero:0,0
470fc:bci:1,0000HS
480dcw2:iotd:otbuf,64
490inbuf:bss:96
500otbuf:bss:64
510statr:dec:0,0
520ctr:dec:0
530cnt:dec:0
540mask:oct:077077077077
550wksp:bss:16
560vibot:bss:2
570fib:null
580:fibmac:in,gfrc,[nbuf,1,proar,wksp,0,medcod,6]
590:end
600$:execute:dump
610$:PRMFL:IN,R,S,TP-ANL/KERMIT/KERMIT.B
620$:PRMFL:HS,W,R,TP-ANL/KERMB
630$:endjob