.dsabl reg
.enabl gbl
.psect c$text
initf:
jsr %5,c$sav
add #-14,%6
clr -(%6)
clr -(%6)
mov 4(%5),-(%6)
jsr %7,seekl
add #6,%6
clr %4
$1: ;46
cmp %4,#10000
bhi $3
mov #-1,(%6)
mov 4(%5),-(%6)
jsr %7,putc
tst (%6)+
mov %4,%0
inc %0
mov %0,%4
br $1
$3: ;48
mov #0,-12(%5)
mov #1020,-10(%5)
clr -16(%5)
clr -14(%5)
mov 6(%5),-22(%5)
mov 10(%5),-20(%5)
mov #10,(%6)
mov #-22,-(%6)
add %5,(%6)
mov -10(%5),-(%6)
mov -12(%5),-(%6)
mov 4(%5),-(%6)
jsr %7,putat
add #10,%6
mov -12(%5),-16(%5)
mov -10(%5),-14(%5)
clr -22(%5)
clr -20(%5)
mov #10,(%6)
mov #-22,-(%6)
add %5,(%6)
mov #1010,-(%6)
mov #0,-(%6)
mov 4(%5),-(%6)
jsr %7,putat
add #10,%6
mov #0,-12(%5)
mov #1000,-10(%5)
mov 6(%5),-22(%5)
mov 10(%5),-20(%5)
mov 6(%5),%0
mov 10(%5),%1
add #0,%0
add #1020,%1
adc %0
mov %0,-16(%5)
mov %1,-14(%5)
mov #10,(%6)
mov #-22,-(%6)
add %5,(%6)
mov -10(%5),-(%6)
mov -12(%5),-(%6)
mov 4(%5),-(%6)
jsr %7,putat
add #10,%6
jmp c$ret
.psect c$data
.even
$11:
.word 0
.word 1010
.psect c$text
falloc:
mov %5,-(%6)
mov %6,%5
add #-104,%6
mov 6(%5),%0
mov 10(%5),%1
add #0,%0
add #13,%1
adc %0
mov %0,6(%5)
mov %1,10(%5)
mov 10(%5),-(%6)
mov 6(%5),-(%6)
mov #10,-(%6)
mov #0,-(%6)
jsr %7,c$ldiv
mov (%6)+,6(%5)
mov (%6)+,10(%5)
mov 6(%5),%0
mov 10(%5),%1
ashc #3,%0
mov %0,6(%5)
mov %1,10(%5)
mov %5,%0
add #-52,%0
mov %0,-64(%5)
mov %5,%0
add #-62,%0
mov %0,-66(%5)
mov $11,-32(%5)
mov $11+2,-30(%5)
clr -102(%5)
$31: ;93
mov -64(%5),(%6)
mov -30(%5),-(%6)
mov -32(%5),-(%6)
jsr %7,getstru
cmp (%6)+,(%6)+
mov -64(%5),%0
mov 4(%0),-26(%5)
mov 6(%0),-24(%5)
mov -26(%5),%0
mov -24(%5),%1
ashc #0,%0
bne $71
tst -102(%5)
bne $12
mov #0,-32(%5)
mov #1010,-30(%5)
inc -102(%5)
br $31
$71: ;114
mov -66(%5),(%6)
mov -24(%5),-(%6)
mov -26(%5),-(%6)
jsr %7,getstru
cmp (%6)+,(%6)+
mov -66(%5),%1
mov (%1),%0
mov 2(%1),%1
sub 6(%5),%0
sub 10(%5),%1
sbc %0
ashc #0,%0
bge .+6
jmp $52
mov -66(%5),%1
mov (%1),%0
mov 2(%1),%1
sub 6(%5),%0
sub 10(%5),%1
sbc %0
mov %0,-42(%5)
mov %1,-40(%5)
mov -42(%5),%0
mov -40(%5),%1
sub #0,%0
sub #20,%1
sbc %0
ashc #0,%0
blt .+6
jmp $13
mov -64(%5),%0
mov -66(%5),%1
mov 4(%1),4(%0)
mov 6(%1),6(%0)
mov -26(%5),-36(%5)
mov -24(%5),-34(%5)
mov -64(%5),(%6)
mov -30(%5),-(%6)
mov -32(%5),-(%6)
jsr %7,putstru
cmp (%6)+,(%6)+
jmp $33
$12: ;101
mov $11,-32(%5)
mov $11+2,-30(%5)
clr -102(%5)
mov -64(%5),(%6)
mov #1000,-(%6)
mov #0,-(%6)
jsr %7,getstru
cmp (%6)+,(%6)+
mov -64(%5),%0
mov (%0),-22(%5)
mov 2(%0),-20(%5)
mov -64(%5),%0
mov 4(%0),-12(%5)
mov 6(%0),-10(%5)
mov %5,%0
add #-76,%0
mov %0,-100(%5)
mov -100(%5),%0
mov -22(%5),(%0)
mov -20(%5),2(%0)
mov -100(%5),%0
clr 4(%0)
clr 6(%0)
mov -100(%5),(%6)
mov -10(%5),-(%6)
mov -12(%5),-(%6)
jsr %7,putstru
cmp (%6)+,(%6)+
mov -22(%5),%0
mov -20(%5),%1
add -12(%5),%0
add -10(%5),%1
adc %0
mov %0,-16(%5)
mov %1,-14(%5)
mov #4,(%6)
mov #-16,-(%6)
add %5,(%6)
mov #1004,-(%6)
mov #0,-(%6)
mov 4(%5),-(%6)
jsr %7,putat
add #10,%6
mov -12(%5),%0
mov -10(%5),%1
add #0,%0
add #4,%1
adc %0
mov %1,-(%6)
mov %0,-(%6)
mov 4(%5),-(%6)
jsr %7,ffree
add #6,%6
jmp $31
$52: ;117
mov -26(%5),-32(%5)
mov -24(%5),-30(%5)
jmp $31
$13: ;126
mov -66(%5),%0
mov -42(%5),(%0)
mov -40(%5),2(%0)
mov -26(%5),%0
mov -24(%5),%1
add -42(%5),%0
add -40(%5),%1
adc %0
mov %0,-36(%5)
mov %1,-34(%5)
mov -66(%5),(%6)
mov -24(%5),-(%6)
mov -26(%5),-(%6)
jsr %7,putstru
cmp (%6)+,(%6)+
mov #4,(%6)
mov #6,-(%6)
add %5,(%6)
mov -34(%5),-(%6)
mov -36(%5),-(%6)
mov 4(%5),-(%6)
jsr %7,putat
add #10,%6
$33: ;131
mov #4,(%6)
mov #$11,-(%6)
mov -32(%5),%0
mov -30(%5),%1
add #0,%0
add #4,%1
adc %0
mov %1,-(%6)
mov %0,-(%6)
mov 4(%5),-(%6)
jsr %7,getat
add #10,%6
mov $11,%0
mov $11+2,%1
ashc #0,%0
bne $53
mov #0,$11
mov #1010,$11+2
$53: ;137
mov -36(%5),%0
mov -34(%5),%1
add #0,%0
add #4,%1
adc %0
jmp c$rets
.globl getstru
.globl putstru
.globl seekl
.globl initf
.title initf
.globl lun6
.globl putc
.globl ffree
.globl falloc
.globl getat
.globl putat
.globl stdin
.globl stdout
ffree:
jsr %5,c$sav
add #-52,%6
mov #0,-16(%5)
mov #1010,-14(%5)
mov 6(%5),%0
mov 10(%5),%1
add #-1,%0
add #-4,%1
adc %0
mov %0,6(%5)
mov %1,10(%5)
mov %5,%0
add #-32,%0
mov %0,-54(%5)
mov %5,%0
add #-42,%0
mov %0,-60(%5)
mov %5,%0
add #-52,%0
mov %0,-56(%5)
mov #4,(%6)
mov #-22,-(%6)
add %5,(%6)
mov 10(%5),-(%6)
mov 6(%5),-(%6)
mov 4(%5),-(%6)
jsr %7,getat
add #10,%6
$73: ;152
mov -54(%5),(%6)
mov -14(%5),-(%6)
mov -16(%5),-(%6)
jsr %7,getstru
cmp (%6)+,(%6)+
mov -54(%5),%0
mov 4(%0),-12(%5)
mov 6(%0),-10(%5)
mov -12(%5),%0
mov -10(%5),%1
ashc #0,%0
beq $14
mov -12(%5),%0
mov -10(%5),%1
sub 6(%5),%0
sub 10(%5),%1
sbc %0
ashc #0,%0
bgt $14
mov -12(%5),-16(%5)
mov -10(%5),-14(%5)
br $73
$14: ;160
mov 6(%5),%0
mov 10(%5),%1
add -22(%5),%0
add -20(%5),%1
adc %0
sub -12(%5),%0
sub -10(%5),%1
sbc %0
ashc #0,%0
bne $15
mov -56(%5),(%6)
mov -10(%5),-(%6)
mov -12(%5),-(%6)
jsr %7,getstru
cmp (%6)+,(%6)+
mov -22(%5),%0
mov -20(%5),%1
mov -56(%5),%3
mov (%3),%2
mov 2(%3),%3
add %2,%0
add %3,%1
adc %0
mov %0,-22(%5)
mov %1,-20(%5)
mov -60(%5),%0
mov -56(%5),%1
mov 4(%1),4(%0)
mov 6(%1),6(%0)
br $35
$15: ;165
mov -60(%5),%0
mov -12(%5),4(%0)
mov -10(%5),6(%0)
$35: ;167
mov -16(%5),%0
mov -14(%5),%1
mov -54(%5),%3
mov (%3),%2
mov 2(%3),%3
add %2,%0
add %3,%1
adc %0
sub 6(%5),%0
sub 10(%5),%1
sbc %0
ashc #0,%0
bne $55
mov -54(%5),%1
mov (%1),%0
mov 2(%1),%1
add -22(%5),%0
add -20(%5),%1
adc %0
mov -54(%5),%4
mov %0,(%4)
mov %1,2(%4)
mov -54(%5),%0
mov -60(%5),%1
mov 4(%1),4(%0)
mov 6(%1),6(%0)
br $75
$55: ;172
mov -54(%5),%0
mov 6(%5),4(%0)
mov 10(%5),6(%0)
mov -60(%5),%0
mov -22(%5),(%0)
mov -20(%5),2(%0)
$75: ;175
mov -54(%5),(%6)
mov -14(%5),-(%6)
mov -16(%5),-(%6)
jsr %7,putstru
cmp (%6)+,(%6)+
mov -60(%5),(%6)
mov 10(%5),-(%6)
mov 6(%5),-(%6)
jsr %7,putstru
cmp (%6)+,(%6)+
jmp c$ret
.end
