Index: alcyon/localkb.s
===================================================================
--- alcyon/localkb.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/localkb.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,1669 @@
+.globl _lcdx
+.globl _lcdy
+.globl _lcdbit
+.globl _lcdrow
+.globl _lcdcol
+.globl _lcdbase
+.globl _lcdctl1
+.globl _lcdctl2
+.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 _ac_code
+.globl _scname
+.globl _se_chg
+.globl _curscor
+.globl _cursect
+.globl _se1_cnt
+.globl _se2_cnt
+.globl _se3_cnt
+.globl _spool
+.globl _pspool
+.globl _spcount
+.globl _frags
+.globl _t_bak
+.globl _t_cur
+.globl _t_ctr
+.globl _t_fwd
+.globl _size1
+.globl _size2
+.globl _size3
+.globl _scores
+.globl _scp
+.globl _seclist
+.globl _hplist
+.globl _p_bak
+.globl _p_cur
+.globl _p_ctr
+.globl _p_fwd
+.globl _point
+.globl _ancmsw
+.globl _angroup
+.globl _asmode
+.globl _astat
+.globl _aval
+.globl _ctrsw
+.globl _curasg
+.globl _curtun
+.globl _curvce
+.globl _editsw
+.globl _gomode
+.globl _gtmsel
+.globl _insmode
+.globl _ismode
+.globl _ldpass
+.globl _lksel
+.globl _lstbgnc
+.globl _lstendc
+.globl _lstflag
+.globl _oldpk
+.globl _pkctrl
+.globl _recsw
+.globl _stepenb
+.globl _stepint
+.globl _stepwgt
+.globl _keystat
+.globl _trgtab
+.globl _grpmode
+.globl _grpstat
+.globl _grptmap
+.globl _ldmap
+.globl _prstab
+.globl _tuntab
+.globl _veltab
+.globl _vce2grp
+.globl _vce2trg
+.globl _grp2prt
+.globl _ldbox
+.globl _varmode
+.globl _gdstbc
+.globl _lstbgns
+.globl _lstends
+.globl _lclkmap
+.data
+_lclkmap:
+.dc.w $0
+.dc.w $1
+.dc.w $2
+.dc.w $3
+.dc.w $4
+.dc.w $5
+.dc.w $6
+.dc.w $7
+.dc.w $8
+.dc.w $9
+.dc.w $A
+.dc.w $B
+.dc.w $C
+.dc.w $D
+.dc.w $72
+.dc.w $73
+.dc.w $74
+.dc.w $75
+.dc.w $76
+.dc.w $77
+.dc.w $78
+.dc.w $79
+.dc.w $7A
+.dc.w $7B
+.globl _panlkey
+.data
+_panlkey:
+.dc.w $230
+.dc.w $3C0
+.dc.w $550
+.dc.w $6E0
+.dc.w $870
+.dc.w $A00
+.dc.w $B90
+.dc.w $D20
+.dc.w $EB0
+.dc.w $1040
+.dc.w $11D0
+.dc.w $1360
+.dc.w $14F0
+.dc.w $1680
+.dc.w $1810
+.dc.w $19A0
+.dc.w $1B30
+.dc.w $1CC0
+.dc.w $1E50
+.dc.w $1FE0
+.dc.w $2170
+.dc.w $2300
+.dc.w $2490
+.dc.w $2620
+.globl _stepfrm
+.data
+_stepfrm:
+.dc.w $3
+.dc.w $4
+.dc.w $A
+.dc.w $16
+.dc.w $2E
+.dc.w $5E
+.dc.w $BE
+.dc.w $7
+.dc.w $10
+.dc.w $22
+.dc.w $46
+.dc.w $8E
+.dc.w $11E
+.dc.w $3
+.dc.w $6
+.dc.w $E
+.dc.w $1E
+.dc.w $2
+.dc.w $4
+.dc.w $8
+.dc.w $10
+.dc.w $20
+.dc.w $40
+.dc.w $80
+.dc.w $6
+.dc.w $C
+.dc.w $18
+.dc.w $30
+.dc.w $60
+.dc.w $C0
+.dc.w $3
+.dc.w $5
+.dc.w $A
+.dc.w $14
+.dc.w $2
+.dc.w $3
+.dc.w $4
+.dc.w $6
+.dc.w $A
+.dc.w $10
+.dc.w $18
+.dc.w $4
+.dc.w $5
+.dc.w $8
+.dc.w $C
+.dc.w $14
+.dc.w $1E
+.dc.w $3
+.dc.w $4
+.dc.w $5
+.dc.w $8
+.dc.w $3
+.dc.w $6
+.dc.w $C
+.dc.w $18
+.dc.w $30
+.dc.w $60
+.dc.w $C0
+.dc.w $9
+.dc.w $12
+.dc.w $24
+.dc.w $48
+.dc.w $90
+.dc.w $120
+.dc.w $4
+.dc.w $8
+.dc.w $10
+.dc.w $20
+.globl _setleds
+.text
+_setleds:
+~~setleds:
+link R14,#0
+movem.l R6-R7,-(sp)
+~i=R7
+*line 139
+clr R7
+bra L4
+L5:
+*line 140
+move R7,R0
+or #128,R0
+move.b R0,_io_leds
+L3:
+*line 139
+add #1,R7
+L4:
+*line 139
+cmp #24,R7
+blt L5
+L2:
+*line 142
+move _pkctrl,R0
+bra L7
+*line 143
+L8:
+*line 144
+L9:
+*line 145
+L10:
+*line 146
+L11:
+*line 147
+*line 148
+bra L1
+*line 149
+*line 150
+L12:
+*line 151
+*line 152
+*line 153
+*line 154
+tst _stepenb
+beq L13
+*line 154
+move.b #1,_io_leds
+*line 155
+L13:
+*line 156
+move #6,R0
+sub _stepwgt,R0
+move.b R0,_io_leds
+*line 157
+move _stepint,R0
+add #7,R0
+move.b R0,_io_leds
+bra L1
+*line 158
+*line 159
+L14:
+*line 160
+*line 161
+*line 162
+*line 163
+tst _curasg
+beq L1
+*line 164
+*line 165
+move _curasg,R0
+sub #1,R0
+ext.l R0
+divs #20,R0
+swap R0
+move.b R0,_io_leds
+bra L1
+*line 166
+*line 167
+*line 168
+L15:
+*line 169
+*line 170
+*line 171
+*line 171
+cmp #1,_gomode
+bne L16
+*line 172
+*line 173
+clr R7
+bra L19
+L20:
+*line 174
+*line 175
+move _curscor,R0
+muls #80,R0
+move R7,R1
+asl #2,R1
+ext.l R1
+add.l R1,R0
+add.l #_seclist,R0
+move.l R0,R8
+tst.l (R8)
+beq L21
+*line 175
+move.b R7,_io_leds
+*line 176
+L21:L18:
+*line 173
+add #1,R7
+L19:
+*line 173
+cmp #20,R7
+blt L20
+L17:bra L22
+L16:
+*line 177
+*line 178
+*line 179
+clr R7
+bra L25
+L26:
+*line 180
+*line 181
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_scores,R8
+tst.l (R8)
+beq L27
+*line 181
+move.b R7,_io_leds
+L27:L24:
+*line 179
+add #1,R7
+L25:
+*line 179
+cmp #20,R7
+blt L26
+L23:L22:
+*line 182
+*line 183
+bra L1
+*line 184
+*line 185
+L28:
+*line 186
+*line 187
+*line 188
+clr R7
+bra L31
+L32:
+*line 189
+*line 190
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_scores,R8
+tst.l (R8)
+beq L33
+*line 190
+move.b R7,_io_leds
+*line 191
+L33:L30:
+*line 188
+add #1,R7
+L31:
+*line 188
+cmp #20,R7
+blt L32
+L29:bra L1
+*line 192
+bra L6
+L7:cmp #7,R0
+bhi L8
+asl #2,R0
+move R0,R8
+add.l #L34,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L34:.dc.l L9
+.dc.l L12
+.dc.l L15
+.dc.l L10
+.dc.l L14
+.dc.l L28
+.dc.l L8
+.dc.l L11
+.text
+L6:L1:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _localkb
+.text
+_localkb:
+~~localkb:
+~sig=8
+link R14,#-4
+movem.l R2-R7/R13-R13,-(sp)
+~i=R7
+~trg=R6
+~lclkey=R5
+~key=R4
+~vel=R3
+~ep=R13
+~val=-2
+~disptag=-4
+*line 212
+move 8(R14),R4
+sub #1,R4
+*line 214
+move _pkctrl,R0
+bra L37
+*line 215
+L38:
+*line 216
+*line 217
+*line 218
+move R4,R8
+add.l R8,R8
+add.l #_lclkmap,R8
+move (R8),R5
+*line 219
+move R5,R6
+add #4096,R6
+*line 220
+*line 221
+*line 221
+tst _astat
+beq L39
+*line 222
+*line 223
+move _aval,R0
+muls #252,R0
+and #32736,R0
+move R6,R9
+add.l R9,R9
+add.l #_prstab,R9
+move R0,(R9)
+*line 224
+*line 225
+*line 225
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L40
+*line 226
+*line 227
+move R6,R8
+add.l #_trgtab,R8
+or.b #1,(R8)
+*line 228
+move #16128,R3
+move R6,R8
+add.l R8,R8
+add.l #_veltab,R8
+move R3,(R8)
+*line 229
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 230
+*line 231
+move R6,(sp)
+jsr _stmproc
+*line 232
+*line 233
+*line 233
+tst _editsw
+beq L41
+*line 234
+*line 235
+clr (sp)
+move _curvce,-(sp)
+move R5,R8
+add.l R8,R8
+move.l #_tuntab,R9
+move 0(R8,R9.l),-(sp)
+move R6,-(sp)
+jsr _execkey
+addq.l #6,sp
+*line 236
+bra L42
+L41:
+*line 237
+*line 238
+*line 239
+clr R7
+bra L45
+L46:
+*line 240
+*line 241
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L47
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #1,2(R8)
+bne L47
+*line 242
+*line 243
+move R3,(sp)
+move R5,-(sp)
+clr -(sp)
+move #2,-(sp)
+move R7,-(sp)
+jsr _asgvce
+addq.l #8,sp
+*line 244
+move R3,(sp)
+move R5,-(sp)
+move R7,-(sp)
+jsr _ne_bgn
+addq.l #4,sp
+*line 245
+L47:L44:
+*line 239
+add #1,R7
+L45:
+*line 239
+cmp #12,R7
+blt L46
+L43:L42:
+*line 246
+*line 247
+*line 248
+bra L48
+L40:
+*line 249
+*line 250
+*line 251
+move _aval,R0
+muls #252,R0
+and #32736,R0
+move R0,-2(R14)
+*line 252
+*line 253
+clr R7
+bra L51
+L52:
+*line 254
+*line 255
+*line 256
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L53
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #1,2(R8)
+bne L53
+*line 257
+*line 258
+*line 258
+move -2(R14),(sp)
+move #6,-(sp)
+move R7,-(sp)
+jsr _newsv
+addq.l #4,sp
+tst R0
+beq L54
+*line 259
+*line 260
+*line 261
+tst _recsw
+beq L55
+move R7,R8
+add.l R8,R8
+move.l #_grpstat,R9
+tst 0(R8,R9.l)
+beq L55
+tst _ancmsw
+beq L10000
+move R7,R8
+add.l R8,R8
+add.l #_varmode,R8
+move 160(R8),R0
+bra L10002
+L10000:move R7,R8
+add.l R8,R8
+move.l #_grpmode,R9
+move 0(R8,R9.l),R0
+L10002:cmp #2,R0
+bne L55
+*line 262
+*line 263
+*line 263
+move #6,(sp)
+jsr _e_alc
+move.l R0,R13
+move.l R13,R0
+beq L56
+*line 264
+*line 265
+move.l _t_cur,(R13)
+*line 266
+move.b #14,5(R13)
+*line 267
+move R7,R0
+or #80,R0
+move.b R0,6(R13)
+*line 268
+move -2(R14),R0
+ext.l R0
+move.l #$10,R1
+asl.l R1,R0
+move.l R0,16(R13)
+*line 269
+move.l _t_cur,(sp)
+clr -(sp)
+move.l _p_cur,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+move.l R0,(sp)
+move.l R13,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 270
+move #1,_ctrsw
+*line 271
+move #1,(sp)
+move.l #_gdstbc,-(sp)
+clr -(sp)
+move.l R13,-(sp)
+jsr _se_disp
+adda.l #10,sp
+*line 272
+clr _ctrsw
+*line 273
+*line 274
+L56:bra L57
+L55:
+*line 275
+*line 275
+move _angroup,R0
+sub #1,R0
+cmp R0,R7
+bne L58
+*line 276
+*line 277
+move #5,(sp)
+jsr _dsanval
+*line 278
+L58:L57:
+*line 279
+L54:
+*line 280
+L53:L50:
+*line 253
+add #1,R7
+L51:
+*line 253
+cmp #12,R7
+blt L52
+L49:
+*line 281
+L48:
+*line 282
+*line 283
+*line 284
+bra L59
+L39:
+*line 285
+*line 286
+*line 287
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+*line 288
+move R6,R8
+add.l #_trgtab,R8
+and.b #-2,(R8)
+*line 289
+move R6,R8
+add.l R8,R8
+add.l #_prstab,R8
+clr (R8)
+*line 290
+*line 291
+*line 291
+move.l #_trgtab,R8
+tst.b 0(R8,R6)
+bne L60
+*line 292
+*line 293
+clr R7
+bra L63
+L64:
+*line 294
+*line 295
+*line 295
+move R7,R8
+add.l R8,R8
+add.l #_vce2trg,R8
+cmp (R8),R6
+bne L65
+*line 296
+*line 297
+move R7,R8
+add.l R8,R8
+add.l #_vce2trg,R8
+move #-1,(R8)
+*line 298
+move R6,(sp)
+jsr _procpfl
+*line 299
+*line 300
+L65:
+*line 301
+*line 302
+*line 303
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #3,(R8)
+bne L66
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #1,2(R8)
+bne L66
+*line 303
+move R7,(sp)
+move R6,-(sp)
+jsr _ne_end
+addq.l #2,sp
+L66:L62:
+*line 293
+add #1,R7
+L63:
+*line 293
+cmp #12,R7
+blt L64
+L61:
+*line 304
+*line 305
+*line 306
+move R6,(sp)
+or #-32768,(sp)
+jsr _stmproc
+*line 307
+L60:L59:
+*line 308
+*line 309
+bra L35
+*line 310
+*line 311
+*line 312
+*line 313
+L67:
+*line 314
+*line 315
+*line 316
+*line 316
+tst _astat
+beq L68
+*line 317
+*line 318
+*line 318
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L69
+*line 319
+*line 320
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 321
+*line 322
+*line 322
+tst R4
+bne L70
+*line 323
+*line 324
+clr -4(R14)
+*line 325
+*line 326
+bra L73
+L72:
+*line 327
+*line 328
+move _lstendc,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_lstends,R8
+move.l (R8),R13
+*line 329
+move _lstendc,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_lstends,R8
+move.l #$0,(R8)
+*line 330
+*line 331
+*line 332
+move.l R13,R0
+beq L73
+*line 333
+*line 334
+*line 335
+cmp.l _p_bak,R13
+bne L74
+*line 335
+move.l _p_bak,R8
+move.l 8(R8),_p_bak
+*line 336
+L74:
+*line 337
+*line 338
+cmp.l _p_ctr,R13
+bne L75
+*line 338
+move.l _p_ctr,R8
+move.l 8(R8),_p_ctr
+*line 339
+L75:
+*line 340
+*line 341
+cmp.l _p_cur,R13
+bne L76
+*line 341
+move.l _p_cur,R8
+move.l 8(R8),_p_cur
+*line 342
+L76:
+*line 343
+*line 344
+cmp.l _p_fwd,R13
+bne L77
+*line 344
+move.l _p_fwd,R8
+move.l 8(R8),_p_fwd
+*line 345
+L77:
+*line 346
+move.l R13,(sp)
+jsr _e_rmv
+move.l R0,(sp)
+jsr _e_del
+*line 347
+move #1,-4(R14)
+L73:
+*line 348
+move _lstendc,R0
+sub #1,_lstendc
+tst R0
+bgt L72
+L71:
+*line 349
+*line 350
+clr _lstendc
+*line 351
+*line 352
+*line 353
+bra L80
+L79:
+*line 354
+*line 355
+move _lstbgnc,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_lstbgns,R8
+move.l (R8),R13
+*line 356
+move _lstbgnc,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_lstbgns,R8
+move.l #$0,(R8)
+*line 357
+*line 358
+*line 359
+move.l R13,R0
+beq L80
+*line 360
+*line 361
+*line 362
+cmp.l _p_bak,R13
+bne L81
+*line 362
+move.l _p_bak,R8
+move.l 8(R8),_p_bak
+*line 363
+L81:
+*line 364
+*line 365
+cmp.l _p_ctr,R13
+bne L82
+*line 365
+move.l _p_ctr,R8
+move.l 8(R8),_p_ctr
+*line 366
+L82:
+*line 367
+*line 368
+cmp.l _p_cur,R13
+bne L83
+*line 368
+move.l _p_cur,R8
+move.l 8(R8),_p_cur
+*line 369
+L83:
+*line 370
+*line 371
+cmp.l _p_fwd,R13
+bne L84
+*line 371
+move.l _p_fwd,R8
+move.l 8(R8),_p_fwd
+*line 372
+L84:
+*line 373
+move.l R13,(sp)
+jsr _e_rmv
+move.l R0,(sp)
+jsr _e_del
+*line 374
+move #1,-4(R14)
+L80:
+*line 375
+move _lstbgnc,R0
+sub #1,_lstbgnc
+tst R0
+bgt L79
+L78:
+*line 376
+*line 377
+clr _lstbgnc
+*line 378
+clr _lstflag
+*line 379
+*line 380
+*line 380
+tst -4(R14)
+beq L85
+*line 381
+*line 382
+*line 383
+move.l _fc_val,R0
+move _stepint,R9
+add.l R9,R9
+add.l #_stepfrm,R9
+move 102(R9),R1
+ext.l R1
+sub.l R1,R0
+blt L86
+*line 383
+move _stepint,R8
+add.l R8,R8
+move.l #_stepfrm,R9
+move 102(R8,R9.l),R0
+ext.l R0
+sub.l R0,_fc_val
+*line 384
+L86:
+*line 385
+move.l _fc_val,(sp)
+jsr _sc_refr
+*line 386
+*line 387
+L85:bra L87
+L70:
+*line 388
+*line 388
+cmp #1,R4
+bne L88
+*line 389
+*line 390
+tst _stepenb
+beq L10003
+clr R0
+bra L10004
+L10003:move #1,R0
+L10004:move R0,_stepenb
+*line 391
+jsr _setleds
+*line 392
+*line 393
+*line 394
+bra L89
+L88:
+*line 395
+*line 395
+cmp #2,R4
+bne L90
+*line 396
+*line 397
+*line 397
+tst _recsw
+beq L91
+*line 398
+*line 399
+*line 399
+move #5,(sp)
+jsr _e_alc
+move.l R0,R13
+move.l R13,R0
+beq L92
+*line 400
+*line 401
+move.b #23,5(R13)
+*line 402
+move.l _t_cur,(R13)
+*line 403
+move.l _t_cur,(sp)
+move #1,-(sp)
+move.l _p_cur,-(sp)
+jsr _ep_adj
+addq.l #6,sp
+move.l R0,R8
+move.l 8(R8),(sp)
+move.l R13,-(sp)
+jsr _e_ins
+addq.l #4,sp
+move.l R0,R8
+move.l 12(R8),_p_cur
+*line 404
+move.l _fc_val,(sp)
+jsr _sc_refr
+*line 405
+L92:
+*line 406
+*line 407
+L91:bra L93
+L90:
+*line 408
+*line 408
+cmp #3,R4
+bne L94
+*line 409
+*line 410
+*line 411
+move _stepint,R8
+add.l R8,R8
+move.l #_stepfrm,R9
+move 102(R8,R9.l),R0
+ext.l R0
+add.l _fc_val,R0
+cmp.l #$fffffe,R0
+bge L95
+*line 411
+move _stepint,R8
+add.l R8,R8
+move.l #_stepfrm,R9
+move 102(R8,R9.l),R0
+ext.l R0
+add.l R0,_fc_val
+*line 412
+L95:bra L96
+L94:
+*line 413
+*line 413
+cmp #4,R4
+blt L97
+cmp #6,R4
+bgt L97
+*line 414
+*line 415
+move #6,R0
+sub R4,R0
+move R0,_stepwgt
+*line 416
+jsr _setleds
+*line 417
+bra L98
+L97:
+*line 418
+*line 418
+cmp #7,R4
+blt L99
+cmp #23,R4
+bgt L99
+*line 419
+*line 420
+move R4,R0
+sub #7,R0
+move R0,_stepint
+*line 421
+jsr _setleds
+*line 422
+L99:L98:L96:L93:L89:L87:
+*line 423
+*line 424
+L69:bra L100
+L68:
+*line 425
+*line 426
+*line 427
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L100:
+*line 428
+*line 429
+bra L35
+*line 430
+*line 431
+*line 432
+*line 433
+L101:
+*line 434
+*line 435
+*line 436
+*line 436
+tst _astat
+beq L102
+*line 437
+*line 438
+*line 438
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L103
+*line 439
+*line 440
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 441
+*line 442
+*line 443
+cmp #20,R4
+bge L35
+*line 444
+*line 445
+*line 446
+cmp #1,_ismode
+bne L104
+*line 446
+move R4,(sp)
+add #1,(sp)
+jsr _selins
+*line 447
+bra L105
+L104:
+*line 448
+move R4,(sp)
+add #21,(sp)
+jsr _selins
+L105:
+*line 449
+*line 450
+L103:bra L106
+L102:
+*line 451
+*line 452
+*line 453
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L106:
+*line 454
+*line 455
+bra L35
+*line 456
+*line 457
+L107:
+*line 458
+*line 459
+*line 460
+*line 460
+tst _astat
+beq L108
+*line 461
+*line 462
+*line 462
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L109
+*line 463
+*line 464
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 465
+*line 466
+*line 467
+cmp #5,_asmode
+bne L10005
+cmp #19,R4
+bge L35
+L10005:*line 468
+*line 469
+cmp #20,R4
+bge L35
+*line 470
+*line 471
+move R4,(sp)
+move _asmode,R0
+sub #1,R0
+muls #20,R0
+add R0,(sp)
+add #1,(sp)
+jsr _selasg
+*line 472
+*line 473
+L109:bra L110
+L108:
+*line 474
+*line 475
+*line 476
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L110:
+*line 477
+*line 478
+bra L35
+*line 479
+*line 480
+*line 481
+L111:
+*line 482
+*line 483
+*line 484
+*line 484
+tst _astat
+beq L112
+*line 485
+*line 486
+*line 486
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L113
+*line 487
+*line 488
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 489
+*line 490
+*line 491
+cmp #20,R4
+bge L35
+*line 492
+*line 493
+*line 493
+cmp #1,_gomode
+bne L114
+*line 494
+*line 495
+*line 495
+move _curscor,R0
+muls #80,R0
+move R4,R1
+asl #2,R1
+ext.l R1
+add.l R1,R0
+add.l #_seclist,R0
+move.l R0,R8
+move.l (R8),R13
+move.l R13,R0
+beq L115
+*line 496
+*line 497
+*line 497
+tst _insmode
+beq L116
+*line 498
+*line 499
+jsr _icancel
+*line 500
+jsr _dsimode
+*line 501
+*line 502
+L116:
+*line 503
+move.l (R13),R0
+move.l R0,_fc_val
+move.l R0,(sp)
+jsr _sc_goto
+*line 504
+move _oldpk,_pkctrl
+*line 505
+clr _gomode
+*line 506
+move #1,(sp)
+jsr _GLCcurs
+*line 507
+move.l #L117,(sp)
+move #31,-(sp)
+clr -(sp)
+jsr _GLCtext
+addq.l #4,sp
+*line 508
+move.l #_GLCplot,_point
+*line 509
+clr (sp)
+move #54,-(sp)
+move #215,-(sp)
+move #54,-(sp)
+move #186,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 510
+clr (sp)
+jsr _GLCcurs
+*line 511
+jsr _setleds
+bra L35
+*line 512
+*line 513
+*line 514
+*line 515
+L115:bra L118
+L114:
+*line 516
+*line 517
+*line 518
+*line 518
+move R4,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_scores,R8
+tst.l (R8)
+beq L119
+*line 519
+*line 520
+*line 520
+tst _insmode
+beq L120
+*line 521
+*line 522
+jsr _icancel
+*line 523
+jsr _dsimode
+*line 524
+*line 525
+L120:
+*line 526
+move R4,(sp)
+jsr _selscor
+*line 527
+move _oldpk,_pkctrl
+*line 528
+clr _gomode
+*line 529
+move #1,(sp)
+jsr _GLCcurs
+*line 530
+move.l #L121,(sp)
+move #31,-(sp)
+clr -(sp)
+jsr _GLCtext
+addq.l #4,sp
+*line 531
+move.l #_GLCplot,_point
+*line 532
+clr (sp)
+move #54,-(sp)
+move #215,-(sp)
+move #54,-(sp)
+move #186,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 533
+clr (sp)
+jsr _GLCcurs
+*line 534
+jsr _setleds
+bra L35
+*line 535
+*line 536
+L119:L118:
+*line 537
+*line 538
+*line 539
+L113:bra L122
+L112:
+*line 540
+*line 541
+*line 542
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L122:
+*line 543
+*line 544
+bra L35
+*line 545
+*line 546
+*line 547
+L123:
+*line 548
+*line 549
+*line 550
+*line 550
+tst _astat
+beq L124
+*line 551
+*line 552
+*line 552
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L125
+*line 553
+*line 554
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 555
+*line 556
+*line 556
+cmp #-1,_lksel
+beq L126
+cmp #20,R4
+bge L126
+*line 557
+*line 558
+move #2,_ldpass
+*line 559
+*line 560
+clr R7
+bra L129
+L130:
+*line 561
+*line 561
+move R7,R8
+add.l R8,R8
+add.l #_ldmap,R8
+cmp (R8),R4
+bne L131
+*line 562
+*line 563
+move R7,R8
+add.l R8,R8
+add.l #_ldmap,R8
+move #-1,(R8)
+*line 564
+move R7,(sp)
+move 24+_ldbox,-(sp)
+jsr _dpy_scr
+addq.l #2,sp
+*line 565
+*line 566
+L131:L128:
+*line 560
+add #1,R7
+L129:
+*line 560
+cmp #20,R7
+blt L130
+L127:
+*line 567
+move _lksel,R8
+add.l R8,R8
+add.l #_ldmap,R8
+move R4,(R8)
+*line 568
+move _lksel,(sp)
+move 24+_ldbox,-(sp)
+jsr _dpy_scr
+addq.l #2,sp
+*line 569
+move #-1,_lksel
+*line 570
+L126:
+*line 571
+*line 572
+L125:bra L132
+L124:
+*line 573
+*line 574
+*line 575
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L132:
+*line 576
+*line 577
+bra L35
+*line 578
+*line 579
+*line 580
+L133:
+*line 581
+*line 582
+*line 583
+*line 583
+tst _astat
+beq L134
+*line 584
+*line 585
+*line 585
+move R4,R8
+add.l #_keystat,R8
+tst.b (R8)
+bne L135
+*line 586
+*line 587
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 588
+*line 589
+*line 589
+cmp #-1,_gtmsel
+beq L136
+cmp #12,R4
+bge L136
+*line 590
+*line 591
+clr R7
+bra L139
+L140:
+*line 592
+*line 592
+move R7,R8
+add.l R8,R8
+add.l #_grptmap,R8
+cmp (R8),R4
+bne L141
+*line 593
+*line 594
+move R7,R8
+add.l R8,R8
+add.l #_grptmap,R8
+move #-1,(R8)
+*line 595
+move R7,(sp)
+jsr _dsgtme
+*line 596
+*line 597
+L141:L138:
+*line 591
+add #1,R7
+L139:
+*line 591
+cmp #12,R7
+blt L140
+L137:
+*line 598
+move _gtmsel,R8
+add.l R8,R8
+add.l #_grptmap,R8
+move R4,(R8)
+*line 599
+clr (sp)
+move _gtmsel,-(sp)
+jsr _dsgtmn
+addq.l #2,sp
+*line 600
+move _gtmsel,(sp)
+jsr _dsgtme
+*line 601
+move #-1,_gtmsel
+*line 602
+L136:
+*line 603
+*line 604
+L135:bra L142
+L134:
+*line 605
+*line 606
+*line 607
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L142:
+*line 608
+*line 609
+bra L35
+*line 610
+*line 611
+L143:
+*line 612
+*line 613
+*line 614
+*line 615
+tst _astat
+beq L144
+*line 615
+move R4,R8
+add.l #_keystat,R8
+move.b #1,(R8)
+*line 616
+bra L145
+L144:
+*line 617
+move R4,R8
+add.l #_keystat,R8
+clr.b (R8)
+L145:
+*line 618
+bra L35
+*line 619
+bra L36
+L37:cmp #7,R0
+bhi L36
+asl #2,R0
+move R0,R8
+add.l #L146,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L146:.dc.l L38
+.dc.l L67
+.dc.l L111
+.dc.l L101
+.dc.l L107
+.dc.l L123
+.dc.l L133
+.dc.l L143
+.text
+L36:L35:tst.l (sp)+
+movem.l (sp)+,R3-R7/R13-R13
+unlk R14
+rts
+.data
+L117:.dc.b $47,$6F,$20,$54,$6F,$0
+L121:.dc.b $47,$6F,$20,$54,$6F,$0
