.globl _defect
.globl _dferror
.globl _dftype
.globl _dfsides
.globl _dfbuf
.globl _dformat
.text
_dformat:
~~dformat:
~dt=8
link R14,#0
movem.l R6-R7,-(sp)
~trk=R7
*line 56
*line 56
tst 8(R14)
beq L2
*line 57
*line 58
move #3,_dftype
*line 59
move #2,_dfsides
*line 60
bra L3
L2:
*line 61
*line 62
*line 63
move #2,_dftype
*line 64
move #1,_dfsides
L3:
*line 69
clr R7
bra L6
L7:
*line 70
*line 71
*line 72
move #-6683,(sp)
move.l #$87654321,-(sp)
move #1,-(sp)
clr -(sp)
move R7,-(sp)
move #9,-(sp)
clr -(sp)
clr.l -(sp)
move.l #_dfbuf,-(sp)
move #4,-(sp)
jsr _trap14
adda.l #24,sp
move R0,_dferror
beq L8
*line 73
*line 74
move #1,_defect
*line 75
move #-1,R0
bra L1
*line 76
*line 77
L8:
*line 78
*line 78
cmp #2,_dfsides
bne L9
*line 79
*line 80
*line 81
move #-6683,(sp)
move.l #$87654321,-(sp)
move #1,-(sp)
move #1,-(sp)
move R7,-(sp)
move #9,-(sp)
clr -(sp)
clr.l -(sp)
move.l #_dfbuf,-(sp)
move #4,-(sp)
jsr _trap14
adda.l #24,sp
move R0,_dferror
beq L10
*line 82
*line 83
move #2,_defect
*line 84
move #-1,R0
bra L1
*line 85
L10:
*line 86
L9:L5:
*line 69
add #1,R7
L6:
*line 69
cmp #80,R7
blt L7
L4:
*line 91
move #4096,(sp)
clr -(sp)
move.l #_dfbuf,-(sp)
jsr _memsetw
addq.l #6,sp
*line 92
clr (sp)
move _dftype,-(sp)
move.l #$1000000,-(sp)
move.l #_dfbuf,-(sp)
move #6,-(sp)
jsr _trap14
adda.l #12,sp
*line 96
*line 96
move #1,(sp)
clr -(sp)
clr -(sp)
move #1,-(sp)
clr -(sp)
clr.l -(sp)
move.l #_dfbuf,-(sp)
move #3,-(sp)
jsr _trap14
adda.l #18,sp
move R0,_dferror
beq L11
*line 97
*line 98
move #3,_defect
*line 99
move #-1,R0
bra L1
*line 100
*line 101
*line 102
*line 103
L11:
*line 104
move #4096,(sp)
clr -(sp)
move.l #_dfbuf,-(sp)
jsr _memsetw
addq.l #6,sp
*line 106
*line 106
cmp #2,_dfsides
bne L12
*line 107
*line 108
move #-513,_dfbuf
*line 109
move #-256,2+_dfbuf
*line 110
bra L13
L12:
*line 111
*line 112
*line 113
move #-769,_dfbuf
*line 114
move #-256,2+_dfbuf
L13:
*line 117
*line 118
clr (sp)
move #6,-(sp)
move #5,-(sp)
move.l #_dfbuf,-(sp)
move #3,-(sp)
move #4,-(sp)
jsr _trap13
adda.l #12,sp
move R0,_dferror
beq L14
*line 119
*line 120
move #4,_defect
*line 121
move #-1,R0
bra L1
*line 122
*line 123
L14:
*line 124
*line 125
clr (sp)
move #1,-(sp)
move #5,-(sp)
move.l #_dfbuf,-(sp)
move #3,-(sp)
move #4,-(sp)
jsr _trap13
adda.l #12,sp
move R0,_dferror
beq L15
*line 126
*line 127
move #5,_defect
*line 128
move #-1,R0
bra L1
*line 129
*line 130
*line 131
*line 132
L15:
*line 133
move #4096,(sp)
clr -(sp)
move.l #_dfbuf,-(sp)
jsr _memsetw
addq.l #6,sp
*line 135
*line 136
clr (sp)
move #11,-(sp)
move #7,-(sp)
move.l #_dfbuf,-(sp)
move #3,-(sp)
move #4,-(sp)
jsr _trap13
adda.l #12,sp
move R0,_dferror
beq L16
*line 137
*line 138
move #6,_defect
*line 139
move #-1,R0
bra L1
*line 140
*line 141
L16:
*line 142
clr _defect
*line 143
clr R0
bra L1
L1:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.data