Index: alcyon/ldselbx.s
===================================================================
--- alcyon/ldselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
+++ alcyon/ldselbx.s	(revision 7bf3856f4ff505a2174d89c937caf328029e3574)
@@ -0,0 +1,2557 @@
+.globl _Cbuffs
+.globl _Stdbufs
+.globl _Stdbuf
+.globl _ebflag
+.globl _ebuf
+.globl _curfet
+.globl _cfetp
+.globl _infetp
+.globl _lcdx
+.globl _lcdy
+.globl _lcdbit
+.globl _lcdrow
+.globl _lcdcol
+.globl _lcdbase
+.globl _lcdctl1
+.globl _lcdctl2
+.globl _io_time
+.globl _io_lcd
+.globl _io_ser
+.globl _io_midi
+.globl _io_disk
+.globl _io_tone
+.globl _io_leds
+.globl _io_kbrd
+.globl _lcd_a0
+.globl _lcd_a1
+.globl _io_vreg
+.globl _io_vraw
+.globl _io_vram
+.globl _io_fpu
+.globl _v_regs
+.globl _v_odtab
+.globl _v_actab
+.globl _v_ct0
+.globl _v_gt1
+.globl _v_score
+.globl _v_cgtab
+.globl _v_curs0
+.globl _v_curs1
+.globl _v_curs2
+.globl _v_curs3
+.globl _v_curs4
+.globl _v_curs5
+.globl _v_curs6
+.globl _v_curs7
+.globl _v_tcur
+.globl _v_kbobj
+.globl _v_lnobj
+.globl _v_win0
+.globl _v_cur
+.globl _fc_sw
+.globl _fc_val
+.globl _v_obtab
+.globl _v_curob
+.globl _v_nobj
+.globl _v_obpri
+.globl _filecat
+.globl _ac_code
+.globl _scname
+.globl _se_chg
+.globl _curscor
+.globl _cursect
+.globl _se1_cnt
+.globl _se2_cnt
+.globl _se3_cnt
+.globl _spool
+.globl _pspool
+.globl _spcount
+.globl _frags
+.globl _t_bak
+.globl _t_cur
+.globl _t_ctr
+.globl _t_fwd
+.globl _size1
+.globl _size2
+.globl _size3
+.globl _scores
+.globl _scp
+.globl _seclist
+.globl _hplist
+.globl _p_bak
+.globl _p_cur
+.globl _p_ctr
+.globl _p_fwd
+.globl _point
+.globl _asmode
+.globl _catin
+.globl _cxrate
+.globl _cxval
+.globl _cyrate
+.globl _cyval
+.globl _errno
+.globl _gomode
+.globl _hitcx
+.globl _hitcy
+.globl _ismode
+.globl _lasgsw
+.globl _ldelsw
+.globl _lderrsw
+.globl _ldkind
+.globl _ldrow
+.globl _ldslot
+.globl _lksel
+.globl _lmwtype
+.globl _lorchl
+.globl _lorchsw
+.globl _lorclsw
+.globl _ldpass
+.globl _lpatsw
+.globl _lrasw
+.globl _lscrsw
+.globl _lselsw
+.globl _lseqsw
+.globl _lstrsw
+.globl _ltagged
+.globl _ltunsw
+.globl _lwavsw
+.globl _ndisp
+.globl _oldpk
+.globl _oldsl
+.globl _pkctrl
+.globl _sliders
+.globl _stcrow
+.globl _stccol
+.globl _tagslot
+.globl _librob
+.globl _ldmap
+.globl _scsizes
+.globl _ldbox
+.globl _sindex
+.globl _csbp
+.globl _curboxp
+.globl _swpt
+.globl _oldsw
+.globl _t_libr
+.globl _bfs
+.globl _ldfile
+.globl _ldcmnt
+.globl _loadedf
+.globl _loadedc
+.globl _ft2lt
+.data
+_ft2lt:
+.dc.w $0
+.dc.w $1
+.dc.w $2
+.dc.w $3
+.dc.w $4
+.dc.w $5
+.dc.w $1
+.dc.w $6
+.dc.w $7
+.globl _ldboxes
+.data
+_ldboxes:
+.dc.w $1
+.dc.w $1
+.dc.w $1FE
+.dc.w $D
+.dc.w $0
+*line 135
+.dc.l _ldfnbox
+.dc.w $1
+.dc.w $E
+.dc.w $1FE
+.dc.w $125
+.dc.w $1
+*line 136
+.dc.l _ldfnbox
+.dc.w $1
+.dc.w $126
+.dc.w $4E
+.dc.w $133
+.dc.w $2
+*line 137
+.dc.l _ldfnbox
+.dc.w $50
+.dc.w $126
+.dc.w $8F
+.dc.w $133
+.dc.w $3
+*line 138
+.dc.l _ldfnbox
+.dc.w $91
+.dc.w $126
+.dc.w $D6
+.dc.w $133
+.dc.w $4
+*line 139
+.dc.l _ldfnbox
+.dc.w $D8
+.dc.w $126
+.dc.w $1FE
+.dc.w $133
+.dc.w $5
+*line 140
+.dc.l _ldfnbox
+.dc.w $1
+.dc.w $134
+.dc.w $46
+.dc.w $141
+.dc.w $6
+*line 141
+.dc.l _ldfnbox
+.dc.w $1
+.dc.w $142
+.dc.w $46
+.dc.w $14F
+.dc.w $7
+*line 142
+.dc.l _ldfnbox
+.dc.w $1
+.dc.w $150
+.dc.w $46
+.dc.w $15D
+.dc.w $8
+*line 143
+.dc.l _ldfnbox
+.dc.w $48
+.dc.w $134
+.dc.w $FF
+.dc.w $15D
+.dc.w $9
+*line 144
+.dc.l _ldfnbox
+.dc.w $101
+.dc.w $134
+.dc.w $1FE
+.dc.w $15D
+.dc.w $A
+*line 145
+.dc.l _ldfnbox
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.w $0
+.dc.l $0
+.globl _skperr
+.text
+_skperr:
+~~skperr:
+~sn=8
+link R14,#-100
+~scid=-32
+~erms=-96
+*line 165
+jsr _clrlsel
+*line 167
+move 8(R14),(sp)
+add #1,(sp)
+move.l #L2,-(sp)
+move.l R14,-(sp)
+add.l #-32,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 168
+move _errno,(sp)
+move.l #L3,-(sp)
+move.l R14,-(sp)
+add.l #-96,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 170
+*line 171
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-96,(sp)
+move.l R14,-(sp)
+add.l #-32,(sp)
+move.l #L4,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+L1:unlk R14
+rts
+.globl _skp_ec
+.text
+_skp_ec:
+~~skp_ec:
+~fp=R13
+~len=R7
+link R14,#-64
+movem.l R4-R7/R13-R13,-(sp)
+~count=R6
+~c=R5
+~errbuf=-64
+*line 192
+move.l 8(R14),R13
+*line 192
+move.l 12(R14),R7
+*line 192
+clr.l R6
+bra L8
+L9:
+*line 193
+*line 194
+clr _errno
+*line 195
+*line 196
+*line 196
+move.l R13,(sp)
+jsr _getc
+move R0,R5
+cmp #-1,R5
+bne L10
+*line 197
+*line 198
+move _errno,(sp)
+move.l #L11,-(sp)
+move.l R14,-(sp)
+add.l #-64,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 199
+*line 200
+*line 201
+move #9,(sp)
+move #14,-(sp)
+clr.l -(sp)
+move.l R14,-(sp)
+add.l #-64,(sp)
+move.l #L12,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 202
+*line 206
+*line 207
+*line 208
+move.l R13,(sp)
+jsr _fclose
+*line 209
+jsr _postio
+*line 210
+move #-1,R0
+bra L5
+*line 211
+L10:L7:
+*line 192
+add.l #$1,R6
+L8:
+*line 192
+cmp.l R7,R6
+blt L9
+L6:
+*line 214
+clr R0
+bra L5
+L5:tst.l (sp)+
+movem.l (sp)+,R5-R7/R13-R13
+unlk R14
+rts
+.globl _scskip
+.text
+_scskip:
+~~scskip:
+~fp=R13
+~ns=12
+link R14,#-66
+movem.l R5-R7/R13-R13,-(sp)
+~ehdr=R7
+~go=R6
+~etype=-2
+~erms=-66
+*line 235
+move.l 8(R14),R13
+*line 235
+move #1,R6
+*line 237
+*line 237
+move.l #$f0,(sp)
+move.l R13,-(sp)
+jsr _skp_ec
+addq.l #4,sp
+tst R0
+beq L14
+*line 238
+*line 239
+move 12(R14),(sp)
+jsr _skperr
+*line 240
+move #-1,R0
+bra L13
+*line 241
+*line 242
+L14:
+*line 243
+*line 243
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _rd_ec
+addq.l #8,sp
+tst R0
+beq L15
+*line 244
+*line 245
+move 12(R14),(sp)
+jsr _skperr
+*line 246
+move #-1,R0
+bra L13
+*line 247
+*line 248
+L15:
+*line 249
+*line 249
+cmp.b #1,-2(R14)
+beq L16
+*line 250
+*line 251
+move.b -2(R14),R0
+ext.w R0
+move R0,(sp) 
+move 12(R14),-(sp)
+add #1,(sp)
+move.l #L17,-(sp)
+move.l R14,-(sp)
+add.l #-66,(sp)
+jsr _sprintf
+adda.l #10,sp
+*line 252
+*line 253
+*line 254
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-66,(sp)
+move.l #L19,-(sp)
+move.l #L18,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 255
+*line 256
+move #-1,R0
+bra L13
+*line 257
+*line 258
+L16:
+*line 259
+*line 259
+move.b -2(R14),R0
+ext.w R0
+move R0,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_scsizes,R9
+move 2(R8,R9.l),R0
+sub #1,R0
+ext.l R0
+move.l R0,(sp)
+move.l R13,-(sp)
+jsr _skp_ec
+addq.l #4,sp
+tst R0
+beq L20
+*line 260
+*line 261
+move 12(R14),(sp)
+jsr _skperr
+*line 262
+move #-1,R0
+bra L13
+*line 263
+*line 264
+*line 265
+*line 266
+L20:
+*line 267
+L23:
+*line 268
+*line 269
+*line 269
+move.l #$1,(sp)
+move.l R14,-(sp)
+sub.l #2,(sp)
+move.l R13,-(sp)
+jsr _rd_ec
+addq.l #8,sp
+tst R0
+beq L24
+*line 270
+*line 271
+move 12(R14),(sp)
+jsr _skperr
+*line 272
+move #-1,R0
+bra L13
+*line 273
+*line 274
+*line 275
+*line 276
+L24:
+*line 277
+*line 277
+move.b -2(R14),R0
+ext.w R0
+move R0,R8
+add.l R8,R8
+add.l R8,R8
+move.l #_scsizes,R9
+move 2(R8,R9.l),R0
+sub #1,R0
+ext.l R0
+move.l R0,(sp)
+move.l R13,-(sp)
+jsr _skp_ec
+addq.l #4,sp
+tst R0
+beq L25
+*line 278
+*line 279
+move 12(R14),(sp)
+jsr _skperr
+*line 280
+move #-1,R0
+bra L13
+*line 281
+*line 282
+L25:
+*line 283
+*line 284
+cmp.b #21,-2(R14)
+bne L26
+*line 284
+clr R6
+*line 285
+L26:L22:
+*line 286
+tst R6
+bne L23
+L21:
+*line 288
+clr R0
+bra L13
+L13:tst.l (sp)+
+movem.l (sp)+,R6-R7/R13-R13
+unlk R14
+rts
+.globl _ldermsg
+.text
+_ldermsg:
+~~ldermsg:
+~p1=8
+~p2=12
+~p3=16
+~p4=20
+~p5=22
+link R14,#-68
+~msgbuf=-64
+*line 306
+*line 306
+tst _lderrsw
+bne L28
+*line 307
+*line 308
+move.l #L29,(sp)
+move.l R14,-(sp)
+add.l #-64,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 309
+move.l 8(R14),(sp)
+move.l R14,-(sp)
+add.l #-64,(sp)
+jsr _strcat
+addq.l #4,sp
+*line 310
+*line 311
+move 22(R14),(sp)
+move 20(R14),-(sp)
+move.l 16(R14),-(sp)
+move.l 12(R14),-(sp)
+move.l 8(R14),-(sp)
+jsr _ldwmsg
+adda.l #14,sp
+*line 312
+*line 313
+L28:
+*line 314
+move #1,_lderrsw
+L27:unlk R14
+rts
+.globl _clrerms
+.text
+_clrerms:
+~~clrerms:
+link R14,#-4
+*line 325
+*line 325
+tst _lderrsw
+beq L31
+*line 326
+*line 327
+clr _lderrsw
+*line 328
+jsr _lmwclr
+*line 329
+move #10,(sp)
+jsr _ldswin
+*line 330
+L31:L30:unlk R14
+rts
+.globl _clrlsel
+.text
+_clrlsel:
+~~clrlsel:
+link R14,#-4
+*line 344
+*line 344
+tst _lselsw
+beq L33
+*line 345
+*line 346
+*line 346
+tst _lrasw
+beq L34
+*line 347
+*line 348
+move #-1,_lksel
+*line 349
+clr _ldpass
+*line 350
+move _oldpk,_pkctrl
+*line 351
+move _oldsl,_sliders
+*line 352
+move.l _oldsw,_swpt
+*line 353
+jsr _lcdlbls
+*line 354
+jsr _setleds
+*line 355
+jsr _fcindex
+*line 356
+bra L35
+L34:
+*line 357
+*line 358
+*line 359
+move _ldrow,(sp)
+move 24+_ldbox,-(sp)
+jsr _exp_c
+addq.l #2,sp
+move R0,-(sp)
+move _ldslot,-(sp)
+jsr _dslslot
+addq.l #4,sp
+L35:
+*line 360
+*line 361
+*line 362
+L33:
+*line 363
+jsr _fcreset
+L32:unlk R14
+rts
+.globl _endltyp
+.text
+_endltyp:
+~~endltyp:
+link R14,#-4
+*line 374
+jsr _lmwclr
+*line 375
+move #10,(sp)
+jsr _ldswin
+L36:unlk R14
+rts
+.globl _savefc
+.text
+_savefc:
+~~savefc:
+~kind=8
+link R14,#-6
+~fi=-2
+*line 392
+move 8(R14),R8
+sub #1,R8
+add.l R8,R8
+add.l #_ft2lt,R8
+move (R8),-2(R14)
+*line 394
+*line 395
+cmp #7,8(R14)
+bne L38
+*line 395
+tst _lorchl
+beq L10000
+move #2,R0
+bra L10002
+L10000:move #1,R0
+L10002:move R0,-2(R14)
+*line 396
+L38:
+*line 397
+move #8,(sp)
+move.l #_ldfile,-(sp)
+move -2(R14),R0
+asl #3,R0
+ext.l R0
+add.l #_loadedf,R0
+move.l R0,-(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 398
+move #37,(sp)
+move.l #_ldcmnt,-(sp)
+move -2(R14),R0
+muls #37,R0
+add.l #_loadedc,R0
+move.l R0,-(sp)
+jsr _memcpy
+addq.l #8,sp
+L37:unlk R14
+rts
+.globl _lcancel
+.text
+_lcancel:
+~~lcancel:
+~lct=8
+link R14,#-6
+~rc=-2
+*line 416
+clr -2(R14)
+*line 418
+*line 418
+tst 8(R14)
+beq L40
+tst _lselsw
+beq L40
+*line 419
+*line 420
+move #1,-2(R14)
+*line 421
+jsr _clrlsel
+*line 422
+*line 423
+L40:
+*line 424
+*line 424
+cmp #1,8(R14)
+beq L41
+tst _lstrsw
+bne L10003
+jsr _ckstor
+tst R0
+bne L41
+L10003:*line 425
+*line 426
+move #1,-2(R14)
+*line 427
+jsr _streset
+*line 428
+*line 429
+L41:
+*line 430
+*line 430
+cmp #2,8(R14)
+beq L42
+tst _ldelsw
+beq L42
+*line 431
+*line 432
+move #1,-2(R14)
+*line 433
+clr _ldelsw
+*line 434
+move _ldrow,(sp)
+move 24+_ldbox,-(sp)
+jsr _exp_c
+addq.l #2,sp
+move R0,-(sp)
+move _ldslot,-(sp)
+jsr _dslslot
+addq.l #4,sp
+*line 435
+*line 436
+L42:
+*line 437
+move -2(R14),R0
+bra L39
+L39:unlk R14
+rts
+.globl _dpy_scr
+.text
+_dpy_scr:
+~~dpy_scr:
+~color=8
+~ns=10
+link R14,#-48
+~buf=-40
+~scl=-44
+*line 456
+*line 457
+tst _ndisp
+bne L43
+*line 458
+*line 459
+*line 460
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L44
+*line 460
+clr (sp)
+jsr _vbank
+*line 461
+L44:
+*line 462
+*line 463
+move 10(R14),R8
+add.l R8,R8
+add.l #_ldmap,R8
+cmp #-1,(R8)
+bne L45
+*line 463
+move.l #L46,(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 464
+bra L47
+L45:
+*line 465
+move 10(R14),R8
+add.l R8,R8
+move.l #_ldmap,R9
+move 0(R8,R9.l),(sp)
+add #1,(sp)
+move.l #L48,-(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+jsr _sprintf
+addq.l #8,sp
+L47:
+*line 467
+move #14,(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+move #1,-(sp)
+move 10(R14),-(sp)
+add #1,(sp)
+move 26+_ldbox,-(sp)
+move 24+_ldbox,-(sp)
+move #64,-(sp)
+move.l _librob,-(sp)
+jsr _vcputsv
+adda.l #18,sp
+*line 469
+*line 470
+move 10(R14),R0
+muls #20,R0
+move.l R0,R8
+move.l #_sindex,R9
+move.l 0(R8,R9.l),R0
+move.l R0,-44(R14)
+cmp.l #$ffffffff,R0
+bne L49
+*line 470
+move.l #L50,(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+jsr _strcpy
+addq.l #4,sp
+*line 471
+bra L51
+L49:
+*line 472
+move.l -44(R14),(sp)
+move 10(R14),R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l #L52,-(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+jsr _sprintf
+adda.l #12,sp
+L51:
+*line 474
+move #14,(sp)
+move.l R14,-(sp)
+add.l #-40,(sp)
+move #4,-(sp)
+move 10(R14),-(sp)
+add #1,(sp)
+move 26+_ldbox,-(sp)
+move 8(R14),-(sp)
+move #64,-(sp)
+move.l _librob,-(sp)
+jsr _vcputsv
+adda.l #18,sp
+L43:unlk R14
+rts
+.globl _lst_scr
+.text
+_lst_scr:
+~~lst_scr:
+link R14,#-2
+movem.l R6-R7,-(sp)
+~i=R7
+~cx=-2
+*line 491
+*line 492
+tst _ndisp
+bne L53
+*line 493
+*line 494
+move.l #_ldpoint,_point
+*line 496
+move 10+_ldbox,(sp)
+jsr _exp_c
+move R0,-2(R14)
+*line 498
+*line 499
+clr R0
+move 10+_v_regs,R0
+and #384,R0
+beq L54
+*line 499
+clr (sp)
+jsr _vbank
+*line 500
+L54:
+*line 501
+*line 502
+move -2(R14),(sp)
+move 6+_ldbox,-(sp)
+move 4+_ldbox,-(sp)
+move 2+_ldbox,-(sp)
+move _ldbox,-(sp)
+move #128,-(sp)
+move.l _librob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 504
+*line 505
+move #14,(sp)
+move.l #L55,-(sp)
+move 14+_ldbox,-(sp)
+move 12+_ldbox,-(sp)
+move 8+_ldbox,-(sp)
+move #64,-(sp)
+move.l _librob,-(sp)
+jsr _tsplot4
+adda.l #16,sp
+*line 507
+move #12,(sp)
+move #13,-(sp)
+move #23,-(sp)
+move #13,-(sp)
+move #8,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 508
+move #12,(sp)
+move #13,-(sp)
+move #159,-(sp)
+move #13,-(sp)
+move #32,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 509
+move #12,(sp)
+move #13,-(sp)
+move #215,-(sp)
+move #13,-(sp)
+move #168,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 511
+move 26+_ldbox,(sp)
+jsr _exp_c
+move R0,-2(R14)
+*line 513
+*line 514
+move -2(R14),(sp)
+move 22+_ldbox,-(sp)
+move 20+_ldbox,-(sp)
+move 18+_ldbox,-(sp)
+move 16+_ldbox,-(sp)
+move #128,-(sp)
+move.l _librob,-(sp)
+jsr _vbfill4
+adda.l #14,sp
+*line 516
+clr R7
+bra L58
+L59:
+*line 517
+move R7,(sp)
+move 24+_ldbox,-(sp)
+jsr _dpy_scr
+addq.l #2,sp
+L57:
+*line 516
+add #1,R7
+L58:
+*line 516
+cmp #20,R7
+blt L59
+L56:L53:tst.l (sp)+
+movem.l (sp)+,R7-R7
+unlk R14
+rts
+.globl _ndx_scr
+.text
+_ndx_scr:
+~~ndx_scr:
+~slot=R7
+link R14,#-132
+movem.l R4-R7/R13-R13,-(sp)
+~fp=R13
+~i=R6
+~rlen=R5
+~rdlen=-4
+~msgbuf1=-68
+~msgbuf2=-132
+*line 540
+move 8(R14),R7
+*line 540
+clr _ldpass
+*line 542
+clr R6
+bra L63
+L64:
+*line 543
+*line 544
+move R6,R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,R8
+move.l #$ffffffff,(R8)
+*line 545
+move #16,(sp)
+move #32,-(sp)
+move R6,R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+jsr _memset
+addq.l #6,sp
+L62:
+*line 542
+add #1,R6
+L63:
+*line 542
+cmp #20,R6
+blt L64
+L61:
+*line 548
+clr _errno
+*line 550
+*line 550
+move.l #L65,(sp)
+move #4,-(sp)
+move R7,-(sp)
+jsr _slotnam
+addq.l #4,sp
+move.l R0,-(sp)
+jsr _fopenb
+addq.l #4,sp
+move.l R0,R13
+move.l R13,R0
+bne L66
+*line 551
+*line 552
+move _errno,(sp)
+move.l #L67,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 553
+*line 554
+*line 555
+*line 556
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+move.l #L69,-(sp)
+move.l #L68,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 557
+*line 558
+jsr _clrlsel
+*line 559
+move #-1,R0
+bra L60
+*line 560
+*line 561
+L66:
+*line 562
+clr _errno
+*line 564
+*line 564
+move #1,(sp)
+move.l #$3c,-(sp)
+move.l R13,-(sp)
+jsr _fseek
+addq.l #8,sp
+tst R0
+beq L70
+*line 565
+*line 566
+move _errno,(sp)
+move.l #L71,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 567
+*line 568
+*line 569
+*line 570
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+clr.l -(sp)
+move.l #L72,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 571
+*line 572
+*line 576
+*line 577
+*line 578
+move.l R13,(sp)
+jsr _fclose
+*line 579
+jsr _postio
+*line 580
+jsr _clrlsel
+*line 581
+move #-1,R0
+bra L60
+*line 582
+*line 583
+*line 584
+*line 585
+*line 589
+*line 590
+L70:
+*line 591
+clr R6
+bra L75
+L76:
+*line 592
+*line 593
+*line 593
+move.l #$4,(sp)
+move.l R14,-(sp)
+sub.l #4,(sp)
+move.l R13,-(sp)
+jsr _rd_ec
+addq.l #8,sp
+tst R0
+beq L77
+*line 594
+*line 595
+move R6,(sp)
+add #1,(sp)
+move.l #L78,-(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 596
+move _errno,(sp)
+move.l #L79,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 597
+*line 598
+*line 599
+*line 600
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+move.l #L80,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 601
+*line 602
+*line 606
+*line 607
+*line 608
+jsr _clrlsel
+*line 609
+move #-1,R0
+bra L60
+*line 610
+*line 611
+L77:
+*line 612
+move R6,R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,R8
+move.l -4(R14),(R8)
+*line 613
+*line 614
+*line 614
+cmp.l #$ffffffff,-4(R14)
+beq L81
+*line 615
+*line 616
+*line 616
+move.l #$10,(sp)
+move R6,R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l R13,-(sp)
+jsr _rd_ec
+addq.l #8,sp
+tst R0
+beq L82
+*line 617
+*line 618
+move R6,(sp)
+add #1,(sp)
+move.l #L83,-(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 619
+move _errno,(sp)
+move.l #L84,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 620
+*line 621
+*line 622
+*line 623
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+move.l #L85,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 624
+*line 625
+*line 629
+*line 630
+*line 631
+jsr _clrlsel
+*line 632
+move #-1,R0
+bra L60
+*line 633
+*line 634
+L82:
+*line 635
+clr _errno
+*line 636
+*line 637
+*line 637
+move R6,(sp)
+move.l R13,-(sp)
+jsr _scskip
+addq.l #4,sp
+tst R0
+beq L86
+*line 638
+*line 639
+move R6,(sp)
+add #1,(sp)
+move.l #L87,-(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+jsr _sprintf
+addq.l #8,sp
+*line 640
+*line 641
+move.l R5,(sp)
+move _errno,-(sp)
+move.l #L88,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+jsr _sprintf
+adda.l #10,sp
+*line 642
+*line 643
+*line 644
+*line 645
+move #9,(sp)
+move #14,-(sp)
+move.l R14,-(sp)
+add.l #-132,(sp)
+move.l R14,-(sp)
+add.l #-68,(sp)
+move.l #L89,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 646
+*line 647
+*line 651
+*line 652
+*line 653
+move.l R13,(sp)
+jsr _fclose
+*line 654
+jsr _postio
+*line 655
+jsr _clrlsel
+*line 656
+move #-1,R0
+bra L60
+*line 657
+L86:
+*line 658
+L81:L74:
+*line 591
+add #1,R6
+L75:
+*line 591
+cmp #20,R6
+blt L76
+L73:
+*line 661
+move.l R13,(sp)
+jsr _fclose
+*line 662
+jsr _postio
+*line 663
+move #1,_ldpass
+*line 664
+jsr _lst_scr
+*line 668
+move.l #_GLCplot,_point
+*line 669
+move #1,(sp)
+jsr _GLCcurs
+*line 671
+*line 671
+tst _ismode
+beq L90
+*line 672
+*line 673
+clr _ismode
+*line 674
+move _oldpk,_pkctrl
+*line 675
+move _oldsl,_sliders
+*line 676
+move.l _oldsw,_swpt
+*line 677
+jsr _lcdlbls
+*line 678
+*line 679
+L90:
+*line 680
+*line 680
+tst _gomode
+beq L91
+*line 681
+*line 682
+clr _gomode
+*line 683
+move _oldpk,_pkctrl
+*line 684
+clr (sp)
+move #54,-(sp)
+move #215,-(sp)
+move #54,-(sp)
+move #186,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 685
+*line 686
+L91:
+*line 687
+*line 687
+tst _asmode
+beq L92
+*line 688
+*line 689
+clr _asmode
+*line 690
+move _oldpk,_pkctrl
+*line 691
+move.l _oldsw,_swpt
+*line 692
+clr (sp)
+move #54,-(sp)
+move #287,-(sp)
+move #54,-(sp)
+move #258,-(sp)
+jsr _lseg
+addq.l #8,sp
+*line 693
+*line 694
+L92:
+*line 695
+*line 696
+tst _pkctrl
+beq L10004
+cmp #1,_pkctrl
+bne L93
+L10004:*line 696
+move _pkctrl,_oldpk
+*line 697
+L93:
+*line 698
+*line 699
+cmp #5,_sliders
+beq L94
+*line 699
+move _sliders,_oldsl
+*line 700
+L94:
+*line 701
+move.l _swpt,_oldsw
+*line 702
+move.l #_t_libr,_swpt
+*line 703
+move #5,_pkctrl
+*line 704
+move #5,_sliders
+*line 706
+jsr _lcdlbls
+*line 707
+jsr _setleds
+*line 709
+clr R0
+bra L60
+L60:tst.l (sp)+
+movem.l (sp)+,R5-R7/R13-R13
+unlk R14
+rts
+.globl _getit
+.text
+_getit:
+~~getit:
+link R14,#-4
+*line 724
+move _ldslot,(sp)
+jsr _ftkind
+move R0,_ldkind
+*line 726
+*line 726
+cmp #-1,_ldkind
+bne L96
+*line 727
+*line 728
+*line 729
+*line 730
+move #9,(sp)
+move #14,-(sp)
+clr.l -(sp)
+clr.l -(sp)
+move.l #L97,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 731
+*line 732
+jsr _clrlsel
+*line 733
+move #-1,R0
+bra L95
+*line 734
+*line 735
+L96:
+*line 736
+move.l #L98,(sp)
+jsr _ldbusy
+*line 739
+move _ldkind,R0
+bra L100
+*line 740
+L101:
+*line 741
+*line 742
+*line 743
+*line 744
+jsr _get_asg
+tst R0
+beq L102
+*line 744
+move #-1,R0
+bra L95
+*line 745
+L102:bra L99
+*line 746
+*line 747
+L103:
+*line 748
+L104:
+*line 749
+L105:
+*line 750
+*line 751
+*line 752
+*line 753
+move _ldkind,(sp)
+move _lorchl,-(sp)
+jsr _get_orc
+addq.l #2,sp
+tst R0
+beq L106
+*line 753
+move #-1,R0
+bra L95
+*line 754
+L106:bra L99
+*line 755
+*line 756
+L107:
+*line 757
+*line 758
+*line 759
+*line 760
+jsr _get_pat
+tst R0
+beq L108
+*line 760
+move #-1,R0
+bra L95
+*line 761
+L108:bra L99
+*line 762
+*line 763
+L109:
+*line 764
+*line 765
+*line 766
+*line 767
+jsr _get_scr
+tst R0
+beq L110
+*line 767
+move #-1,R0
+bra L95
+*line 768
+L110:bra L99
+*line 769
+*line 770
+L111:
+*line 771
+*line 772
+*line 773
+*line 774
+jsr _get_seq
+tst R0
+beq L112
+*line 774
+move #-1,R0
+bra L95
+*line 775
+L112:bra L99
+*line 776
+*line 777
+L113:
+*line 778
+*line 779
+*line 780
+*line 781
+jsr _get_tun
+tst R0
+beq L114
+*line 781
+move #-1,R0
+bra L95
+*line 782
+L114:bra L99
+*line 783
+*line 784
+L115:
+*line 785
+*line 786
+*line 787
+*line 788
+jsr _get_wav
+tst R0
+beq L116
+*line 788
+move #-1,R0
+bra L95
+*line 789
+L116:bra L99
+*line 790
+*line 791
+L117:
+*line 792
+*line 793
+*line 794
+*line 795
+*line 796
+move #9,(sp)
+move #14,-(sp)
+clr.l -(sp)
+clr.l -(sp)
+move.l #L118,-(sp)
+jsr _ldermsg
+adda.l #14,sp
+*line 797
+*line 798
+jsr _clrlsel
+*line 799
+move #-1,R0
+bra L95
+bra L99
+L100:sub #1,R0
+cmp #8,R0
+bhi L117
+asl #2,R0
+move R0,R8
+add.l #L119,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L119:.dc.l L101
+.dc.l L104
+.dc.l L103
+.dc.l L109
+.dc.l L113
+.dc.l L115
+.dc.l L105
+.dc.l L107
+.dc.l L111
+.text
+L99:
+*line 804
+move #8,(sp)
+move _ldslot,R0
+muls #56,R0
+add.l #_filecat,R0
+move.l R0,-(sp)
+add.l #4,(sp)
+move.l #_ldfile,-(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 805
+move #37,(sp)
+move _ldslot,R0
+muls #56,R0
+add.l #_filecat,R0
+move.l R0,-(sp)
+add.l #17,(sp)
+move.l #_ldcmnt,-(sp)
+jsr _memcpy
+addq.l #8,sp
+*line 806
+move _ldkind,(sp)
+jsr _savefc
+*line 808
+jsr _clrlsel
+*line 810
+*line 810
+tst _lrasw
+beq L120
+*line 811
+*line 812
+clr (sp)
+jsr _ldswin
+*line 813
+move #8,(sp)
+jsr _ldswin
+*line 814
+*line 815
+L120:
+*line 816
+move #3,(sp)
+jsr _ldswin
+*line 817
+move #5,(sp)
+jsr _ldswin
+*line 818
+jsr _showsiz
+*line 819
+clr R0
+bra L95
+L95:unlk R14
+rts
+.globl _ldfnbox
+.text
+_ldfnbox:
+~~ldfnbox:
+~n=8
+link R14,#0
+movem.l R3-R7,-(sp)
+~col=R7
+~i=R6
+~slot=R5
+~sn=R4
+*line 837
+move _hitcx,R7
+asr #3,R7
+*line 839
+*line 840
+tst _lderrsw
+beq L122
+*line 840
+jsr _clrerms
+*line 841
+L122:
+*line 842
+move 8(R14),R0
+bra L124
+*line 843
+L125:
+*line 844
+*line 845
+*line 846
+*line 847
+clr (sp)
+jsr _lcancel
+tst R0
+beq L126
+*line 847
+clr R0
+bra L121
+*line 848
+L126:
+*line 849
+*line 849
+tst _lselsw
+beq L127
+*line 850
+*line 851
+*line 851
+tst _lrasw
+beq L128
+*line 852
+*line 853
+*line 853
+cmp #4,_ldkind
+bne L129
+*line 854
+*line 855
+move _hitcy,(sp)
+jsr _ldline
+move R0,R4
+sub #1,R4
+*line 856
+*line 857
+*line 857
+move R4,R0
+muls #20,R0
+add.l #_sindex,R0
+move.l R0,R8
+cmp.l #$ffffffff,(R8)
+beq L130
+*line 858
+*line 859
+*line 859
+move R4,R0
+add #1,R0
+cmp _ldrow,R0
+beq L131
+*line 860
+*line 861
+move _ldrow,(sp)
+sub #1,(sp)
+move 24+_ldbox,-(sp)
+jsr _dpy_scr
+addq.l #2,sp
+*line 862
+move R4,R0
+add #1,R0
+move R0,_ldrow
+*line 863
+*line 864
+L131:
+*line 865
+move R4,(sp)
+move #13,-(sp)
+jsr _dpy_scr
+addq.l #2,sp
+*line 866
+move R4,_lksel
+*line 867
+bra L132
+L130:
+*line 868
+*line 869
+*line 870
+move #-1,_lksel
+L132:
+*line 871
+*line 872
+*line 873
+clr R0
+bra L121
+*line 874
+L129:
+*line 875
+*line 876
+L128:
+*line 877
+*line 877
+move _hitcy,(sp)
+jsr _ldline
+cmp _ldrow,R0
+beq L133
+*line 878
+*line 879
+jsr _clrlsel
+*line 880
+clr R0
+bra L121
+*line 881
+*line 882
+L133:
+*line 883
+jsr _getit
+bra L121
+*line 884
+*line 885
+bra L134
+L127:
+*line 886
+*line 887
+*line 888
+*line 888
+move _hitcy,(sp)
+jsr _ldline
+move R0,_ldrow
+beq L135
+*line 889
+*line 890
+*line 890
+cmp #11,R7
+bne L136
+*line 891
+*line 892
+*line 892
+tst _catin
+beq L137
+tst _ltagged
+beq L137
+*line 893
+*line 894
+move _ldrow,(sp)
+jsr _lin2slt
+move R0,R5
+*line 895
+*line 896
+*line 896
+cmp _tagslot,R5
+bne L138
+*line 897
+*line 898
+jsr _putcat
+*line 899
+clr _ltagged
+*line 900
+jsr _showcat
+*line 901
+L138:
+*line 902
+*line 903
+L137:bra L139
+L136:
+*line 904
+*line 905
+*line 906
+*line 906
+move _ldrow,(sp)
+jsr _lin2slt
+move R0,_ldslot
+cmp #-1,R0
+beq L140
+*line 907
+*line 908
+move #1,_lselsw
+*line 909
+move #8,(sp)
+jsr _ldswin
+*line 910
+move _ldslot,(sp)
+jsr _ftkind
+move R0,_ldkind
+*line 911
+*line 912
+clr R6
+bra L143
+L144:
+*line 913
+move R6,R8
+add.l R8,R8
+add.l #_ldmap,R8
+move R6,(R8)
+L142:
+*line 912
+add #1,R6
+L143:
+*line 912
+cmp #20,R6
+blt L144
+L141:
+*line 913
+*line 914
+*line 915
+*line 916
+tst _lrasw
+beq L145
+cmp #4,_ldkind
+bne L145
+*line 916
+move _ldslot,(sp)
+jsr _ndx_scr
+bra L121
+*line 917
+L145:
+*line 918
+move _ldrow,(sp)
+move #13,-(sp)
+jsr _exp_c
+addq.l #2,sp
+move R0,-(sp)
+move _ldslot,-(sp)
+jsr _dslslot
+addq.l #4,sp
+*line 919
+clr R0
+bra L121
+*line 920
+L140:L139:
+*line 921
+*line 922
+*line 923
+L135:
+*line 924
+jsr _clrlsel
+*line 925
+move #-1,R0
+bra L121
+L134:
+*line 926
+*line 927
+*line 928
+L146:
+*line 929
+*line 930
+*line 931
+*line 932
+move #3,(sp)
+jsr _lcancel
+tst R0
+beq L147
+*line 932
+clr R0
+bra L121
+*line 933
+L147:
+*line 934
+*line 934
+cmp #1,_lmwtype
+beq L148
+*line 935
+*line 936
+jsr _lmwvtyp
+*line 937
+move #10,(sp)
+jsr _ldswin
+*line 938
+*line 939
+*line 940
+*line 941
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_ldbox,R9
+move 10(R8,R9.l),(sp)
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_ldbox,R9
+move 8(R8,R9.l),-(sp)
+move.l #_endltyp,-(sp)
+move.l #_nokey,-(sp)
+move.l #_nokey,-(sp)
+move.l #_bsplcur,-(sp)
+move.l #_advlcur,-(sp)
+move #33,-(sp)
+move #22,-(sp)
+move.l #_ldfile,-(sp)
+move #10,-(sp)
+move.l #_vtdisp,-(sp)
+move.l _librob,-(sp)
+jsr _vtsetup
+adda.l #40,sp
+*line 942
+bra L149
+L148:
+*line 943
+*line 944
+*line 945
+jsr _vtyper
+L149:
+*line 946
+*line 947
+*line 948
+clr R0
+bra L121
+*line 949
+L150:
+*line 950
+*line 951
+*line 952
+*line 953
+move #3,(sp)
+jsr _lcancel
+tst R0
+beq L151
+*line 953
+clr R0
+bra L121
+*line 954
+L151:
+*line 955
+*line 955
+cmp #1,_lmwtype
+beq L152
+*line 956
+*line 957
+jsr _lmwvtyp
+*line 958
+move #10,(sp)
+jsr _ldswin
+*line 959
+*line 960
+*line 961
+*line 962
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_ldbox,R9
+move 10(R8,R9.l),(sp)
+move 8(R14),R0
+asl #4,R0
+ext.l R0
+move.l R0,R8
+move.l #_ldbox,R9
+move 8(R8,R9.l),-(sp)
+move.l #_endltyp,-(sp)
+move.l #_nokey,-(sp)
+move.l #_nokey,-(sp)
+move.l #_bsplcur,-(sp)
+move.l #_advlcur,-(sp)
+move #33,-(sp)
+move #22,-(sp)
+move.l #_ldcmnt,-(sp)
+move #27,-(sp)
+move.l #_vtdisp,-(sp)
+move.l _librob,-(sp)
+jsr _vtsetup
+adda.l #40,sp
+*line 963
+bra L153
+L152:
+*line 964
+*line 965
+*line 966
+jsr _vtyper
+L153:
+*line 967
+*line 968
+*line 969
+clr R0
+bra L121
+*line 970
+*line 971
+*line 972
+*line 973
+L154:
+*line 974
+*line 975
+*line 976
+*line 977
+clr (sp)
+jsr _lcancel
+tst R0
+beq L155
+*line 977
+clr R0
+bra L121
+*line 978
+L155:
+*line 979
+jsr _clrlsel
+*line 980
+jsr _fcindex
+bra L121
+*line 981
+L156:
+*line 982
+*line 983
+*line 984
+*line 985
+tst _lselsw
+beq L157
+tst _lrasw
+beq L157
+*line 985
+jsr _getit
+bra L121
+*line 986
+L157:
+*line 987
+tst _lrasw
+beq L10005
+clr R0
+bra L10006
+L10005:move #1,R0
+L10006:move R0,_lrasw
+*line 988
+move #7,(sp)
+jsr _ldswin
+*line 989
+clr R0
+bra L121
+*line 990
+L158:
+*line 991
+*line 992
+*line 993
+tst _lorchl
+beq L10007
+clr R0
+bra L10008
+L10007:move #1,R0
+L10008:move R0,_lorchl
+*line 994
+move #8,(sp)
+jsr _ldswin
+*line 995
+clr R0
+bra L121
+*line 996
+*line 997
+*line 998
+L159:
+*line 999
+*line 1000
+*line 1001
+*line 1002
+move #1,(sp)
+jsr _lcancel
+tst R0
+beq L160
+*line 1002
+clr R0
+bra L121
+*line 1003
+L160:
+*line 1004
+*line 1004
+cmp #321,_cyval
+bge L161
+*line 1005
+*line 1006
+*line 1007
+*line 1008
+*line 1008
+cmp #120,_cxval
+bge L162
+*line 1009
+*line 1010
+*line 1011
+*line 1012
+*line 1012
+tst _lstrsw
+beq L163
+*line 1013
+*line 1014
+jsr _storit
+*line 1015
+bra L164
+L163:
+*line 1016
+*line 1017
+*line 1018
+move #1,_lstrsw
+*line 1019
+move #9,(sp)
+jsr _ldswin
+L164:
+*line 1020
+*line 1021
+*line 1022
+clr R0
+bra L121
+*line 1023
+bra L165
+L162:
+*line 1024
+*line 1024
+cmp #135,_cxval
+ble L166
+cmp #176,_cxval
+bge L166
+*line 1025
+*line 1026
+*line 1027
+*line 1028
+tst _lscrsw
+beq L10009
+clr R0
+bra L10010
+L10009:move #1,R0
+L10010:move R0,_lscrsw
+*line 1029
+move #9,(sp)
+jsr _ldswin
+*line 1030
+*line 1031
+*line 1032
+tst _lstrsw
+beq L167
+*line 1032
+jsr _storit
+*line 1033
+L167:
+*line 1034
+clr R0
+bra L121
+*line 1035
+bra L168
+L166:
+*line 1036
+*line 1036
+cmp #191,_cxval
+ble L169
+*line 1037
+*line 1038
+*line 1039
+*line 1040
+tst _lorchsw
+beq L10011
+clr R0
+bra L10012
+L10011:move #1,R0
+L10012:move R0,_lorchsw
+*line 1041
+move #9,(sp)
+jsr _ldswin
+*line 1042
+*line 1043
+*line 1044
+tst _lstrsw
+beq L170
+*line 1044
+jsr _storit
+*line 1045
+L170:
+*line 1046
+clr R0
+bra L121
+*line 1047
+*line 1048
+*line 1049
+L169:L168:L165:bra L171
+L161:
+*line 1050
+*line 1050
+cmp #321,_cyval
+ble L172
+cmp #335,_cyval
+bge L172
+*line 1051
+*line 1052
+*line 1053
+*line 1054
+*line 1054
+cmp #120,_cxval
+bge L173
+*line 1055
+*line 1056
+tst _lwavsw
+beq L10013
+clr R0
+bra L10014
+L10013:move #1,R0
+L10014:move R0,_lwavsw
+*line 1057
+move #9,(sp)
+jsr _ldswin
+*line 1058
+*line 1059
+*line 1060
+tst _lstrsw
+beq L174
+*line 1060
+jsr _storit
+*line 1061
+L174:
+*line 1062
+clr R0
+bra L121
+*line 1063
+bra L175
+L173:
+*line 1064
+*line 1064
+cmp #135,_cxval
+ble L176
+cmp #176,_cxval
+bge L176
+*line 1065
+*line 1066
+*line 1067
+*line 1068
+tst _lpatsw
+beq L10015
+clr R0
+bra L10016
+L10015:move #1,R0
+L10016:move R0,_lpatsw
+*line 1069
+move #9,(sp)
+jsr _ldswin
+*line 1070
+*line 1071
+*line 1072
+tst _lstrsw
+beq L177
+*line 1072
+jsr _storit
+*line 1073
+L177:
+*line 1074
+clr R0
+bra L121
+*line 1075
+bra L178
+L176:
+*line 1076
+*line 1076
+cmp #191,_cxval
+ble L179
+*line 1077
+*line 1078
+tst _lorclsw
+beq L10017
+clr R0
+bra L10018
+L10017:move #1,R0
+L10018:move R0,_lorclsw
+*line 1079
+move #9,(sp)
+jsr _ldswin
+*line 1080
+*line 1081
+*line 1082
+tst _lstrsw
+beq L180
+*line 1082
+jsr _storit
+*line 1083
+L180:
+*line 1084
+clr R0
+bra L121
+*line 1085
+*line 1086
+*line 1087
+L179:L178:L175:bra L181
+L172:
+*line 1088
+*line 1088
+cmp #335,_cyval
+ble L182
+*line 1089
+*line 1090
+*line 1091
+*line 1092
+*line 1092
+cmp #120,_cxval
+bge L183
+*line 1093
+*line 1094
+tst _lasgsw
+beq L10019
+clr R0
+bra L10020
+L10019:move #1,R0
+L10020:move R0,_lasgsw
+*line 1095
+move #9,(sp)
+jsr _ldswin
+*line 1096
+*line 1097
+*line 1098
+tst _lstrsw
+beq L184
+*line 1098
+jsr _storit
+*line 1099
+L184:
+*line 1100
+clr R0
+bra L121
+*line 1101
+bra L185
+L183:
+*line 1102
+*line 1102
+cmp #135,_cxval
+ble L186
+cmp #176,_cxval
+bge L186
+*line 1103
+*line 1104
+*line 1105
+*line 1106
+tst _lseqsw
+beq L10021
+clr R0
+bra L10022
+L10021:move #1,R0
+L10022:move R0,_lseqsw
+*line 1107
+move #9,(sp)
+jsr _ldswin
+*line 1108
+*line 1109
+*line 1110
+tst _lstrsw
+beq L187
+*line 1110
+jsr _storit
+*line 1111
+L187:
+*line 1112
+clr R0
+bra L121
+*line 1113
+bra L188
+L186:
+*line 1114
+*line 1114
+cmp #191,_cxval
+ble L189
+*line 1115
+*line 1116
+tst _ltunsw
+beq L10023
+clr R0
+bra L10024
+L10023:move #1,R0
+L10024:move R0,_ltunsw
+*line 1117
+move #9,(sp)
+jsr _ldswin
+*line 1118
+*line 1119
+*line 1120
+tst _lstrsw
+beq L190
+*line 1120
+jsr _storit
+*line 1121
+L190:
+*line 1122
+clr R0
+bra L121
+*line 1123
+L189:L188:L185:
+*line 1124
+*line 1125
+L182:L181:L171:
+*line 1126
+move #-1,R0
+bra L121
+*line 1127
+L191:
+*line 1128
+*line 1129
+*line 1130
+move #3,(sp)
+jsr _lcancel
+*line 1131
+move #-1,R0
+bra L121
+bra L123
+L124:sub #1,R0
+cmp #8,R0
+bhi L191
+asl #2,R0
+move R0,R8
+add.l #L192,R8
+move.l (R8),R8
+jmp (R8)
+.data
+L192:.dc.l L125
+.dc.l L191
+.dc.l L146
+.dc.l L191
+.dc.l L150
+.dc.l L154
+.dc.l L156
+.dc.l L158
+.dc.l L159
+.text
+L123:L121:tst.l (sp)+
+movem.l (sp)+,R4-R7
+unlk R14
+rts
+.data
+L2:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
+L3:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L4:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$73,$6B,$69,$70,$0
+L11:.dc.b $65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L12:.dc.b $55,$6E,$65,$78,$70,$65,$63,$74,$65,$64,$20,$45,$4F,$46,$0
+L17:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$20,$20,$65,$74,$79,$70,$65,$20,$3D,$20,$25,$64,$0
+L18:.dc.b $42,$61,$64,$20,$73,$63,$6F,$72,$65,$20,$2D,$2D,$0
+L19:.dc.b $20,$20,$31,$73,$74,$20,$65,$76,$65,$6E,$74,$20,$69,$73,$20,$77,$72,$6F,$6E,$67,$0
+L29:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$0
+L46:.dc.b $20,$20,$0
+L48:.dc.b $25,$30,$32,$64,$0
+L50:.dc.b $7B,$20,$65,$6D,$70,$74,$79,$20,$73,$63,$6F,$72,$65,$20,$20,$7D,$20,$20,$20,$20,$20,$20,$30,$0
+L52:.dc.b $25,$2D,$31,$36,$2E,$31,$36,$73,$20,$20,$25,$35,$6C,$64,$0
+L55:.dc.b $4E,$6F,$20,$53,$63,$6F,$72,$65,$20,$4E,$61,$6D,$65,$20,$20,$20,$20,$20,$20,$20,$4C,$65,$6E,$67,$74,$68,$0
+L65:.dc.b $72,$0
+L67:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L68:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$6F,$70,$65,$6E,$20,$74,$68,$65,$20,$66,$69,$6C,$65,$0
+L69:.dc.b $20,$20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
+L71:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L72:.dc.b $53,$65,$65,$6B,$20,$66,$61,$69,$6C,$75,$72,$65,$0
+L78:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
+L79:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L80:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$72,$65,$61,$64,$20,$74,$68,$65,$20,$6C,$65,$6E,$67,$74,$68,$0
+L83:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
+L84:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
+L85:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$72,$65,$61,$64,$20,$74,$68,$65,$20,$6E,$61,$6D,$65,$0
+L87:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
+L88:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$3D,$25,$64,$20,$20,$72,$6C,$65,$6E,$3D,$25,$6C,$64,$0
+L89:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$73,$6B,$69,$70,$20,$70,$61,$73,$74,$0
+L97:.dc.b $55,$6E,$6B,$6E,$6F,$77,$6E,$20,$66,$69,$6C,$65,$20,$74,$79,$70,$65,$0
+L98:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$66,$69,$6C,$65,$0
+L118:.dc.b $6C,$64,$6B,$69,$6E,$64,$20,$62,$61,$64,$0
