TODO nearly 100% compatible - only some header bytes are different - needs a bit more
fiddling - data+text bytes are OK
This commit is contained in:
Oliver Lehmann
parent
3bab4c852c
commit
449c91fc5e
|
|
@ -1,66 +1,12 @@
|
|||
/**************************************************************************
|
||||
***************************************************************************
|
||||
|
||||
W E G A - Quelle
|
||||
KERN 3.2 Modul : clist.s
|
||||
|
||||
Bearbeiter : O. Lehmann
|
||||
Datum : 02.05.08
|
||||
Version : 1.0
|
||||
|
||||
***************************************************************************
|
||||
**************************************************************************/
|
||||
|
||||
.seg
|
||||
.psec data
|
||||
|
||||
.data
|
||||
|
||||
.byte "@[$]clist.s Rev : 4.1 09/16/83 03:43:09"
|
||||
.byte %25
|
||||
.byte %30
|
||||
.byte %30
|
||||
|
||||
fp := r15;
|
||||
sp := rr14;
|
||||
_clistwstr::
|
||||
.byte %40
|
||||
.byte %5b
|
||||
.byte %24
|
||||
.byte %5d
|
||||
.byte %63
|
||||
.byte %6c
|
||||
.byte %69
|
||||
.byte %73
|
||||
.byte %74
|
||||
.byte %2e
|
||||
.byte %73
|
||||
.byte %9
|
||||
.byte %52
|
||||
.byte %65
|
||||
.byte %76
|
||||
.byte %20
|
||||
.byte %3a
|
||||
.byte %20
|
||||
.byte %34
|
||||
.byte %2e
|
||||
.byte %31
|
||||
.byte %9
|
||||
.byte %30
|
||||
.byte %39
|
||||
.byte %2f
|
||||
.byte %31
|
||||
.byte %36
|
||||
.byte %2f
|
||||
.byte %38
|
||||
.byte %33
|
||||
.byte %20
|
||||
.byte %30
|
||||
.byte %33
|
||||
.byte %3a
|
||||
.byte %34
|
||||
.byte %33
|
||||
.byte %3a
|
||||
.byte %30
|
||||
.byte %39
|
||||
.byte %0
|
||||
|
||||
.psec
|
||||
.code
|
||||
|
||||
_putcf::
|
||||
|
|
@ -103,7 +49,7 @@ _getcb::
|
|||
jr z,~egetcb
|
||||
|
||||
ld r0,rr2(#4)
|
||||
subb rh7,rh0 // FIXME
|
||||
subb rl0,rh0
|
||||
subb rh0,rh0
|
||||
ld r4,@rr6
|
||||
sub r4,r0
|
||||
|
|
@ -137,7 +83,7 @@ _putcb::
|
|||
subl rr0,rr0
|
||||
ldl @rr6,rr0
|
||||
ld r1,rr6(#4)
|
||||
subb rh7,rh1 // FIXME
|
||||
subb rl1,rh1
|
||||
subb rh1,rh1
|
||||
ld r0,@rr4
|
||||
add r0,r1
|
||||
|
|
@ -152,10 +98,90 @@ _getc::
|
|||
ldctl r1,fcw
|
||||
push @r14,r1
|
||||
di vi,nvi
|
||||
|
||||
dec @rr6,#1
|
||||
jpr lt,~else_getc
|
||||
ldl rr2,rr6(#2)
|
||||
lda rr4,rr2(#4)
|
||||
ldb rl1,@rr4
|
||||
incb @rr4,#1
|
||||
subb rh1,rh1
|
||||
ldb rl0,rr2(#5)
|
||||
cpb rl0,@rr4
|
||||
jr eq,~endif_getc
|
||||
inc r5,#2
|
||||
add r5,r1
|
||||
ldb rl2,@rr4
|
||||
subb rh2,rh2
|
||||
~egetc:
|
||||
pop r1,@rr14
|
||||
ldctl fcw,r1
|
||||
ret
|
||||
~else_getc:
|
||||
inc @rr6,#1
|
||||
ld r2,#-1
|
||||
jpr ~egetc
|
||||
~endif_getc:
|
||||
inc r5,#2
|
||||
add r5,r1
|
||||
ldb rl0,@rr4
|
||||
ldl rr4,@rr2
|
||||
ldl rr6(#2),rr4
|
||||
testl rr4
|
||||
jpr ne,~else2_getc
|
||||
ldl rr6(#6),rr4
|
||||
~else2_getc:
|
||||
ldl rr4,_cfreelist //get link to first free cblock
|
||||
ldl @rr2,rr4 //put it into link of new free cblock
|
||||
ldl _cfreelist,rr2 //put address of new free cblock into cfreelist
|
||||
ldb rl2,rl0
|
||||
subb rh2,rh2
|
||||
jpr ~egetc
|
||||
}
|
||||
|
||||
_putc::
|
||||
{
|
||||
ldctl r6,fcw
|
||||
di vi,nvi
|
||||
ldl rr2,rr4(#6)
|
||||
testl rr2
|
||||
jpr eq,~else_putc
|
||||
~L0:
|
||||
ldb rl0,rr2(#5)
|
||||
subb rh0,rh0
|
||||
cp r0,_cfreelist+4
|
||||
jpr ge,~endif2_putc
|
||||
inc @rr4,#1
|
||||
lda rr4,rr2(#6)
|
||||
add r5,r0
|
||||
ldb @rr4,rl7
|
||||
incb rl0,#1
|
||||
ldb rr2(#5),rl0
|
||||
clr r2
|
||||
~eputc:
|
||||
ldctl fcw,r6
|
||||
ret
|
||||
~else_putc:
|
||||
ldl rr2,_cfreelist
|
||||
testl rr2
|
||||
jpr eq,~endif_putc
|
||||
ldl rr4(#2),rr2
|
||||
~L1:
|
||||
ldl rr0,@rr2
|
||||
ldl _cfreelist,rr0
|
||||
clr @rr2
|
||||
subl rr0,rr0
|
||||
ldl rr2(#2),rr0
|
||||
ldl rr4(#6),rr2
|
||||
jpr ~L0
|
||||
~endif_putc:
|
||||
ld r2,#-1
|
||||
jpr ~eputc
|
||||
~endif2_putc:
|
||||
ldl rr0,_cfreelist
|
||||
testl rr0
|
||||
jpr eq,~endif_putc
|
||||
ldl @rr2,rr0
|
||||
ldl rr2,rr0
|
||||
jpr ~L1
|
||||
|
||||
}
|
||||
.psec data
|
||||
.data
|
||||
|
|
|
|||
Loading…
Reference in New Issue