.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