.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 _scrl
.globl _sbase
.globl _sd
.globl _soffset
.globl _consl
.globl _cursl
.globl _nxtsl
.globl _prvsl
.globl _saddr
.globl _slices
.globl _gtctab
.globl _gdfsep
.globl _gdstbc
.globl _gdstbn
.globl _gdstbp
.globl _gdfsl
.globl _lintab1
.data
_lintab1:
.dc.w $CD
.dc.w $CD
.dc.w $C9
.dc.w $C5
.dc.w $C5
.dc.w $C1
.dc.w $C1
.dc.w $BD
.dc.w $B9
.dc.w $B9
.dc.w $B5
.dc.w $B5
.dc.w $B1
.dc.w $B1
.dc.w $AD
.dc.w $A9
.dc.w $A9
.dc.w $A5
.dc.w $A5
.dc.w $A1
.dc.w $9D
.dc.w $9D
.dc.w $99
.dc.w $99
.dc.w $95
.dc.w $95
.dc.w $91
.dc.w $8D
.dc.w $8D
.dc.w $89
.dc.w $89
.dc.w $85
.dc.w $81
.dc.w $81
.dc.w $7D
.dc.w $7D
.dc.w $79
.dc.w $79
.dc.w $75
.dc.w $71
.dc.w $71
.dc.w $6D
.dc.w $6D
.dc.w $69
.dc.w $65
.dc.w $65
.dc.w $61
.dc.w $61
.dc.w $5D
.dc.w $5D
.dc.w $59
.dc.w $55
.dc.w $55
.dc.w $51
.dc.w $51
.dc.w $4D
.dc.w $49
.dc.w $49
.dc.w $45
.dc.w $45
.dc.w $41
.dc.w $41
.dc.w $3D
.dc.w $39
.dc.w $39
.dc.w $35
.dc.w $35
.dc.w $31
.dc.w $2D
.dc.w $2D
.dc.w $29
.dc.w $29
.dc.w $25
.dc.w $25
.dc.w $21
.dc.w $1D
.dc.w $1D
.dc.w $19
.dc.w $19
.dc.w $15
.dc.w $11
.dc.w $11
.dc.w $D
.dc.w $D
.dc.w $9
.dc.w $9
.dc.w $5
.dc.w $1
.globl _lintab2
.data
_lintab2:
.dc.w $CD
.dc.w $C9
.dc.w $C9
.dc.w $C5
.dc.w $C1
.dc.w $C1
.dc.w $BD
.dc.w $BD
.dc.w $B9
.dc.w $B5
.dc.w $B5
.dc.w $B1
.dc.w $B1
.dc.w $AD
.dc.w $AD
.dc.w $A9
.dc.w $A5
.dc.w $A5
.dc.w $A1
.dc.w $A1
.dc.w $9D
.dc.w $99
.dc.w $99
.dc.w $95
.dc.w $95
.dc.w $91
.dc.w $91
.dc.w $8D
.dc.w $89
.dc.w $89
.dc.w $85
.dc.w $85
.dc.w $81
.dc.w $7D
.dc.w $7D
.dc.w $79
.dc.w $79
.dc.w $75
.dc.w $75
.dc.w $71
.dc.w $6D
.dc.w $6D
.dc.w $69
.dc.w $69
.dc.w $65
.dc.w $61
.dc.w $61
.dc.w $5D
.dc.w $5D
.dc.w $59
.dc.w $59
.dc.w $55
.dc.w $51
.dc.w $51
.dc.w $4D
.dc.w $4D
.dc.w $49
.dc.w $45
.dc.w $45
.dc.w $41
.dc.w $41
.dc.w $3D
.dc.w $3D
.dc.w $39
.dc.w $35
.dc.w $35
.dc.w $31
.dc.w $31
.dc.w $2D
.dc.w $29
.dc.w $29
.dc.w $25
.dc.w $25
.dc.w $21
.dc.w $21
.dc.w $1D
.dc.w $19
.dc.w $19
.dc.w $15
.dc.w $15
.dc.w $11
.dc.w $D
.dc.w $D
.dc.w $9
.dc.w $9
.dc.w $5
.dc.w $5
.dc.w $1
.globl _nttab1
.data
_nttab1:
.dc.w $0
.dc.w $2
.dc.w $3
.dc.w $3
.dc.w $5
.dc.w $3
.dc.w $0
.globl _nttab2
.data
_nttab2:
.dc.w $0
.dc.w $0
.dc.w $1
.dc.w $3
.dc.w $0
.dc.w $4
.dc.w $0
.globl _pxtbl
.data
_pxtbl:
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.globl _epxtbl
.data
_epxtbl:
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $FFFF
.dc.w $FFFF
.dc.w $FFFF
.dc.w $0
.dc.w $0
.dc.w $0
.dc.w $0
.globl _uslice
.text
_uslice:
~~uslice:
~mask1=R7
~mask2=R6
~slice=8
~gdstb=16
link R14,#-26
movem.l R2-R7/R11-R13,-(sp)
~pxptr=R13
~slptr=R12
~gdsep=R11
~i=R5
~ncolor=R4
~w=R3
~ncptr=-4
~nctabp=-8
~gdstp=-12
~gdprv=-16
~gdnxt=-20
~wrote=-22
~lintab=-26
*line 195
move 12(R14),R7
*line 195
move 14(R14),R6
*line 199
move.l 16(R14),-12(R14)
*line 200
tst _sd
beq L10000
move.l #_nttab2,R0
bra L10002
L10000:move.l #_nttab1,R0
L10002:move.l R0,-8(R14)
*line 201
move.l #_gtctab,-4(R14)
*line 202
clr -22(R14)
*line 204
cmp.b #4,_ac_code
bne L10003
move.l #_lintab1,R0
bra L10005
L10003:move.l #_lintab2,R0
L10005:move.l R0,-26(R14)
*line 206
*line 206
move.l 16(R14),R8
tst.l 64(R8)
beq L2
*line 207
*line 208
move.l 8(R14),R12
*line 209
move R7,R4
and #13107,R4
*line 210
*line 211
move #211,R5
bra L5
L6:
*line 212
clr R0
move R4,R0
clr R1
move R6,R1
and (R12),R1
or R1,R0
move R0,(R12)+
L4:L5:
*line 211
clr R0
move R5,R0
sub #1,R5
tst R0
bne L6
L3:
*line 212
*line 213
*line 214
move.l 16(R14),R8
move.l #$0,64(R8)
*line 215
*line 216
*line 217
*line 218
*line 219
L2:
*line 220
clr R5
bra L9
L10:
*line 221
*line 222
move R7,R4
move.l -4(R14),R8
move (R8),R0
and R0,R4
add.l #2,-4(R14)
*line 223
move.l -12(R14),-16(R14)
*line 224
move.l -12(R14),R8
move.l (R8),R11
add.l #4,-12(R14)
*line 225
*line 226
*line 226
move.l R11,R0
beq L11
*line 227
*line 228
add #1,-22(R14)
*line 229
*line 230
L14:
*line 231
*line 232
*line 233
*line 234
move.l -26(R14),R8
move 4(R11),R9
add.l R9,R9
move 0(R8,R9.l),R0
asl #1,R0
ext.l R0
move.l R0,R12
add.l 8(R14),R12
*line 235
move 6(R11),R0
asl #3,R0
ext.l R0
move.l R0,R13
add.l #_pxtbl,R13
*line 236
*line 237
*line 238
*line 239
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)+
*line 240
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)+
*line 241
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)
*line 242
*line 243
move.l (R11),-20(R14)
*line 244
*line 245
*line 246
*line 247
*line 247
move 6(R11),R8
add.l R8,R8
add.l -8(R14),R8
move (R8),6(R11)
bne L15
*line 248
*line 249
*line 250
*line 251
move.l -16(R14),R8
move.l -20(R14),(R8)
*line 252
move.l _gdfsep,(R11)
*line 253
move.l R11,_gdfsep
*line 254
*line 255
bra L16
L15:
*line 256
move.l R11,-16(R14)
L16:
*line 257
*line 258
move.l -20(R14),R11
*line 259
L13:
*line 260
move.l R11,R0
bne L14
L12:
*line 261
L11:L8:
*line 220
add #1,R5
L9:
*line 220
cmp #12,R5
blo L10
L7:bra L19
L20:
*line 266
*line 267
*line 268
move.l -12(R14),-16(R14)
*line 269
move.l -12(R14),R8
move.l (R8),R11
add.l #4,-12(R14)
*line 270
*line 271
*line 271
move.l R11,R0
beq L21
*line 272
*line 273
add #1,-22(R14)
*line 274
*line 275
L24:
*line 276
*line 277
*line 278
*line 279
move.l 8(R14),R12
add.l #424,R12
*line 280
move 6(R11),R0
asl #5,R0
ext.l R0
move.l R0,R13
add.l #_epxtbl,R13
*line 281
*line 282
*line 283
*line 284
move R7,R4
and 4(R11),R4
*line 285
*line 286
*line 287
*line 288
*line 289
move (R13)+,R3
beq L25
*line 289
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 290
L25:
*line 291
add.l #2,R12
*line 292
*line 293
*line 294
move (R13)+,R3
beq L26
*line 294
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 295
L26:
*line 296
add.l #2,R12
*line 297
*line 298
*line 299
move (R13)+,R3
beq L27
*line 299
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 300
L27:
*line 301
add.l #2,R12
*line 302
*line 303
*line 304
move (R13)+,R3
beq L28
*line 304
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 305
L28:
*line 306
add.l #2,R12
*line 307
*line 308
*line 309
move (R13)+,R3
beq L29
*line 309
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 310
L29:
*line 311
add.l #2,R12
*line 312
*line 313
*line 314
move (R13)+,R3
beq L30
*line 314
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 315
L30:
*line 316
add.l #2,R12
*line 317
*line 318
*line 319
move (R13)+,R3
beq L31
*line 319
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 320
L31:
*line 321
add.l #2,R12
*line 322
*line 323
*line 324
move (R13)+,R3
beq L32
*line 324
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 325
L32:
*line 326
add.l #2,R12
*line 327
*line 328
*line 329
move (R13)+,R3
beq L33
*line 329
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 330
L33:
*line 331
add.l #2,R12
*line 332
*line 333
*line 334
move (R13)+,R3
beq L34
*line 334
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 335
L34:
*line 336
add.l #2,R12
*line 337
*line 338
*line 339
move (R13)+,R3
beq L35
*line 339
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 340
L35:
*line 341
add.l #2,R12
*line 342
*line 343
*line 344
move (R13),R3
beq L36
*line 344
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 345
L36:
*line 346
move.l (R11),-20(R14)
*line 347
move.l -16(R14),R8
move.l -20(R14),(R8)
*line 348
move.l _gdfsep,(R11)
*line 349
move.l R11,_gdfsep
*line 350
move.l -20(R14),R11
*line 351
L23:
*line 352
move.l R11,R0
bne L24
L22:
*line 353
L21:L18:
*line 266
add #1,R5
L19:
*line 266
cmp #16,R5
blo L20
L17:
*line 358
move -22(R14),R0
bra L1
L1:tst.l (sp)+
movem.l (sp)+,R3-R7/R11-R13
unlk R14
rts
.globl _rslice
.text
_rslice:
~~rslice:
~gdstb=8
link R14,#-8
movem.l R5-R7/R11-R13,-(sp)
~gdsep=R13
~gdstp=R12
~nctabp=R11
~i=R7
~nc=R6
~gdprv=-4
~gdnxt=-8
*line 391
tst _sd
beq L10006
move.l #_nttab2,R0
bra L10008
L10006:move.l #_nttab1,R0
L10008:move.l R0,R11
*line 392
move.l 8(R14),R12
*line 398
clr R7
bra L40
L41:
*line 399
*line 400
move.l R12,-4(R14)
*line 401
move.l (R12)+,R13
*line 402
*line 403
*line 403
move.l R13,R0
beq L42
*line 404
*line 405
L45:
*line 406
*line 407
move.l (R13),-8(R14)
*line 408
*line 409
*line 410
*line 411
*line 411
move 6(R13),R6
move.l R11,R8
clr R1
move R6,R1
lsl #1,R1
swap R1
clr R1
swap R1
add.l R1,R8
move (R8),6(R13)
bne L46
*line 412
*line 417
*line 418
*line 419
*line 420
*line 421
move.l -4(R14),R8
move.l -8(R14),(R8)
*line 422
move.l _gdfsep,(R13)
*line 423
move.l R13,_gdfsep
*line 424
bra L47
L46:
*line 425
*line 426
*line 431
*line 432
*line 433
move.l R13,-4(R14)
L47:
*line 434
*line 435
*line 436
move.l -8(R14),R13
*line 437
L44:
*line 438
move.l R13,R0
bne L45
L43:
*line 439
L42:L39:
*line 398
add #1,R7
L40:
*line 398
cmp #12,R7
blo L41
L38:bra L50
L51:
*line 446
*line 447
*line 448
move.l R12,-4(R14)
*line 449
move.l (R12)+,R13
*line 450
*line 451
*line 451
move.l R13,R0
beq L52
*line 452
*line 453
L55:
*line 454
*line 455
move.l (R13),-8(R14)
*line 456
move.l -4(R14),R8
move.l -8(R14),(R8)
*line 457
move.l _gdfsep,(R13)
*line 458
move.l R13,_gdfsep
*line 459
move.l -8(R14),R13
*line 460
L54:
*line 461
move.l R13,R0
bne L55
L53:
*line 462
L52:L49:
*line 446
add #1,R7
L50:
*line 446
cmp #16,R7
blo L51
L48:
*line 465
move.l 8(R14),R8
move.l #$0,64(R8)
L37:tst.l (sp)+
movem.l (sp)+,R6-R7/R11-R13
unlk R14
rts
.globl _cslice
.text
_cslice:
~~cslice:
~mask1=R7
~mask2=R6
~slice=8
~gdstb=16
link R14,#-26
movem.l R2-R7/R11-R13,-(sp)
~pxptr=R13
~slptr=R12
~gdsep=R11
~i=R5
~ncolor=R4
~w=R3
~ncptr=-4
~nctabp=-8
~gdstp=-12
~gdprv=-16
~gdnxt=-20
~wrote=-22
~lintab=-26
*line 508
move 12(R14),R7
*line 508
move 14(R14),R6
*line 512
move.l 16(R14),-12(R14)
*line 513
tst _sd
beq L10009
move.l #_nttab2,R0
bra L10011
L10009:move.l #_nttab1,R0
L10011:move.l R0,-8(R14)
*line 514
move.l #_gtctab,-4(R14)
*line 515
clr -22(R14)
*line 517
cmp.b #4,_ac_code
bne L10012
move.l #_lintab1,R0
bra L10014
L10012:move.l #_lintab2,R0
L10014:move.l R0,-26(R14)
*line 519
*line 519
move.l 16(R14),R8
tst.l 64(R8)
beq L57
*line 520
*line 521
move.l 8(R14),R12
*line 522
move R7,R4
and #13107,R4
*line 523
*line 524
move #211,R5
bra L60
L61:
*line 525
clr R0
move R4,R0
clr R1
move R6,R1
and (R12),R1
or R1,R0
move R0,(R12)+
L59:L60:
*line 524
clr R0
move R5,R0
sub #1,R5
tst R0
bne L61
L58:
*line 525
*line 526
*line 527
move.l 16(R14),R8
move.l #$0,64(R8)
*line 528
*line 529
*line 530
*line 531
*line 532
L57:
*line 533
clr R5
bra L64
L65:
*line 534
*line 535
move.l -4(R14),R8
move (R8),R4
add.l #2,-4(R14)
*line 536
move.l -12(R14),-16(R14)
*line 537
move.l -12(R14),R8
move.l (R8),R11
add.l #4,-12(R14)
*line 538
*line 539
*line 539
move.l R11,R0
beq L66
*line 540
*line 543
*line 544
add #1,-22(R14)
*line 545
*line 546
L69:
*line 547
*line 548
*line 549
*line 550
move.l -26(R14),R8
move 4(R11),R9
add.l R9,R9
move 0(R8,R9.l),R0
asl #1,R0
ext.l R0
move.l R0,R12
add.l 8(R14),R12
*line 551
move 6(R11),R0
asl #3,R0
ext.l R0
move.l R0,R13
add.l #_pxtbl,R13
*line 552
*line 553
*line 554
*line 555
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)+
*line 556
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)+
*line 557
clr R0
move R6,R0
and (R12),R0
clr R1
move R4,R1
and (R13)+,R1
or R1,R0
move R0,(R12)
*line 558
*line 559
move.l (R11),-20(R14)
*line 560
move.l R11,-16(R14)
*line 561
move.l -20(R14),R11
*line 562
L68:
*line 563
move.l R11,R0
bne L69
L67:
*line 564
L66:L63:
*line 533
add #1,R5
L64:
*line 533
cmp #12,R5
blo L65
L62:bra L72
L73:
*line 569
*line 570
*line 571
move.l -12(R14),-16(R14)
*line 572
move.l -12(R14),R8
move.l (R8),R11
add.l #4,-12(R14)
*line 573
*line 574
*line 574
move.l R11,R0
beq L74
*line 575
*line 576
add #1,-22(R14)
*line 577
*line 578
L77:
*line 579
*line 580
*line 581
*line 582
move.l 8(R14),R12
add.l #424,R12
*line 583
move 6(R11),R0
asl #5,R0
ext.l R0
move.l R0,R13
add.l #_epxtbl,R13
*line 584
*line 585
move 4(R11),R4
*line 586
*line 587
*line 588
*line 589
*line 590
move (R13)+,R3
beq L78
*line 590
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 591
L78:
*line 592
add.l #2,R12
*line 593
*line 594
*line 595
move (R13)+,R3
beq L79
*line 595
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 596
L79:
*line 597
add.l #2,R12
*line 598
*line 599
*line 600
move (R13)+,R3
beq L80
*line 600
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 601
L80:
*line 602
add.l #2,R12
*line 603
*line 604
*line 605
move (R13)+,R3
beq L81
*line 605
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 606
L81:
*line 607
add.l #2,R12
*line 608
*line 609
*line 610
move (R13)+,R3
beq L82
*line 610
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 611
L82:
*line 612
add.l #2,R12
*line 613
*line 614
*line 615
move (R13)+,R3
beq L83
*line 615
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 616
L83:
*line 617
add.l #2,R12
*line 618
*line 619
*line 620
move (R13)+,R3
beq L84
*line 620
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 621
L84:
*line 622
add.l #2,R12
*line 623
*line 624
*line 625
move (R13)+,R3
beq L85
*line 625
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 626
L85:
*line 627
add.l #2,R12
*line 628
*line 629
*line 630
move (R13)+,R3
beq L86
*line 630
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 631
L86:
*line 632
add.l #2,R12
*line 633
*line 634
*line 635
move (R13)+,R3
beq L87
*line 635
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 636
L87:
*line 637
add.l #2,R12
*line 638
*line 639
*line 640
move (R13)+,R3
beq L88
*line 640
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 641
L88:
*line 642
add.l #2,R12
*line 643
*line 644
*line 645
move (R13),R3
beq L89
*line 645
clr R0
move R6,R0
and (R12),R0
clr R1
move R3,R1
and R4,R1
or R1,R0
move R0,(R12)
*line 646
L89:
*line 647
move.l (R11),-20(R14)
*line 648
move.l -16(R14),R8
move.l -20(R14),(R8)
*line 649
move.l _gdfsep,(R11)
*line 650
move.l R11,_gdfsep
*line 651
move.l -20(R14),R11
*line 652
L76:
*line 653
move.l R11,R0
bne L77
L75:
*line 654
L74:L71:
*line 569
add #1,R5
L72:
*line 569
cmp #16,R5
blo L73
L70:
*line 659
move -22(R14),R0
bra L56
L56:tst.l (sp)+
movem.l (sp)+,R3-R7/R11-R13
unlk R14
rts
.globl _clrsctl
.text
_clrsctl:
~~clrsctl:
link R14,#-16
movem.l R5-R7/R11-R13,-(sp)
~gdsp=R13
~gnxt=R12
~gp=R11
~i=R7
*line 676
move.l #_gdfsl,R13
move.l R13,_gdfsep
*line 677
move.l #8+_gdfsl,R12
*line 679
move #255,R7
bra L93
L94:
*line 680
*line 681
clr 6(R13)
*line 682
clr 4(R13)
*line 683
move.l R12,(R13)
*line 684
*line 685
add.l #8,R13
*line 686
add.l #8,R12
L92:L93:
*line 679
move R7,R0
sub #1,R7
tst R0
bne L94
L91:
*line 689
clr 6(R13)
*line 690
clr 4(R13)
*line 691
clr.l (R13)
*line 693
move.l #_gdstbc,R11
*line 695
move #17,R7
bra L97
L98:
*line 696
clr.l (R11)+
L96:L97:
*line 695
move R7,R0
sub #1,R7
tst R0
bne L98
L95:
*line 698
move.l #_gdstbn,R11
*line 700
move #17,R7
bra L101
L102:
*line 701
clr.l (R11)+
L100:L101:
*line 700
move R7,R0
sub #1,R7
tst R0
bne L102
L99:
*line 703
move.l #_gdstbp,R11
*line 705
move #17,R7
bra L105
L106:
*line 706
clr.l (R11)+
L104:L105:
*line 705
move R7,R0
sub #1,R7
tst R0
bne L106
L103:
*line 708
clr _sbase
*line 709
clr _soffset
*line 710
move _sbase,R0
asl #1,R0
ext.l R0
add.l #_v_score,R0
move.l R0,_saddr
*line 712
move.l #1344+_slices,_consl
*line 713
move.l #896+_slices,_prvsl
*line 714
move.l #448+_slices,_cursl
*line 715
move.l #_slices,_nxtsl
*line 718
*line 719
*line 720
*line 721
*line 722
move.l _consl,-4(R14)
*line 723
move.l _nxtsl,-8(R14)
*line 724
move.l _cursl,-12(R14)
*line 725
move.l _prvsl,-16(R14)
*line 726
*line 727
move #224,R7
bra L109
L110:
*line 728
*line 729
move.l -4(R14),R8
move (R8),R6
add.l #2,-4(R14)
*line 730
move.l -8(R14),R8
move R6,(R8)
add.l #2,-8(R14)
*line 731
move.l -12(R14),R8
move R6,(R8)
add.l #2,-12(R14)
*line 732
move.l -16(R14),R8
move R6,(R8)
add.l #2,-16(R14)
L108:L109:
*line 727
move R7,R0
sub #1,R7
tst R0
bne L110
L107:
*line 733
L90:tst.l (sp)+
movem.l (sp)+,R6-R7/R11-R13
unlk R14
rts
.data