Index: alcyon/adselbx.s
===================================================================
--- alcyon/adselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/adselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1345 @@
+.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 _ebflag
+.globl _ebuf
+.globl _curfet
+.globl _cfetp
+.globl _infetp
+.globl _itxput
+.globl _point
+.globl _admctl
+.globl _adnamsw
+.globl _asgfks
+.globl _asghit
+.globl _asgmod
+.globl _auxctl
+.globl _curasg
+.globl _cxval
+.globl _cyval
+.globl _hitbox
+.globl _hitcx
+.globl _hitcy
+.globl _lastam
+.globl _submenu
+.globl _adbox
+.globl _grp2prt
+.globl _ins2grp
+.globl _asgkble
+.globl _key2grp
+.globl _mctlnum
+.globl _csbp
+.globl _curboxp
+.globl _bfs
+.globl _caname
+.globl _vtlin1
+.globl _vtlin2
+.globl _vtlin3
+.globl _asgob
+.globl _adboxes
+.data
+_adboxes:
+.dc.w $1
+.dc.w $0
+.dc.w $5E
+.dc.w $1B
+.dc.w $0
+*line 73
+.dc.l _adfnbox
+.dc.w $1
+.dc.w $1C
+.dc.w $5E
+.dc.w $28
+.dc.w $1
+*line 74
+.dc.l _adfnbox
+.dc.w $1
+.dc.w $38
+.dc.w $5E
+.dc.w $44
+.dc.w $2
+*line 75
+.dc.l _enterit
+.dc.w $1
+.dc.w $2A
+.dc.w $5E
+.dc.w $36
+.dc.w $3
+*line 76
+.dc.l _enterit
+.dc.w $60
+.dc.w $1
+.dc.w $BE
+.dc.w $8A
+.dc.w $4
+*line 77
+.dc.l _enterit
+.dc.w $C0
+.dc.w $1
+.dc.w $12E
+.dc.w $8A
+.dc.w $5
+*line 78
+.dc.l _adfnbox
+.dc.w $130
+.dc.w $1
+.dc.w $1FE
+.dc.w $8A
+.dc.w $6
+*line 79
+.dc.l _adfnbox
+.dc.w $1
+.dc.w $8C
+.dc.w $1FE
+.dc.w $15C
+.dc.w $7
+*line 80
+.dc.l _adfnbox
+.dc.w $1
+.dc.w $46
+.dc.w $26
+.dc.w $52
+.dc.w $8
+*line 81
+.dc.l _adfnbox
+.dc.w $28
+.dc.w $46
+.dc.w $5E
+.dc.w $52
+.dc.w $9
+*line 82
+.dc.l _adfnbox
+.dc.w $1
+.dc.w $54
+.dc.w $5E
+.dc.w $8A
+.dc.w $A
+*line 83
+.dc.l _enterit
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.l $0
+.globl _endatyp
+.text
+_endatyp:
+~~endatyp:
+link R14,#-4
+*line 99
+clr _adnamsw
+*line 100
+clr _submenu
+*line 102
+*line 103
+cmp #-1,_admctl
+bne L2
+*line 103
+move #7,(sp)
+jsr _adswin
+*line 104
+bra L3
+L2:
+*line 105
+move _admctl,(sp)
+jsr _admenu
+L3:L1:unlk R14
+rts
+.globl _admtxt
+.text
+_admtxt:
+~~admtxt:
+~row=8
+~col=10
+~txt=12
+~tag=16
+link R14,#-4
+*line 122
+*line 123
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L5
+*line 123
+clr (sp)
+jsr _vbank
+*line 124
+L5:
+*line 125
+move #14,(sp)
+move.l 12(R14),-(sp)
+move 10(R14),-(sp)
+move 8(R14),-(sp)
+add #10,(sp)
+move #5,-(sp)
+move #11,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _vcputsv
+adda.l #18,sp
+L4:unlk R14
+rts
+.globl _admenu
+.text
+_admenu:
+~~admenu:
+~n=8
+link R14,#0
+movem.l R6-R7,-(sp)
+~i=R7
+*line 142
+*line 142
+tst 8(R14)
+blt L7
+*line 143
+*line 144
+move.l #_admtxt,_itxput
+*line 145
+*line 146
+*line 147
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L8
+*line 147
+clr (sp)
+jsr _vbank
+*line 148
+L8:
+*line 149
+*line 150
+move 122+_adbox,(sp)
+jsr _exp_c
+move R0,(sp)
+move 118+_adbox,-(sp)
+move 116+_adbox,-(sp)
+move 114+_adbox,-(sp)
+move 112+_adbox,-(sp)
+move #128,-(sp)
+move.l _asgob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 151
+*line 152
+move 8(R14),R0
+bra L10
+*line 153
+L11:
+*line 154
+*line 155
+*line 156
+jsr _showim
+bra L9
+*line 157
+*line 158
+L12:
+*line 159
+*line 160
+*line 161
+move _lastam,(sp)
+jsr _showam
+*line 162
+move #9,(sp)
+clr -(sp)
+jsr _settc
+addq.l #2,sp
+bra L9
+*line 163
+*line 164
+L13:
+*line 165
+*line 166
+*line 167
+jsr _showtm
+*line 168
+move #10,(sp)
+move #5,-(sp)
+jsr _settc
+addq.l #2,sp
+bra L9
+*line 169
+*line 170
+L14:
+*line 171
+*line 172
+bra L9
+*line 173
+bra L9
+L10:tst R0
+beq L11
+cmp #1,R0
+beq L12
+cmp #2,R0
+beq L13
+bra L14
+L9:
+*line 174
+*line 175
+bra L15
+L7:
+*line 176
+*line 177
+*line 178
+move 8(R14),_admctl
+*line 179
+move #7,(sp)
+jsr _adswin
+L15:
+*line 182
+move.l #_adpoint,_point
+*line 184
+*line 185
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L16
+*line 185
+clr (sp)
+jsr _vbank
+*line 186
+L16:
+*line 187
+move #10,(sp)
+move #349,-(sp)
+clr -(sp)
+clr -(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 188
+move #10,(sp)
+move #349,-(sp)
+move #511,-(sp)
+clr -(sp)
+move #511,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 190
+move 8(R14),_admctl
+L6:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _adfnbox
+.text
+_adfnbox:
+~~adfnbox:
+~n=8
+link R14,#-4
+movem.l R3-R7,-(sp)
+~i=R7
+~grp=R6
+~key=R5
+~line=R4
+~row=-2
+~col=-4
+*line 209
+move _hitcy,R0
+ext.l R0
+divs #14,R0
+move R0,-2(R14)
+*line 210
+move _hitcx,R0
+asr #3,R0
+move R0,-4(R14)
+*line 212
+move _hitbox,R0
+bra L19
+*line 213
+L20:
+*line 214
+*line 215
+*line 216
+*line 216
+tst _adnamsw
+bne L21
+tst -2(R14)
+bne L21
+*line 217
+*line 218
+*line 218
+cmp #1,-4(R14)
+blt L22
+cmp #7,-4(R14)
+bgt L22
+*line 219
+*line 220
+*line 220
+cmp #1,_admctl
+beq L23
+*line 221
+*line 222
+clr _lastam
+*line 223
+move #1,(sp)
+jsr _admenu
+*line 224
+bra L24
+L23:
+*line 225
+*line 226
+*line 227
+*line 227
+tst _lastam
+bne L25
+*line 228
+*line 229
+move #60,_lastam
+*line 230
+move #1,(sp)
+jsr _admenu
+*line 231
+bra L26
+L25:
+*line 232
+*line 233
+*line 234
+clr _lastam
+*line 235
+move #-1,(sp)
+jsr _admenu
+L26:
+*line 236
+L24:
+*line 237
+*line 238
+*line 239
+clr R0
+bra L17
+*line 240
+bra L27
+L22:
+*line 241
+*line 242
+*line 243
+jsr _enterit
+bra L17
+L27:
+*line 244
+*line 245
+*line 246
+L21:
+*line 247
+*line 247
+tst _adnamsw
+beq L28
+*line 248
+*line 249
+*line 249
+jsr _vtyper
+tst R0
+beq L29
+*line 250
+*line 251
+*line 251
+tst _asgmod
+bne L30
+*line 252
+*line 253
+move #1,_asgmod
+*line 254
+clr (sp)
+jsr _adswin
+*line 255
+L30:
+*line 256
+*line 257
+*line 258
+L29:bra L31
+L28:
+*line 259
+*line 260
+*line 261
+clr (sp)
+jsr _vbank
+*line 262
+*line 263
+*line 264
+move #3,(sp)
+jsr _exp_c
+move R0,(sp)
+move #181,-(sp)
+move #247,-(sp)
+move #140,-(sp)
+move #8,-(sp)
+move #128,-(sp)
+move.l _asgob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 265
+*line 266
+move #14,(sp)
+move.l #_vtlin1,-(sp)
+move #1,-(sp)
+move #10,-(sp)
+move #11,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 267
+move #14,(sp)
+move.l #_vtlin2,-(sp)
+move #1,-(sp)
+move #11,-(sp)
+move #11,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 268
+move #14,(sp)
+move.l #_vtlin3,-(sp)
+move #1,-(sp)
+move #12,-(sp)
+move #11,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 269
+*line 270
+move.l #_adpoint,_point
+*line 271
+*line 272
+*line 273
+*line 274
+move #10,(sp)
+move #139,-(sp)
+move #248,-(sp)
+move #139,-(sp)
+move #7,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 275
+*line 276
+*line 277
+*line 278
+move #10,(sp)
+move #181,-(sp)
+move #248,-(sp)
+move #139,-(sp)
+move #248,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 279
+*line 280
+*line 281
+*line 282
+move #10,(sp)
+move #181,-(sp)
+move #7,-(sp)
+move #181,-(sp)
+move #248,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 283
+*line 284
+*line 285
+*line 286
+move #10,(sp)
+move #139,-(sp)
+move #7,-(sp)
+move #181,-(sp)
+move #7,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 287
+*line 288
+*line 289
+*line 290
+*line 291
+*line 292
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 10(R8,R9.l),(sp)
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move.l #_endatyp,-(sp)
+move.l #_nokey,-(sp)
+move.l #_nokey,-(sp)
+move.l #_bspacur,-(sp)
+move.l #_advacur,-(sp)
+move #1,-(sp)
+move #10,-(sp)
+move.l #_caname,-(sp)
+move #1,-(sp)
+move.l #_vtdisp,-(sp)
+move.l _asgob,-(sp)
+jsr _vtsetup
+adda.l #40,sp
+*line 293
+*line 294
+move #1,_adnamsw
+*line 295
+move #1,_submenu
+L31:
+*line 296
+*line 297
+*line 298
+clr R0
+bra L17
+*line 299
+*line 300
+L32:
+*line 301
+*line 302
+*line 303
+*line 303
+cmp #1,-4(R14)
+blt L33
+cmp #4,-4(R14)
+bgt L33
+*line 304
+*line 305
+*line 306
+tst _curasg
+bne L34
+*line 306
+move #-1,R0
+bra L17
+*line 307
+L34:
+*line 308
+move _curasg,(sp)
+jsr _putasg
+*line 309
+clr (sp)
+jsr _adswin
+*line 310
+clr R0
+bra L17
+*line 311
+bra L35
+L33:
+*line 312
+*line 312
+cmp #6,-4(R14)
+blt L36
+cmp #10,-4(R14)
+bgt L36
+*line 313
+*line 314
+move _curasg,(sp)
+jsr _getasg
+*line 315
+jsr _awins
+*line 316
+clr R0
+bra L17
+*line 317
+*line 318
+L36:L35:L37:
+*line 319
+*line 320
+*line 321
+*line 321
+cmp #25,-4(R14)
+bne L38
+*line 322
+*line 323
+*line 324
+cmp #5,-2(R14)
+blt L10000
+cmp #8,-2(R14)
+ble L39
+L10000:*line 324
+move #-1,R0
+bra L17
+*line 325
+L39:
+*line 326
+move #256,R0
+move -2(R14),R9
+sub #5,R9
+add.l R9,R9
+add.l #_mctlnum,R9
+eor R0,(R9)
+*line 327
+*line 328
+*line 329
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L40
+*line 329
+clr (sp)
+jsr _vbank
+*line 330
+L40:
+*line 331
+move -2(R14),R0
+add #45,R0
+move.b R0,_bfs
+*line 332
+clr.b 1+_bfs
+*line 333
+*line 334
+*line 335
+*line 336
+*line 337
+move #14,(sp)
+move.l #_bfs,-(sp)
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move -2(R14),-(sp)
+move -2(R14),R8
+sub #5,R8
+add.l R8,R8
+add.l #_mctlnum,R8
+btst #0,(R8)
+beq L10001
+move #13,-(sp)
+bra L10003
+L10001:move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10003:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 338
+*line 339
+clr R0
+bra L17
+*line 340
+bra L41
+L38:
+*line 341
+*line 342
+*line 343
+jsr _enterit
+bra L17
+L41:
+*line 344
+*line 345
+*line 346
+L42:
+*line 347
+*line 348
+*line 349
+*line 350
+cmp #41,-4(R14)
+beq L10004
+cmp #42,-4(R14)
+beq L10004
+cmp #54,-4(R14)
+beq L10004
+cmp #55,-4(R14)
+bne L43
+L10004:cmp #3,-2(R14)
+bne L43
+*line 351
+*line 352
+*line 353
+*line 354
+*line 355
+tst _admctl
+beq L44
+*line 355
+clr (sp)
+jsr _admenu
+*line 356
+bra L45
+L44:
+*line 357
+move #-1,(sp)
+jsr _admenu
+L45:
+*line 358
+*line 359
+clr R0
+bra L17
+*line 360
+bra L46
+L43:
+*line 361
+*line 361
+cmp #39,-4(R14)
+bne L47
+*line 362
+*line 363
+*line 364
+cmp #4,-2(R14)
+blt L10005
+cmp #9,-2(R14)
+ble L48
+L10005:*line 364
+move #-1,R0
+bra L17
+*line 365
+*line 366
+*line 367
+L48:
+*line 368
+move -2(R14),R6
+sub #4,R6
+*line 369
+*line 370
+move #256,R0
+move R6,R9
+add.l R9,R9
+add.l #_ins2grp,R9
+eor R0,(R9)
+*line 371
+*line 372
+move R6,R0
+add #49,R0
+move.b R0,_bfs
+*line 373
+clr.b 1+_bfs
+*line 374
+*line 375
+*line 376
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L49
+*line 376
+clr (sp)
+jsr _vbank
+*line 377
+L49:
+*line 378
+*line 379
+*line 380
+move #14,(sp)
+move.l #_bfs,-(sp)
+move -4(R14),-(sp)
+move -2(R14),-(sp)
+move R6,R8
+add.l R8,R8
+add.l #_ins2grp,R8
+btst #0,(R8)
+beq L10006
+move #13,-(sp)
+bra L10008
+L10006:move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10008:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 381
+*line 382
+clr R0
+bra L17
+*line 383
+*line 384
+bra L50
+L47:
+*line 385
+*line 385
+cmp #52,-4(R14)
+bne L51
+*line 386
+*line 387
+*line 388
+cmp #4,-2(R14)
+blt L10009
+cmp #9,-2(R14)
+ble L52
+L10009:*line 388
+move #-1,R0
+bra L17
+*line 389
+*line 390
+*line 391
+L52:
+*line 392
+move -2(R14),R6
+add #2,R6
+*line 393
+*line 394
+move #256,R0
+move R6,R9
+add.l R9,R9
+add.l #_ins2grp,R9
+eor R0,(R9)
+*line 395
+*line 396
+move R6,R0
+cmp #8,R6
+ble L10010
+move #163,R1
+bra L10012
+L10010:move #49,R1
+L10012:add R1,R0
+move.b R0,_bfs
+*line 397
+clr.b 1+_bfs
+*line 398
+*line 399
+*line 400
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L53
+*line 400
+clr (sp)
+jsr _vbank
+*line 401
+L53:
+*line 402
+*line 403
+*line 404
+move #14,(sp)
+move.l #_bfs,-(sp)
+move -4(R14),-(sp)
+move -2(R14),-(sp)
+move R6,R8
+add.l R8,R8
+add.l #_ins2grp,R8
+btst #0,(R8)
+beq L10013
+move #13,-(sp)
+bra L10015
+L10013:move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10015:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 405
+*line 406
+clr R0
+bra L17
+*line 407
+bra L54
+L51:
+*line 408
+*line 409
+*line 410
+jsr _enterit
+bra L17
+L54:L50:L46:
+*line 411
+*line 412
+*line 413
+L55:
+*line 414
+*line 415
+*line 416
+*line 417
+cmp #-1,_admctl
+beq L56
+*line 417
+move #-1,R0
+bra L17
+*line 418
+L56:
+*line 419
+*line 419
+tst _asghit
+beq L57
+*line 420
+*line 421
+*line 421
+move _hitcy,R0
+ext.l R0
+divs #14,R0
+cmp _asghit,R0
+bne L58
+*line 422
+*line 423
+*line 424
+*line 425
+move _asghit,R6
+add #-11,R6
+*line 426
+move R6,R4
+muls #14,R4
+add #158,R4
+*line 427
+clr R5
+*line 428
+*line 429
+clr R7
+bra L61
+L62:
+*line 430
+*line 431
+*line 432
+move R7,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),R0
+add #24,R0
+cmp _hitcx,R0
+bgt L63
+move R7,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),R0
+cmp #87,R7
+bne L10016
+move #31,R1
+bra L10018
+L10016:move #28,R1
+L10018:add R1,R0
+cmp _hitcx,R0
+blt L63
+*line 432
+move R7,R5
+add #1,R5
+*line 433
+L63:L60:
+*line 429
+add #1,R7
+L61:
+*line 429
+cmp #88,R7
+blt L62
+L59:
+*line 434
+*line 435
+move R5,R0
+sub #1,R5
+tst R0
+bne L64
+*line 435
+move #-1,R0
+bra L17
+*line 436
+L64:
+*line 437
+*line 437
+cmp _asgfks,R5
+bge L65
+*line 438
+*line 439
+move _asgfks,R7
+*line 440
+move R5,_asgfks
+*line 441
+move R7,R5
+*line 442
+*line 443
+L65:
+*line 444
+move _asgfks,R7
+bra L68
+L69:
+*line 445
+move #1,R0
+move R6,R1
+asl R1,R0
+move R7,R9
+add.l R9,R9
+add.l #_key2grp,R9
+eor R0,(R9)
+L67:
+*line 444
+add #1,R7
+L68:
+*line 444
+cmp R5,R7
+ble L69
+L66:
+*line 445
+*line 446
+*line 447
+move R6,(sp)
+jsr _drawk2g
+*line 448
+clr _asghit
+*line 449
+*line 450
+*line 450
+tst _asgmod
+bne L70
+*line 451
+*line 452
+move #1,_asgmod
+*line 453
+clr (sp)
+jsr _adswin
+*line 454
+*line 455
+L70:bra L71
+L58:
+*line 456
+*line 457
+*line 458
+*line 459
+*line 460
+move _asghit,(sp)
+add #-11,(sp)
+jsr _drawk2g
+*line 461
+clr _asghit
+L71:
+*line 462
+*line 463
+*line 464
+bra L72
+L57:
+*line 465
+*line 466
+*line 467
+*line 468
+*line 469
+move _hitcy,R0
+ext.l R0
+divs #14,R0
+move R0,_asghit
+*line 470
+move _asghit,R6
+add #-11,R6
+*line 471
+*line 472
+*line 472
+move R6,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #1,(R8)
+beq L73
+*line 473
+*line 474
+clr _asghit
+*line 475
+move #-1,R0
+bra L17
+*line 476
+*line 477
+L73:
+*line 478
+move R6,R4
+muls #14,R4
+add #158,R4
+*line 479
+clr R5
+*line 480
+*line 481
+clr R7
+bra L76
+L77:
+*line 482
+*line 483
+*line 484
+move R7,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),R0
+add #24,R0
+cmp _hitcx,R0
+bgt L78
+move R7,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),R0
+cmp #87,R7
+bne L10019
+move #31,R1
+bra L10021
+L10019:move #28,R1
+L10021:add R1,R0
+cmp _hitcx,R0
+blt L78
+*line 484
+move R7,R5
+add #1,R5
+*line 485
+L78:L75:
+*line 481
+add #1,R7
+L76:
+*line 481
+cmp #88,R7
+blt L77
+L74:
+*line 486
+*line 486
+move R5,R0
+sub #1,R5
+tst R0
+bne L79
+*line 487
+*line 488
+clr _asghit
+*line 489
+move #-1,R0
+bra L17
+*line 490
+*line 491
+L79:
+*line 492
+move R5,_asgfks
+*line 493
+*line 494
+*line 495
+*line 496
+move #13,(sp)
+jsr _exp_c
+move R0,(sp)
+move R4,-(sp)
+add #3,(sp)
+move R5,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),-(sp)
+cmp #87,R5
+bne L10022
+move #31,R0
+bra L10024
+L10022:move #28,R0
+L10024:add R0,(sp)
+move R4,-(sp)
+move R5,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),-(sp)
+add #24,(sp)
+move #128,-(sp)
+move.l _asgob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 497
+L72:
+*line 498
+*line 499
+*line 500
+clr R0
+bra L17
+*line 501
+L80:
+*line 502
+*line 503
+*line 504
+tst _auxctl
+beq L10025
+clr (sp)
+bra L10026
+L10025:move #1,(sp)
+L10026:jsr _setaux
+*line 505
+move #8,(sp)
+jsr _adswin
+*line 506
+clr R0
+bra L17
+*line 507
+L81:
+*line 508
+*line 509
+*line 510
+*line 510
+cmp #6,-4(R14)
+blt L82
+cmp #8,-4(R14)
+bgt L82
+*line 511
+*line 512
+*line 513
+cmp #2,_admctl
+beq L83
+*line 513
+move #2,(sp)
+jsr _admenu
+*line 514
+bra L84
+L83:
+*line 515
+move #-1,(sp)
+jsr _admenu
+L84:
+*line 516
+*line 517
+clr R0
+bra L17
+*line 518
+bra L85
+L82:
+*line 519
+*line 520
+*line 521
+jsr _enterit
+bra L17
+L85:
+*line 522
+bra L18
+L19:cmp #9,R0
+bhi L18
+asl #2,R0
+move R0,R8
+add.l #L86,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L86:.dc.l L20
+.dc.l L32
+.dc.l L18
+.dc.l L18
+.dc.l L18
+.dc.l L37
+.dc.l L42
+.dc.l L55
+.dc.l L80
+.dc.l L81
+.text
+L18:
+*line 525
+move #-1,R0
+bra L17
+L17:tst.l (sp)+
+movem.l (sp)+,R4-R7
+unlk R14
+rts
+.data
