.globl _QQsw
.globl _QQanch
.globl _QQin
.globl _QQip
.globl _QQop
.globl _QQnum
.globl _QQlnum
.globl _QQchr
.globl _QQdig
.globl _QQstr
.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 _chkstop
.data
_chkstop:
.dc.w $1
.globl _notenum
.globl _notepit
.globl _curgrp
.globl _thescore
.globl _verbose
.globl _testing
.globl _sharp
.globl _endflg
.globl _curtime
.globl _noteon
.globl _noteoff
.globl _noteval
.globl _noteper
.globl _nrest
.globl _dvwork
.globl _nlist
.data
_nlist:
*line 27
.dc.l L1
*line 27
.dc.l L2
*line 27
.dc.l L3
*line 27
.dc.l L4
*line 27
.dc.l L5
*line 27
.dc.l L6
*line 27
.dc.l L7
.dc.l $0
.globl _notetab
.data
_notetab:
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $5
.dc.w $7
.dc.w $8
.dc.w $A
.globl _octab
.data
_octab:
.dc.w $15
.dc.w $21
.dc.w $2D
.dc.w $39
.dc.w $45
.dc.w $51
.dc.w $5D
.dc.w $69
.globl _nospace
.text
_nospace:
~~nospace:
~et=8
link R14,#-4
*line 46
*line 46
tst _chkstop
beq L9
*line 47
*line 48
move.l 8(R14),(sp)
move.l #L10,-(sp)
jsr _printf
addq.l #4,sp
*line 49
jsr _xtrap15
*line 50
*line 51
jsr _SEsnap
*line 52
jsr _waitcr
*line 53
*line 54
L9:L8:unlk R14
rts
.globl _Pcheck
.text
_Pcheck:
~~Pcheck:
~ptr=8
~msg=12
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
~cval=R13
*line 75
*line 75
tst.l 8(R14)
bne L12
*line 76
*line 77
move.l 12(R14),(sp)
move.l 8(R14),-(sp)
move.l #L13,-(sp)
jsr _printf
addq.l #8,sp
*line 78
*line 79
*line 80
*line 81
tst _chkstop
beq L14
*line 81
jsr _xtrap15
*line 82
L14:
*line 83
move #-1,R0
bra L11
*line 84
*line 85
L12:
*line 86
move.l #_spool,R13
*line 88
*line 88
cmp.l 8(R14),R13
bls L15
*line 89
*line 90
move.l 12(R14),(sp)
move.l 8(R14),-(sp)
move.l #L16,-(sp)
jsr _printf
addq.l #8,sp
*line 91
*line 92
*line 93
tst _chkstop
beq L17
*line 93
jsr _xtrap15
*line 94
L17:
*line 95
move #-1,R0
bra L11
*line 96
*line 97
L15:
*line 98
move.l #131068+_spool,R13
*line 100
*line 100
cmp.l 8(R14),R13
bcc L18
*line 101
*line 102
move.l 12(R14),(sp)
move.l 8(R14),-(sp)
move.l #L19,-(sp)
jsr _printf
addq.l #8,sp
*line 103
*line 104
*line 105
tst _chkstop
beq L20
*line 105
jsr _xtrap15
*line 106
L20:
*line 107
move #-1,R0
bra L11
*line 108
*line 109
L18:
*line 110
clr R0
bra L11
L11:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _insnevt
.text
_insnevt:
~~insnevt:
~nsp=R13
~nt=12
~grp=14
~note=16
~vel=18
link R14,#0
movem.l R7-R7/R13-R13,-(sp)
*line 127
move.l 8(R14),R13
*line 127
move.l _t_cur,(R13)
*line 128
move 12(R14),R0
move.b R0,5(R13)
*line 129
move 16(R14),R0
move.b R0,6(R13)
*line 130
move 14(R14),R0
move.b R0,7(R13)
*line 131
move 18(R14),16(R13)
*line 133
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),R0
bra L21
L21:tst.l (sp)+
movem.l (sp)+,R13-R13
unlk R14
rts
.globl _Qevent
.text
_Qevent:
~~Qevent:
link R14,#-4
movem.l R2-R7/R11-R13,-(sp)
~aux1=R7
~aux2=R6
~aux3=R5
~aux4=R4
~aux5=R3
~chptr=R13
~tsp1=R12
~tsp2=R11
~tsp3=-4
*line 153
*line 154
move #33,(sp)
jsr _CMchr
tst R0
bne L23
*line 154
clr R0
move R0,_QQsw
bra L22
*line 155
L23:
*line 156
*line 156
move.l #L24,(sp)
jsr _CMustr
tst R0
beq L25
*line 157
*line 158
*line 159
move #61,(sp)
jsr _CMchr
tst R0
bne L26
*line 159
clr R0
move R0,_QQsw
bra L22
*line 160
L26:
*line 161
*line 162
jsr _CMlong
tst R0
bne L27
*line 162
clr R0
move R0,_QQsw
bra L22
*line 163
L27:
*line 164
move.l _QQnum,R0
move R0,_curgrp
*line 165
*line 166
*line 167
tst _verbose
beq L28
*line 167
move _curgrp,(sp)
move.l #L29,-(sp)
jsr _printf
addq.l #4,sp
*line 168
L28:
*line 169
move #1,R0
move R0,_QQsw
bra L22
*line 170
*line 171
*line 172
*line 173
L25:
*line 174
*line 174
move.l #L30,(sp)
jsr _CMustr
tst R0
beq L31
*line 175
*line 176
*line 177
move #61,(sp)
jsr _CMchr
tst R0
bne L32
*line 177
clr R0
move R0,_QQsw
bra L22
*line 178
L32:
*line 179
*line 179
move.l #L33,(sp)
jsr _CMustr
tst R0
beq L34
*line 180
*line 181
*line 181
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L35
*line 182
*line 183
move.l #L36,(sp)
jsr _nospace
*line 184
clr R0
move R0,_QQsw
bra L22
*line 185
*line 186
L35:
*line 187
move.l _t_cur,(R12)
*line 188
move.b #11,5(R12)
*line 189
move _curgrp,R0
move.b R0,6(R12)
*line 190
move.b #1,7(R12)
*line 191
*line 192
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 193
move #1,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 194
*line 195
*line 196
tst _verbose
beq L37
*line 197
move _curgrp,(sp)
move.l _t_cur,-(sp)
move.l #L38,-(sp)
jsr _printf
addq.l #8,sp
L37:
*line 198
move #1,R0
move R0,_QQsw
bra L22
*line 199
bra L39
L34:
*line 200
*line 200
move.l #L40,(sp)
jsr _CMustr
tst R0
beq L41
*line 201
*line 202
*line 202
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L42
*line 203
*line 204
move.l #L43,(sp)
jsr _nospace
*line 205
clr R0
move R0,_QQsw
bra L22
*line 206
*line 207
L42:
*line 208
move.l _t_cur,(R12)
*line 209
move.b #11,5(R12)
*line 210
move _curgrp,R0
move.b R0,6(R12)
*line 211
clr.b 7(R12)
*line 212
*line 213
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 214
move #1,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 215
*line 216
*line 217
tst _verbose
beq L44
*line 218
move _curgrp,(sp)
move.l _t_cur,-(sp)
move.l #L45,-(sp)
jsr _printf
addq.l #8,sp
L44:
*line 219
move #1,R0
move R0,_QQsw
bra L22
*line 220
*line 221
bra L46
L41:
*line 222
clr R0
move R0,_QQsw
bra L22
L46:L39:
*line 223
*line 224
*line 225
*line 226
L31:
*line 227
*line 227
move.l #L47,(sp)
jsr _CMustr
tst R0
beq L48
*line 228
*line 229
*line 230
move #61,(sp)
jsr _CMchr
tst R0
bne L49
*line 230
clr R0
move R0,_QQsw
bra L22
*line 231
L49:
*line 232
*line 233
jsr _CMlong
tst R0
bne L50
*line 233
clr R0
move R0,_QQsw
bra L22
*line 234
L50:
*line 235
move.l _QQnum,R0
move R0,R7
*line 236
*line 237
*line 237
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L51
*line 238
*line 239
move.l #L52,(sp)
jsr _nospace
*line 240
clr R0
move R0,_QQsw
bra L22
*line 241
*line 242
L51:
*line 243
move.l _t_cur,(R12)
*line 244
move.b #9,5(R12)
*line 245
move.b R7,6(R12)
*line 246
*line 247
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 248
move #7,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 249
*line 250
*line 251
tst _verbose
beq L53
*line 251
move R7,(sp)
move.l _t_cur,-(sp)
move.l #L54,-(sp)
jsr _printf
addq.l #8,sp
L53:
*line 252
move #1,R0
move R0,_QQsw
bra L22
*line 253
*line 254
*line 255
L48:
*line 256
*line 256
move.l #L55,(sp)
jsr _CMustr
tst R0
beq L56
*line 257
*line 258
*line 259
move #61,(sp)
jsr _CMchr
tst R0
bne L57
*line 259
clr R0
move R0,_QQsw
bra L22
*line 260
L57:
*line 261
*line 262
jsr _CMlong
tst R0
bne L58
*line 262
clr R0
move R0,_QQsw
bra L22
*line 263
L58:
*line 264
move.l _QQnum,R0
move R0,R7
*line 265
*line 266
*line 266
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L59
*line 267
*line 268
move.l #L60,(sp)
jsr _nospace
*line 269
clr R0
move R0,_QQsw
bra L22
*line 270
*line 271
L59:
*line 272
move.l _t_cur,(R12)
*line 273
move.b #4,5(R12)
*line 274
move _curgrp,R0
move.b R0,6(R12)
*line 275
move.b R7,7(R12)
*line 276
*line 277
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 278
clr (sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 279
*line 280
*line 281
tst _verbose
beq L61
*line 282
move R7,(sp)
move _curgrp,-(sp)
move.l _t_cur,-(sp)
move.l #L62,-(sp)
jsr _printf
adda.l #10,sp
L61:
*line 283
move #1,R0
move R0,_QQsw
bra L22
*line 284
*line 285
*line 286
L56:
*line 287
*line 287
move.l #L63,(sp)
jsr _CMustr
tst R0
beq L64
*line 288
*line 289
*line 290
move #61,(sp)
jsr _CMchr
tst R0
bne L65
*line 290
clr R0
move R0,_QQsw
bra L22
*line 291
L65:
*line 292
*line 293
jsr _CMlong
tst R0
bne L66
*line 293
clr R0
move R0,_QQsw
bra L22
*line 294
L66:
*line 295
move.l _QQnum,R0
move R0,R7
*line 296
*line 297
*line 297
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L67
*line 298
*line 299
move.l #L68,(sp)
jsr _nospace
*line 300
clr R0
move R0,_QQsw
bra L22
*line 301
*line 302
L67:
*line 303
move.l _t_cur,(R12)
*line 304
move.b #10,5(R12)
*line 305
move.b R7,6(R12)
*line 306
*line 307
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 308
move #8,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 309
*line 310
*line 311
tst _verbose
beq L69
*line 311
move R7,(sp)
move.l _t_cur,-(sp)
move.l #L70,-(sp)
jsr _printf
addq.l #8,sp
L69:
*line 312
move #1,R0
move R0,_QQsw
bra L22
*line 313
*line 314
*line 315
L64:
*line 316
*line 316
move.l #L71,(sp)
jsr _CMustr
tst R0
beq L72
*line 317
*line 318
*line 319
move #61,(sp)
jsr _CMchr
tst R0
bne L73
*line 319
clr R0
move R0,_QQsw
bra L22
*line 320
L73:
*line 321
*line 321
move #43,(sp)
jsr _CMchr
tst R0
beq L74
*line 322
bra L75
L74:
*line 323
*line 323
move #45,(sp)
jsr _CMchr
tst R0
beq L76
*line 324
*line 325
bra L77
L76:
*line 326
clr R0
move R0,_QQsw
bra L22
L77:L75:
*line 327
*line 328
*line 329
jsr _CMlong
tst R0
bne L78
*line 329
clr R0
move R0,_QQsw
bra L22
*line 330
L78:
*line 331
move.l _QQnum,R0
move R0,R7
*line 332
*line 333
*line 334
cmp.b #45,_QQchr
bne L79
*line 334
move R7,R0
neg R0
move R0,R7
*line 335
L79:
*line 336
*line 336
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L80
*line 337
*line 338
move.l #L81,(sp)
jsr _nospace
*line 339
clr R0
move R0,_QQsw
bra L22
*line 340
*line 341
L80:
*line 342
move.l _t_cur,(R12)
*line 343
move.b #17,5(R12)
*line 344
move _curgrp,R0
move.b R0,6(R12)
*line 345
move R7,R8
move.l R8,24(R12)
*line 346
*line 347
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 348
move #5,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 349
*line 350
*line 351
tst _verbose
beq L82
*line 352
move R7,(sp)
move.l _t_cur,-(sp)
move.l #L83,-(sp)
jsr _printf
addq.l #8,sp
L82:
*line 353
move #1,R0
move R0,_QQsw
bra L22
*line 354
*line 355
*line 356
L72:
*line 357
*line 357
move.l #L84,(sp)
jsr _CMustr
tst R0
beq L85
*line 358
*line 359
*line 360
move #61,(sp)
jsr _CMchr
tst R0
bne L86
*line 360
clr R0
move R0,_QQsw
bra L22
*line 361
L86:
*line 362
*line 363
jsr _CMlong
tst R0
bne L87
*line 363
clr R0
move R0,_QQsw
bra L22
*line 364
L87:
*line 365
move.l _QQnum,R0
move R0,R7
*line 366
*line 367
*line 367
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L88
*line 368
*line 369
move.l #L89,(sp)
jsr _nospace
*line 370
clr R0
move R0,_QQsw
bra L22
*line 371
*line 372
L88:
*line 373
move.l _t_cur,(R12)
*line 374
move.b #13,5(R12)
*line 375
move _curgrp,R0
move.b R0,6(R12)
*line 376
move.b R7,7(R12)
*line 377
*line 378
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 379
move #3,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 380
*line 381
*line 382
tst _verbose
beq L90
*line 382
move R7,(sp)
move.l _t_cur,-(sp)
move.l #L91,-(sp)
jsr _printf
addq.l #8,sp
L90:
*line 383
move #1,R0
move R0,_QQsw
bra L22
*line 384
*line 385
*line 386
L85:
*line 387
*line 387
move.l #L92,(sp)
jsr _CMustr
tst R0
beq L93
*line 388
*line 389
*line 390
move #61,(sp)
jsr _CMchr
tst R0
bne L94
*line 390
clr R0
move R0,_QQsw
bra L22
*line 391
L94:
*line 392
*line 393
jsr _CMlong
tst R0
bne L95
*line 393
clr R0
move R0,_QQsw
bra L22
*line 394
L95:
*line 395
move.l _QQnum,R0
move R0,R7
*line 396
*line 397
*line 397
move #6,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L96
*line 398
*line 399
move.l #L97,(sp)
jsr _nospace
*line 400
clr R0
move R0,_QQsw
bra L22
*line 401
*line 402
L96:
*line 403
move.l _t_cur,(R12)
*line 404
move.b #12,5(R12)
*line 405
move _curgrp,R0
move.b R0,6(R12)
*line 406
move.b R7,7(R12)
*line 407
*line 408
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 409
move #2,(sp)
move.l R12,-(sp)
jsr _eh_ins
addq.l #4,sp
*line 410
*line 411
*line 412
tst _verbose
beq L98
*line 412
move R7,(sp)
move.l _t_cur,-(sp)
move.l #L99,-(sp)
jsr _printf
addq.l #8,sp
L98:
*line 413
move #1,R0
move R0,_QQsw
bra L22
*line 414
*line 415
*line 416
L93:
*line 417
*line 417
move.l #L100,(sp)
jsr _CMustr
tst R0
beq L101
*line 418
*line 419
*line 420
jsr _CMlong
tst R0
bne L102
*line 420
clr R0
move R0,_QQsw
bra L22
*line 421
L102:
*line 422
move.l #$30,-(sp)
move.l _QQnum,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,_curtime
*line 423
*line 424
*line 425
move #64,(sp)
jsr _CMchr
tst R0
bne L103
*line 425
clr R0
move R0,_QQsw
bra L22
*line 426
L103:
*line 427
*line 428
jsr _CMlong
tst R0
bne L104
*line 428
clr R0
move R0,_QQsw
bra L22
*line 429
L104:
*line 430
move.l _QQnum,R0
add.l R0,_curtime
move.l _curtime,(sp)
jsr _sc_goto
*line 431
*line 432
*line 433
tst _verbose
beq L105
*line 433
move.l _t_cur,(sp)
move.l #L106,-(sp)
jsr _printf
addq.l #4,sp
*line 434
L105:
*line 435
move #1,R0
move R0,_QQsw
bra L22
*line 436
*line 437
*line 438
*line 439
*line 440
L101:
*line 441
*line 441
move.l #L107,(sp)
jsr _CMustr
tst R0
beq L108
*line 442
*line 443
*line 444
move #61,(sp)
jsr _CMchr
tst R0
bne L109
*line 444
clr R0
move R0,_QQsw
bra L22
*line 445
L109:
*line 446
*line 447
jsr _CMlong
tst R0
bne L110
*line 447
clr R0
move R0,_QQsw
bra L22
*line 448
L110:
*line 449
move.l #$30,-(sp)
move.l _QQnum,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,_curtime
*line 450
*line 451
*line 452
move #64,(sp)
jsr _CMchr
tst R0
bne L111
*line 452
clr R0
move R0,_QQsw
bra L22
*line 453
L111:
*line 454
*line 455
jsr _CMlong
tst R0
bne L112
*line 455
clr R0
move R0,_QQsw
bra L22
*line 456
L112:
*line 457
move.l _QQnum,R0
add.l R0,_curtime
move.l _curtime,_t_cur
*line 458
clr (sp)
move.l _t_cur,-(sp)
jsr _frfind
addq.l #4,sp
move.l R0,_p_cur
*line 459
*line 460
*line 461
tst _verbose
beq L113
*line 461
move.l _t_cur,(sp)
move.l #L114,-(sp)
jsr _printf
addq.l #4,sp
*line 462
L113:
*line 463
move #1,R0
move R0,_QQsw
bra L22
*line 464
*line 465
*line 466
L108:
*line 467
*line 467
move.l #L115,(sp)
jsr _CMustr
tst R0
beq L116
*line 468
*line 469
*line 470
move #61,(sp)
jsr _CMchr
tst R0
bne L117
*line 470
clr R0
move R0,_QQsw
bra L22
*line 471
L117:
*line 472
*line 473
jsr _CMlong
tst R0
bne L118
*line 473
clr R0
move R0,_QQsw
bra L22
*line 474
L118:
*line 475
move.l #$30,-(sp)
move.l _QQnum,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,_t_cur
*line 476
clr (sp)
move.l _t_cur,-(sp)
jsr _frfind
addq.l #4,sp
move.l R0,_p_cur
*line 477
*line 478
*line 479
tst _verbose
beq L119
*line 479
move.l _t_cur,(sp)
move.l #L120,-(sp)
jsr _printf
addq.l #4,sp
*line 480
L119:
*line 481
move #1,R0
move R0,_QQsw
bra L22
*line 482
*line 483
*line 484
L116:
*line 485
*line 485
move.l #L121,(sp)
jsr _CMustr
tst R0
beq L122
*line 486
*line 487
*line 488
move #61,(sp)
jsr _CMchr
tst R0
bne L123
*line 488
clr R0
move R0,_QQsw
bra L22
*line 489
L123:
*line 490
*line 491
jsr _CMlong
tst R0
bne L124
*line 491
clr R0
move R0,_QQsw
bra L22
*line 492
L124:
*line 493
move.l _QQnum,_t_cur
*line 494
clr (sp)
move.l _t_cur,-(sp)
jsr _frfind
addq.l #4,sp
move.l R0,_p_cur
*line 495
*line 496
*line 497
tst _verbose
beq L125
*line 497
move.l _t_cur,(sp)
move.l #L126,-(sp)
jsr _printf
addq.l #4,sp
*line 498
L125:
*line 499
move #1,R0
move R0,_QQsw
bra L22
*line 500
*line 501
*line 502
L122:
*line 503
*line 503
move.l #L127,(sp)
jsr _CMustr
tst R0
beq L128
*line 504
*line 505
*line 506
move #61,(sp)
jsr _CMchr
tst R0
bne L129
*line 506
clr R0
move R0,_QQsw
bra L22
*line 507
L129:
*line 508
*line 509
jsr _CMlong
tst R0
bne L130
*line 509
clr R0
move R0,_QQsw
bra L22
*line 510
L130:
*line 511
*line 512
cmp.l #$7f,_QQnum
ble L131
*line 512
clr R0
move R0,_QQsw
bra L22
*line 513
L131:
*line 514
move.l _QQnum,R0
move R0,_thescore
*line 515
*line 516
move _thescore,(sp)
jsr _selscor
*line 517
*line 518
*line 519
tst _verbose
beq L132
*line 519
move _thescore,(sp)
move.l #L133,-(sp)
jsr _printf
addq.l #4,sp
L132:
*line 520
move #1,R0
move R0,_QQsw
bra L22
*line 521
*line 522
*line 523
L128:
*line 524
*line 524
move.l #L134,(sp)
jsr _CMustr
tst R0
beq L135
*line 525
*line 526
*line 527
move #61,(sp)
jsr _CMchr
tst R0
bne L136
*line 527
clr R0
move R0,_QQsw
bra L22
*line 528
L136:
*line 529
*line 530
jsr _CMlong
tst R0
bne L137
*line 530
clr R0
move R0,_QQsw
bra L22
*line 531
L137:
*line 532
*line 533
cmp.l #$64,_QQnum
ble L138
*line 533
clr R0
move R0,_QQsw
bra L22
*line 534
L138:
*line 535
move.l _QQnum,_noteper
*line 536
*line 537
*line 538
tst _verbose
beq L139
*line 538
move.l _noteper,(sp)
move.l #L140,-(sp)
jsr _printf
addq.l #4,sp
*line 539
L139:
*line 540
move #1,R0
move R0,_QQsw
bra L22
*line 541
*line 542
L135:
*line 543
*line 543
move.l #L141,(sp)
jsr _CMustr
tst R0
beq L142
*line 544
*line 545
jsr _SEsnap
*line 546
move #1,R0
move R0,_QQsw
bra L22
*line 547
*line 548
L142:
*line 549
*line 549
move.l #L143,(sp)
jsr _CMustr
tst R0
beq L144
*line 550
*line 551
jsr _waitcr
*line 552
move #1,R0
move R0,_QQsw
bra L22
*line 553
*line 554
L144:
*line 555
*line 555
move.l #L145,(sp)
jsr _CMustr
tst R0
beq L146
*line 556
*line 557
*line 557
move #5,(sp)
jsr _e_alc
move.l R0,R12
move.l R12,R0
bne L147
*line 558
*line 559
move.l #L148,(sp)
jsr _nospace
*line 560
clr R0
move R0,_QQsw
bra L22
*line 561
*line 562
L147:
*line 563
move.l _t_cur,(R12)
*line 564
move.b #7,5(R12)
*line 565
*line 566
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 R12,-(sp)
jsr _e_ins
addq.l #4,sp
move.l R0,R8
move.l 12(R8),_p_cur
*line 567
*line 568
*line 569
tst _verbose
beq L149
*line 569
move.l _t_cur,(sp)
move.l #L150,-(sp)
jsr _printf
addq.l #4,sp
L149:
*line 570
move #1,R0
move R0,_QQsw
bra L22
*line 571
*line 572
*line 573
L146:
*line 574
*line 574
move.l #L151,(sp)
jsr _CMustr
tst R0
beq L152
*line 575
*line 576
*line 576
jsr _CMlong
tst R0
beq L153
*line 577
*line 578
move.l _QQnum,R0
move R0,R7
*line 579
move R7,(sp)
jsr _sc_clr
*line 580
*line 581
*line 582
tst _verbose
beq L154
*line 582
move R7,(sp)
move.l #L155,-(sp)
jsr _printf
addq.l #4,sp
*line 583
L154:
*line 584
move #1,R0
move R0,_QQsw
bra L22
*line 585
*line 586
L153:
*line 587
*line 587
move #42,(sp)
jsr _CMchr
tst R0
beq L156
*line 588
*line 589
jsr _scinit
*line 590
*line 591
*line 592
tst _verbose
beq L157
*line 592
move.l #L158,(sp)
jsr _printf
*line 593
L157:
*line 594
move #1,R0
move R0,_QQsw
bra L22
*line 595
*line 596
L156:
*line 597
*line 597
move #36,(sp)
jsr _CMchr
tst R0
beq L159
*line 598
*line 599
move _curscor,(sp)
jsr _sc_clr
*line 600
*line 601
*line 602
tst _verbose
beq L160
*line 602
move _curscor,(sp)
move.l #L161,-(sp)
jsr _printf
addq.l #4,sp
*line 603
L160:
*line 604
move #1,R0
move R0,_QQsw
bra L22
*line 605
*line 606
L159:
*line 607
clr R0
move R0,_QQsw
bra L22
*line 608
*line 609
*line 610
L152:
*line 611
*line 611
move.l #L162,(sp)
jsr _CMustr
tst R0
beq L163
*line 612
*line 613
*line 613
move.l #L164,(sp)
jsr _CMustr
tst R0
beq L165
*line 614
*line 615
move.l #L166,(sp)
jsr _printf
*line 616
clr R6
move R6,R7
*line 617
*line 618
clr R5
bra L169
L170:
*line 619
*line 620
move.l #L171,(sp)
jsr _printf
*line 621
*line 622
clr R4
bra L174
L175:
*line 623
*line 624
*line 624
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_scores,R9
tst.l 0(R8,R9.l)
beq L176
*line 625
*line 626
move R7,(sp)
move.l #L177,-(sp)
jsr _printf
addq.l #4,sp
*line 627
add #1,R6
*line 628
bra L178
L176:
*line 629
*line 630
*line 631
move.l #L179,(sp)
jsr _printf
L178:
*line 632
*line 633
*line 634
add #1,R7
L173:
*line 622
add #1,R4
L174:
*line 622
cmp #16,R4
blt L175
L172:
*line 635
*line 636
*line 637
move.l #L180,(sp)
jsr _printf
L168:
*line 618
add #1,R5
L169:
*line 618
cmp #4,R5
blt L170
L167:
*line 638
*line 639
*line 640
*line 641
move _curscor,(sp)
move R6,-(sp)
move.l #L181,-(sp)
jsr _printf
addq.l #6,sp
*line 642
move #1,R0
move R0,_QQsw
bra L22
*line 643
*line 644
*line 645
L165:
*line 646
*line 646
move.l #L182,(sp)
jsr _CMustr
tst R0
beq L183
*line 647
*line 648
move.l #L184,(sp)
jsr _printf
*line 649
clr R6
*line 650
*line 651
clr R7
bra L187
L188:
*line 652
*line 653
*line 653
move R7,R8
add.l R8,R8
add.l R8,R8
add.l #_scores,R8
tst.l (R8)
beq L189
*line 654
*line 655
move R7,(sp)
move.l #L190,-(sp)
jsr _printf
addq.l #4,sp
*line 656
move R7,R0
asl #4,R0
ext.l R0
move.l R0,R13
add.l #_scname,R13
*line 657
*line 658
move.l R13,(sp)
move R7,R8
add.l R8,R8
add.l R8,R8
move.l #_scores,R9
move.l 0(R8,R9.l),-(sp)
move.l #L191,-(sp)
jsr _printf
addq.l #8,sp
*line 659
*line 660
clr R5
bra L194
L195:
*line 661
move.b (R13)+,R0
ext.w R0
move R0,(sp) 
and #255,(sp)
move.l #L196,-(sp)
jsr _printf
addq.l #4,sp
L193:
*line 660
add #1,R5
L194:
*line 660
cmp #16,R5
blt L195
L192:
*line 661
*line 662
*line 663
move.l #L197,(sp)
jsr _printf
*line 664
add #1,R6
*line 665
L189:L186:
*line 651
add #1,R7
L187:
*line 651
cmp #128,R7
blt L188
L185:
*line 666
*line 667
*line 668
*line 669
move _curscor,(sp)
move R6,-(sp)
move.l #L198,-(sp)
jsr _printf
addq.l #6,sp
*line 670
*line 671
move #1,R0
move R0,_QQsw
bra L22
*line 672
*line 673
*line 674
L183:
*line 675
*line 675
move.l #L199,(sp)
jsr _CMustr
tst R0
beq L200
*line 676
*line 677
move.l #L201,(sp)
jsr _printf
*line 678
clr R6
move R6,R7
*line 679
*line 680
clr R5
bra L204
L205:
*line 681
*line 682
move.l #L206,(sp)
jsr _printf
*line 683
*line 684
clr R4
bra L209
L210:
*line 685
*line 686
*line 686
move _curscor,R0
muls #80,R0
move R7,R1
asl #2,R1
ext.l R1
add.l R1,R0
move.l R0,R8
move.l #_seclist,R9
tst.l 0(R8,R9.l)
beq L211
*line 687
*line 688
move R7,(sp)
move.l #L212,-(sp)
jsr _printf
addq.l #4,sp
*line 689
add #1,R6
*line 690
bra L213
L211:
*line 691
*line 692
*line 693
move.l #L214,(sp)
jsr _printf
L213:
*line 694
*line 695
*line 696
add #1,R7
L208:
*line 684
add #1,R4
L209:
*line 684
cmp #10,R4
blt L210
L207:
*line 697
*line 698
*line 699
move.l #L215,(sp)
jsr _printf
L203:
*line 680
add #1,R5
L204:
*line 680
cmp #5,R5
blt L205
L202:
*line 700
*line 701
*line 702
*line 703
move _cursect,(sp)
move R6,-(sp)
move.l #L216,-(sp)
jsr _printf
addq.l #6,sp
*line 704
move #1,R0
move R0,_QQsw
bra L22
*line 705
*line 706
L200:
*line 707
clr R0
move R0,_QQsw
bra L22
*line 708
*line 709
*line 710
L163:
*line 711
*line 711
move.l #L217,(sp)
jsr _CMustr
tst R0
beq L218
*line 712
*line 713
*line 714
move #108,(sp)
jsr _CMuchr
tst R0
beq L219
*line 714
move #1,R7
bra L220
L219:
*line 715
*line 716
move #114,(sp)
jsr _CMuchr
tst R0
beq L221
*line 716
clr R7
*line 717
bra L222
L221:
*line 718
clr R0
move R0,_QQsw
bra L22
L222:L220:
*line 719
*line 720
*line 721
jsr _CMlong
tst R0
bne L223
*line 721
clr R0
move R0,_QQsw
bra L22
*line 722
L223:
*line 723
move R7,(sp)
move.l _QQnum,-(sp)
jsr _frfind
addq.l #4,sp
move.l R0,R12
*line 724
*line 725
*line 725
move.l R12,R0
beq L224
*line 726
*line 727
*line 728
tst _verbose
beq L225
*line 729
move.l R12,(sp)
move.l _QQnum,-(sp)
move.l #L226,-(sp)
jsr _printf
addq.l #8,sp
*line 730
L225:
*line 731
move.l R12,_p_cur
*line 732
move.l _QQnum,_t_cur
*line 733
bra L227
L224:
*line 734
*line 735
*line 736
*line 737
tst _verbose
beq L228
*line 737
move.l #L229,(sp)
jsr _printf
*line 738
L228:
*line 739
clr R0
move R0,_QQsw
bra L22
L227:
*line 740
*line 741
*line 742
move #1,R0
move R0,_QQsw
bra L22
*line 743
*line 744
*line 745
L218:
*line 746
*line 746
move.l #L230,(sp)
jsr _CMustr
tst R0
beq L231
*line 747
*line 748
*line 748
move.l _p_cur,R12
move.l R12,R0
bne L232
*line 749
*line 750
move.l #L233,(sp)
jsr _printf
*line 751
clr R0
move R0,_QQsw
bra L22
*line 752
*line 753
L232:
*line 754
move.l R12,R11
*line 755
*line 756
bra L236
L235:
*line 757
*line 758
move.l #_spool,-4(R14)
*line 759
*line 760
*line 760
cmp.l -4(R14),R11
bcc L237
*line 761
*line 762
move.l #L238,(sp)
jsr _printf
*line 763
move.l R11,(sp)
move.l #L239,-(sp)
jsr _printf
addq.l #4,sp
*line 764
*line 765
move.l _pspool,(sp)
move.l #_spool,-(sp)
move.l #L240,-(sp)
jsr _printf
addq.l #8,sp
*line 766
clr R0
move R0,_QQsw
bra L22
*line 767
*line 768
L237:
*line 769
move.l #131068+_spool,-4(R14)
*line 770
*line 771
*line 771
cmp.l -4(R14),R11
bls L241
*line 772
*line 773
move.l #L242,(sp)
jsr _printf
*line 774
move.l R11,(sp)
move.l #L243,-(sp)
jsr _printf
addq.l #4,sp
*line 775
*line 776
move.l _pspool,(sp)
move.l #_spool,-(sp)
move.l #L244,-(sp)
jsr _printf
addq.l #8,sp
*line 777
clr R0
move R0,_QQsw
bra L22
*line 778
*line 779
L241:
*line 780
move.l R11,(sp)
jsr _SEdump
*line 781
move.l 12(R11),R11
*line 782
*line 783
*line 784
cmp.l R11,R12
beq L10000
cmp.b #1,5(R11)
bne L245
L10000:*line 785
*line 786
move.l #L246,(sp)
jsr _printf
bra L234
*line 787
*line 788
L245:L236:
*line 789
move.l R11,R0
bne L235
L234:
*line 790
*line 791
move #1,R0
move R0,_QQsw
bra L22
*line 792
*line 793
*line 794
L231:
*line 795
*line 795
move.l #L247,(sp)
jsr _CMustr
tst R0
beq L248
*line 796
*line 797
move #1,_verbose
*line 798
move #1,R0
move R0,_QQsw
bra L22
*line 799
*line 800
L248:
*line 801
*line 801
move.l #L249,(sp)
jsr _CMustr
tst R0
beq L250
*line 802
*line 803
clr _verbose
*line 804
move #1,R0
move R0,_QQsw
bra L22
*line 805
*line 806
L250:
*line 807
*line 807
move.l #L251,(sp)
jsr _CMustr
tst R0
beq L252
*line 808
*line 809
move #1,_testing
*line 810
move #1,R0
move R0,_QQsw
bra L22
*line 811
*line 812
L252:
*line 813
*line 813
move.l #L253,(sp)
jsr _CMustr
tst R0
beq L254
*line 814
*line 815
clr _testing
*line 816
move #1,R0
move R0,_QQsw
bra L22
*line 817
*line 818
L254:
*line 819
*line 819
move.l #L255,(sp)
jsr _CMustr
tst R0
beq L256
*line 820
*line 821
*line 822
tst _verbose
beq L257
*line 822
move.l #L258,(sp)
jsr _printf
*line 823
L257:
*line 824
move #1,_endflg
*line 825
move #1,R0
move R0,_QQsw
bra L22
*line 826
*line 827
L256:
*line 828
clr R0
move R0,_QQsw
bra L22
L22:tst.l (sp)+
movem.l (sp)+,R3-R7/R11-R13
unlk R14
rts
.globl _Qnote
.text
_Qnote:
~~Qnote:
link R14,#-8
~nsp1=-4
*line 848
*line 848
move #114,(sp)
jsr _CMuchr
tst R0
beq L260
*line 849
*line 850
*line 851
jsr _CMlong
tst R0
bne L261
*line 851
clr R0
move R0,_QQsw
bra L259
*line 852
L261:
*line 853
move.l _QQnum,_nrest
*line 854
*line 855
*line 856
move #47,(sp)
jsr _CMchr
tst R0
bne L262
*line 856
clr R0
move R0,_QQsw
bra L259
*line 857
L262:
*line 858
*line 859
jsr _CMlong
tst R0
bne L263
*line 859
clr R0
move R0,_QQsw
bra L259
*line 860
L263:
*line 861
move.l #$c0,_dvwork
*line 862
move.l _QQnum,-(sp)
move.l _dvwork,-(sp)
jsr ldiv
addq.l #8,sp
move.l R0,_noteval
*line 863
move.l _nrest,-(sp)
move.l _noteval,-(sp)
jsr lmul
addq.l #8,sp
add.l R0,_t_cur
*line 864
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 865
*line 866
*line 867
tst _verbose
beq L264
*line 867
move.l _t_cur,(sp)
move.l #L265,-(sp)
jsr _printf
addq.l #4,sp
*line 868
L264:
*line 869
move #1,R0
move R0,_QQsw
bra L259
*line 870
*line 871
*line 872
L260:
*line 873
*line 874
move.l #_nlist,(sp)
jsr _CMulist
tst R0
bne L266
*line 874
clr R0
move R0,_QQsw
bra L259
*line 875
L266:
*line 876
move _QQlnum,_notepit
*line 878
*line 879
move #35,(sp)
jsr _CMchr
tst R0
beq L267
*line 879
move #1,_sharp
*line 880
bra L268
L267:
*line 881
clr _sharp
L268:
*line 883
*line 884
jsr _CMdig
tst R0
bne L269
*line 884
clr R0
move R0,_QQsw
bra L259
*line 885
L269:
*line 886
*line 887
cmp.b #55,_QQdig
ble L270
*line 887
clr R0
move R0,_QQsw
bra L259
*line 888
L270:
*line 889
move.b _QQdig,R0
ext.w R0
add #-48,R0
move R0,R8
add.l R8,R8
move.l #_octab,R9
move 0(R8,R9.l),R0
move _notepit,R9
add.l R9,R9
add.l #_notetab,R9
move (R9),R1
add R1,R0
add _sharp,R0
move R0,_notenum
*line 891
*line 891
move #43,(sp)
jsr _CMchr
tst R0
beq L271
*line 892
*line 893
*line 893
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L272
*line 894
*line 895
move.l #L273,(sp)
jsr _nospace
*line 896
clr R0
move R0,_QQsw
bra L259
*line 897
*line 898
L272:
*line 899
move.l _t_cur,_noteon
*line 900
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #5,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
move.l R0,_p_cur
*line 901
*line 902
*line 903
tst _verbose
beq L274
*line 903
move _notenum,(sp)
move.l _noteon,-(sp)
move.l #L275,-(sp)
jsr _printf
addq.l #8,sp
*line 904
L274:
*line 905
move #1,R0
move R0,_QQsw
bra L259
*line 906
*line 907
*line 908
L271:
*line 909
*line 909
move #45,(sp)
jsr _CMchr
tst R0
beq L276
*line 910
*line 911
*line 911
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L277
*line 912
*line 913
move.l #L278,(sp)
jsr _nospace
*line 914
clr R0
move R0,_QQsw
bra L259
*line 915
*line 916
L277:
*line 917
move.l _t_cur,_noteoff
*line 918
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #6,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
move.l R0,_p_cur
*line 919
*line 920
*line 921
tst _verbose
beq L279
*line 921
move _notenum,(sp)
move.l _noteoff,-(sp)
move.l #L280,-(sp)
jsr _printf
addq.l #8,sp
*line 922
L279:
*line 923
move #1,R0
move R0,_QQsw
bra L259
*line 924
*line 925
*line 926
L276:
*line 927
*line 927
move #47,(sp)
jsr _CMchr
tst R0
beq L281
*line 928
*line 929
*line 930
jsr _CMlong
tst R0
bne L282
*line 930
clr R0
move R0,_QQsw
bra L259
*line 931
L282:
*line 932
move.l #$c0,_dvwork
*line 933
move.l _QQnum,-(sp)
move.l _dvwork,-(sp)
jsr ldiv
addq.l #8,sp
move.l R0,_noteval
*line 934
move.l _t_cur,_noteon
*line 935
move.l #$64,_dvwork
*line 936
move.l _dvwork,-(sp)
move.l _noteval,-(sp)
move.l _noteper,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,-(sp)
jsr ldiv
addq.l #8,sp
add.l _t_cur,R0
move.l R0,_noteoff
*line 937
*line 938
*line 938
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L283
*line 939
*line 940
move.l #L284,(sp)
jsr _nospace
*line 941
clr R0
move R0,_QQsw
bra L259
*line 942
*line 943
L283:
*line 944
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #5,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
move.l R0,_p_cur
*line 945
*line 946
*line 946
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L285
*line 947
*line 948
move.l #L286,(sp)
jsr _nospace
*line 949
clr R0
move R0,_QQsw
bra L259
*line 950
*line 951
L285:
*line 952
move.l _noteoff,R0
move.l R0,_t_cur
move.l R0,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 953
*line 954
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #6,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
*line 955
*line 956
move.l _noteon,R0
move.l R0,_t_cur
move.l R0,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 957
*line 958
*line 959
tst _verbose
beq L287
*line 960
move.l _noteoff,(sp)
move.l _noteon,-(sp)
move _notenum,-(sp)
move.l _t_cur,-(sp)
move.l #L288,-(sp)
jsr _printf
adda.l #14,sp
*line 961
L287:
*line 962
move #1,R0
move R0,_QQsw
bra L259
*line 963
*line 964
*line 965
*line 966
*line 967
L281:
*line 968
move.l _t_cur,_noteon
*line 969
move.l #$64,_dvwork
*line 970
move.l _dvwork,-(sp)
move.l _noteper,-(sp)
move.l _noteval,-(sp)
jsr lmul
addq.l #8,sp
move.l R0,-(sp)
jsr ldiv
addq.l #8,sp
add.l _t_cur,R0
move.l R0,_noteoff
*line 972
*line 972
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L289
*line 973
*line 974
move.l #L290,(sp)
jsr _nospace
*line 975
clr R0
move R0,_QQsw
bra L259
*line 976
*line 977
L289:
*line 978
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #5,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
move.l R0,_p_cur
*line 980
*line 980
move #5,(sp)
jsr _e_alc
move.l R0,-4(R14)
bne L291
*line 981
*line 982
move.l #L292,(sp)
jsr _nospace
*line 983
clr R0
move R0,_QQsw
bra L259
*line 984
*line 985
L291:
*line 986
move.l _noteoff,R0
move.l R0,_t_cur
move.l R0,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 988
move #64,(sp)
move _notenum,-(sp)
move _curgrp,-(sp)
move #6,-(sp)
move.l -4(R14),-(sp)
jsr _insnevt
adda.l #10,sp
*line 990
move.l _noteon,R0
move.l R0,_t_cur
move.l R0,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 992
*line 993
tst _verbose
beq L293
*line 994
move.l _noteoff,(sp)
move.l _noteon,-(sp)
move _notenum,-(sp)
move.l _t_cur,-(sp)
move.l #L294,-(sp)
jsr _printf
adda.l #14,sp
L293:
*line 995
move #1,R0
move R0,_QQsw
bra L259
L259:unlk R14
rts
.globl _Qadv
.text
_Qadv:
~~Qadv:
link R14,#-4
*line 1010
*line 1010
move #46,(sp)
jsr _CMchr
tst R0
beq L296
*line 1011
*line 1012
add.l #$1,_t_cur
*line 1013
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 1014
move #1,R0
move R0,_QQsw
bra L295
*line 1015
*line 1016
L296:
*line 1017
*line 1017
move #44,(sp)
jsr _CMchr
tst R0
beq L297
*line 1018
*line 1019
move.l _noteval,R0
add.l R0,_t_cur
*line 1020
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 1021
move #1,R0
move R0,_QQsw
bra L295
*line 1022
*line 1023
L297:
*line 1024
*line 1024
move #59,(sp)
jsr _CMchr
tst R0
beq L298
*line 1025
*line 1026
move.l #$30,_dvwork
*line 1027
move.l #$30,-(sp)
move.l _dvwork,-(sp)
move.l _t_cur,-(sp)
jsr ldiv
addq.l #8,sp
move.l R0,-(sp)
add.l #$1,(sp)
jsr lmul
addq.l #8,sp
move.l R0,_t_cur
*line 1028
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 1029
move #1,R0
move R0,_QQsw
bra L295
*line 1030
*line 1031
L298:
*line 1032
*line 1032
move #58,(sp)
jsr _CMchr
tst R0
beq L299
*line 1033
*line 1034
add.l #$30,_t_cur
*line 1035
move.l _t_cur,(sp)
clr -(sp)
move.l _p_cur,-(sp)
jsr _ep_adj
addq.l #6,sp
move.l R0,_p_cur
*line 1036
move #1,R0
move R0,_QQsw
bra L295
*line 1037
*line 1038
L299:
*line 1039
clr R0
move R0,_QQsw
bra L295
L295:unlk R14
rts
.globl _Qseq
.text
_Qseq:
~~Qseq:
link R14,#-4
*line 1054
*line 1054
tst _QQanch
bne L301
*line 1054
bra L304
L303:
*line 1054
add.l #1,_QQip
L304:
*line 1054
move.l _QQip,R8
cmp.b #32,(R8)
beq L303
L302:
*line 1055
L301:
*line 1056
*line 1057
move.l _QQip,R8
tst.b (R8)
bne L305
*line 1057
move #1,R0
move R0,_QQsw
bra L300
*line 1058
L305:
*line 1059
*line 1059
jsr _Qnote
tst R0
bne L10001
jsr _Qadv
tst R0
bne L10001
jsr _Qevent
tst R0
beq L306
tst _endflg
bne L306
L10001:*line 1060
*line 1061
*line 1061
tst _QQanch
bne L307
*line 1061
bra L310
L309:
*line 1061
add.l #1,_QQip
L310:
*line 1061
move.l _QQip,R8
cmp.b #32,(R8)
beq L309
L308:
*line 1062
L307:
*line 1063
*line 1064
move.l _QQip,R8
tst.b (R8)
bne L311
*line 1064
move _QQsw,R0
bra L300
*line 1065
L311:
*line 1066
bra L314
L313:
*line 1067
*line 1068
*line 1069
jsr _Qadv
tst R0
bne L315
*line 1069
*line 1070
jsr _Qnote
tst R0
bne L316
*line 1070
jsr _Qevent
*line 1071
L316:L315:
*line 1072
*line 1072
tst _QQanch
bne L317
*line 1072
bra L320
L319:
*line 1072
add.l #1,_QQip
L320:
*line 1072
move.l _QQip,R8
cmp.b #32,(R8)
beq L319
L318:
*line 1073
L317:
*line 1074
*line 1075
move.l _QQip,R8
tst.b (R8)
bne L321
*line 1075
move _QQsw,R0
bra L300
L321:L314:
*line 1076
tst _QQsw
beq L10002
tst _endflg
beq L313
L10002:L312:
*line 1077
*line 1078
L306:
*line 1079
move _QQsw,R0
bra L300
L300:unlk R14
rts
.globl _sqinit
.text
_sqinit:
~~sqinit:
link R14,#-4
*line 1093
clr _verbose
*line 1094
clr _testing
*line 1095
clr _endflg
*line 1097
move.l #$30,_noteval
*line 1098
move.l #$50,_noteper
*line 1100
clr.l R0
move.l R0,_t_ctr
move.l R0,_t_cur
move.l R0,_curtime
*line 1101
move.l _t_cur,R0
add.l #$ffffff10,R0
move.l R0,_t_bak
*line 1102
move.l _t_cur,R0
add.l #$102,R0
move.l R0,_t_fwd
*line 1104
clr.l R0
move.l R0,_p_fwd
move.l R0,_p_ctr
move.l R0,_p_cur
move.l R0,_p_bak
*line 1106
clr _curgrp
*line 1107
clr _thescore
L322:unlk R14
rts
.globl _sqscan
.text
_sqscan:
~~sqscan:
~ip=8
link R14,#-4
*line 1125
clr _endflg
*line 1126
move.l 8(R14),(sp)
jsr _CMinit
*line 1128
*line 1129
jsr _Qseq
tst R0
bne L324
*line 1129
move.l #L325,(sp)
jsr _CMstat
*line 1130
L324:
*line 1131
move _QQsw,R0
bra L323
L323:unlk R14
rts
.data
L1:.dc.b $61,$0
L2:.dc.b $62,$0
L3:.dc.b $63,$0
L4:.dc.b $64,$0
L5:.dc.b $65,$0
L6:.dc.b $66,$0
L7:.dc.b $67,$0
L10:.dc.b $A,$2A,$2A,$20,$73,$71,$73,$63,$61,$6E,$3A,$20,$45,$52,$52,$4F,$52,$20,$2D,$20,$6E,$6F,$20,$73,$70,$61,$63,$65,$20,$66
.dc.b $6F,$72,$20,$25,$73,$20,$2A,$2A,$A,$A,$0
L13:.dc.b $2A,$2A,$20,$50,$63,$68,$65,$63,$6B,$28,$24,$25,$30,$38,$2E,$38,$6C,$78,$29,$3A,$20,$20,$5A,$45,$52,$4F,$20,$2D,$20,$25
.dc.b $73,$20,$2A,$2A,$A,$0
L16:.dc.b $2A,$2A,$20,$50,$63,$68,$65,$63,$6B,$28,$24,$25,$30,$38,$2E,$38,$6C,$78,$29,$3A,$20,$20,$4C,$4F,$57,$20,$2D,$20,$25,$73
.dc.b $20,$2A,$2A,$A,$0
L19:.dc.b $2A,$2A,$20,$50,$63,$68,$65,$63,$6B,$28,$24,$25,$30,$38,$2E,$38,$6C,$78,$29,$3A,$20,$48,$49,$47,$48,$20,$2D,$20,$25,$73
.dc.b $20,$2A,$2A,$A,$0
L24:.dc.b $67,$72,$6F,$75,$70,$0
L29:.dc.b $3C,$43,$75,$72,$72,$65,$6E,$74,$20,$67,$72,$6F,$75,$70,$20,$3D,$20,$25,$64,$3E,$A,$0
L30:.dc.b $73,$74,$61,$74,$75,$73,$0
L33:.dc.b $6F,$6E,$0
L36:.dc.b $21,$73,$74,$61,$74,$75,$73,$3D,$6F,$6E,$0
L38:.dc.b $25,$38,$6C,$64,$3A,$20,$47,$72,$6F,$75,$70,$20,$25,$64,$20,$65,$6E,$61,$62,$6C,$65,$64,$A,$0
L40:.dc.b $6F,$66,$66,$0
L43:.dc.b $21,$73,$74,$61,$74,$75,$73,$3D,$6F,$66,$66,$0
L45:.dc.b $25,$38,$6C,$64,$3A,$20,$47,$72,$6F,$75,$70,$20,$25,$64,$20,$64,$69,$73,$61,$62,$6C,$65,$64,$A,$0
L47:.dc.b $74,$65,$6D,$70,$6F,$0
L52:.dc.b $21,$74,$65,$6D,$70,$6F,$0
L54:.dc.b $25,$38,$6C,$64,$3A,$20,$54,$65,$6D,$70,$6F,$20,$3D,$20,$25,$64,$A,$0
L55:.dc.b $69,$6E,$73,$74,$0
L60:.dc.b $21,$69,$6E,$73,$74,$0
L62:.dc.b $25,$38,$6C,$64,$3A,$20,$67,$72,$6F,$75,$70,$20,$25,$64,$20,$73,$65,$74,$20,$74,$6F,$20,$69,$6E,$73,$74,$20,$25,$64,$A,$0
L63:.dc.b $74,$75,$6E,$69,$6E,$67,$0
L68:.dc.b $21,$74,$75,$6E,$69,$6E,$67,$0
L70:.dc.b $25,$38,$6C,$64,$3A,$20,$54,$75,$6E,$69,$6E,$67,$20,$25,$64,$20,$73,$65,$6C,$65,$63,$74,$65,$64,$A,$0
L71:.dc.b $74,$72,$61,$6E,$73,$0
L81:.dc.b $21,$74,$72,$61,$6E,$73,$0
L83:.dc.b $25,$38,$6C,$64,$3A,$20,$54,$72,$61,$6E,$73,$70,$6F,$73,$69,$74,$69,$6F,$6E,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$64,$A,$0
L84:.dc.b $64,$79,$6E,$0
L89:.dc.b $21,$64,$79,$6E,$0
L91:.dc.b $25,$38,$6C,$64,$3A,$20,$44,$79,$6E,$61,$6D,$69,$63,$73,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$64,$A,$0
L92:.dc.b $6C,$6F,$63,$0
L97:.dc.b $21,$6C,$6F,$63,$0
L99:.dc.b $25,$38,$6C,$64,$3A,$20,$4C,$6F,$63,$61,$74,$69,$6F,$6E,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$64,$A,$0
L100:.dc.b $67,$6F,$74,$6F,$0
L106:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$74,$69,$6D,$65,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$6C,$64,$3E,$A,$0
L107:.dc.b $70,$6F,$73,$0
L114:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$74,$69,$6D,$65,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$6C,$64,$3E,$A,$0
L115:.dc.b $62,$65,$61,$74,$0
L120:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$74,$69,$6D,$65,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$6C,$64,$3E,$A,$0
L121:.dc.b $66,$72,$61,$6D,$65,$0
L126:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$74,$69,$6D,$65,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$6C,$64,$3E,$A,$0
L127:.dc.b $73,$63,$6F,$72,$65,$0
L133:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$25,$64,$20,$73,$65,$6C,$65,$63,$74,$65,$64,$3E,$A,$0
L134:.dc.b $77,$65,$69,$67,$68,$74,$0
L140:.dc.b $3C,$4E,$6F,$74,$65,$20,$77,$65,$69,$67,$68,$74,$20,$3D,$20,$25,$6C,$64,$20,$70,$65,$72,$63,$65,$6E,$74,$3E,$A,$0
L141:.dc.b $73,$6E,$61,$70,$0
L143:.dc.b $77,$61,$69,$74,$0
L145:.dc.b $73,$74,$6F,$70,$0
L148:.dc.b $21,$73,$74,$6F,$70,$0
L150:.dc.b $25,$38,$6C,$64,$3A,$20,$53,$74,$6F,$70,$20,$65,$6E,$74,$65,$72,$65,$64,$A,$0
L151:.dc.b $63,$6C,$65,$61,$72,$0
L155:.dc.b $A,$3C,$53,$63,$6F,$72,$65,$20,$25,$64,$20,$63,$6C,$65,$61,$72,$65,$64,$3E,$A,$0
L158:.dc.b $A,$3C,$41,$6C,$6C,$20,$73,$63,$6F,$72,$65,$73,$20,$63,$6C,$65,$61,$72,$65,$64,$3E,$A,$0
L161:.dc.b $A,$3C,$43,$75,$72,$72,$65,$6E,$74,$20,$73,$63,$6F,$72,$65,$20,$28,$25,$64,$29,$20,$63,$6C,$65,$61,$72,$65,$64,$3E,$A,$0
L162:.dc.b $73,$68,$6F,$77,$0
L164:.dc.b $61,$63,$74,$69,$76,$65,$0
L166:.dc.b $3C,$41,$63,$74,$69,$76,$65,$20,$73,$63,$6F,$72,$65,$73,$3A,$A,$0
L171:.dc.b $3C,$0
L177:.dc.b $25,$33,$64,$20,$0
L179:.dc.b $2E,$2E,$2E,$20,$0
L180:.dc.b $3E,$A,$0
L181:.dc.b $3C,$25,$64,$20,$61,$63,$74,$69,$76,$65,$20,$73,$63,$6F,$72,$65,$73,$2C,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$20,$69,$73
.dc.b $20,$63,$75,$72,$72,$65,$6E,$74,$3E,$A,$A,$0
L182:.dc.b $6E,$61,$6D,$65,$73,$0
L184:.dc.b $3C,$41,$63,$74,$69,$76,$65,$20,$73,$63,$6F,$72,$65,$20,$6E,$61,$6D,$65,$73,$3A,$3E,$A,$0
L190:.dc.b $3C,$25,$33,$64,$3A,$20,$0
L191:.dc.b $5B,$24,$25,$30,$38,$2E,$38,$6C,$78,$2C,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$5D,$20,$0
L196:.dc.b $25,$63,$0
L197:.dc.b $3E,$A,$0
L198:.dc.b $3C,$25,$64,$20,$61,$63,$74,$69,$76,$65,$20,$73,$63,$6F,$72,$65,$73,$2C,$20,$25,$64,$20,$69,$73,$20,$63,$75,$72,$72,$65
.dc.b $6E,$74,$3E,$A,$A,$0
L199:.dc.b $73,$65,$63,$74,$69,$6F,$6E,$73,$0
L201:.dc.b $3C,$41,$63,$74,$69,$76,$65,$20,$73,$65,$63,$74,$69,$6F,$6E,$73,$3A,$3E,$A,$0
L206:.dc.b $3C,$0
L212:.dc.b $25,$33,$64,$20,$0
L214:.dc.b $2E,$2E,$2E,$20,$0
L215:.dc.b $3E,$A,$0
L216:.dc.b $3C,$25,$64,$20,$61,$63,$74,$69,$76,$65,$20,$73,$65,$63,$74,$69,$6F,$6E,$73,$2C,$20,$25,$64,$20,$69,$73,$20,$63,$75,$72
.dc.b $72,$65,$6E,$74,$3E,$A,$A,$0
L217:.dc.b $66,$69,$6E,$64,$0
L226:.dc.b $A,$3C,$46,$49,$4E,$44,$3A,$20,$20,$46,$6F,$75,$6E,$64,$20,$25,$6C,$64,$20,$61,$74,$20,$24,$25,$30,$38,$2E,$38,$6C,$78
.dc.b $3E,$A,$A,$0
L229:.dc.b $3C,$46,$49,$4E,$44,$3A,$20,$20,$46,$6F,$75,$6E,$64,$20,$74,$68,$65,$20,$63,$75,$72,$72,$65,$6E,$74,$20,$73,$63,$6F,$72
.dc.b $65,$20,$65,$6D,$70,$74,$79,$3E,$A,$A,$0
L230:.dc.b $63,$68,$61,$73,$65,$0
L233:.dc.b $3C,$43,$48,$41,$53,$45,$3A,$20,$20,$43,$75,$72,$72,$65,$6E,$74,$20,$73,$63,$6F,$72,$65,$20,$6E,$6F,$74,$20,$61,$63,$74
.dc.b $69,$76,$65,$3E,$A,$A,$0
L238:.dc.b $A,$43,$48,$41,$53,$45,$3A,$20,$20,$45,$72,$72,$6F,$72,$A,$0
L239:.dc.b $2A,$2A,$20,$42,$61,$64,$20,$70,$6F,$69,$6E,$74,$65,$72,$3A,$20,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$A,$0
L240:.dc.b $2A,$2A,$20,$20,$20,$20,$20,$20,$20,$73,$70,$6F,$6F,$6C,$3A,$20,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$2C,$20,$20,$70,$73
.dc.b $70,$6F,$6F,$6C,$3A,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$A,$0
L242:.dc.b $A,$43,$48,$41,$53,$45,$3A,$20,$20,$45,$72,$72,$6F,$72,$A,$0
L243:.dc.b $2A,$2A,$20,$42,$61,$64,$20,$70,$6F,$69,$6E,$74,$65,$72,$3A,$20,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$A,$0
L244:.dc.b $2A,$2A,$20,$20,$20,$20,$20,$20,$20,$73,$70,$6F,$6F,$6C,$3A,$20,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$2C,$20,$20,$70,$73
.dc.b $70,$6F,$6F,$6C,$3A,$20,$24,$25,$30,$38,$2E,$38,$6C,$78,$A,$0
L246:.dc.b $2D,$2D,$20,$45,$6E,$64,$20,$6F,$66,$20,$63,$68,$61,$69,$6E,$20,$2D,$2D,$A,$A,$0
L247:.dc.b $76,$65,$72,$62,$6F,$73,$65,$0
L249:.dc.b $71,$75,$69,$65,$74,$0
L251:.dc.b $74,$65,$73,$74,$0
L253:.dc.b $6E,$6F,$72,$6D,$61,$6C,$0
L255:.dc.b $65,$6E,$64,$0
L258:.dc.b $A,$3C,$45,$6E,$64,$20,$63,$6F,$6D,$6D,$61,$6E,$64,$20,$65,$6E,$63,$6F,$75,$6E,$74,$65,$72,$65,$64,$3E,$A,$0
L265:.dc.b $25,$38,$6C,$64,$3A,$20,$3C,$72,$65,$73,$74,$3E,$A,$0
L273:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L275:.dc.b $25,$38,$6C,$64,$3A,$20,$4E,$6F,$74,$65,$20,$25,$33,$64,$20,$4F,$4E,$A,$0
L278:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L280:.dc.b $25,$38,$6C,$64,$3A,$20,$4E,$6F,$74,$65,$20,$25,$33,$64,$20,$4F,$46,$46,$A,$0
L284:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L286:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L288:.dc.b $25,$38,$6C,$64,$3A,$20,$4E,$6F,$74,$65,$20,$25,$33,$64,$20,$4F,$4E,$20,$61,$74,$20,$25,$38,$6C,$64,$2C,$20,$4F,$46,$46
.dc.b $20,$61,$74,$20,$25,$38,$6C,$64,$A,$0
L290:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L292:.dc.b $6E,$6F,$74,$65,$20,$65,$76,$65,$6E,$74,$0
L294:.dc.b $25,$38,$6C,$64,$3A,$20,$4E,$6F,$74,$65,$20,$25,$33,$64,$20,$4F,$4E,$20,$61,$74,$20,$25,$38,$6C,$64,$2C,$20,$4F,$46,$46
.dc.b $20,$61,$74,$20,$25,$38,$6C,$64,$A,$0
L325:.dc.b $53,$79,$6E,$74,$61,$78,$20,$65,$72,$72,$6F,$72,$0