Index: alcyon/idselbx.s
===================================================================
--- alcyon/idselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/idselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1585 @@
+.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
