.globl _ebflag
.globl _ebuf
.globl _curfet
.globl _cfetp
.globl _infetp
.globl _io_time
.globl _io_lcd
.globl _io_ser
.globl _io_midi
.globl _io_disk
.globl _io_tone
.globl _io_leds
.globl _io_kbrd
.globl _lcd_a0
.globl _lcd_a1
.globl _io_vreg
.globl _io_vraw
.globl _io_vram
.globl _io_fpu
.globl _v_regs
.globl _v_odtab
.globl _v_actab
.globl _v_ct0
.globl _v_gt1
.globl _v_score
.globl _v_cgtab
.globl _v_curs0
.globl _v_curs1
.globl _v_curs2
.globl _v_curs3
.globl _v_curs4
.globl _v_curs5
.globl _v_curs6
.globl _v_curs7
.globl _v_tcur
.globl _v_kbobj
.globl _v_lnobj
.globl _v_win0
.globl _v_cur
.globl _fc_sw
.globl _fc_val
.globl _itxput
.globl _cursbox
.globl _cxval
.globl _cyval
.globl _curvce
.globl _curfunc
.globl _curpnt
.globl _hitbox
.globl _hitcx
.globl _hitcy
.globl _idnamsw
.globl _idimsw
.globl _idtdat
.globl _pntsv
.globl _pecase
.globl _stccol
.globl _subj
.globl _submenu
.globl _temin
.globl _temax
.globl _csbp
.globl _curboxp
.globl _vbufs
.globl _idefs
.globl _pntptr
.globl _idbox
.globl _instmod
.globl _vtdeptr
.globl _idbxlbl
.globl _idhlbl
.globl _bfs
.globl _instob
.globl _idboxes
.data
_idboxes:
.dc.w $1
.dc.w $1
.dc.w $54
.dc.w $1A
.dc.w $0
*line 62
.dc.l _idfnbox
.dc.w $56
.dc.w $1
.dc.w $A9
.dc.w $1A
.dc.w $1
*line 63
.dc.l _idfnbox
.dc.w $AB
.dc.w $1
.dc.w $FE
.dc.w $1A
.dc.w $2
*line 64
.dc.l _idfnbox
.dc.w $100
.dc.w $1
.dc.w $153
.dc.w $1A
.dc.w $3
*line 65
.dc.l _idfnbox
.dc.w $155
.dc.w $1
.dc.w $1A8
.dc.w $1A
.dc.w $4
*line 66
.dc.l _idfnbox
.dc.w $1AA
.dc.w $1
.dc.w $1FD
.dc.w $1A
.dc.w $5
*line 67
.dc.l _idfnbox
.dc.w $1
.dc.w $1C
.dc.w $54
.dc.w $36
.dc.w $6
*line 69
.dc.l _idfnbox
.dc.w $56
.dc.w $1C
.dc.w $A9
.dc.w $36
.dc.w $7
*line 70
.dc.l _idfnbox
.dc.w $AB
.dc.w $1C
.dc.w $FE
.dc.w $36
.dc.w $8
*line 71
.dc.l _idfnbox
.dc.w $100
.dc.w $1C
.dc.w $153
.dc.w $36
.dc.w $9
*line 72
.dc.l _idfnbox
.dc.w $155
.dc.w $1C
.dc.w $1A8
.dc.w $36
.dc.w $A
*line 73
.dc.l _idfnbox
.dc.w $1AA
.dc.w $1C
.dc.w $1FD
.dc.w $36
.dc.w $B
*line 74
.dc.l _idfnbox
.dc.w $1
.dc.w $38
.dc.w $1FD
.dc.w $D0
.dc.w $C
*line 76
.dc.l _idfnbox
.dc.w $1
.dc.w $D2
.dc.w $6E
.dc.w $EC
.dc.w $0
*line 78
.dc.l _enterit
.dc.w $70
.dc.w $D2
.dc.w $8E
.dc.w $EC
.dc.w $0
*line 79
.dc.l _enterit
.dc.w $90
.dc.w $D2
.dc.w $CE
.dc.w $EC
.dc.w $0
*line 80
.dc.l _enterit
.dc.w $D0
.dc.w $D2
.dc.w $16E
.dc.w $EC
.dc.w $0
*line 81
.dc.l _enterit
.dc.w $170
.dc.w $D2
.dc.w $1FD
.dc.w $EC
.dc.w $0
*line 82
.dc.l _enterit
.dc.w $1
.dc.w $EE
.dc.w $83
.dc.w $15C
.dc.w $0
*line 84
.dc.l _idfnbox
.dc.w $85
.dc.w $EE
.dc.w $10B
.dc.w $FB
.dc.w $0
*line 85
.dc.l _idfnbox
.dc.w $10D
.dc.w $EE
.dc.w $17B
.dc.w $132
.dc.w $0
*line 86
.dc.l _enterit
.dc.w $17D
.dc.w $EE
.dc.w $1FD
.dc.w $15C
.dc.w $0
*line 87
.dc.l _idfnbox
.dc.w $85
.dc.w $134
.dc.w $17B
.dc.w $15C
.dc.w $0
*line 89
.dc.l _enterit
.dc.w $85
.dc.w $FC
.dc.w $10B
.dc.w $132
.dc.w $13
*line 91
.dc.l _idfnbox
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.l $0
.globl _idtxput
.text
_idtxput:
~~idtxput:
~row=8
~col=10
~txt=12
~tag=16
link R14,#-4
*line 110
*line 111
clr R0
move 10+_v_regs,R0
and #384,R0
beq L2
*line 111
clr (sp)
jsr _vbank
*line 112
L2:
*line 113
move #14,(sp)
move.l 12(R14),-(sp)
move 10(R14),-(sp)
move 8(R14),-(sp)
move #11,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
L1:unlk R14
rts
.globl _showim
.text
_showim:
~~showim:
link R14,#0
movem.l R4-R7,-(sp)
~row=R7
~col=R6
~ins=R5
*line 126
clr R5
*line 128
move #1,R6
bra L6
L7:
*line 129
*line 130
clr -(sp)
move.l #L8,-(sp)
move R6,-(sp)
clr -(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 131
*line 132
move #1,R7
bra L11
L12:
*line 133
*line 134
*line 135
cmp #41,R5
bge L9
*line 136
*line 137
move R5,R0
muls #3938,R0
add.l #_idefs,R0
move.l R0,(sp)
add.l #2,(sp)
move R5,-(sp)
move.l #L13,-(sp)
move.l #_bfs,-(sp)
jsr _sprintf
adda.l #10,sp
*line 138
move #1,-(sp)
move.l #_bfs,-(sp)
move R6,-(sp)
move R7,-(sp)
move.l _itxput,R8
jsr (R8)
adda.l #10,sp
*line 139
add #1,R5
L10:
*line 132
add #1,R7
L11:
*line 132
cmp #15,R7
blt L12
L9:
*line 140
L5:
*line 128
add #22,R6
L6:
*line 128
cmp #46,R6
blt L7
L4:L3:tst.l (sp)+
movem.l (sp)+,R5-R7
unlk R14
rts
.globl _cdnicur
.text
_cdnicur:
~~cdnicur:
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
~ip=R13
*line 157
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 159
move _idtdat,R0
bra L16
*line 160
L17:
*line 161
*line 162
move #1,_idtdat
*line 163
lea 19(R13),R8
move.l R8,_vtdeptr
*line 164
move _stccol,(sp)
move #19,-(sp)
jsr _settc
addq.l #2,sp
bra L14
*line 165
*line 166
L18:
*line 167
*line 168
move #2,_idtdat
*line 169
lea 36(R13),R8
move.l R8,_vtdeptr
*line 170
move _stccol,(sp)
move #20,-(sp)
jsr _settc
addq.l #2,sp
bra L14
*line 171
*line 172
L19:
*line 173
*line 174
move #3,_idtdat
*line 175
lea 53(R13),R8
move.l R8,_vtdeptr
*line 176
move _stccol,(sp)
move #21,-(sp)
jsr _settc
addq.l #2,sp
bra L14
*line 177
*line 178
L20:
*line 179
*line 180
clr _idtdat
*line 181
lea 2(R13),R8
move.l R8,_vtdeptr
*line 182
move _stccol,(sp)
move #18,-(sp)
jsr _settc
addq.l #2,sp
bra L14
*line 183
bra L15
L16:tst R0
beq L17
cmp #1,R0
beq L18
cmp #2,R0
beq L19
cmp #3,R0
beq L20
bra L15
L15:L14:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _cupicur
.text
_cupicur:
~~cupicur:
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
~ip=R13
*line 200
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 202
move _idtdat,R0
bra L23
*line 203
L24:
*line 204
*line 205
move #3,_idtdat
*line 206
lea 53(R13),R8
move.l R8,_vtdeptr
*line 207
move _stccol,(sp)
move #21,-(sp)
jsr _settc
addq.l #2,sp
bra L21
*line 208
*line 209
L25:
*line 210
*line 211
clr _idtdat
*line 212
lea 2(R13),R8
move.l R8,_vtdeptr
*line 213
move _stccol,(sp)
move #18,-(sp)
jsr _settc
addq.l #2,sp
bra L21
*line 214
*line 215
L26:
*line 216
*line 217
move #1,_idtdat
*line 218
lea 19(R13),R8
move.l R8,_vtdeptr
*line 219
move _stccol,(sp)
move #19,-(sp)
jsr _settc
addq.l #2,sp
bra L21
*line 220
*line 221
L27:
*line 222
*line 223
move #2,_idtdat
*line 224
lea 36(R13),R8
move.l R8,_vtdeptr
*line 225
move _stccol,(sp)
move #20,-(sp)
jsr _settc
addq.l #2,sp
bra L21
*line 226
bra L22
L23:tst R0
beq L24
cmp #1,R0
beq L25
cmp #2,R0
beq L26
cmp #3,R0
beq L27
bra L22
L22:L21:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _edfunc
.text
_edfunc:
~~edfunc:
~n=8
link R14,#0
movem.l R6-R7/R13-R13,-(sp)
~cx=R7
~ip=R13
*line 246
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 250
move #6,(sp)
jsr _exp_c
move R0,R7
*line 252
clr (sp)
jsr _vbank
*line 253
*line 254
move R7,(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 6(R8,R9.l),-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 4(R8,R9.l),-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 2(R8,R9.l),-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 0(R8,R9.l),-(sp)
move #128,-(sp)
move.l _instob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 256
*line 257
*line 258
move #14,(sp)
move.l 48+_idbxlbl,-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 14(R8,R9.l),-(sp)
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 12(R8,R9.l),-(sp)
btst #0,237(R13)
beq L10000
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
bra L10002
L10000:move #2,-(sp)
L10002:move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 260
*line 261
cmp #12,8(R14)
beq L29
*line 261
move 8(R14),(sp)
move #2,-(sp)
clr -(sp)
move #12,-(sp)
jsr _drawfn
addq.l #6,sp
*line 262
*line 263
*line 264
*line 265
*line 266
L29:
*line 267
clr (sp)
jsr _vbank
*line 268
*line 269
move R7,(sp)
move 198+_idbox,-(sp)
move 196+_idbox,-(sp)
move 194+_idbox,-(sp)
move 192+_idbox,-(sp)
move #128,-(sp)
move.l _instob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 273
*line 274
*line 275
move #14,(sp)
move 8(R14),R8
add.l R8,R8
add.l R8,R8
move.l #_idbxlbl,R9
move.l 0(R8,R9.l),-(sp)
move 206+_idbox,-(sp)
move 204+_idbox,-(sp)
move.l R13,R8
move 8(R14),R1
muls #12,R1
add.l R1,R8
btst #0,93(R8)
beq L10003
move 8(R14),R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 8(R8,R9.l),-(sp)
bra L10005
L10003:move #2,-(sp)
L10005:move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 279
move #14,(sp)
move.l #_idhlbl,-(sp)
clr -(sp)
move #14,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 283
move #14,(sp)
move.l #L30,-(sp)
clr -(sp)
move #14,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 284
move #14,(sp)
move.l #L31,-(sp)
clr -(sp)
move #12,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 285
move #14,(sp)
move.l #L32,-(sp)
clr -(sp)
move #10,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 286
move #14,(sp)
move.l #L33,-(sp)
clr -(sp)
move #8,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 287
move #14,(sp)
move.l #L34,-(sp)
clr -(sp)
move #6,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 288
move #14,(sp)
move.l #L35,-(sp)
clr -(sp)
move #4,-(sp)
move #2,-(sp)
move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 290
clr (sp)
move #196,-(sp)
move #7,-(sp)
move #56,-(sp)
move #7,-(sp)
jsr _lseg
addq.l #8,sp
*line 291
clr (sp)
move #196,-(sp)
move #509,-(sp)
move #196,-(sp)
move #7,-(sp)
jsr _lseg
addq.l #8,sp
*line 295
*line 296
cmp #12,8(R14)
beq L36
*line 296
move #12,(sp)
move #2,-(sp)
clr -(sp)
move #12,-(sp)
jsr _drawfn
addq.l #6,sp
*line 297
L36:
*line 298
move #12,(sp)
move #14,-(sp)
move _pntsv,-(sp)
move 8(R14),-(sp)
jsr _drawfn
addq.l #6,sp
*line 300
move 8(R14),_curfunc
*line 302
*line 302
cmp #4,_curfunc
bne L37
*line 303
*line 304
*line 305
*line 306
*line 307
move #14,(sp)
move.l #L38,-(sp)
move 206+_idbox,-(sp)
add #4,(sp)
move 204+_idbox,-(sp)
add #1,(sp)
move.l R13,R8
move 8(R14),R1
muls #12,R1
add.l R1,R8
btst #0,93(R8)
beq L10006
move 200+_idbox,-(sp)
bra L10008
L10006:move #2,-(sp)
L10008:move #64,-(sp)
move.l _instob,-(sp)
jsr _tsplot4
adda.l #16,sp
*line 308
*line 309
move #12,(sp)
jsr _rd_ires
*line 310
*line 311
L37:
*line 312
move #1,R0
bra L28
L28:tst.l (sp)+
movem.l (sp)+,R7-R7/R13-R13
unlk R14
rts
.globl _showpt
.text
_showpt:
~~showpt:
~q=8
link R14,#-2
movem.l R2-R7/R13-R13,-(sp)
~ptx=R7
~pty=R6
~i=R5
~j=R4
~k=R3
~ip=R13
~ptc=-2
*line 331
*line 332
tst 8(R14)
beq L40
*line 332
move #14,(sp)
jsr _dswin
*line 333
L40:
*line 334
move #15,(sp)
jsr _dswin
*line 335
move #16,(sp)
jsr _dswin
*line 336
move #17,(sp)
jsr _dswin
*line 338
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 339
move _curfunc,R0
muls #12,R0
move.b 91(R13,R0.l),R0
ext.w R0
move R0,R4
*line 340
move _curfunc,R0
muls #12,R0
move.b 92(R13,R0.l),R0
ext.w R0
move R0,R3
*line 342
clr R5
bra L43
L44:
*line 343
*line 344
move #12,(sp)
move R5,-(sp)
move _curfunc,-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #2,sp
move R0,R7
*line 345
move #12,(sp)
move.l R13,R8
move R3,R1
add R5,R1
muls #12,R1
add.l R1,R8
move 244(R8),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #2,sp
move R0,R6
*line 346
*line 347
move.l R13,R8
move R3,R1
add R5,R1
muls #12,R1
add.l R1,R8
tst.b 248(R8)
bne L10010
move.l R13,R8
move R3,R1
add R5,R1
muls #12,R1
add.l R1,R8
tst.b 249(R8)
beq L10009
L10010:move #15,R0
bra L10012
L10009:move #11,R0
L10012:move R0,-2(R14)
*line 348
*line 349
move -2(R14),(sp)
move R6,-(sp)
move R7,-(sp)
jsr _drawpt
addq.l #4,sp
L42:
*line 342
add #1,R5
L43:
*line 342
cmp R4,R5
blt L44
L41:
*line 352
move #12,(sp)
move _subj,-(sp)
move _curfunc,-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #2,sp
move R0,R7
*line 353
move #12,(sp)
move.l R13,R8
move R3,R1
add _subj,R1
muls #12,R1
add.l R1,R8
move 244(R8),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #2,sp
move R0,R6
*line 354
move #3,(sp)
move R6,-(sp)
move R7,-(sp)
jsr _drawpt
addq.l #4,sp
L39:tst.l (sp)+
movem.l (sp)+,R3-R7/R13-R13
unlk R14
rts
.globl _endityp
.text
_endityp:
~~endityp:
link R14,#-4
*line 368
clr _idnamsw
*line 369
clr _submenu
*line 370
jsr _idvlblc
*line 371
move #19,(sp)
jsr _dswin
*line 372
move #22,(sp)
jsr _dswin
L45:unlk R14
rts
.globl _showfn
.text
_showfn:
~~showfn:
link R14,#-4
*line 383
move #13,(sp)
jsr _dswin
*line 384
move #1,(sp)
jsr _showpt
L46:unlk R14
rts
.globl _bx_null
.text
_bx_null:
~~bx_null:
link R14,#-4
*line 396
move #1,R0
bra L47
L47:unlk R14
rts
.globl _iclrwin
.text
_iclrwin:
~~iclrwin:
~n=R7
link R14,#0
movem.l R6-R7,-(sp)
*line 408
move 8(R14),R7
*line 408
*line 409
clr R0
move 10+_v_regs,R0
and #384,R0
beq L49
*line 409
clr (sp)
jsr _vbank
*line 410
L49:
*line 411
*line 412
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 10(R8,R9.l),(sp)
jsr _exp_c
move R0,(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 6(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 4(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 2(R8,R9.l),-(sp)
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R8
move.l #_idbox,R9
move 0(R8,R9.l),-(sp)
move #128,-(sp)
move.l _instob,-(sp)
jsr _vbfill4
adda.l #14,sp
L48:tst.l (sp)+
movem.l (sp)+,R7-R7
unlk R14
rts
.globl _idfnbox
.text
_idfnbox:
~~idfnbox:
~n=8
link R14,#0
movem.l R4-R7/R12-R13,-(sp)
~col=R7
~i=R6
~row=R5
~ip=R13
~ivtdptr=R12
*line 432
move _curvce,R0
muls #3938,R0
move.l R0,R13
add.l #_vbufs,R13
*line 434
move _hitcy,R5
ext.l R5
divs #14,R5
*line 435
move _hitcx,R7
asr #3,R7
*line 439
*line 439
cmp #12,_hitbox
bne L51
*line 440
*line 441
*line 442
*line 443
*line 444
cmp #4,_curfunc
bne L52
cmp #5,R5
bne L52
cmp #62,R7
bne L52
*line 444
jsr _enterit
bra L50
*line 445
L52:
*line 446
move _pntsv,R0
bra L54
*line 447
L55:
*line 448
*line 449
*line 450
jsr _selpnt
move R0,_subj
*line 451
jsr _pntsel
*line 452
move #1,_pntsv
*line 453
*line 454
move _curfunc,(sp)
jsr _edfunc
*line 455
move #1,(sp)
jsr _showpt
*line 456
*line 457
*line 458
*line 459
move #12,(sp)
move _subj,-(sp)
move _curfunc,-(sp)
jsr _timeto
addq.l #4,sp
move R0,-(sp)
jsr _ttox
addq.l #2,sp
move R0,_cxval
*line 460
move #12,(sp)
move.l _pntptr,R8
move 2(R8),R0
asr #5,R0
move R0,-(sp)
jsr _vtoy
addq.l #2,sp
move R0,_cyval
*line 461
move #3,(sp)
jsr _arcurs
*line 462
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
bra L53
*line 463
*line 464
L56:
*line 465
*line 466
*line 467
clr _pntsv
*line 468
move _curfunc,(sp)
jsr _edfunc
*line 469
move #1,(sp)
jsr _arcurs
*line 470
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
bra L53
*line 471
bra L53
L54:tst R0
beq L55
cmp #1,R0
beq L56
bra L53
L53:
*line 472
*line 473
*line 474
move #1,R0
bra L50
*line 475
bra L57
L51:
*line 476
*line 476
cmp #18,_hitbox
bne L58
*line 477
*line 478
*line 478
cmp #17,R5
bne L59
cmp #4,R7
blt L59
cmp #9,R7
bgt L59
*line 479
*line 480
clr (sp)
jsr _wcmenu
*line 481
move #1,R0
bra L50
*line 482
bra L60
L59:
*line 483
*line 484
*line 485
jsr _enterit
bra L50
L60:
*line 486
*line 487
*line 488
bra L61
L58:
*line 489
*line 489
cmp #19,_hitbox
bne L62
*line 490
*line 491
*line 491
cmp #26,R7
blt L63
cmp #29,R7
bgt L63
cmp #17,R5
bne L63
*line 492
*line 493
*line 493
tst _idimsw
beq L64
*line 494
*line 495
clr _idimsw
*line 496
*line 497
*line 498
clr R0
move 10+_v_regs,R0
and #384,R0
beq L65
*line 498
clr (sp)
jsr _vbank
*line 499
L65:
*line 500
jsr _idbord
*line 501
jsr _allwins
*line 502
bra L66
L64:
*line 503
*line 504
*line 505
move #1,_idimsw
*line 506
move.l #_idtxput,_itxput
*line 507
*line 508
*line 509
clr R0
move 10+_v_regs,R0
and #384,R0
beq L67
*line 509
clr (sp)
jsr _vbank
*line 510
L67:
*line 511
*line 512
move 314+_idbox,(sp)
jsr _exp_c
move R0,(sp)
move #208,-(sp)
move #510,-(sp)
move #1,-(sp)
move #1,-(sp)
move #128,-(sp)
move.l _instob,-(sp)
jsr _vbfill4
adda.l #14,sp
*line 513
*line 514
move #13,R6
bra L70
L71:
*line 515
move R6,(sp)
jsr _iclrwin
L69:
*line 514
add #1,R6
L70:
*line 514
cmp #18,R6
ble L71
L68:
*line 515
*line 516
*line 517
move #20,R6
bra L74
L75:
*line 518
move R6,(sp)
jsr _iclrwin
L73:
*line 517
add #1,R6
L74:
*line 517
cmp #22,R6
ble L75
L72:
*line 518
*line 519
*line 520
jsr _showim
L66:
*line 521
*line 522
*line 523
clr R0
bra L50
*line 524
bra L76
L63:
*line 525
*line 526
*line 527
jsr _enterit
bra L50
L76:
*line 528
*line 529
*line 530
bra L77
L62:
*line 531
*line 531
cmp #21,_hitbox
bne L78
*line 532
*line 533
*line 533
cmp #17,R5
bne L79
cmp #48,R7
blt L79
cmp #54,R7
bgt L79
*line 534
*line 535
move #1,(sp)
jsr _wcmenu
*line 536
move #1,R0
bra L50
*line 537
bra L80
L79:
*line 538
*line 539
*line 540
jsr _enterit
bra L50
L80:
*line 541
*line 542
bra L81
L78:
*line 543
*line 543
cmp #23,_hitbox
bne L82
*line 544
*line 545
*line 545
tst _idnamsw
beq L83
*line 546
*line 547
jsr _vtyper
*line 548
move _curvce,R8
add.l R8,R8
add.l #_instmod,R8
move #1,(R8)
*line 549
bra L84
L83:
*line 550
*line 551
*line 552
*line 553
*line 554
*line 555
cmp #18,R5
bne L85
*line 555
lea 2(R13),R12
bra L86
L85:
*line 556
*line 557
cmp #19,R5
bne L87
*line 557
lea 19(R13),R12
bra L88
L87:
*line 558
*line 559
cmp #20,R5
bne L89
*line 559
lea 36(R13),R12
*line 560
bra L90
L89:
*line 561
lea 53(R13),R12
L90:L88:L86:
*line 562
*line 563
move R5,R0
add #-18,R0
move R0,_idtdat
*line 564
*line 565
jsr _idvtyp
*line 566
move #22,(sp)
jsr _dswin
*line 567
move #1,_idnamsw
*line 568
move #1,_submenu
*line 569
*line 570
*line 571
*line 572
move 314+_idbox,(sp)
move 312+_idbox,-(sp)
move.l #_endityp,-(sp)
move.l #_cdnicur,-(sp)
move.l #_cupicur,-(sp)
move.l #_bspicur,-(sp)
move.l #_advicur,-(sp)
move #17,-(sp)
move #22,-(sp)
move.l R12,-(sp)
move #17,-(sp)
move.l #_vtdisp,-(sp)
move.l _instob,-(sp)
jsr _vtsetup
adda.l #40,sp
L84:
*line 573
*line 574
*line 575
move #1,R0
bra L50
*line 576
*line 577
bra L91
L82:
*line 578
*line 578
cmp #12,_hitbox
bge L92
*line 579
*line 580
clr _pntsv
*line 581
*line 582
move #1,(sp)
jsr _arcurs
*line 583
move _cyval,(sp)
move _cxval,-(sp)
jsr _gcurpos
addq.l #2,sp
*line 584
*line 585
*line 585
move 8(R14),R0
cmp _curfunc,R0
beq L93
*line 586
*line 587
*line 588
cmp #12,_curfunc
beq L94
*line 588
move _curfunc,(sp)
jsr _dswin
*line 589
L94:
*line 590
move 8(R14),(sp)
jsr _edfunc
*line 591
bra L95
L93:
*line 592
*line 593
*line 594
move _curfunc,(sp)
jsr _dswin
*line 595
move #12,(sp)
jsr _edfunc
L95:
*line 596
*line 597
*line 598
clr _subj
*line 599
jsr _pntsel
*line 600
*line 601
jsr _showfn
*line 602
*line 603
move #175,(sp)
move #256,-(sp)
jsr _setgc
addq.l #2,sp
*line 604
move #1,R0
bra L50
*line 605
*line 606
L92:L91:L81:L77:L61:L57:
*line 607
clr R0
bra L50
L50:tst.l (sp)+
movem.l (sp)+,R5-R7/R12-R13
unlk R14
rts
.data
L8:.dc.b $4E,$6F,$20,$49,$6E,$73,$74,$72,$75,$6D,$65,$6E,$74,$0
L13:.dc.b $25,$30,$32,$64,$20,$25,$2D,$31,$36,$2E,$31,$36,$73,$0
L30:.dc.b $C0,$0
L31:.dc.b $C2,$0
L32:.dc.b $C4,$0
L33:.dc.b $C6,$0
L34:.dc.b $C8,$0
L35:.dc.b $CA,$0
L38:.dc.b $52,$65,$73,$0