82 lines
1.2 KiB
ArmAsm
82 lines
1.2 KiB
ArmAsm
lda #'-'
|
|
fout14 sta fbuffr+1,y
|
|
lda #'E'
|
|
sta fbuffr,y
|
|
txa
|
|
ldx #$2f
|
|
sec
|
|
fout15 inx
|
|
sbc #$0a
|
|
bcs fout15
|
|
adc #$3a
|
|
sta fbuffr+3,y
|
|
txa
|
|
sta fbuffr+2,y
|
|
lda #0
|
|
sta fbuffr+4,y
|
|
beq fout20
|
|
fout19 sta fbuffr-1,y
|
|
fout17 lda #0
|
|
sta fbuffr,y
|
|
fout20 lda #<fbuffr
|
|
ldy #>fbuffr
|
|
rts
|
|
fhalf .byt $80,$00
|
|
zero .byt $00,$00,$00
|
|
foutbl .byt $fa,$0a,$1f,$00,$00
|
|
.byt $98,$96,$80,$ff
|
|
.byt $f0,$bd,$c0,$00
|
|
.byt $01,$86,$a0,$ff
|
|
.byt $ff,$d8,$f0,$00,$00
|
|
.byt $03,$e8,$ff,$ff
|
|
.byt $ff,$9c,$00,$00,$00,$0a
|
|
.byt $ff,$ff,$ff,$ff
|
|
fdcend .byt $ff,$df,$0a,$80
|
|
.byt $00,$03,$4b,$c0,$ff
|
|
.byt $ff,$73,$60,$00,$00
|
|
.byt $0e,$10,$ff,$ff
|
|
.byt $fd,$a8,$00,$00,$00,$3c
|
|
timend
|
|
;
|
|
cksma0 .byt $00 ;$a000 8k room check sum adj
|
|
patchs .res 30 ; patch area
|
|
;
|
|
sqr jsr movaf
|
|
lda #<fhalf
|
|
ldy #>fhalf
|
|
jsr movfm
|
|
fpwrt beq exp
|
|
lda argexp
|
|
bne fpwrt1
|
|
jmp zerof1
|
|
fpwrt1 ldx #<tempf3
|
|
ldy #>tempf3
|
|
jsr movmf
|
|
lda argsgn
|
|
bpl fpwr1
|
|
jsr int
|
|
lda #<tempf3
|
|
ldy #>tempf3
|
|
jsr fcomp
|
|
bne fpwr1
|
|
tya
|
|
ldy integr
|
|
fpwr1 jsr movfa1
|
|
tya
|
|
pha
|
|
jsr log
|
|
lda #<tempf3
|
|
ldy #>tempf3
|
|
jsr fmult
|
|
jsr exp
|
|
pla
|
|
lsr a
|
|
bcc negrts
|
|
negop lda facexp
|
|
beq negrts
|
|
lda facsgn
|
|
eor #$ff
|
|
sta facsgn
|
|
negrts rts
|
|
|