Index: alcyon/asgdsp.s
===================================================================
--- alcyon/asgdsp.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/asgdsp.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,3434 @@
+.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 _v_obtab
+.globl _v_curob
+.globl _v_nobj
+.globl _v_obpri
+.globl _ebflag
+.globl _ebuf
+.globl _curfet
+.globl _cfetp
+.globl _infetp
+.globl _point
+.globl _stcrow
+.globl _stccol
+.globl _cxval
+.globl _cyval
+.globl _curtun
+.globl _tunmod
+.globl _obj0
+.globl _obj2
+.globl _bfs
+.globl _adbxlb
+.globl _caname
+.globl _adbox
+.globl _admctl
+.globl _adnamsw
+.globl _asgfks
+.globl _asghit
+.globl _asgmod
+.globl _auxctl
+.globl _curasg
+.globl _curmop
+.globl _curvce
+.globl _prgchan
+.globl _ps_dpth
+.globl _ps_intn
+.globl _ps_rate
+.globl _submenu
+.globl _grpdyn
+.globl _ins2grp
+.globl _mctlnum
+.globl _s_inst
+.globl _vce2grp
+.globl _grp2prt
+.globl _key2grp
+.globl _asgtab
+.globl _asgob
+.globl _adoct
+.globl _gprep
+.data
+_gprep:
+*line 115
+.dc.l L1
+*line 115
+.dc.l L2
+*line 115
+.dc.l L3
+*line 115
+.dc.l L4
+.globl _asgsrc
+.data
+_asgsrc:
+*line 119
+.dc.l L5
+*line 120
+.dc.l L6
+*line 121
+.dc.l L7
+*line 122
+.dc.l L8
+*line 123
+.dc.l L9
+*line 125
+.dc.l L10
+.globl _asgkble
+.data
+_asgkble:
+.dc.w $1
+.dc.w $6
+.dc.w $B
+.dc.w $11
+.dc.w $16
+.dc.w $1B
+.dc.w $20
+.dc.w $25
+.dc.w $2B
+.dc.w $30
+.dc.w $35
+.dc.w $3A
+.dc.w $3F
+.dc.w $44
+.dc.w $49
+.dc.w $4F
+.dc.w $54
+.dc.w $59
+.dc.w $5E
+.dc.w $63
+.dc.w $69
+.dc.w $6E
+.dc.w $73
+.dc.w $78
+.dc.w $7D
+.dc.w $82
+.dc.w $87
+.dc.w $8D
+.dc.w $92
+.dc.w $97
+.dc.w $9C
+.dc.w $A1
+.dc.w $A7
+.dc.w $AC
+.dc.w $B1
+.dc.w $B6
+.dc.w $BB
+.dc.w $C0
+.dc.w $C5
+.dc.w $CB
+.dc.w $D0
+.dc.w $D5
+.dc.w $DA
+.dc.w $DF
+.dc.w $E5
+.dc.w $EA
+.dc.w $EF
+.dc.w $F4
+.dc.w $F9
+.dc.w $FE
+.dc.w $103
+.dc.w $109
+.dc.w $10E
+.dc.w $113
+.dc.w $118
+.dc.w $11D
+.dc.w $123
+.dc.w $128
+.dc.w $12D
+.dc.w $132
+.dc.w $137
+.dc.w $13C
+.dc.w $141
+.dc.w $147
+.dc.w $14C
+.dc.w $151
+.dc.w $156
+.dc.w $15B
+.dc.w $161
+.dc.w $166
+.dc.w $16B
+.dc.w $170
+.dc.w $175
+.dc.w $17A
+.dc.w $17F
+.dc.w $185
+.dc.w $18A
+.dc.w $18F
+.dc.w $194
+.dc.w $199
+.dc.w $19F
+.dc.w $1A4
+.dc.w $1A9
+.dc.w $1AE
+.dc.w $1B3
+.dc.w $1B8
+.dc.w $1BD
+.dc.w $1C3
+.globl _asgkbtp
+.data
+_asgkbtp:
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $FF
+.dc.w $F000
+.dc.w $FFFF
+.dc.w $0
+.dc.w $FFF0
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.globl _asgkbbt
+.data
+_asgkbbt:
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.dc.w $FFFF
+.dc.w $FFFF
+.dc.w $FFF0
+.dc.w $FFFF
+.dc.w $FF0F
+.dc.w $FFFF
+.dc.w $F0FF
+.dc.w $FFFF
+.dc.w $FFF
+.globl _asgpal
+.data
+_asgpal:
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $0
+.dc.w $0
+.dc.w $2
+.dc.w $1
+.dc.w $0
+.dc.w $1
+.dc.w $0
+.dc.w $1
+.dc.w $2
+.dc.w $0
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $1
+.dc.w $2
+.dc.w $0
+.dc.w $0
+.dc.w $1
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $2
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $3
+.dc.w $0
+.dc.w $3
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $2
+.dc.w $3
+.globl _dyntab
+.data
+_dyntab:
+.dc.w $0
+.dc.w $F00
+.dc.w $1680
+.dc.w $1F40
+.dc.w $2800
+.dc.w $3200
+.dc.w $3E80
+.dc.w $4EC0
+.dc.w $62C0
+.dc.w $7D00
+.globl _advacur
+.text
+_advacur:
+~~advacur:
+link R14,#0
+movem.l R6-R7,-(sp)
+~newcol=R7
+*line 281
+*line 282
+move.l _curfet,(sp)
+move _stccol,-(sp)
+move _stcrow,-(sp)
+jsr _infield
+addq.l #4,sp
+tst R0
+beq L12
+*line 282
+move.l _infetp,_cfetp
+*line 283
+bra L13
+L12:bra L11
+L13:
+*line 286
+move _stccol,R7
+add #1,R7
+*line 288
+*line 289
+move.l _cfetp,R8
+cmp 4(R8),R7
+bgt L14
+*line 289
+move R7,(sp)
+move _stcrow,-(sp)
+jsr _itcpos
+addq.l #2,sp
+*line 290
+L14:
+*line 291
+move _stccol,R0
+asl #3,R0
+move R0,_cxval
+*line 292
+move _stcrow,R0
+muls #14,R0
+move R0,_cyval
+L11:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _bspacur
+.text
+_bspacur:
+~~bspacur:
+link R14,#0
+movem.l R6-R7,-(sp)
+~newcol=R7
+*line 305
+*line 306
+move.l _curfet,(sp)
+move _stccol,-(sp)
+move _stcrow,-(sp)
+jsr _infield
+addq.l #4,sp
+tst R0
+beq L16
+*line 306
+move.l _infetp,_cfetp
+*line 307
+bra L17
+L16:bra L15
+L17:
+*line 310
+move _stccol,R7
+sub #1,R7
+*line 312
+*line 313
+move.l _cfetp,R8
+cmp 2(R8),R7
+blt L18
+*line 313
+move R7,(sp)
+move _stcrow,-(sp)
+jsr _itcpos
+addq.l #2,sp
+*line 314
+L18:
+*line 315
+move _stccol,R0
+asl #3,R0
+move R0,_cxval
+*line 316
+move _stcrow,R0
+muls #14,R0
+move R0,_cyval
+L15:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _keycpyw
+.text
+_keycpyw:
+~~keycpyw:
+~dest=R13
+~src=R12
+~len=R7
+~wk=18
+~bk=20
+link R14,#0
+movem.l R2-R7/R12-R13,-(sp)
+~wkey=R6
+~bkey=R5
+~theword=R4
+~i=R3
+*line 336
+move.l 8(R14),R13
+*line 336
+move.l 12(R14),R12
+*line 336
+move 16(R14),R7
+*line 336
+move 18(R14),(sp)
+jsr _exp_c
+move R0,R6
+*line 337
+move 20(R14),(sp)
+jsr _exp_c
+move R0,R5
+*line 339
+clr R3
+bra L22
+L23:
+*line 340
+*line 341
+move (R12)+,R4
+*line 342
+clr R0
+move R4,R0
+and R6,R0
+clr R1
+move R5,R1
+clr R2
+move R4,R2
+not R2
+and R2,R1
+or R1,R0
+move R0,(R13)+
+L21:
+*line 339
+add #1,R3
+L22:
+*line 339
+cmp R7,R3
+blt L23
+L20:L19:tst.l (sp)+
+movem.l (sp)+,R3-R7/R12-R13
+unlk R14
+rts
+.globl _asgkb
+.text
+_asgkb:
+~~asgkb:
+link R14,#0
+movem.l R4-R7/R13-R13,-(sp)
+~p=R13
+~akline=R7
+~i=R6
+~j=R5
+*line 361
+move #14,(sp)
+jsr _exp_c
+move R0,R7
+*line 362
+move.l _asgob,R13
+add.l #$9a0c,R13
+*line 364
+clr R5
+bra L27
+L28:
+*line 365
+*line 366
+move #115,(sp)
+move R7,-(sp)
+move.l R13,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 367
+add.l #$100,R13
+*line 368
+*line 369
+clr R6
+bra L31
+L32:
+*line 370
+*line 371
+move #7,(sp)
+move #6,-(sp)
+move #115,-(sp)
+move.l #_asgkbtp,-(sp)
+move.l R13,-(sp)
+jsr _keycpyw
+adda.l #12,sp
+*line 372
+add.l #$100,R13
+L30:
+*line 369
+add #1,R6
+L31:
+*line 369
+cmp #13,R6
+blt L32
+L29:
+*line 373
+L26:
+*line 364
+add #1,R5
+L27:
+*line 364
+cmp #12,R5
+blt L28
+L25:
+*line 376
+move #115,(sp)
+move R7,-(sp)
+move.l R13,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 377
+add.l #$100,R13
+*line 379
+clr R6
+bra L35
+L36:
+*line 380
+*line 381
+move #9,(sp)
+move #8,-(sp)
+move #115,-(sp)
+move.l #_asgkbtp,-(sp)
+move.l R13,-(sp)
+jsr _keycpyw
+adda.l #12,sp
+*line 382
+add.l #$100,R13
+L34:
+*line 379
+add #1,R6
+L35:
+*line 379
+cmp #14,R6
+blt L36
+L33:
+*line 385
+clr R6
+bra L39
+L40:
+*line 386
+*line 387
+move #9,(sp)
+move #8,-(sp)
+move #115,-(sp)
+move.l #_asgkbbt,-(sp)
+move.l R13,-(sp)
+jsr _keycpyw
+adda.l #12,sp
+*line 388
+add.l #$100,R13
+L38:
+*line 385
+add #1,R6
+L39:
+*line 385
+cmp #11,R6
+blt L40
+L37:
+*line 391
+move #115,(sp)
+move R7,-(sp)
+move.l R13,-(sp)
+jsr _memsetw
+addq.l #6,sp
+L24:tst.l (sp)+
+movem.l (sp)+,R5-R7/R13-R13
+unlk R14
+rts
+.globl _drawk2g
+.text
+_drawk2g:
+~~drawk2g:
+~grp=R7
+link R14,#0
+movem.l R2-R7/R12-R13,-(sp)
+~i=R6
+~n=R5
+~key=R4
+~line=R3
+~bfsp=R13
+~lp=R12
+*line 413
+move 8(R14),R7
+*line 413
+move #7,R5
+*line 415
+move R7,R3
+muls #14,R3
+add #158,R3
+*line 416
+move R3,R0
+ext.l R0
+asl.l #$7,R0
+asl.l #1,R0
+move.l R0,R12
+add.l _asgob,R12
+add.l #$c,R12
+*line 418
+clr R6
+bra L44
+L45:
+*line 419
+*line 420
+move #7,(sp)
+move #6,-(sp)
+move #115,-(sp)
+move.l #_asgkbtp,-(sp)
+move.l R12,-(sp)
+jsr _keycpyw
+adda.l #12,sp
+*line 421
+add.l #$100,R12
+L43:
+*line 418
+add #1,R6
+L44:
+*line 418
+cmp #4,R6
+blt L45
+L42:
+*line 424
+*line 424
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #1,(R8)
+bne L46
+*line 425
+*line 426
+clr R4
+bra L49
+L50:
+*line 427
+*line 428
+move R4,R8
+add.l R8,R8
+move.l #_key2grp,R9
+move 0(R8,R9.l),R0
+move #1,R1
+move R7,R2
+asl R2,R1
+and R1,R0
+beq L51
+*line 429
+*line 430
+move #15,(sp)
+jsr _exp_c
+move R0,(sp)
+move R3,-(sp)
+add #3,(sp)
+move R4,R8
+add.l R8,R8
+move.l #_asgkble,R9
+move 0(R8,R9.l),-(sp)
+cmp #87,R4
+bne L10000
+move #31,R0
+bra L10002
+L10000:move #28,R0
+L10002:add R0,(sp)
+move R3,-(sp)
+move R4,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 431
+L51:L48:
+*line 426
+add #1,R4
+L49:
+*line 426
+cmp #88,R4
+blt L50
+L47:
+*line 432
+cmp #8,R7
+ble L10003
+move R7,(sp)
+add #163,(sp)
+bra L10005
+L10003:move R7,(sp)
+add #49,(sp)
+L10005:move.l #L52,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 433
+move.l #_bfs,R13
+*line 434
+bra L53
+L46:
+*line 435
+*line 436
+*line 437
+move.l #L54,R13
+L53:
+*line 440
+*line 441
+move #14,(sp)
+move.l R13,-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #1,(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 10(R8,R9.l),-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _vcputsv
+adda.l #18,sp
+*line 443
+*line 444
+move #14,(sp)
+move.l R13,-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #61,(sp)
+move R7,-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #1,(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 10(R8,R9.l),-(sp)
+move R5,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _vcputsv
+adda.l #18,sp
+L41:tst.l (sp)+
+movem.l (sp)+,R3-R7/R12-R13
+unlk R14
+rts
+.globl _adpoint
+.text
+_adpoint:
+~~adpoint:
+~x=8
+~y=10
+~pen=12
+link R14,#-4
+*line 459
+*line 460
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L56
+*line 460
+clr (sp)
+jsr _vbank
+*line 461
+L56:
+*line 462
+move 12(R14),(sp)
+jsr _exp_c
+move R0,(sp)
+move 10(R14),-(sp)
+move 8(R14),-(sp)
+move.l _adoct,-(sp)
+jsr _vputp
+addq.l #8,sp
+L55:unlk R14
+rts
+.globl _numblk
+.text
+_numblk:
+~~numblk:
+~buf=8
+~n=12
+link R14,#-4
+*line 476
+*line 476
+cmp #-1,12(R14)
+bne L58
+*line 477
+*line 478
+move.l #L59,(sp)
+move.l 8(R14),-(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 479
+move.l 8(R14),R0
+bra L57
+*line 480
+bra L60
+L58:
+*line 481
+*line 482
+*line 483
+move 12(R14),(sp)
+move.l #L61,-(sp)
+move.l 8(R14),-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 484
+move.l 8(R14),R0
+bra L57
+L60:L57:unlk R14
+rts
+.globl _adswin
+.text
+_adswin:
+~~adswin:
+~n=R7
+link R14,#-8
+movem.l R4-R7/R13-R13,-(sp)
+~cx=R6
+~i=R5
+~bfsp=R13
+~buf1=-4
+~buf2=-8
+*line 504
+move 8(R14),R7
+*line 504
+*line 505
+cmp #7,R7
+bne L10006
+cmp #-1,_admctl
+bne L62
+L10006:*line 506
+*line 507
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 10(R8,R9.l),(sp)
+jsr _exp_c
+move R0,R6
+*line 508
+move.l #_adpoint,_point
+*line 512
+clr (sp)
+jsr _vbank
+*line 513
+*line 514
+move R6,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 6(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 4(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 2(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 0(R8,R9.l),-(sp)
+move #128,-(sp)
+move.l _asgob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 518
+*line 519
+move #14,(sp)
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_adbxlb,R9
+move.l 0(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 523
+move R7,R0
+bra L64
+*line 524
+L65:
+*line 525
+*line 526
+*line 527
+move _curasg,(sp)
+move.l #L66,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 528
+*line 529
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #8,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+tst _asgmod
+beq L10007
+move #13,-(sp)
+bra L10009
+L10007:move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10009:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 530
+*line 531
+move.l #_caname,(sp)
+move.l #L67,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 532
+*line 533
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 534
+bra L62
+*line 535
+*line 536
+L68:
+*line 537
+*line 538
+*line 539
+*line 540
+move #14,(sp)
+move _curmop,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_gprep,R9
+move.l 0(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #9,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 541
+bra L62
+*line 542
+*line 543
+L69:
+*line 544
+*line 545
+*line 546
+move _prgchan,(sp)
+move.l #L70,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 547
+*line 548
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #8,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 549
+bra L62
+*line 550
+*line 551
+*line 552
+L71:
+*line 553
+*line 554
+*line 555
+*line 556
+move #14,(sp)
+move.l #L72,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 557
+*line 558
+*line 559
+move #14,(sp)
+move.l #L73,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 560
+*line 561
+*line 562
+move #14,(sp)
+move.l #L74,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #3,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 563
+*line 564
+*line 565
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #111,-(sp)
+move #55,-(sp)
+move #104,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 566
+*line 567
+*line 568
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #135,-(sp)
+move #55,-(sp)
+move #120,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 569
+*line 570
+*line 571
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #159,-(sp)
+move #55,-(sp)
+move #152,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 572
+*line 573
+*line 574
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #183,-(sp)
+move #55,-(sp)
+move #168,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 575
+*line 576
+clr R5
+bra L77
+L78:
+*line 577
+*line 578
+*line 579
+move R5,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),(sp)
+move.l R14,-(sp)
+sub.l #4,(sp)
+jsr _numblk
+addq.l #4,sp
+move.l R0,(sp)
+move R5,-(sp)
+add #49,(sp)
+move.l #L79,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+adda.l #10,sp
+*line 580
+*line 581
+*line 582
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 583
+*line 584
+*line 585
+move R5,R8
+add #6,R8
+add.l R8,R8
+move.l #_vce2grp,R9
+move 0(R8,R9.l),(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _numblk
+addq.l #4,sp
+move.l R0,(sp)
+cmp #2,R5
+ble L10010
+move R5,-(sp)
+add #169,(sp)
+bra L10012
+L10010:move R5,-(sp)
+add #55,(sp)
+L10012:move.l #L80,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+adda.l #10,sp
+*line 586
+*line 587
+*line 588
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #6,(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+L76:
+*line 576
+add #1,R5
+L77:
+*line 576
+cmp #6,R5
+blt L78
+L75:
+*line 589
+*line 590
+bra L62
+*line 591
+*line 592
+*line 593
+L81:
+*line 594
+*line 595
+*line 596
+*line 597
+move #14,(sp)
+move.l #L82,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 598
+*line 599
+*line 600
+move #14,(sp)
+move.l #L83,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 601
+*line 602
+*line 603
+move #14,(sp)
+move.l #L84,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #3,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 604
+*line 605
+*line 606
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #207,-(sp)
+move #55,-(sp)
+move #200,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 607
+*line 608
+*line 609
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #271,-(sp)
+move #55,-(sp)
+move #216,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 610
+*line 611
+*line 612
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #295,-(sp)
+move #55,-(sp)
+move #280,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 613
+*line 614
+clr R5
+bra L87
+L88:
+*line 615
+*line 616
+move #14,(sp)
+move R5,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_asgsrc,R9
+move.l 0(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+L86:
+*line 614
+add #1,R5
+L87:
+*line 614
+cmp #6,R5
+blt L88
+L85:
+*line 616
+*line 617
+*line 618
+clr R5
+bra L91
+L92:
+*line 619
+*line 620
+move R5,R8
+add.l R8,R8
+move.l #_mctlnum,R9
+move 0(R8,R9.l),(sp)
+and #255,(sp)
+move.l R14,-(sp)
+sub.l #4,(sp)
+jsr _numblk
+addq.l #4,sp
+move.l R0,(sp)
+move.l #L93,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 621
+*line 622
+*line 623
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #10,(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #5,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 624
+*line 625
+*line 625
+move R5,R8
+add.l R8,R8
+add.l #_mctlnum,R8
+cmp #-1,(R8)
+beq L94
+move R5,R8
+add.l R8,R8
+add.l #_mctlnum,R8
+btst #0,(R8)
+beq L94
+*line 626
+*line 627
+move R5,R0
+add #50,R0
+move.b R0,_bfs
+*line 628
+clr.b 1+_bfs
+*line 629
+*line 630
+*line 631
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #5,(sp)
+move #13,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 632
+L94:L90:
+*line 618
+add #1,R5
+L91:
+*line 618
+cmp #4,R5
+blt L92
+L89:
+*line 633
+*line 634
+bra L62
+*line 635
+*line 636
+*line 637
+L95:
+*line 638
+*line 639
+*line 640
+*line 641
+move #14,(sp)
+move.l #L96,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 642
+*line 643
+*line 644
+move #14,(sp)
+move.l #L97,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 645
+*line 646
+*line 647
+move #14,(sp)
+move.l #L98,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #3,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 648
+*line 649
+*line 650
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #319,-(sp)
+move #55,-(sp)
+move #312,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 651
+*line 652
+*line 653
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #343,-(sp)
+move #55,-(sp)
+move #328,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 654
+*line 655
+*line 656
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #359,-(sp)
+move #55,-(sp)
+move #352,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 657
+*line 658
+*line 659
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #375,-(sp)
+move #55,-(sp)
+move #368,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 660
+*line 661
+*line 662
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #399,-(sp)
+move #55,-(sp)
+move #384,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 663
+*line 664
+*line 665
+*line 666
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #423,-(sp)
+move #55,-(sp)
+move #416,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 667
+*line 668
+*line 669
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #447,-(sp)
+move #55,-(sp)
+move #432,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 670
+*line 671
+*line 672
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #463,-(sp)
+move #55,-(sp)
+move #456,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 673
+*line 674
+*line 675
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #479,-(sp)
+move #55,-(sp)
+move #472,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 676
+*line 677
+*line 678
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+move #55,-(sp)
+move #503,-(sp)
+move #55,-(sp)
+move #488,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 679
+*line 680
+*line 681
+*line 682
+clr R5
+bra L101
+L102:
+*line 683
+*line 684
+*line 685
+*line 686
+*line 687
+*line 688
+*line 689
+*line 690
+*line 691
+*line 692
+*line 693
+*line 694
+move R5,R8
+add #6,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 2(R8,R9.l),(sp)
+move.l R14,-(sp)
+sub.l #8,(sp)
+jsr _numblk
+addq.l #4,sp
+move.l R0,(sp)
+move R5,R8
+add #6,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 0(R8,R9.l),R8
+add.l R8,R8
+add.l R8,R8
+move.l #_gprep,R9
+move.l 0(R8,R9.l),-(sp)
+move R5,R8
+add #6,R8
+add.l R8,R8
+move.l #_grpdyn,R9
+move 0(R8,R9.l),-(sp)
+move R5,R8
+add #6,R8
+add.l R8,R8
+move.l #_ins2grp,R9
+move 0(R8,R9.l),-(sp)
+and #255,(sp)
+cmp #2,R5
+ble L10013
+move R5,-(sp)
+add #169,(sp)
+bra L10015
+L10013:move R5,-(sp)
+add #55,(sp)
+L10015:move R5,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 2(R8,R9.l),-(sp)
+move.l R14,-(sp)
+sub.l #4,(sp)
+jsr _numblk
+addq.l #6,sp
+move.l R0,-(sp)
+move R5,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_grp2prt,R9
+move 0(R8,R9.l),R8
+add.l R8,R8
+add.l R8,R8
+move.l #_gprep,R9
+move.l 0(R8,R9.l),-(sp)
+move R5,R8
+add.l R8,R8
+move.l #_grpdyn,R9
+move 0(R8,R9.l),-(sp)
+move R5,R8
+add.l R8,R8
+move.l #_ins2grp,R9
+move 0(R8,R9.l),-(sp)
+and #255,(sp)
+move R5,-(sp)
+add #49,(sp)
+move.l #L103,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+adda.l #32,sp
+*line 695
+*line 696
+*line 697
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 698
+*line 699
+*line 699
+move R5,R8
+add.l R8,R8
+add.l #_ins2grp,R8
+btst #0,(R8)
+beq L104
+*line 700
+*line 701
+clr.b 1+_bfs
+*line 702
+*line 703
+*line 704
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move #13,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 705
+*line 706
+L104:
+*line 707
+*line 707
+move R5,R8
+add #6,R8
+add.l R8,R8
+add.l #_ins2grp,R8
+btst #0,(R8)
+beq L105
+*line 708
+*line 709
+clr.b 14+_bfs
+*line 710
+*line 711
+*line 712
+move #14,(sp)
+move.l #13+_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #13,(sp)
+move R5,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),R0
+add R0,(sp)
+add #4,(sp)
+move #13,-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 713
+L105:L100:
+*line 682
+add #1,R5
+L101:
+*line 682
+cmp #6,R5
+blt L102
+L99:
+*line 714
+*line 715
+bra L62
+*line 716
+*line 717
+*line 718
+L106:
+*line 719
+*line 720
+*line 721
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+jsr _exp_c
+move R0,(sp)
+move #153,-(sp)
+move #15,-(sp)
+move #153,-(sp)
+move #8,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 722
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),(sp)
+jsr _exp_c
+move R0,(sp)
+move #153,-(sp)
+move #503,-(sp)
+move #153,-(sp)
+move #496,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 723
+*line 724
+jsr _asgkb
+*line 725
+*line 726
+clr R5
+bra L109
+L110:
+*line 727
+move R5,(sp)
+jsr _drawk2g
+L108:
+*line 726
+add #1,R5
+L109:
+*line 726
+cmp #12,R5
+blt L110
+L107:
+*line 727
+*line 728
+bra L62
+*line 729
+*line 730
+L111:
+*line 731
+*line 732
+*line 733
+*line 734
+move #14,(sp)
+move.l #L112,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+tst _auxctl
+beq L10016
+move #13,-(sp)
+bra L10018
+L10016:move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10018:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 735
+bra L62
+*line 736
+*line 737
+L113:
+*line 738
+*line 739
+*line 740
+*line 741
+move #14,(sp)
+move.l #L114,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 742
+*line 743
+move _curtun,(sp)
+move.l #L115,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 744
+*line 745
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+add #4,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+tst _tunmod
+beq L10019
+move #13,-(sp)
+bra L10021
+L10019:move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+L10021:move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 746
+bra L62
+*line 747
+*line 748
+L116:
+*line 749
+*line 750
+*line 751
+move _ps_intn,(sp)
+move.l #L117,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 752
+*line 753
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #1,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 754
+*line 755
+move _ps_rate,(sp)
+move.l #L118,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 756
+*line 757
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #2,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 758
+*line 759
+move _ps_dpth,(sp)
+move.l #L119,-(sp)
+move.l #_bfs,-(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 760
+*line 761
+move #14,(sp)
+move.l #_bfs,-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 14(R8,R9.l),-(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 12(R8,R9.l),-(sp)
+add #3,(sp)
+move R7,R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_adbox,R9
+move 8(R8,R9.l),-(sp)
+move #64,-(sp)
+move.l _asgob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 762
+bra L62
+*line 763
+bra L63
+L64:cmp #10,R0
+bhi L63
+asl #2,R0
+move R0,R8
+add.l #L120,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L120:.dc.l L65
+.dc.l L63
+.dc.l L68
+.dc.l L69
+.dc.l L71
+.dc.l L81
+.dc.l L95
+.dc.l L106
+.dc.l L111
+.dc.l L113
+.dc.l L116
+.text
+L63:L62:tst.l (sp)+
+movem.l (sp)+,R5-R7/R13-R13
+unlk R14
+rts
+.globl _initat
+.text
+_initat:
+~~initat:
+~n=8
+link R14,#0
+movem.l R6-R7/R13-R13,-(sp)
+~ap=R13
+~i=R7
+*line 782
+move 8(R14),R0
+muls #332,R0
+move.l R0,R13
+add.l #_asgtab,R13
+*line 783
+clr (R13)
+*line 784
+clr 2(R13)
+*line 785
+clr 4(R13)
+*line 786
+move #70,6(R13)
+*line 787
+clr 8(R13)
+*line 788
+move #70,10(R13)
+*line 790
+clr R7
+bra L124
+L125:
+*line 791
+*line 792
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R8
+clr 12(R8)
+*line 793
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R8
+move #9,36(R8)
+L123:
+*line 790
+add #1,R7
+L124:
+*line 790
+cmp #12,R7
+blt L125
+L122:
+*line 796
+clr R7
+bra L128
+L129:
+*line 797
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R8
+move #1,60(R8)
+L127:
+*line 796
+add #1,R7
+L128:
+*line 796
+cmp #8,R7
+blt L129
+L126:
+*line 799
+move #8,R7
+bra L132
+L133:
+*line 800
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R8
+move #2,60(R8)
+L131:
+*line 799
+add #1,R7
+L132:
+*line 799
+cmp #12,R7
+blt L133
+L130:
+*line 802
+move #1,84(R13)
+*line 803
+move #2,86(R13)
+*line 804
+move #80,88(R13)
+*line 805
+move #4,90(R13)
+*line 807
+move #1,92(R13)
+*line 808
+move #1,94(R13)
+*line 809
+move #3,96(R13)
+*line 810
+move #1,98(R13)
+*line 812
+move #2,R7
+bra L136
+L137:
+*line 813
+*line 814
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R9
+add.l R9,R8
+clr 92(R8)
+*line 815
+move.l R13,R8
+move R7,R9
+add.l R9,R9
+add.l R9,R9
+add.l R9,R8
+move #-1,94(R8)
+L135:
+*line 812
+add #1,R7
+L136:
+*line 812
+cmp #12,R7
+blt L137
+L134:
+*line 818
+move #88,(sp)
+move #1,-(sp)
+move.l R13,-(sp)
+add.l #140,(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 820
+move #16,(sp)
+tst 8(R14)
+beq L10022
+move.l #L138,-(sp)
+bra L10024
+L10022:move.l #L139,-(sp)
+L10024:move.l R13,-(sp)
+add.l #316,(sp)
+jsr _memcpy
+addq.l #8,sp
+L121:tst.l (sp)+
+movem.l (sp)+,R7-R7/R13-R13
+unlk R14
+rts
+.globl _setaux
+.text
+_setaux:
+~~setaux:
+~aux=R7
+link R14,#0
+movem.l R5-R7/R13-R13,-(sp)
+~psgdata=R6
+~psg=R13
+*line 838
+move 8(R14),R7
+*line 838
+move R7,_auxctl
+*line 839
+move.l #_io_tone,R13
+*line 841
+move.b #7,(R13)
+*line 842
+move.b #191,2(R13)
+*line 844
+move.b #15,(R13)
+*line 845
+move.b (R13),R6
+ext.w R6
+and #-3,R6
+*line 847
+move.b #15,(R13)
+*line 848
+move R6,R0
+tst R7
+beq L10025
+clr R1
+bra L10027
+L10025:move #2,R1
+L10027:or R1,R0
+move.b R0,2(R13)
+L140:tst.l (sp)+
+movem.l (sp)+,R6-R7/R13-R13
+unlk R14
+rts
+.globl _getasg
+.text
+_getasg:
+~~getasg:
+~n=8
+link R14,#0
+movem.l R4-R7/R13-R13,-(sp)
+~ap=R13
+~i=R7
+~grp=R6
+~vce=R5
+*line 866
+move 8(R14),R0
+muls #332,R0
+move.l R0,R13
+add.l #_asgtab,R13
+*line 867
+move (R13),_curmop
+*line 868
+move 2(R13),(sp)
+jsr _gettun
+*line 869
+move 4(R13),(sp)
+jsr _setaux
+*line 870
+move 6(R13),_ps_intn
+*line 871
+move 8(R13),_ps_rate
+*line 872
+move 10(R13),_ps_dpth
+*line 873
+move #12,(sp)
+move.l R13,-(sp)
+add.l #12,(sp)
+move.l #_ins2grp,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 874
+move #12,(sp)
+move.l R13,-(sp)
+add.l #36,(sp)
+move.l #_grpdyn,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 875
+move #12,(sp)
+move.l R13,-(sp)
+add.l #60,(sp)
+move.l #_vce2grp,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 876
+move #4,(sp)
+move.l R13,-(sp)
+add.l #84,(sp)
+move.l #_mctlnum,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 877
+move #24,(sp)
+move.l R13,-(sp)
+add.l #92,(sp)
+move.l #_grp2prt,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 878
+move #88,(sp)
+move.l R13,-(sp)
+add.l #140,(sp)
+move.l #_key2grp,-(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 879
+move #16,(sp)
+move.l R13,-(sp)
+add.l #316,(sp)
+move.l #_caname,-(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 881
+clr R7
+bra L144
+L145:
+*line 882
+*line 883
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #4,(R8)
+bne L146
+*line 883
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+move #3,(R8)
+*line 884
+L146:L143:
+*line 881
+add #1,R7
+L144:
+*line 881
+cmp #12,R7
+blt L145
+L142:
+*line 885
+move _ps_intn,R0
+muls #10,R0
+asl #5,R0
+move R0,(sp)
+clr -(sp)
+move #1,-(sp)
+jsr _sendval
+addq.l #4,sp
+*line 886
+move _ps_rate,R0
+muls #10,R0
+asl #5,R0
+move R0,(sp)
+clr -(sp)
+move #2,-(sp)
+jsr _sendval
+addq.l #4,sp
+*line 887
+move _ps_dpth,R0
+muls #10,R0
+asl #5,R0
+move R0,(sp)
+clr -(sp)
+move #3,-(sp)
+jsr _sendval
+addq.l #4,sp
+*line 889
+clr R5
+bra L149
+L150:
+*line 890
+*line 891
+move R5,R8
+add.l R8,R8
+add.l #_vce2grp,R8
+move (R8),R6
+*line 892
+*line 893
+*line 893
+cmp #-1,R6
+beq L151
+*line 894
+*line 895
+move R6,R8
+sub #1,R8
+add.l R8,R8
+move.l #_ins2grp,R9
+move 0(R8,R9.l),R0
+and #255,R0
+move R5,R9
+add.l R9,R9
+add.l #_s_inst,R9
+move R0,(R9)
+*line 896
+move #1,(sp)
+move R5,R8
+add.l R8,R8
+move.l #_s_inst,R9
+move 0(R8,R9.l),-(sp)
+move R5,-(sp)
+jsr _execins
+addq.l #4,sp
+*line 897
+move R6,R8
+sub #1,R8
+add.l R8,R8
+move.l #_grpdyn,R9
+move 0(R8,R9.l),R8
+add.l R8,R8
+move.l #_dyntab,R9
+move 0(R8,R9.l),(sp)
+move #8,-(sp)
+move R5,-(sp)
+jsr _sendval
+addq.l #4,sp
+*line 898
+L151:L148:
+*line 889
+add #1,R5
+L149:
+*line 889
+cmp #12,R5
+blt L150
+L147:
+*line 901
+move _curvce,(sp)
+jsr _newvce
+*line 902
+clr _asgmod
+L141:tst.l (sp)+
+movem.l (sp)+,R5-R7/R13-R13
+unlk R14
+rts
+.globl _putasg
+.text
+_putasg:
+~~putasg:
+~n=8
+link R14,#0
+movem.l R6-R7/R13-R13,-(sp)
+~ap=R13
+~i=R7
+*line 920
+clr R7
+bra L155
+L156:
+*line 921
+*line 922
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+cmp #4,(R8)
+bne L157
+*line 922
+move R7,R8
+add.l R8,R8
+add.l R8,R8
+add.l #_grp2prt,R8
+move #3,(R8)
+*line 923
+L157:L154:
+*line 920
+add #1,R7
+L155:
+*line 920
+cmp #12,R7
+blt L156
+L153:
+*line 924
+move 8(R14),R0
+muls #332,R0
+move.l R0,R13
+add.l #_asgtab,R13
+*line 925
+move _curmop,(R13)
+*line 926
+move _curtun,2(R13)
+*line 927
+move _auxctl,4(R13)
+*line 928
+move _ps_intn,6(R13)
+*line 929
+move _ps_rate,8(R13)
+*line 930
+move _ps_dpth,10(R13)
+*line 931
+move #12,(sp)
+move.l #_ins2grp,-(sp)
+move.l R13,-(sp)
+add.l #12,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 932
+move #12,(sp)
+move.l #_grpdyn,-(sp)
+move.l R13,-(sp)
+add.l #36,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 933
+move #12,(sp)
+move.l #_vce2grp,-(sp)
+move.l R13,-(sp)
+add.l #60,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 934
+move #4,(sp)
+move.l #_mctlnum,-(sp)
+move.l R13,-(sp)
+add.l #84,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 935
+move #24,(sp)
+move.l #_grp2prt,-(sp)
+move.l R13,-(sp)
+add.l #92,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 936
+move #88,(sp)
+move.l #_key2grp,-(sp)
+move.l R13,-(sp)
+add.l #140,(sp)
+jsr _memcpyw
+addq.l #8,sp
+*line 937
+move #16,(sp)
+move.l #_caname,-(sp)
+move.l R13,-(sp)
+add.l #316,(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 938
+clr _asgmod
+L152:tst.l (sp)+
+movem.l (sp)+,R7-R7/R13-R13
+unlk R14
+rts
+.globl _awins
+.text
+_awins:
+~~awins:
+link R14,#0
+movem.l R6-R7,-(sp)
+~i=R7
+*line 954
+clr R7
+bra L161
+L162:
+*line 955
+move R7,(sp)
+jsr _adswin
+L160:
+*line 954
+add #1,R7
+L161:
+*line 954
+cmp #11,R7
+blt L162
+L159:L158:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _inital
+.text
+_inital:
+~~inital:
+link R14,#0
+movem.l R6-R7,-(sp)
+~n=R7
+*line 968
+clr R7
+bra L166
+L167:
+*line 969
+move R7,(sp)
+jsr _initat
+L165:
+*line 968
+add #1,R7
+L166:
+*line 968
+cmp #100,R7
+blt L167
+L164:
+*line 971
+clr (sp)
+jsr _getasg
+*line 972
+move #1,_prgchan
+L163:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _adbord
+.text
+_adbord:
+~~adbord:
+link R14,#-4
+*line 986
+move.l #_adpoint,_point
+*line 988
+move #10,(sp)
+clr -(sp)
+move #511,-(sp)
+clr -(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 989
+move #10,(sp)
+move #349,-(sp)
+move #511,-(sp)
+clr -(sp)
+move #511,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 990
+move #10,(sp)
+move #349,-(sp)
+clr -(sp)
+move #349,-(sp)
+move #511,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 991
+move #10,(sp)
+clr -(sp)
+clr -(sp)
+move #349,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 993
+move #10,(sp)
+move #41,-(sp)
+move #95,-(sp)
+move #41,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 994
+move #10,(sp)
+move #55,-(sp)
+move #95,-(sp)
+move #55,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 995
+move #10,(sp)
+move #69,-(sp)
+move #95,-(sp)
+move #69,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 996
+move #10,(sp)
+move #83,-(sp)
+move #95,-(sp)
+move #83,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 997
+move #10,(sp)
+move #139,-(sp)
+move #511,-(sp)
+move #139,-(sp)
+clr -(sp)
+jsr _lseg
+addq.l #8,sp
+*line 999
+move #10,(sp)
+move #83,-(sp)
+move #39,-(sp)
+move #69,-(sp)
+move #39,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 1000
+move #10,(sp)
+move #139,-(sp)
+move #95,-(sp)
+clr -(sp)
+move #95,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 1001
+move #10,(sp)
+move #139,-(sp)
+move #191,-(sp)
+clr -(sp)
+move #191,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 1002
+move #10,(sp)
+move #139,-(sp)
+move #303,-(sp)
+clr -(sp)
+move #303,-(sp)
+jsr _lseg
+addq.l #8,sp
+L168:unlk R14
+rts
+.globl _asgdsp
+.text
+_asgdsp:
+~~asgdsp:
+link R14,#-4
+*line 1016
+move.l #_v_score,_asgob
+*line 1017
+move.l #_v_curs0,_obj0
+*line 1018
+move.l #_v_tcur,_obj2
+*line 1019
+move.l #144+_v_obtab,_adoct
+*line 1021
+clr _adnamsw
+*line 1022
+clr _submenu
+*line 1023
+move #-1,_admctl
+*line 1025
+jsr _dswap
+*line 1027
+clr (sp)
+jsr _vbank
+*line 1028
+move #32767,(sp)
+clr -(sp)
+move.l _asgob,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 1029
+move #12033,(sp)
+clr -(sp)
+move.l _asgob,R0
+add.l #$fffe,R0
+move.l R0,-(sp)
+jsr _memsetw
+addq.l #6,sp
+*line 1031
+move #-1,(sp)
+move #1536,-(sp)
+clr -(sp)
+clr -(sp)
+move #350,-(sp)
+move #512,-(sp)
+move.l _asgob,-(sp)
+clr -(sp)
+clr -(sp)
+move #8,-(sp)
+jsr _SetObj
+adda.l #20,sp
+*line 1032
+move #-1,(sp)
+move #1540,-(sp)
+clr -(sp)
+move #72,-(sp)
+move #16,-(sp)
+move #16,-(sp)
+move.l _obj0,-(sp)
+move #1,-(sp)
+clr -(sp)
+clr -(sp)
+jsr _SetObj
+adda.l #20,sp
+*line 1033
+move #-1,(sp)
+move #1572,-(sp)
+clr -(sp)
+clr -(sp)
+move #16,-(sp)
+move #16,-(sp)
+move.l _obj2,-(sp)
+move #1,-(sp)
+clr -(sp)
+move #2,-(sp)
+jsr _SetObj
+adda.l #20,sp
+*line 1035
+move #1,(sp)
+jsr _arcurs
+*line 1036
+move #1,(sp)
+jsr _itcini
+*line 1037
+move #1,(sp)
+jsr _ttcini
+*line 1039
+jsr _adbord
+*line 1040
+jsr _awins
+*line 1042
+move #8,(sp)
+move #8,-(sp)
+jsr _SetPri
+addq.l #2,sp
+*line 1044
+move #9,(sp)
+clr -(sp)
+jsr _settc
+addq.l #2,sp
+*line 1046
+move.l #_asgpal,(sp)
+jsr _vsndpal
+L169:unlk R14
+rts
+.data
+L1:.dc.b $20,$0
+L2:.dc.b $31,$0
+L3:.dc.b $32,$0
+L4:.dc.b $4C,$0
+L5:.dc.b $31,$20,$50,$63,$68,$2F,$48,$6F,$72,$0
+L6:.dc.b $32,$20,$4D,$6F,$64,$2F,$56,$72,$74,$0
+L7:.dc.b $33,$20,$42,$72,$74,$68,$2F,$4C,$50,$0
+L8:.dc.b $34,$20,$47,$50,$43,$2F,$43,$56,$31,$0
+L9:.dc.b $35,$20,$50,$65,$64,$61,$6C,$20,$31,$0
+L10:.dc.b $36,$20,$4B,$65,$79,$20,$50,$72,$73,$0
+L52:.dc.b $25,$63,$0
+L54:.dc.b $20,$0
+L59:.dc.b $20,$20,$0
+L61:.dc.b $25,$30,$32,$2E,$32,$64,$0
+L66:.dc.b $25,$30,$32,$2E,$32,$64,$0
+L67:.dc.b $25,$2D,$31,$30,$2E,$31,$30,$73,$0
+L70:.dc.b $25,$30,$32,$2E,$32,$64,$0
+L72:.dc.b $6F,$66,$20,$47,$72,$6F,$75,$70,$73,$0
+L73:.dc.b $74,$6F,$20,$56,$6F,$69,$63,$65,$73,$0
+L74:.dc.b $56,$20,$47,$72,$20,$20,$56,$20,$47,$72,$0
+L79:.dc.b $25,$63,$20,$25,$73,$0
+L80:.dc.b $25,$63,$20,$25,$73,$0
+L82:.dc.b $53,$6F,$75,$72,$63,$65,$73,$20,$61,$6E,$64,$0
+L83:.dc.b $43,$6F,$6E,$74,$72,$6F,$6C,$6C,$65,$72,$73,$0
+L84:.dc.b $23,$20,$53,$6F,$75,$72,$63,$65,$20,$20,$43,$4E,$0
+L93:.dc.b $25,$73,$0
+L96:.dc.b $44,$79,$6E,$61,$6D,$69,$63,$73,$2C,$20,$4D,$49,$44,$49,$20,$50,$6F,$72,$74,$73,$20,$61,$6E,$64,$0
+L97:.dc.b $43,$68,$61,$6E,$6E,$65,$6C,$73,$20,$74,$6F,$20,$47,$72,$6F,$75,$70,$73,$0
+L98:.dc.b $47,$20,$49,$6E,$20,$44,$20,$49,$20,$43,$68,$20,$20,$47,$20,$49,$6E,$20,$44,$20,$49,$20,$43,$68,$0
+L103:.dc.b $25,$63,$20,$25,$30,$32,$2E,$32,$64,$20,$25,$64,$20,$25,$73,$20,$25,$73,$20,$20,$25,$63,$20,$25,$30,$32,$2E,$32,$64,$20
+.dc.b $25,$64,$20,$25,$73,$20,$25,$73,$0
+L112:.dc.b $41,$75,$78,$0
+L114:.dc.b $54,$75,$6E,$0
+L115:.dc.b $25,$64,$0
+L117:.dc.b $49,$6E,$74,$6E,$73,$74,$79,$20,$25,$30,$32,$2E,$32,$64,$0
+L118:.dc.b $4D,$6F,$64,$52,$61,$74,$65,$20,$25,$30,$32,$2E,$32,$64,$0
+L119:.dc.b $4D,$6F,$64,$44,$70,$74,$68,$20,$25,$30,$32,$2E,$32,$64,$0
+L138:.dc.b $7B,$75,$6E,$75,$73,$65,$64,$7D,$20,$20,$20,$20,$20,$20,$20,$20,$0
+L139:.dc.b $7B,$44,$65,$66,$61,$75,$6C,$74,$7D,$20,$20,$20,$20,$20,$20,$20,$0
