mirror of
https://github.com/SEPPDROID/Digital-Research-Source-Code.git
synced 2025-10-23 08:24:18 +00:00
1946 lines
23 KiB
ArmAsm
1946 lines
23 KiB
ArmAsm
.globl _copyrigh
|
|
.data
|
|
_copyrigh:
|
|
.dc.b 67,111,112,121,114,105,103,104,116,32,49,57,56,51,44,32,68,105,103,105,116,97,108,32,82,101,115,101,97,114,99,104,0
|
|
.even
|
|
.globl _dirbuf
|
|
.comm _dirbuf,128
|
|
.globl _csv0
|
|
.comm _csv0,16
|
|
.globl _csv1
|
|
.comm _csv1,16
|
|
.globl _csv2
|
|
.comm _csv2,256
|
|
.globl _csv3
|
|
.comm _csv3,256
|
|
.globl _csv4
|
|
.comm _csv4,16
|
|
.globl _alv0
|
|
.comm _alv0,32
|
|
.globl _alv1
|
|
.comm _alv1,32
|
|
.globl _alv2
|
|
.comm _alv2,412
|
|
.globl _alv3
|
|
.comm _alv3,412
|
|
.globl _alv4
|
|
.comm _alv4,48
|
|
.globl _dpb0
|
|
.data
|
|
_dpb0:
|
|
.dc.w 26
|
|
.dc.w 775
|
|
.dc.w 0
|
|
.dc.w 242
|
|
.dc.w 63
|
|
.dc.w -16384
|
|
.dc.w 16
|
|
.dc.w 2
|
|
.globl _dpb2
|
|
.data
|
|
_dpb2:
|
|
.dc.w 32
|
|
.dc.w 1311
|
|
.dc.w 256
|
|
.dc.w 3288
|
|
.dc.w 1023
|
|
.dc.w 65280
|
|
.dc.w 256
|
|
.dc.w 4
|
|
.globl _dpb3
|
|
.data
|
|
_dpb3:
|
|
.dc.w 32
|
|
.dc.w 1039
|
|
.dc.w 0
|
|
.dc.w 191
|
|
.dc.w 63
|
|
.dc.w 0
|
|
.dc.w 16
|
|
.dc.w 0
|
|
.globl _xlt
|
|
.data
|
|
_xlt:
|
|
.dc.b 1
|
|
.dc.b 7
|
|
.dc.b 13
|
|
.dc.b 19
|
|
.dc.b 25
|
|
.dc.b 5
|
|
.dc.b 11
|
|
.dc.b 17
|
|
.dc.b 23
|
|
.dc.b 3
|
|
.dc.b 9
|
|
.dc.b 15
|
|
.dc.b 21
|
|
.dc.b 2
|
|
.dc.b 8
|
|
.dc.b 14
|
|
.dc.b 20
|
|
.dc.b 26
|
|
.dc.b 6
|
|
.dc.b 12
|
|
.dc.b 18
|
|
.dc.b 24
|
|
.dc.b 4
|
|
.dc.b 10
|
|
.dc.b 16
|
|
.dc.b 22
|
|
.globl _dphtab
|
|
.data
|
|
_dphtab:
|
|
*line 247
|
|
.dc.l _xlt
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
*line 247
|
|
.dc.l _dirbuf
|
|
*line 247
|
|
.dc.l _dpb0
|
|
*line 247
|
|
.dc.l _csv0
|
|
*line 247
|
|
.dc.l _alv0
|
|
*line 248
|
|
.dc.l _xlt
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
*line 248
|
|
.dc.l _dirbuf
|
|
*line 248
|
|
.dc.l _dpb0
|
|
*line 248
|
|
.dc.l _csv1
|
|
*line 248
|
|
.dc.l _alv1
|
|
.dc.w 0,0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
*line 250
|
|
.dc.l _dirbuf
|
|
*line 250
|
|
.dc.l _dpb2
|
|
*line 250
|
|
.dc.l _csv2
|
|
*line 250
|
|
.dc.l _alv2
|
|
.dc.w 0,0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
*line 251
|
|
.dc.l _dirbuf
|
|
*line 251
|
|
.dc.l _dpb2
|
|
*line 251
|
|
.dc.l _csv3
|
|
*line 251
|
|
.dc.l _alv3
|
|
.dc.w 0,0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
*line 255
|
|
.dc.l _dirbuf
|
|
*line 255
|
|
.dc.l _dpb3
|
|
*line 255
|
|
.dc.l _csv4
|
|
*line 255
|
|
.dc.l _alv4
|
|
.globl _memtab
|
|
.data
|
|
_memtab:
|
|
.dc.w 1
|
|
.dc.w 0,1024
|
|
.dc.w 1,18432
|
|
.globl _memdsk
|
|
.data
|
|
_memdsk:
|
|
.dc.w 2,0
|
|
.globl _iobyte
|
|
.comm _iobyte,2
|
|
.globl _settrk
|
|
.comm _settrk,2
|
|
.globl _setsec
|
|
.comm _setsec,2
|
|
.globl _setdsk
|
|
.comm _setdsk,2
|
|
.globl _setdma
|
|
.comm _setdma,4
|
|
.globl _firstbuf
|
|
.comm _firstbuf,4
|
|
.globl _lastbuf
|
|
.comm _lastbuf,4
|
|
.globl _tbuf
|
|
.comm _tbuf,16424
|
|
.globl _hmpack
|
|
.data
|
|
_hmpack:
|
|
.dc.w 512
|
|
.dc.w 1792
|
|
.dc.w 0
|
|
.dc.w 768
|
|
.globl _rwpack
|
|
.data
|
|
_rwpack:
|
|
.dc.w 512
|
|
.dc.w 5376
|
|
.dc.w 4097
|
|
.dc.w 13
|
|
.dc.w 256
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 0
|
|
.dc.w 768
|
|
.globl _fmtpack
|
|
.data
|
|
_fmtpack:
|
|
.dc.w 512
|
|
.dc.w 1792
|
|
.dc.w 16386
|
|
.dc.w 768
|
|
.globl _cnvdsk
|
|
.data
|
|
_cnvdsk:
|
|
.dc.b 4
|
|
.dc.b 5
|
|
.dc.b 0
|
|
.dc.b 1
|
|
.ds.b 1
|
|
.even
|
|
.globl _rcnvdsk
|
|
.data
|
|
_rcnvdsk:
|
|
.dc.b 2
|
|
.dc.b 3
|
|
.dc.b 0
|
|
.dc.b 0
|
|
.dc.b 0
|
|
.dc.b 1
|
|
.globl _ipcstate
|
|
.comm _ipcstate,2
|
|
.globl _actvdsk
|
|
.comm _actvdsk,2
|
|
.globl _intcount
|
|
.comm _intcount,4
|
|
.globl _dskstate
|
|
.comm _dskstate,20
|
|
.globl _portinit
|
|
.text
|
|
_portinit:
|
|
~~portinit:
|
|
~port=R13
|
|
link R14,#0
|
|
movem.l R7-R7/R13-R13,-(sp)
|
|
*line 460
|
|
move.l 8(R14),R13
|
|
*line 460
|
|
move.b #3,(R13)
|
|
*line 461
|
|
move.b #17,(R13)
|
|
L2:tst.l (sp)+
|
|
movem.l (sp)+,R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _portstat
|
|
.text
|
|
_portstat:
|
|
~~portstat:
|
|
~port=R13
|
|
link R14,#0
|
|
movem.l R7-R7/R13-R13,-(sp)
|
|
*line 474
|
|
move.l 8(R14),R13
|
|
*line 474
|
|
btst #0,(R13)
|
|
beq L4
|
|
*line 474
|
|
move #255,R0
|
|
bra L3
|
|
bra L5
|
|
L4:
|
|
*line 475
|
|
clr R0
|
|
bra L3
|
|
L5:L3:tst.l (sp)+
|
|
movem.l (sp)+,R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _portin
|
|
.text
|
|
_portin:
|
|
~~portin:
|
|
~port=R13
|
|
link R14,#0
|
|
movem.l R7-R7/R13-R13,-(sp)
|
|
*line 486
|
|
move.l 8(R14),R13
|
|
L8:
|
|
*line 486
|
|
move.l R13,(sp)
|
|
jsr _portstat
|
|
tst R0
|
|
bne L7
|
|
bra L8
|
|
L7:
|
|
*line 487
|
|
move.b 2(R13),R0
|
|
ext.w R0
|
|
bra L6
|
|
L6:tst.l (sp)+
|
|
movem.l (sp)+,R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _portout
|
|
.text
|
|
_portout:
|
|
~~portout:
|
|
~ch=R7
|
|
~port=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 499
|
|
move.l 8(R14),R13
|
|
*line 499
|
|
move.b 13(R14),R7
|
|
L11:
|
|
*line 499
|
|
btst #1,(R13)
|
|
bne L10
|
|
bra L11
|
|
L10:
|
|
*line 500
|
|
move.b R7,2(R13)
|
|
L9:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _bioserr
|
|
.text
|
|
_bioserr:
|
|
~~bioserr:
|
|
~errmsg=R13
|
|
link R14,#0
|
|
movem.l R7-R7/R13-R13,-(sp)
|
|
*line 513
|
|
move.l 8(R14),R13
|
|
*line 513
|
|
move.l #L13,(sp)
|
|
jsr _printstr
|
|
*line 514
|
|
move.l R13,(sp)
|
|
jsr _printstr
|
|
*line 515
|
|
move.l #L14,(sp)
|
|
jsr _printstr
|
|
L12:tst.l (sp)+
|
|
movem.l (sp)+,R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _printstr
|
|
.text
|
|
_printstr:
|
|
~~printstr:
|
|
~s=R13
|
|
link R14,#0
|
|
movem.l R7-R7/R13-R13,-(sp)
|
|
*line 521
|
|
move.l 8(R14),R13
|
|
L17:
|
|
*line 521
|
|
tst.b (R13)
|
|
beq L16
|
|
*line 521
|
|
move.b (R13),R0
|
|
ext.w R0
|
|
move R0,(sp)
|
|
move.l #$ffee011,-(sp)
|
|
jsr _portout
|
|
addq.l #4,sp
|
|
*line 521
|
|
add.l #1,R13
|
|
bra L17
|
|
L16:L15:tst.l (sp)+
|
|
movem.l (sp)+,R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _dskic
|
|
.text
|
|
_dskic:
|
|
~~dskic:
|
|
~stpkt=-16
|
|
~workbyte=R7
|
|
link R14,#-16
|
|
movem.l R6-R7,-(sp)
|
|
*line 548
|
|
move.b $ff0183,R7
|
|
*line 550
|
|
cmp.b #6,R7
|
|
beq L10000
|
|
cmp.b #21,R7
|
|
bne L19
|
|
L10000:*line 551
|
|
cmp #1,_ipcstate
|
|
bne L20
|
|
*line 551
|
|
add.l #1,_intcount
|
|
bra L21
|
|
L20:
|
|
*line 552
|
|
clr.b $ff0183
|
|
L21:L19:
|
|
*line 555
|
|
move.b $ff0181,R7
|
|
*line 557
|
|
btst #7,R7
|
|
beq L22
|
|
*line 558
|
|
move.l R14,(sp)
|
|
add.l #-16,(sp)
|
|
jsr _getstpkt
|
|
*line 561
|
|
cmp.b #255,-15(R14)
|
|
bne L23
|
|
*line 564
|
|
move.l R14,(sp)
|
|
add.l #-16,(sp)
|
|
jsr _unsolst
|
|
*line 565
|
|
jsr _sendack
|
|
bra L24
|
|
L23:
|
|
*line 571
|
|
cmp #1,_ipcstate
|
|
bne L25
|
|
*line 571
|
|
add.l #1,_intcount
|
|
bra L26
|
|
L25:
|
|
*line 572
|
|
jsr _sendack
|
|
L26:L24:L22:L18:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7
|
|
unlk R14
|
|
rts
|
|
.globl _getstpkt
|
|
.text
|
|
_getstpkt:
|
|
~~getstpkt:
|
|
~i=R7
|
|
~p=R12
|
|
~q=R11
|
|
~stpktp=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R11-R13,-(sp)
|
|
*line 589
|
|
move.l 8(R14),R13
|
|
*line 589
|
|
move.l R13,R12
|
|
*line 590
|
|
move.l #$ff0185,R11
|
|
*line 592
|
|
move #15,R7
|
|
L29:
|
|
*line 592
|
|
tst R7
|
|
beq L28
|
|
*line 594
|
|
move.b (R11),(R12)
|
|
*line 595
|
|
add.l #1,R12
|
|
*line 596
|
|
add.l #2,R11
|
|
L30:
|
|
*line 592
|
|
sub #1,R7
|
|
bra L29
|
|
L28:L27:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R11-R13
|
|
unlk R14
|
|
rts
|
|
.globl _unsolst
|
|
.text
|
|
_unsolst:
|
|
~~unsolst:
|
|
~ready=R6
|
|
~stpktp=R13
|
|
~dev=R7
|
|
~dsp=R12
|
|
link R14,#0
|
|
movem.l R5-R7/R12-R13,-(sp)
|
|
*line 611
|
|
move.l 8(R14),R13
|
|
*line 611
|
|
move.b 3(R13),R0
|
|
ext.w R0
|
|
move R0,R8
|
|
move.l #_rcnvdsk,R9
|
|
move.b 0(R8,R9.l),R0
|
|
ext.w R0
|
|
move R0,R7
|
|
*line 612
|
|
btst #7,8(R13)
|
|
beq L10001
|
|
clr R0
|
|
bra L10002
|
|
L10001:move #1,R0
|
|
L10002:move R0,R6
|
|
*line 613
|
|
move R7,R0
|
|
asl #2,R0
|
|
ext.l R0
|
|
move.l R0,R12
|
|
add.l #_dskstate,R12
|
|
*line 615
|
|
tst R6
|
|
beq L10004
|
|
tst.b 2(R12)
|
|
beq L10003
|
|
L10004:tst R6
|
|
bne L32
|
|
tst.b 2(R12)
|
|
beq L32
|
|
L10003:*line 615
|
|
move.b #1,3(R12)
|
|
L32:
|
|
*line 616
|
|
move.b R6,2(R12)
|
|
*line 618
|
|
tst R6
|
|
bne L33
|
|
*line 618
|
|
move R7,(sp)
|
|
jsr _setinvld
|
|
L33:L31:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7/R12-R13
|
|
unlk R14
|
|
rts
|
|
.globl _setinvld
|
|
.text
|
|
_setinvld:
|
|
~~setinvld:
|
|
~dsk=R7
|
|
~tbp=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 634
|
|
move 8(R14),R7
|
|
*line 634
|
|
move.l _firstbuf,R13
|
|
L36:
|
|
*line 635
|
|
move.l R13,R0
|
|
beq L35
|
|
*line 637
|
|
cmp 4100(R13),R7
|
|
bne L37
|
|
*line 637
|
|
clr.b 4104(R13)
|
|
L37:
|
|
*line 638
|
|
move.l (R13),R13
|
|
bra L36
|
|
L35:L34:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _waitack
|
|
.text
|
|
_waitack:
|
|
~~waitack:
|
|
~imsave=R7
|
|
~work=R6
|
|
link R14,#0
|
|
movem.l R5-R7,-(sp)
|
|
L40:
|
|
*line 653
|
|
L42:
|
|
*line 655
|
|
tst.l _intcount
|
|
bne L41
|
|
bra L42
|
|
L41:
|
|
*line 657
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R7
|
|
*line 658
|
|
sub.l #1,_intcount
|
|
*line 659
|
|
move.b $ff0183,R6
|
|
*line 661
|
|
cmp.b #6,R6
|
|
beq L10005
|
|
cmp.b #21,R6
|
|
bne L43
|
|
L10005:*line 662
|
|
clr.b $ff0183
|
|
*line 663
|
|
move R7,(sp)
|
|
jsr _setimask
|
|
*line 664
|
|
cmp.b #6,R6
|
|
beq L10006
|
|
clr R0
|
|
bra L10007
|
|
L10006:move #1,R0
|
|
L10007:bra L38
|
|
L43:
|
|
*line 666
|
|
move R7,(sp)
|
|
jsr _setimask
|
|
bra L40
|
|
L39:L38:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7
|
|
unlk R14
|
|
rts
|
|
.globl _sendack
|
|
.text
|
|
_sendack:
|
|
~~sendack:
|
|
link R14,#-4
|
|
*line 678
|
|
clr.b $ff0181
|
|
*line 679
|
|
move.b #6,$ff0103
|
|
*line 680
|
|
clr.b $ff000d
|
|
L44:unlk R14
|
|
rts
|
|
.globl _sendpkt
|
|
.text
|
|
_sendpkt:
|
|
~~sendpkt:
|
|
~imsave=R6
|
|
~pktadr=R13
|
|
~iopackp=R12
|
|
~pktsize=R7
|
|
link R14,#0
|
|
movem.l R5-R7/R12-R13,-(sp)
|
|
*line 695
|
|
move.l 8(R14),R13
|
|
*line 695
|
|
move 12(R14),R7
|
|
L47:
|
|
*line 695
|
|
tst.b $ff0101
|
|
beq L46
|
|
bra L47
|
|
L46:
|
|
*line 696
|
|
clr.b $ff0183
|
|
*line 697
|
|
clr.b $ff0181
|
|
*line 698
|
|
move.l #$ff0105,R12
|
|
L50:
|
|
*line 699
|
|
move.b (R13)+,(R12)
|
|
*line 699
|
|
add.l #2,R12
|
|
*line 699
|
|
sub #1,R7
|
|
L49:
|
|
*line 699
|
|
tst R7
|
|
bne L50
|
|
L48:
|
|
*line 700
|
|
move.b #128,$ff0101
|
|
*line 701
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R6
|
|
*line 702
|
|
move _actvdsk,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
move #1,(R8)
|
|
*line 703
|
|
move #1,_ipcstate
|
|
*line 704
|
|
move.l #$0,_intcount
|
|
*line 705
|
|
clr.b $ff000d
|
|
*line 706
|
|
move R6,(sp)
|
|
jsr _setimask
|
|
*line 707
|
|
jsr _waitack
|
|
L45:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7/R12-R13
|
|
unlk R14
|
|
rts
|
|
.globl _dskwait
|
|
.text
|
|
_dskwait:
|
|
~~dskwait:
|
|
~stcom=11
|
|
~stval=12
|
|
~stpkt=-16
|
|
~imsave=R6
|
|
~dsk=R7
|
|
link R14,#-16
|
|
movem.l R5-R7,-(sp)
|
|
*line 722
|
|
move 8(R14),R7
|
|
*line 722
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R6
|
|
L53:
|
|
*line 724
|
|
tst.l _intcount
|
|
bne L52
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
move.l #_dskstate,R9
|
|
tst.b 2(R8,R9.l)
|
|
beq L52
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
move.l #_dskstate,R9
|
|
tst.b 3(R8,R9.l)
|
|
bne L52
|
|
*line 726
|
|
move R6,(sp)
|
|
jsr _setimask
|
|
*line 726
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R6
|
|
bra L53
|
|
L52:
|
|
*line 730
|
|
tst.l _intcount
|
|
beq L54
|
|
*line 731
|
|
sub.l #1,_intcount
|
|
*line 733
|
|
move.b $ff0181,R0
|
|
ext.w R0
|
|
and #128,R0
|
|
beq L55
|
|
*line 734
|
|
move.l R14,(sp)
|
|
add.l #-16,(sp)
|
|
jsr _getstpkt
|
|
*line 735
|
|
move R6,(sp)
|
|
jsr _setimask
|
|
*line 737
|
|
move.b -11(R14),R0
|
|
ext.w R0
|
|
cmp.b 11(R14),R0
|
|
bne L56
|
|
move -10(R14),R0
|
|
cmp 12(R14),R0
|
|
bne L56
|
|
*line 737
|
|
move #1,R0
|
|
bra L51
|
|
bra L57
|
|
L56:
|
|
*line 738
|
|
clr R0
|
|
bra L51
|
|
L57:L55:L54:
|
|
*line 741
|
|
move R6,(sp)
|
|
jsr _setimask
|
|
*line 742
|
|
clr R0
|
|
bra L51
|
|
L51:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7
|
|
unlk R14
|
|
rts
|
|
.globl _dskxfer
|
|
.text
|
|
_dskxfer:
|
|
~~dskxfer:
|
|
~result=R3
|
|
~sectcnt=R4
|
|
~cmd=R5
|
|
~dsk=R7
|
|
~trk=R6
|
|
~bufp=R13
|
|
link R14,#0
|
|
movem.l R2-R7/R13-R13,-(sp)
|
|
*line 763
|
|
move 8(R14),R7
|
|
*line 763
|
|
move 10(R14),R6
|
|
*line 763
|
|
move.l 12(R14),R13
|
|
*line 763
|
|
move 16(R14),R5
|
|
*line 763
|
|
move R7,R8
|
|
add.l #_cnvdsk,R8
|
|
move.b (R8),3+_rwpack
|
|
*line 764
|
|
move.l R13,10+_rwpack
|
|
*line 765
|
|
move R7,R0
|
|
muls #26,R0
|
|
move.l R0,R8
|
|
move.l #_dphtab,R9
|
|
move.l 14(R8,R9.l),R8
|
|
move (R8),R4
|
|
*line 766
|
|
move R6,R0
|
|
move R4,R1
|
|
asr #1,R1
|
|
muls R1,R0
|
|
move.l R0,16+_rwpack
|
|
*line 767
|
|
move.b R5,4+_rwpack
|
|
*line 768
|
|
move R4,R0
|
|
asr #1,R0
|
|
move R0,6+_rwpack
|
|
*line 777
|
|
move R7,_actvdsk
|
|
*line 778
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr.b 3(R8)
|
|
*line 779
|
|
move #21,(sp)
|
|
move.l #_rwpack,-(sp)
|
|
jsr _sendpkt
|
|
addq.l #4,sp
|
|
*line 780
|
|
clr (sp)
|
|
move #112,-(sp)
|
|
move R7,-(sp)
|
|
jsr _dskwait
|
|
addq.l #4,sp
|
|
move R0,R3
|
|
*line 781
|
|
jsr _sendack
|
|
*line 782
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr (R8)
|
|
*line 783
|
|
clr _ipcstate
|
|
*line 784
|
|
move R3,R0
|
|
bra L58
|
|
L58:tst.l (sp)+
|
|
movem.l (sp)+,R3-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _flush1
|
|
.text
|
|
_flush1:
|
|
~~flush1:
|
|
~ok=R7
|
|
~tbp=8
|
|
link R14,#0
|
|
movem.l R6-R7,-(sp)
|
|
*line 800
|
|
move.l 8(R14),R8
|
|
tst.b 4104(R8)
|
|
beq L60
|
|
move.l 8(R14),R8
|
|
tst.b 4105(R8)
|
|
beq L60
|
|
*line 800
|
|
move #32,(sp)
|
|
move.l 8(R14),-(sp)
|
|
add.l #4,(sp)
|
|
move.l 8(R14),R8
|
|
move 4102(R8),-(sp)
|
|
move.l 8(R14),R8
|
|
move 4100(R8),-(sp)
|
|
jsr _dskxfer
|
|
addq.l #8,sp
|
|
move R0,R7
|
|
bra L61
|
|
L60:
|
|
*line 801
|
|
move #1,R7
|
|
L61:
|
|
*line 803
|
|
move.l 8(R14),R8
|
|
clr.b 4105(R8)
|
|
*line 804
|
|
move R7,-(sp)
|
|
move.l 8(R14),R8
|
|
move.b 4104(R8),R0
|
|
and (sp)+,R0
|
|
move.b R0,4104(R8)
|
|
*line 806
|
|
move R7,R0
|
|
bra L59
|
|
L59:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7
|
|
unlk R14
|
|
rts
|
|
.globl _flush
|
|
.text
|
|
_flush:
|
|
~~flush:
|
|
~ok=R7
|
|
~tbp=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 818
|
|
move #1,R7
|
|
*line 819
|
|
move.l _firstbuf,R13
|
|
L64:
|
|
*line 820
|
|
move.l R13,R0
|
|
beq L63
|
|
*line 822
|
|
move.l R13,(sp)
|
|
jsr _flush1
|
|
tst R0
|
|
bne L65
|
|
*line 822
|
|
clr R7
|
|
L65:
|
|
*line 823
|
|
move.l (R13),R13
|
|
bra L64
|
|
L63:
|
|
*line 825
|
|
move R7,R0
|
|
bra L62
|
|
L62:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _fill
|
|
.text
|
|
_fill:
|
|
~~fill:
|
|
~ok=R7
|
|
~tbp=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 839
|
|
move.l 8(R14),R13
|
|
*line 839
|
|
tst.b 4104(R13)
|
|
beq L67
|
|
tst.b 4105(R13)
|
|
beq L67
|
|
*line 839
|
|
move.l R13,(sp)
|
|
jsr _flush1
|
|
move R0,R7
|
|
bra L68
|
|
L67:
|
|
*line 840
|
|
move #1,R7
|
|
L68:
|
|
*line 842
|
|
tst R7
|
|
beq L69
|
|
*line 842
|
|
move #16,(sp)
|
|
move.l R13,-(sp)
|
|
add.l #4,(sp)
|
|
move _settrk,-(sp)
|
|
move _setdsk,-(sp)
|
|
jsr _dskxfer
|
|
addq.l #8,sp
|
|
move R0,R7
|
|
L69:
|
|
*line 844
|
|
move.b R7,4104(R13)
|
|
*line 845
|
|
clr.b 4105(R13)
|
|
*line 846
|
|
move _settrk,4102(R13)
|
|
*line 847
|
|
move _setdsk,4100(R13)
|
|
*line 849
|
|
move R7,R0
|
|
bra L66
|
|
L66:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _gettrk
|
|
.text
|
|
_gettrk:
|
|
~~gettrk:
|
|
~imsave=R7
|
|
~tbp=R13
|
|
~ltbp=R12
|
|
~mtbp=R11
|
|
link R14,#0
|
|
movem.l R6-R7/R11-R13,-(sp)
|
|
*line 867
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R7
|
|
*line 869
|
|
move _setdsk,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
move.l #_dskstate,R9
|
|
tst.b 2(R8,R9.l)
|
|
bne L71
|
|
*line 870
|
|
move R7,(sp)
|
|
jsr _setimask
|
|
*line 871
|
|
move.l #$0,R13
|
|
*line 872
|
|
move.l R13,R0
|
|
bra L70
|
|
L71:
|
|
*line 878
|
|
move.l _firstbuf,R13
|
|
*line 879
|
|
clr.l R12
|
|
*line 880
|
|
clr.l R11
|
|
L73:
|
|
*line 882
|
|
move.l R13,R0
|
|
beq L72
|
|
*line 886
|
|
tst.b 4104(R13)
|
|
beq L74
|
|
move 4100(R13),R0
|
|
cmp _setdsk,R0
|
|
bne L74
|
|
move 4102(R13),R0
|
|
cmp _settrk,R0
|
|
bne L74
|
|
*line 888
|
|
move.l R12,R0
|
|
beq L75
|
|
*line 889
|
|
move.l (R13),(R12)
|
|
*line 890
|
|
move.l _firstbuf,(R13)
|
|
*line 891
|
|
move.l R13,_firstbuf
|
|
L75:
|
|
*line 893
|
|
move R7,(sp)
|
|
jsr _setimask
|
|
*line 894
|
|
move.l R13,R0
|
|
bra L70
|
|
bra L76
|
|
L74:
|
|
*line 898
|
|
move.l R12,R11
|
|
*line 899
|
|
move.l R13,R12
|
|
*line 900
|
|
move.l (R13),R13
|
|
L76:bra L73
|
|
L72:
|
|
*line 907
|
|
move.l R11,R0
|
|
beq L77
|
|
*line 907
|
|
clr.l (R11)
|
|
L77:
|
|
*line 908
|
|
move.l _firstbuf,(R12)
|
|
*line 909
|
|
move.l R12,_firstbuf
|
|
*line 910
|
|
move R7,(sp)
|
|
jsr _setimask
|
|
*line 911
|
|
move.l R12,(sp)
|
|
jsr _flush1
|
|
tst R0
|
|
beq L78
|
|
move.l R12,(sp)
|
|
jsr _fill
|
|
tst R0
|
|
beq L78
|
|
*line 911
|
|
move.l R12,R11
|
|
bra L79
|
|
L78:
|
|
*line 912
|
|
move.l #$0,R11
|
|
L79:
|
|
*line 913
|
|
move.l R11,R0
|
|
bra L70
|
|
L70:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R11-R13
|
|
unlk R14
|
|
rts
|
|
.globl _read
|
|
.text
|
|
_read:
|
|
~~read:
|
|
~i=R7
|
|
~p=R13
|
|
~q=R12
|
|
~tbp=R11
|
|
link R14,#0
|
|
movem.l R6-R7/R11-R13,-(sp)
|
|
*line 931
|
|
cmp #5,_setdsk
|
|
beq L81
|
|
*line 933
|
|
jsr _gettrk
|
|
move.l R0,R11
|
|
*line 935
|
|
move.l R11,R0
|
|
bne L82
|
|
*line 935
|
|
move #1,R0
|
|
bra L80
|
|
L82:
|
|
*line 939
|
|
move.l R11,R13
|
|
move _setsec,R0
|
|
asl #7,R0
|
|
ext.l R0
|
|
add.l R0,R13
|
|
add.l #4,R13
|
|
bra L83
|
|
L81:
|
|
*line 943
|
|
move _settrk,R0
|
|
ext.l R0
|
|
move.l #$c,R1
|
|
asl.l R1,R0
|
|
move.l R0,R13
|
|
move _setsec,R0
|
|
ext.l R0
|
|
move.l #$7,R1
|
|
asl.l R1,R0
|
|
add.l R0,R13
|
|
add.l _memdsk,R13
|
|
L83:
|
|
*line 945
|
|
move.l _setdma,R12
|
|
*line 946
|
|
move #128,R7
|
|
L86:
|
|
*line 947
|
|
move.b (R13)+,(R12)+
|
|
*line 947
|
|
sub #1,R7
|
|
L85:
|
|
*line 947
|
|
tst R7
|
|
bne L86
|
|
L84:
|
|
*line 948
|
|
clr R0
|
|
bra L80
|
|
L80:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R11-R13
|
|
unlk R14
|
|
rts
|
|
.globl _write
|
|
.text
|
|
_write:
|
|
~~write:
|
|
~i=R7
|
|
~p=R13
|
|
~q=R12
|
|
~tbp=R11
|
|
~mode=9
|
|
link R14,#0
|
|
movem.l R6-R7/R11-R13,-(sp)
|
|
*line 967
|
|
cmp #5,_setdsk
|
|
beq L88
|
|
*line 969
|
|
jsr _gettrk
|
|
move.l R0,R11
|
|
*line 970
|
|
move.l R11,R0
|
|
bne L89
|
|
*line 970
|
|
move #1,R0
|
|
bra L87
|
|
L89:
|
|
*line 974
|
|
move.l R11,R13
|
|
move _setsec,R0
|
|
asl #7,R0
|
|
ext.l R0
|
|
add.l R0,R13
|
|
add.l #4,R13
|
|
bra L90
|
|
L88:
|
|
*line 978
|
|
move _settrk,R0
|
|
ext.l R0
|
|
move.l #$c,R1
|
|
asl.l R1,R0
|
|
move.l R0,R13
|
|
move _setsec,R0
|
|
ext.l R0
|
|
move.l #$7,R1
|
|
asl.l R1,R0
|
|
add.l R0,R13
|
|
add.l _memdsk,R13
|
|
*line 979
|
|
move.l _setdma,R12
|
|
*line 980
|
|
move #128,R7
|
|
L93:
|
|
*line 981
|
|
move.b (R12)+,(R13)+
|
|
*line 981
|
|
sub #1,R7
|
|
L92:
|
|
*line 981
|
|
tst R7
|
|
bne L93
|
|
L91:
|
|
*line 982
|
|
clr R0
|
|
bra L87
|
|
L90:
|
|
*line 985
|
|
move.l _setdma,R12
|
|
*line 986
|
|
move #128,R7
|
|
L96:
|
|
*line 987
|
|
move.b (R12)+,(R13)+
|
|
*line 987
|
|
sub #1,R7
|
|
L95:
|
|
*line 987
|
|
tst R7
|
|
bne L96
|
|
L94:
|
|
*line 989
|
|
move.b #1,4105(R11)
|
|
*line 993
|
|
cmp.b #1,9(R14)
|
|
bne L97
|
|
*line 993
|
|
move.l R11,(sp)
|
|
jsr _flush1
|
|
tst R0
|
|
beq L98
|
|
*line 993
|
|
clr R0
|
|
bra L87
|
|
bra L99
|
|
L98:
|
|
*line 993
|
|
move #1,R0
|
|
bra L87
|
|
L99:bra L100
|
|
L97:
|
|
*line 994
|
|
clr R0
|
|
bra L87
|
|
L100:L87:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R11-R13
|
|
unlk R14
|
|
rts
|
|
.globl _sectran
|
|
.text
|
|
_sectran:
|
|
~~sectran:
|
|
~s=R7
|
|
~xp=R13
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 1031
|
|
move 8(R14),R7
|
|
*line 1031
|
|
move.l 10(R14),R13
|
|
*line 1031
|
|
move.l R13,R0
|
|
beq L102
|
|
*line 1031
|
|
move.b 0(R13,R7),R0
|
|
ext.w R0
|
|
bra L101
|
|
bra L103
|
|
L102:
|
|
*line 1032
|
|
move R7,R0
|
|
add #1,R0
|
|
bra L101
|
|
L103:L101:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _setxvect
|
|
.text
|
|
_setxvect:
|
|
~~setxvect:
|
|
~oldval=R7
|
|
~vloc=R13
|
|
~vval=10
|
|
~vnum=8
|
|
link R14,#0
|
|
movem.l R6-R7/R13-R13,-(sp)
|
|
*line 1047
|
|
move 8(R14),R0
|
|
ext.l R0
|
|
asl.l #2,R0
|
|
move.l R0,R13
|
|
*line 1048
|
|
move.l (R13),R7
|
|
*line 1049
|
|
move.l 10(R14),(R13)
|
|
*line 1051
|
|
move.l R7,R0
|
|
bra L104
|
|
L104:tst.l (sp)+
|
|
movem.l (sp)+,R7-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _slctdsk
|
|
.text
|
|
_slctdsk:
|
|
~~slctdsk:
|
|
~stpkt=-16
|
|
~logged=11
|
|
~st1=R6
|
|
~st2=R5
|
|
~dsk=R7
|
|
~dphp=R13
|
|
link R14,#-16
|
|
movem.l R4-R7/R13-R13,-(sp)
|
|
*line 1068
|
|
move.b 9(R14),R7
|
|
*line 1068
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,_setdsk
|
|
*line 1077
|
|
cmp.b #4,R7
|
|
bgt L10008
|
|
cmp.b #2,R7
|
|
bne L106
|
|
L10008:*line 1078
|
|
move.l #L107,(sp)
|
|
jsr _printstr
|
|
*line 1079
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,(sp)
|
|
add #65,(sp)
|
|
move.l #$ffee011,-(sp)
|
|
jsr _portout
|
|
addq.l #4,sp
|
|
*line 1080
|
|
move.l #L108,(sp)
|
|
jsr _printstr
|
|
*line 1081
|
|
move.l #$0,R0
|
|
bra L105
|
|
L106:
|
|
*line 1085
|
|
move.b R7,R0
|
|
ext.w R0
|
|
muls #26,R0
|
|
move.l R0,R13
|
|
add.l #_dphtab,R13
|
|
*line 1089
|
|
cmp #5,_setdsk
|
|
bne L109
|
|
*line 1089
|
|
move.l R13,R0
|
|
bra L105
|
|
L109:
|
|
*line 1093
|
|
btst #0,11(R14)
|
|
bne L110
|
|
*line 1095
|
|
move.l #_cnvdsk,R8
|
|
move _setdsk,R9
|
|
add.l R9,R8
|
|
move.b (R8),3+_hmpack
|
|
*line 1096
|
|
move.b #48,4+_hmpack
|
|
*line 1097
|
|
move.b #2,5+_hmpack
|
|
*line 1098
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,_actvdsk
|
|
*line 1099
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr.b 3(R8)
|
|
*line 1100
|
|
move #7,(sp)
|
|
move.l #_hmpack,-(sp)
|
|
jsr _sendpkt
|
|
addq.l #4,sp
|
|
*line 1102
|
|
clr (sp)
|
|
move #114,-(sp)
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,-(sp)
|
|
jsr _dskwait
|
|
addq.l #4,sp
|
|
tst R0
|
|
bne L111
|
|
*line 1103
|
|
jsr _sendack
|
|
*line 1104
|
|
clr _ipcstate
|
|
*line 1105
|
|
move.l #$0,R0
|
|
bra L105
|
|
L111:
|
|
*line 1107
|
|
move.l R14,(sp)
|
|
add.l #-16,(sp)
|
|
jsr _getstpkt
|
|
*line 1108
|
|
jsr _sendack
|
|
*line 1109
|
|
clr _ipcstate
|
|
*line 1110
|
|
move.b -8(R14),R6
|
|
*line 1111
|
|
move.b -7(R14),R5
|
|
*line 1114
|
|
btst #7,R6
|
|
beq L112
|
|
*line 1115
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr.b 2(R8)
|
|
*line 1116
|
|
move.l #$0,R0
|
|
bra L105
|
|
bra L113
|
|
L112:
|
|
*line 1119
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
move.b #1,2(R8)
|
|
L113:
|
|
*line 1121
|
|
move.b R6,R0
|
|
ext.w R0
|
|
and #7,R0
|
|
bra L115
|
|
L116:
|
|
*line 1125
|
|
move.l #_dpb0,14(R13)
|
|
bra L114
|
|
L117:
|
|
*line 1131
|
|
move.l #_dpb2,14(R13)
|
|
bra L114
|
|
L118:
|
|
*line 1135
|
|
move.l #L119,(sp)
|
|
jsr _bioserr
|
|
*line 1136
|
|
move.l #$0,R13
|
|
bra L114
|
|
bra L114
|
|
L115:cmp #1,R0
|
|
beq L116
|
|
cmp #2,R0
|
|
beq L117
|
|
bra L118
|
|
L114:L110:
|
|
*line 1140
|
|
move.l R13,R0
|
|
bra L105
|
|
L105:tst.l (sp)+
|
|
movem.l (sp)+,R5-R7/R13-R13
|
|
unlk R14
|
|
rts
|
|
.globl _format
|
|
.text
|
|
_format:
|
|
~~format:
|
|
~retval=R6
|
|
~dsk=R7
|
|
link R14,#0
|
|
movem.l R5-R7,-(sp)
|
|
*line 1161
|
|
move 8(R14),R7
|
|
*line 1161
|
|
move.b #1,R0
|
|
ext.w R0
|
|
move R0,(sp)
|
|
move.b R7,R0
|
|
ext.w R0
|
|
move R0,-(sp)
|
|
jsr _slctdsk
|
|
addq.l #2,sp
|
|
tst.l R0
|
|
beq L120
|
|
*line 1164
|
|
cmp #5,_setdsk
|
|
beq L120
|
|
*line 1167
|
|
move.l #_cnvdsk,R8
|
|
move _setdsk,R9
|
|
add.l R9,R8
|
|
move.b (R8),3+_fmtpack
|
|
*line 1168
|
|
move _setdsk,_actvdsk
|
|
*line 1169
|
|
move _setdsk,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr.b 3(R8)
|
|
*line 1170
|
|
move #7,(sp)
|
|
move.l #_fmtpack,-(sp)
|
|
jsr _sendpkt
|
|
addq.l #4,sp
|
|
*line 1171
|
|
clr (sp)
|
|
move #112,-(sp)
|
|
move _setdsk,-(sp)
|
|
jsr _dskwait
|
|
addq.l #4,sp
|
|
tst R0
|
|
bne L121
|
|
*line 1171
|
|
clr R6
|
|
bra L122
|
|
L121:
|
|
*line 1172
|
|
move #1,R6
|
|
L122:
|
|
*line 1173
|
|
jsr _sendack
|
|
*line 1174
|
|
clr _ipcstate
|
|
*line 1175
|
|
move R6,R0
|
|
bra L120
|
|
L120:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7
|
|
unlk R14
|
|
rts
|
|
.globl _biosinit
|
|
.text
|
|
_biosinit:
|
|
~~biosinit:
|
|
link R14,#-4
|
|
*line 1189
|
|
jsr _initprts
|
|
*line 1190
|
|
jsr _initdsks
|
|
L123:unlk R14
|
|
rts
|
|
.globl _initprts
|
|
.text
|
|
_initprts:
|
|
~~initprts:
|
|
link R14,#-4
|
|
*line 1195
|
|
move.l #$ffee011,(sp)
|
|
jsr _portinit
|
|
*line 1196
|
|
move.l #$ffee015,(sp)
|
|
jsr _portinit
|
|
L124:unlk R14
|
|
rts
|
|
.globl _initdsks
|
|
.text
|
|
_initdsks:
|
|
~~initdsks:
|
|
~i=R7
|
|
~imsave=R6
|
|
link R14,#0
|
|
movem.l R5-R7,-(sp)
|
|
*line 1205
|
|
clr R7
|
|
L127:
|
|
*line 1205
|
|
cmp #4,R7
|
|
bge L126
|
|
*line 1207
|
|
move R7,R0
|
|
muls #4106,R0
|
|
add.l #_tbuf,R0
|
|
move.l R0,R8
|
|
clr.b 4104(R8)
|
|
*line 1208
|
|
move R7,R0
|
|
muls #4106,R0
|
|
add.l #_tbuf,R0
|
|
move.l R0,R8
|
|
clr.b 4105(R8)
|
|
*line 1209
|
|
move R7,R0
|
|
add #1,R0
|
|
cmp #4,R0
|
|
bge L129
|
|
*line 1209
|
|
move R7,R0
|
|
add #1,R0
|
|
muls #4106,R0
|
|
add.l #_tbuf,R0
|
|
move R7,R1
|
|
muls #4106,R1
|
|
add.l #_tbuf,R1
|
|
move.l R1,R9
|
|
move.l R0,(R9)
|
|
bra L130
|
|
L129:
|
|
*line 1210
|
|
move R7,R0
|
|
muls #4106,R0
|
|
add.l #_tbuf,R0
|
|
move.l R0,R8
|
|
move.l #0,(R8)
|
|
L130:L128:
|
|
*line 1205
|
|
add #1,R7
|
|
bra L127
|
|
L126:
|
|
*line 1212
|
|
move.l #_tbuf,_firstbuf
|
|
*line 1213
|
|
move.l #12318+_tbuf,_lastbuf
|
|
*line 1218
|
|
clr R7
|
|
L132:
|
|
*line 1218
|
|
cmp #4,R7
|
|
bgt L131
|
|
*line 1220
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr (R8)
|
|
*line 1221
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
move.b #1,2(R8)
|
|
*line 1222
|
|
move R7,R8
|
|
add.l R8,R8
|
|
add.l R8,R8
|
|
add.l #_dskstate,R8
|
|
clr.b 3(R8)
|
|
L133:
|
|
*line 1218
|
|
add #1,R7
|
|
bra L132
|
|
L131:
|
|
*line 1225
|
|
move #7,(sp)
|
|
jsr _setimask
|
|
move R0,R6
|
|
*line 1226
|
|
clr.l _intcount
|
|
*line 1227
|
|
clr _ipcstate
|
|
*line 1228
|
|
move R6,(sp)
|
|
jsr _setimask
|
|
L125:tst.l (sp)+
|
|
movem.l (sp)+,R6-R7
|
|
unlk R14
|
|
rts
|
|
.globl _cbios
|
|
.text
|
|
_cbios:
|
|
~~cbios:
|
|
~d0=R7
|
|
~d1=R6
|
|
~d2=R5
|
|
link R14,#0
|
|
movem.l R4-R7,-(sp)
|
|
*line 1244
|
|
move 8(R14),R7
|
|
*line 1244
|
|
move.l 10(R14),R6
|
|
*line 1244
|
|
move.l 14(R14),R5
|
|
*line 1244
|
|
move R7,R0
|
|
bra L136
|
|
L137:
|
|
*line 1246
|
|
jsr _biosinit
|
|
bra L135
|
|
L138:
|
|
*line 1250
|
|
jsr _flush
|
|
*line 1251
|
|
jsr _initdsks
|
|
*line 1252
|
|
jsr _wboot
|
|
L139:
|
|
*line 1255
|
|
move.l #$ffee011,(sp)
|
|
jsr _portstat
|
|
ext.l R0
|
|
bra L134
|
|
L140:
|
|
*line 1258
|
|
move.l #$ffee011,(sp)
|
|
jsr _portin
|
|
ext.l R0
|
|
bra L134
|
|
L141:
|
|
*line 1261
|
|
move.l R6,R0
|
|
move R0,(sp)
|
|
move.l #$ffee011,-(sp)
|
|
jsr _portout
|
|
addq.l #4,sp
|
|
bra L135
|
|
L142:L143:
|
|
*line 1265
|
|
move.l R6,R0
|
|
move R0,(sp)
|
|
move.l #$ffee015,-(sp)
|
|
jsr _portout
|
|
addq.l #4,sp
|
|
bra L135
|
|
L144:
|
|
*line 1268
|
|
move.l #$ffee015,(sp)
|
|
jsr _portin
|
|
ext.l R0
|
|
bra L134
|
|
L145:
|
|
*line 1271
|
|
clr _settrk
|
|
bra L135
|
|
L146:
|
|
*line 1278
|
|
move.l R5,R0
|
|
move R0,(sp)
|
|
move.l R6,R0
|
|
move R0,-(sp)
|
|
jsr _slctdsk
|
|
addq.l #2,sp
|
|
bra L134
|
|
L147:
|
|
*line 1281
|
|
move R6,_settrk
|
|
bra L135
|
|
L148:
|
|
*line 1284
|
|
move.l R6,R0
|
|
sub.l #1,R0
|
|
move R0,_setsec
|
|
bra L135
|
|
L149:
|
|
*line 1287
|
|
move.l R6,_setdma
|
|
bra L135
|
|
L150:
|
|
*line 1290
|
|
jsr _read
|
|
ext.l R0
|
|
bra L134
|
|
L151:
|
|
*line 1293
|
|
move.l R6,R0
|
|
move R0,(sp)
|
|
jsr _write
|
|
ext.l R0
|
|
bra L134
|
|
L152:
|
|
*line 1297
|
|
move.b $ffee015,R0
|
|
ext.w R0
|
|
and #2,R0
|
|
beq L153
|
|
*line 1297
|
|
move.l #255,R0
|
|
bra L134
|
|
bra L154
|
|
L153:
|
|
*line 1298
|
|
clr.l R0
|
|
bra L134
|
|
L154:L155:
|
|
*line 1302
|
|
move.l R5,(sp)
|
|
move.l R6,R0
|
|
move R0,-(sp)
|
|
jsr _sectran
|
|
addq.l #2,sp
|
|
ext.l R0
|
|
bra L134
|
|
L156:
|
|
*line 1305
|
|
move.l #_memtab,R0
|
|
bra L134
|
|
L157:
|
|
*line 1308
|
|
move _iobyte,R0
|
|
ext.l R0
|
|
bra L134
|
|
L158:
|
|
*line 1311
|
|
move R6,_iobyte
|
|
bra L135
|
|
L159:
|
|
*line 1314
|
|
jsr _flush
|
|
tst R0
|
|
beq L160
|
|
*line 1314
|
|
move.l #$0,R0
|
|
bra L134
|
|
bra L161
|
|
L160:
|
|
*line 1315
|
|
move.l #$ffff,R0
|
|
bra L134
|
|
L161:L162:
|
|
*line 1318
|
|
move.l R5,(sp)
|
|
move.l R6,R0
|
|
move R0,-(sp)
|
|
jsr _setxvect
|
|
addq.l #2,sp
|
|
bra L134
|
|
L163:
|
|
*line 1328
|
|
move.l R6,R0
|
|
move R0,(sp)
|
|
jsr _format
|
|
tst R0
|
|
beq L10009
|
|
clr R0
|
|
bra L10010
|
|
L10009:move #1,R0
|
|
L10010:ext.l R0
|
|
bra L134
|
|
L164:
|
|
*line 1332
|
|
move.l #$0,R0
|
|
bra L134
|
|
bra L135
|
|
bra L135
|
|
L136:cmp #63,R0
|
|
bhi L164
|
|
asl #2,R0
|
|
move R0,R8
|
|
add.l #L165,R8
|
|
move.l (R8),R8
|
|
jmp (R8)
|
|
.data
|
|
L165:.dc.l L137
|
|
.dc.l L138
|
|
.dc.l L139
|
|
.dc.l L140
|
|
.dc.l L141
|
|
.dc.l L142
|
|
.dc.l L143
|
|
.dc.l L144
|
|
.dc.l L145
|
|
.dc.l L146
|
|
.dc.l L147
|
|
.dc.l L148
|
|
.dc.l L149
|
|
.dc.l L150
|
|
.dc.l L151
|
|
.dc.l L152
|
|
.dc.l L155
|
|
.dc.l L164
|
|
.dc.l L156
|
|
.dc.l L157
|
|
.dc.l L158
|
|
.dc.l L159
|
|
.dc.l L162
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L164
|
|
.dc.l L163
|
|
.text
|
|
L135:L134:tst.l (sp)+
|
|
movem.l (sp)+,R5-R7
|
|
unlk R14
|
|
rts
|
|
.data
|
|
L13:.dc.b 10,13,66,73,79,83,32,69,82,82,79,82,32,45,45,32,0
|
|
L14:.dc.b 46,10,13,0
|
|
L107:.dc.b 10,13,66,73,79,83,32,69,82,82,79,82,32,45,45,32,68,73,83,75,32,0
|
|
L108:.dc.b 32,78,79,84,32,83,85,80,80,79,82,84,69,68,10,13,0
|
|
L119:.dc.b 73,110,118,97,108,105,100,32,68,105,115,107,32,83,116,97,116,117,115,0
|