.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