source: buchla-68k/alcyon/ldselbx.s@ 0170798

Last change on this file since 0170798 was 7bf3856, checked in by Thomas Lopatic <thomas@…>, 7 years ago

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 33.8 KB
Line 
1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _ebflag
5.globl _ebuf
6.globl _curfet
7.globl _cfetp
8.globl _infetp
9.globl _lcdx
10.globl _lcdy
11.globl _lcdbit
12.globl _lcdrow
13.globl _lcdcol
14.globl _lcdbase
15.globl _lcdctl1
16.globl _lcdctl2
17.globl _io_time
18.globl _io_lcd
19.globl _io_ser
20.globl _io_midi
21.globl _io_disk
22.globl _io_tone
23.globl _io_leds
24.globl _io_kbrd
25.globl _lcd_a0
26.globl _lcd_a1
27.globl _io_vreg
28.globl _io_vraw
29.globl _io_vram
30.globl _io_fpu
31.globl _v_regs
32.globl _v_odtab
33.globl _v_actab
34.globl _v_ct0
35.globl _v_gt1
36.globl _v_score
37.globl _v_cgtab
38.globl _v_curs0
39.globl _v_curs1
40.globl _v_curs2
41.globl _v_curs3
42.globl _v_curs4
43.globl _v_curs5
44.globl _v_curs6
45.globl _v_curs7
46.globl _v_tcur
47.globl _v_kbobj
48.globl _v_lnobj
49.globl _v_win0
50.globl _v_cur
51.globl _fc_sw
52.globl _fc_val
53.globl _v_obtab
54.globl _v_curob
55.globl _v_nobj
56.globl _v_obpri
57.globl _filecat
58.globl _ac_code
59.globl _scname
60.globl _se_chg
61.globl _curscor
62.globl _cursect
63.globl _se1_cnt
64.globl _se2_cnt
65.globl _se3_cnt
66.globl _spool
67.globl _pspool
68.globl _spcount
69.globl _frags
70.globl _t_bak
71.globl _t_cur
72.globl _t_ctr
73.globl _t_fwd
74.globl _size1
75.globl _size2
76.globl _size3
77.globl _scores
78.globl _scp
79.globl _seclist
80.globl _hplist
81.globl _p_bak
82.globl _p_cur
83.globl _p_ctr
84.globl _p_fwd
85.globl _point
86.globl _asmode
87.globl _catin
88.globl _cxrate
89.globl _cxval
90.globl _cyrate
91.globl _cyval
92.globl _errno
93.globl _gomode
94.globl _hitcx
95.globl _hitcy
96.globl _ismode
97.globl _lasgsw
98.globl _ldelsw
99.globl _lderrsw
100.globl _ldkind
101.globl _ldrow
102.globl _ldslot
103.globl _lksel
104.globl _lmwtype
105.globl _lorchl
106.globl _lorchsw
107.globl _lorclsw
108.globl _ldpass
109.globl _lpatsw
110.globl _lrasw
111.globl _lscrsw
112.globl _lselsw
113.globl _lseqsw
114.globl _lstrsw
115.globl _ltagged
116.globl _ltunsw
117.globl _lwavsw
118.globl _ndisp
119.globl _oldpk
120.globl _oldsl
121.globl _pkctrl
122.globl _sliders
123.globl _stcrow
124.globl _stccol
125.globl _tagslot
126.globl _librob
127.globl _ldmap
128.globl _scsizes
129.globl _ldbox
130.globl _sindex
131.globl _csbp
132.globl _curboxp
133.globl _swpt
134.globl _oldsw
135.globl _t_libr
136.globl _bfs
137.globl _ldfile
138.globl _ldcmnt
139.globl _loadedf
140.globl _loadedc
141.globl _ft2lt
142.data
143_ft2lt:
144.dc.w $0
145.dc.w $1
146.dc.w $2
147.dc.w $3
148.dc.w $4
149.dc.w $5
150.dc.w $1
151.dc.w $6
152.dc.w $7
153.globl _ldboxes
154.data
155_ldboxes:
156.dc.w $1
157.dc.w $1
158.dc.w $1FE
159.dc.w $D
160.dc.w $0
161*line 135
162.dc.l _ldfnbox
163.dc.w $1
164.dc.w $E
165.dc.w $1FE
166.dc.w $125
167.dc.w $1
168*line 136
169.dc.l _ldfnbox
170.dc.w $1
171.dc.w $126
172.dc.w $4E
173.dc.w $133
174.dc.w $2
175*line 137
176.dc.l _ldfnbox
177.dc.w $50
178.dc.w $126
179.dc.w $8F
180.dc.w $133
181.dc.w $3
182*line 138
183.dc.l _ldfnbox
184.dc.w $91
185.dc.w $126
186.dc.w $D6
187.dc.w $133
188.dc.w $4
189*line 139
190.dc.l _ldfnbox
191.dc.w $D8
192.dc.w $126
193.dc.w $1FE
194.dc.w $133
195.dc.w $5
196*line 140
197.dc.l _ldfnbox
198.dc.w $1
199.dc.w $134
200.dc.w $46
201.dc.w $141
202.dc.w $6
203*line 141
204.dc.l _ldfnbox
205.dc.w $1
206.dc.w $142
207.dc.w $46
208.dc.w $14F
209.dc.w $7
210*line 142
211.dc.l _ldfnbox
212.dc.w $1
213.dc.w $150
214.dc.w $46
215.dc.w $15D
216.dc.w $8
217*line 143
218.dc.l _ldfnbox
219.dc.w $48
220.dc.w $134
221.dc.w $FF
222.dc.w $15D
223.dc.w $9
224*line 144
225.dc.l _ldfnbox
226.dc.w $101
227.dc.w $134
228.dc.w $1FE
229.dc.w $15D
230.dc.w $A
231*line 145
232.dc.l _ldfnbox
233.dc.w $0
234.dc.w $0
235.dc.w $0
236.dc.w $0
237.dc.w $0
238.dc.l $0
239.globl _skperr
240.text
241_skperr:
242~~skperr:
243~sn=8
244link R14,#-100
245~scid=-32
246~erms=-96
247*line 165
248jsr _clrlsel
249*line 167
250move 8(R14),(sp)
251add #1,(sp)
252move.l #L2,-(sp)
253move.l R14,-(sp)
254add.l #-32,(sp)
255jsr _sprintf
256addq.l #8,sp
257*line 168
258move _errno,(sp)
259move.l #L3,-(sp)
260move.l R14,-(sp)
261add.l #-96,(sp)
262jsr _sprintf
263addq.l #8,sp
264*line 170
265*line 171
266move #9,(sp)
267move #14,-(sp)
268move.l R14,-(sp)
269add.l #-96,(sp)
270move.l R14,-(sp)
271add.l #-32,(sp)
272move.l #L4,-(sp)
273jsr _ldermsg
274adda.l #14,sp
275L1:unlk R14
276rts
277.globl _skp_ec
278.text
279_skp_ec:
280~~skp_ec:
281~fp=R13
282~len=R7
283link R14,#-64
284movem.l R4-R7/R13-R13,-(sp)
285~count=R6
286~c=R5
287~errbuf=-64
288*line 192
289move.l 8(R14),R13
290*line 192
291move.l 12(R14),R7
292*line 192
293clr.l R6
294bra L8
295L9:
296*line 193
297*line 194
298clr _errno
299*line 195
300*line 196
301*line 196
302move.l R13,(sp)
303jsr _getc
304move R0,R5
305cmp #-1,R5
306bne L10
307*line 197
308*line 198
309move _errno,(sp)
310move.l #L11,-(sp)
311move.l R14,-(sp)
312add.l #-64,(sp)
313jsr _sprintf
314addq.l #8,sp
315*line 199
316*line 200
317*line 201
318move #9,(sp)
319move #14,-(sp)
320clr.l -(sp)
321move.l R14,-(sp)
322add.l #-64,(sp)
323move.l #L12,-(sp)
324jsr _ldermsg
325adda.l #14,sp
326*line 202
327*line 206
328*line 207
329*line 208
330move.l R13,(sp)
331jsr _fclose
332*line 209
333jsr _postio
334*line 210
335move #-1,R0
336bra L5
337*line 211
338L10:L7:
339*line 192
340add.l #$1,R6
341L8:
342*line 192
343cmp.l R7,R6
344blt L9
345L6:
346*line 214
347clr R0
348bra L5
349L5:tst.l (sp)+
350movem.l (sp)+,R5-R7/R13-R13
351unlk R14
352rts
353.globl _scskip
354.text
355_scskip:
356~~scskip:
357~fp=R13
358~ns=12
359link R14,#-66
360movem.l R5-R7/R13-R13,-(sp)
361~ehdr=R7
362~go=R6
363~etype=-2
364~erms=-66
365*line 235
366move.l 8(R14),R13
367*line 235
368move #1,R6
369*line 237
370*line 237
371move.l #$f0,(sp)
372move.l R13,-(sp)
373jsr _skp_ec
374addq.l #4,sp
375tst R0
376beq L14
377*line 238
378*line 239
379move 12(R14),(sp)
380jsr _skperr
381*line 240
382move #-1,R0
383bra L13
384*line 241
385*line 242
386L14:
387*line 243
388*line 243
389move.l #$1,(sp)
390move.l R14,-(sp)
391sub.l #2,(sp)
392move.l R13,-(sp)
393jsr _rd_ec
394addq.l #8,sp
395tst R0
396beq L15
397*line 244
398*line 245
399move 12(R14),(sp)
400jsr _skperr
401*line 246
402move #-1,R0
403bra L13
404*line 247
405*line 248
406L15:
407*line 249
408*line 249
409cmp.b #1,-2(R14)
410beq L16
411*line 250
412*line 251
413move.b -2(R14),R0
414ext.w R0
415move R0,(sp)
416move 12(R14),-(sp)
417add #1,(sp)
418move.l #L17,-(sp)
419move.l R14,-(sp)
420add.l #-66,(sp)
421jsr _sprintf
422adda.l #10,sp
423*line 252
424*line 253
425*line 254
426move #9,(sp)
427move #14,-(sp)
428move.l R14,-(sp)
429add.l #-66,(sp)
430move.l #L19,-(sp)
431move.l #L18,-(sp)
432jsr _ldermsg
433adda.l #14,sp
434*line 255
435*line 256
436move #-1,R0
437bra L13
438*line 257
439*line 258
440L16:
441*line 259
442*line 259
443move.b -2(R14),R0
444ext.w R0
445move R0,R8
446add.l R8,R8
447add.l R8,R8
448move.l #_scsizes,R9
449move 2(R8,R9.l),R0
450sub #1,R0
451ext.l R0
452move.l R0,(sp)
453move.l R13,-(sp)
454jsr _skp_ec
455addq.l #4,sp
456tst R0
457beq L20
458*line 260
459*line 261
460move 12(R14),(sp)
461jsr _skperr
462*line 262
463move #-1,R0
464bra L13
465*line 263
466*line 264
467*line 265
468*line 266
469L20:
470*line 267
471L23:
472*line 268
473*line 269
474*line 269
475move.l #$1,(sp)
476move.l R14,-(sp)
477sub.l #2,(sp)
478move.l R13,-(sp)
479jsr _rd_ec
480addq.l #8,sp
481tst R0
482beq L24
483*line 270
484*line 271
485move 12(R14),(sp)
486jsr _skperr
487*line 272
488move #-1,R0
489bra L13
490*line 273
491*line 274
492*line 275
493*line 276
494L24:
495*line 277
496*line 277
497move.b -2(R14),R0
498ext.w R0
499move R0,R8
500add.l R8,R8
501add.l R8,R8
502move.l #_scsizes,R9
503move 2(R8,R9.l),R0
504sub #1,R0
505ext.l R0
506move.l R0,(sp)
507move.l R13,-(sp)
508jsr _skp_ec
509addq.l #4,sp
510tst R0
511beq L25
512*line 278
513*line 279
514move 12(R14),(sp)
515jsr _skperr
516*line 280
517move #-1,R0
518bra L13
519*line 281
520*line 282
521L25:
522*line 283
523*line 284
524cmp.b #21,-2(R14)
525bne L26
526*line 284
527clr R6
528*line 285
529L26:L22:
530*line 286
531tst R6
532bne L23
533L21:
534*line 288
535clr R0
536bra L13
537L13:tst.l (sp)+
538movem.l (sp)+,R6-R7/R13-R13
539unlk R14
540rts
541.globl _ldermsg
542.text
543_ldermsg:
544~~ldermsg:
545~p1=8
546~p2=12
547~p3=16
548~p4=20
549~p5=22
550link R14,#-68
551~msgbuf=-64
552*line 306
553*line 306
554tst _lderrsw
555bne L28
556*line 307
557*line 308
558move.l #L29,(sp)
559move.l R14,-(sp)
560add.l #-64,(sp)
561jsr _strcpy
562addq.l #4,sp
563*line 309
564move.l 8(R14),(sp)
565move.l R14,-(sp)
566add.l #-64,(sp)
567jsr _strcat
568addq.l #4,sp
569*line 310
570*line 311
571move 22(R14),(sp)
572move 20(R14),-(sp)
573move.l 16(R14),-(sp)
574move.l 12(R14),-(sp)
575move.l 8(R14),-(sp)
576jsr _ldwmsg
577adda.l #14,sp
578*line 312
579*line 313
580L28:
581*line 314
582move #1,_lderrsw
583L27:unlk R14
584rts
585.globl _clrerms
586.text
587_clrerms:
588~~clrerms:
589link R14,#-4
590*line 325
591*line 325
592tst _lderrsw
593beq L31
594*line 326
595*line 327
596clr _lderrsw
597*line 328
598jsr _lmwclr
599*line 329
600move #10,(sp)
601jsr _ldswin
602*line 330
603L31:L30:unlk R14
604rts
605.globl _clrlsel
606.text
607_clrlsel:
608~~clrlsel:
609link R14,#-4
610*line 344
611*line 344
612tst _lselsw
613beq L33
614*line 345
615*line 346
616*line 346
617tst _lrasw
618beq L34
619*line 347
620*line 348
621move #-1,_lksel
622*line 349
623clr _ldpass
624*line 350
625move _oldpk,_pkctrl
626*line 351
627move _oldsl,_sliders
628*line 352
629move.l _oldsw,_swpt
630*line 353
631jsr _lcdlbls
632*line 354
633jsr _setleds
634*line 355
635jsr _fcindex
636*line 356
637bra L35
638L34:
639*line 357
640*line 358
641*line 359
642move _ldrow,(sp)
643move 24+_ldbox,-(sp)
644jsr _exp_c
645addq.l #2,sp
646move R0,-(sp)
647move _ldslot,-(sp)
648jsr _dslslot
649addq.l #4,sp
650L35:
651*line 360
652*line 361
653*line 362
654L33:
655*line 363
656jsr _fcreset
657L32:unlk R14
658rts
659.globl _endltyp
660.text
661_endltyp:
662~~endltyp:
663link R14,#-4
664*line 374
665jsr _lmwclr
666*line 375
667move #10,(sp)
668jsr _ldswin
669L36:unlk R14
670rts
671.globl _savefc
672.text
673_savefc:
674~~savefc:
675~kind=8
676link R14,#-6
677~fi=-2
678*line 392
679move 8(R14),R8
680sub #1,R8
681add.l R8,R8
682add.l #_ft2lt,R8
683move (R8),-2(R14)
684*line 394
685*line 395
686cmp #7,8(R14)
687bne L38
688*line 395
689tst _lorchl
690beq L10000
691move #2,R0
692bra L10002
693L10000:move #1,R0
694L10002:move R0,-2(R14)
695*line 396
696L38:
697*line 397
698move #8,(sp)
699move.l #_ldfile,-(sp)
700move -2(R14),R0
701asl #3,R0
702ext.l R0
703add.l #_loadedf,R0
704move.l R0,-(sp)
705jsr _memcpy
706addq.l #8,sp
707*line 398
708move #37,(sp)
709move.l #_ldcmnt,-(sp)
710move -2(R14),R0
711muls #37,R0
712add.l #_loadedc,R0
713move.l R0,-(sp)
714jsr _memcpy
715addq.l #8,sp
716L37:unlk R14
717rts
718.globl _lcancel
719.text
720_lcancel:
721~~lcancel:
722~lct=8
723link R14,#-6
724~rc=-2
725*line 416
726clr -2(R14)
727*line 418
728*line 418
729tst 8(R14)
730beq L40
731tst _lselsw
732beq L40
733*line 419
734*line 420
735move #1,-2(R14)
736*line 421
737jsr _clrlsel
738*line 422
739*line 423
740L40:
741*line 424
742*line 424
743cmp #1,8(R14)
744beq L41
745tst _lstrsw
746bne L10003
747jsr _ckstor
748tst R0
749bne L41
750L10003:*line 425
751*line 426
752move #1,-2(R14)
753*line 427
754jsr _streset
755*line 428
756*line 429
757L41:
758*line 430
759*line 430
760cmp #2,8(R14)
761beq L42
762tst _ldelsw
763beq L42
764*line 431
765*line 432
766move #1,-2(R14)
767*line 433
768clr _ldelsw
769*line 434
770move _ldrow,(sp)
771move 24+_ldbox,-(sp)
772jsr _exp_c
773addq.l #2,sp
774move R0,-(sp)
775move _ldslot,-(sp)
776jsr _dslslot
777addq.l #4,sp
778*line 435
779*line 436
780L42:
781*line 437
782move -2(R14),R0
783bra L39
784L39:unlk R14
785rts
786.globl _dpy_scr
787.text
788_dpy_scr:
789~~dpy_scr:
790~color=8
791~ns=10
792link R14,#-48
793~buf=-40
794~scl=-44
795*line 456
796*line 457
797tst _ndisp
798bne L43
799*line 458
800*line 459
801*line 460
802clr R0
803move 10+_v_regs,R0
804and #384,R0
805beq L44
806*line 460
807clr (sp)
808jsr _vbank
809*line 461
810L44:
811*line 462
812*line 463
813move 10(R14),R8
814add.l R8,R8
815add.l #_ldmap,R8
816cmp #-1,(R8)
817bne L45
818*line 463
819move.l #L46,(sp)
820move.l R14,-(sp)
821add.l #-40,(sp)
822jsr _strcpy
823addq.l #4,sp
824*line 464
825bra L47
826L45:
827*line 465
828move 10(R14),R8
829add.l R8,R8
830move.l #_ldmap,R9
831move 0(R8,R9.l),(sp)
832add #1,(sp)
833move.l #L48,-(sp)
834move.l R14,-(sp)
835add.l #-40,(sp)
836jsr _sprintf
837addq.l #8,sp
838L47:
839*line 467
840move #14,(sp)
841move.l R14,-(sp)
842add.l #-40,(sp)
843move #1,-(sp)
844move 10(R14),-(sp)
845add #1,(sp)
846move 26+_ldbox,-(sp)
847move 24+_ldbox,-(sp)
848move #64,-(sp)
849move.l _librob,-(sp)
850jsr _vcputsv
851adda.l #18,sp
852*line 469
853*line 470
854move 10(R14),R0
855muls #20,R0
856move.l R0,R8
857move.l #_sindex,R9
858move.l 0(R8,R9.l),R0
859move.l R0,-44(R14)
860cmp.l #$ffffffff,R0
861bne L49
862*line 470
863move.l #L50,(sp)
864move.l R14,-(sp)
865add.l #-40,(sp)
866jsr _strcpy
867addq.l #4,sp
868*line 471
869bra L51
870L49:
871*line 472
872move.l -44(R14),(sp)
873move 10(R14),R0
874muls #20,R0
875add.l #_sindex,R0
876move.l R0,-(sp)
877add.l #4,(sp)
878move.l #L52,-(sp)
879move.l R14,-(sp)
880add.l #-40,(sp)
881jsr _sprintf
882adda.l #12,sp
883L51:
884*line 474
885move #14,(sp)
886move.l R14,-(sp)
887add.l #-40,(sp)
888move #4,-(sp)
889move 10(R14),-(sp)
890add #1,(sp)
891move 26+_ldbox,-(sp)
892move 8(R14),-(sp)
893move #64,-(sp)
894move.l _librob,-(sp)
895jsr _vcputsv
896adda.l #18,sp
897L43:unlk R14
898rts
899.globl _lst_scr
900.text
901_lst_scr:
902~~lst_scr:
903link R14,#-2
904movem.l R6-R7,-(sp)
905~i=R7
906~cx=-2
907*line 491
908*line 492
909tst _ndisp
910bne L53
911*line 493
912*line 494
913move.l #_ldpoint,_point
914*line 496
915move 10+_ldbox,(sp)
916jsr _exp_c
917move R0,-2(R14)
918*line 498
919*line 499
920clr R0
921move 10+_v_regs,R0
922and #384,R0
923beq L54
924*line 499
925clr (sp)
926jsr _vbank
927*line 500
928L54:
929*line 501
930*line 502
931move -2(R14),(sp)
932move 6+_ldbox,-(sp)
933move 4+_ldbox,-(sp)
934move 2+_ldbox,-(sp)
935move _ldbox,-(sp)
936move #128,-(sp)
937move.l _librob,-(sp)
938jsr _vbfill4
939adda.l #14,sp
940*line 504
941*line 505
942move #14,(sp)
943move.l #L55,-(sp)
944move 14+_ldbox,-(sp)
945move 12+_ldbox,-(sp)
946move 8+_ldbox,-(sp)
947move #64,-(sp)
948move.l _librob,-(sp)
949jsr _tsplot4
950adda.l #16,sp
951*line 507
952move #12,(sp)
953move #13,-(sp)
954move #23,-(sp)
955move #13,-(sp)
956move #8,-(sp)
957jsr _lseg
958addq.l #8,sp
959*line 508
960move #12,(sp)
961move #13,-(sp)
962move #159,-(sp)
963move #13,-(sp)
964move #32,-(sp)
965jsr _lseg
966addq.l #8,sp
967*line 509
968move #12,(sp)
969move #13,-(sp)
970move #215,-(sp)
971move #13,-(sp)
972move #168,-(sp)
973jsr _lseg
974addq.l #8,sp
975*line 511
976move 26+_ldbox,(sp)
977jsr _exp_c
978move R0,-2(R14)
979*line 513
980*line 514
981move -2(R14),(sp)
982move 22+_ldbox,-(sp)
983move 20+_ldbox,-(sp)
984move 18+_ldbox,-(sp)
985move 16+_ldbox,-(sp)
986move #128,-(sp)
987move.l _librob,-(sp)
988jsr _vbfill4
989adda.l #14,sp
990*line 516
991clr R7
992bra L58
993L59:
994*line 517
995move R7,(sp)
996move 24+_ldbox,-(sp)
997jsr _dpy_scr
998addq.l #2,sp
999L57:
1000*line 516
1001add #1,R7
1002L58:
1003*line 516
1004cmp #20,R7
1005blt L59
1006L56:L53:tst.l (sp)+
1007movem.l (sp)+,R7-R7
1008unlk R14
1009rts
1010.globl _ndx_scr
1011.text
1012_ndx_scr:
1013~~ndx_scr:
1014~slot=R7
1015link R14,#-132
1016movem.l R4-R7/R13-R13,-(sp)
1017~fp=R13
1018~i=R6
1019~rlen=R5
1020~rdlen=-4
1021~msgbuf1=-68
1022~msgbuf2=-132
1023*line 540
1024move 8(R14),R7
1025*line 540
1026clr _ldpass
1027*line 542
1028clr R6
1029bra L63
1030L64:
1031*line 543
1032*line 544
1033move R6,R0
1034muls #20,R0
1035add.l #_sindex,R0
1036move.l R0,R8
1037move.l #$ffffffff,(R8)
1038*line 545
1039move #16,(sp)
1040move #32,-(sp)
1041move R6,R0
1042muls #20,R0
1043add.l #_sindex,R0
1044move.l R0,-(sp)
1045add.l #4,(sp)
1046jsr _memset
1047addq.l #6,sp
1048L62:
1049*line 542
1050add #1,R6
1051L63:
1052*line 542
1053cmp #20,R6
1054blt L64
1055L61:
1056*line 548
1057clr _errno
1058*line 550
1059*line 550
1060move.l #L65,(sp)
1061move #4,-(sp)
1062move R7,-(sp)
1063jsr _slotnam
1064addq.l #4,sp
1065move.l R0,-(sp)
1066jsr _fopenb
1067addq.l #4,sp
1068move.l R0,R13
1069move.l R13,R0
1070bne L66
1071*line 551
1072*line 552
1073move _errno,(sp)
1074move.l #L67,-(sp)
1075move.l R14,-(sp)
1076add.l #-132,(sp)
1077jsr _sprintf
1078addq.l #8,sp
1079*line 553
1080*line 554
1081*line 555
1082*line 556
1083move #9,(sp)
1084move #14,-(sp)
1085move.l R14,-(sp)
1086add.l #-132,(sp)
1087move.l #L69,-(sp)
1088move.l #L68,-(sp)
1089jsr _ldermsg
1090adda.l #14,sp
1091*line 557
1092*line 558
1093jsr _clrlsel
1094*line 559
1095move #-1,R0
1096bra L60
1097*line 560
1098*line 561
1099L66:
1100*line 562
1101clr _errno
1102*line 564
1103*line 564
1104move #1,(sp)
1105move.l #$3c,-(sp)
1106move.l R13,-(sp)
1107jsr _fseek
1108addq.l #8,sp
1109tst R0
1110beq L70
1111*line 565
1112*line 566
1113move _errno,(sp)
1114move.l #L71,-(sp)
1115move.l R14,-(sp)
1116add.l #-132,(sp)
1117jsr _sprintf
1118addq.l #8,sp
1119*line 567
1120*line 568
1121*line 569
1122*line 570
1123move #9,(sp)
1124move #14,-(sp)
1125move.l R14,-(sp)
1126add.l #-132,(sp)
1127clr.l -(sp)
1128move.l #L72,-(sp)
1129jsr _ldermsg
1130adda.l #14,sp
1131*line 571
1132*line 572
1133*line 576
1134*line 577
1135*line 578
1136move.l R13,(sp)
1137jsr _fclose
1138*line 579
1139jsr _postio
1140*line 580
1141jsr _clrlsel
1142*line 581
1143move #-1,R0
1144bra L60
1145*line 582
1146*line 583
1147*line 584
1148*line 585
1149*line 589
1150*line 590
1151L70:
1152*line 591
1153clr R6
1154bra L75
1155L76:
1156*line 592
1157*line 593
1158*line 593
1159move.l #$4,(sp)
1160move.l R14,-(sp)
1161sub.l #4,(sp)
1162move.l R13,-(sp)
1163jsr _rd_ec
1164addq.l #8,sp
1165tst R0
1166beq L77
1167*line 594
1168*line 595
1169move R6,(sp)
1170add #1,(sp)
1171move.l #L78,-(sp)
1172move.l R14,-(sp)
1173add.l #-68,(sp)
1174jsr _sprintf
1175addq.l #8,sp
1176*line 596
1177move _errno,(sp)
1178move.l #L79,-(sp)
1179move.l R14,-(sp)
1180add.l #-132,(sp)
1181jsr _sprintf
1182addq.l #8,sp
1183*line 597
1184*line 598
1185*line 599
1186*line 600
1187move #9,(sp)
1188move #14,-(sp)
1189move.l R14,-(sp)
1190add.l #-132,(sp)
1191move.l R14,-(sp)
1192add.l #-68,(sp)
1193move.l #L80,-(sp)
1194jsr _ldermsg
1195adda.l #14,sp
1196*line 601
1197*line 602
1198*line 606
1199*line 607
1200*line 608
1201jsr _clrlsel
1202*line 609
1203move #-1,R0
1204bra L60
1205*line 610
1206*line 611
1207L77:
1208*line 612
1209move R6,R0
1210muls #20,R0
1211add.l #_sindex,R0
1212move.l R0,R8
1213move.l -4(R14),(R8)
1214*line 613
1215*line 614
1216*line 614
1217cmp.l #$ffffffff,-4(R14)
1218beq L81
1219*line 615
1220*line 616
1221*line 616
1222move.l #$10,(sp)
1223move R6,R0
1224muls #20,R0
1225add.l #_sindex,R0
1226move.l R0,-(sp)
1227add.l #4,(sp)
1228move.l R13,-(sp)
1229jsr _rd_ec
1230addq.l #8,sp
1231tst R0
1232beq L82
1233*line 617
1234*line 618
1235move R6,(sp)
1236add #1,(sp)
1237move.l #L83,-(sp)
1238move.l R14,-(sp)
1239add.l #-68,(sp)
1240jsr _sprintf
1241addq.l #8,sp
1242*line 619
1243move _errno,(sp)
1244move.l #L84,-(sp)
1245move.l R14,-(sp)
1246add.l #-132,(sp)
1247jsr _sprintf
1248addq.l #8,sp
1249*line 620
1250*line 621
1251*line 622
1252*line 623
1253move #9,(sp)
1254move #14,-(sp)
1255move.l R14,-(sp)
1256add.l #-132,(sp)
1257move.l R14,-(sp)
1258add.l #-68,(sp)
1259move.l #L85,-(sp)
1260jsr _ldermsg
1261adda.l #14,sp
1262*line 624
1263*line 625
1264*line 629
1265*line 630
1266*line 631
1267jsr _clrlsel
1268*line 632
1269move #-1,R0
1270bra L60
1271*line 633
1272*line 634
1273L82:
1274*line 635
1275clr _errno
1276*line 636
1277*line 637
1278*line 637
1279move R6,(sp)
1280move.l R13,-(sp)
1281jsr _scskip
1282addq.l #4,sp
1283tst R0
1284beq L86
1285*line 638
1286*line 639
1287move R6,(sp)
1288add #1,(sp)
1289move.l #L87,-(sp)
1290move.l R14,-(sp)
1291add.l #-68,(sp)
1292jsr _sprintf
1293addq.l #8,sp
1294*line 640
1295*line 641
1296move.l R5,(sp)
1297move _errno,-(sp)
1298move.l #L88,-(sp)
1299move.l R14,-(sp)
1300add.l #-132,(sp)
1301jsr _sprintf
1302adda.l #10,sp
1303*line 642
1304*line 643
1305*line 644
1306*line 645
1307move #9,(sp)
1308move #14,-(sp)
1309move.l R14,-(sp)
1310add.l #-132,(sp)
1311move.l R14,-(sp)
1312add.l #-68,(sp)
1313move.l #L89,-(sp)
1314jsr _ldermsg
1315adda.l #14,sp
1316*line 646
1317*line 647
1318*line 651
1319*line 652
1320*line 653
1321move.l R13,(sp)
1322jsr _fclose
1323*line 654
1324jsr _postio
1325*line 655
1326jsr _clrlsel
1327*line 656
1328move #-1,R0
1329bra L60
1330*line 657
1331L86:
1332*line 658
1333L81:L74:
1334*line 591
1335add #1,R6
1336L75:
1337*line 591
1338cmp #20,R6
1339blt L76
1340L73:
1341*line 661
1342move.l R13,(sp)
1343jsr _fclose
1344*line 662
1345jsr _postio
1346*line 663
1347move #1,_ldpass
1348*line 664
1349jsr _lst_scr
1350*line 668
1351move.l #_GLCplot,_point
1352*line 669
1353move #1,(sp)
1354jsr _GLCcurs
1355*line 671
1356*line 671
1357tst _ismode
1358beq L90
1359*line 672
1360*line 673
1361clr _ismode
1362*line 674
1363move _oldpk,_pkctrl
1364*line 675
1365move _oldsl,_sliders
1366*line 676
1367move.l _oldsw,_swpt
1368*line 677
1369jsr _lcdlbls
1370*line 678
1371*line 679
1372L90:
1373*line 680
1374*line 680
1375tst _gomode
1376beq L91
1377*line 681
1378*line 682
1379clr _gomode
1380*line 683
1381move _oldpk,_pkctrl
1382*line 684
1383clr (sp)
1384move #54,-(sp)
1385move #215,-(sp)
1386move #54,-(sp)
1387move #186,-(sp)
1388jsr _lseg
1389addq.l #8,sp
1390*line 685
1391*line 686
1392L91:
1393*line 687
1394*line 687
1395tst _asmode
1396beq L92
1397*line 688
1398*line 689
1399clr _asmode
1400*line 690
1401move _oldpk,_pkctrl
1402*line 691
1403move.l _oldsw,_swpt
1404*line 692
1405clr (sp)
1406move #54,-(sp)
1407move #287,-(sp)
1408move #54,-(sp)
1409move #258,-(sp)
1410jsr _lseg
1411addq.l #8,sp
1412*line 693
1413*line 694
1414L92:
1415*line 695
1416*line 696
1417tst _pkctrl
1418beq L10004
1419cmp #1,_pkctrl
1420bne L93
1421L10004:*line 696
1422move _pkctrl,_oldpk
1423*line 697
1424L93:
1425*line 698
1426*line 699
1427cmp #5,_sliders
1428beq L94
1429*line 699
1430move _sliders,_oldsl
1431*line 700
1432L94:
1433*line 701
1434move.l _swpt,_oldsw
1435*line 702
1436move.l #_t_libr,_swpt
1437*line 703
1438move #5,_pkctrl
1439*line 704
1440move #5,_sliders
1441*line 706
1442jsr _lcdlbls
1443*line 707
1444jsr _setleds
1445*line 709
1446clr R0
1447bra L60
1448L60:tst.l (sp)+
1449movem.l (sp)+,R5-R7/R13-R13
1450unlk R14
1451rts
1452.globl _getit
1453.text
1454_getit:
1455~~getit:
1456link R14,#-4
1457*line 724
1458move _ldslot,(sp)
1459jsr _ftkind
1460move R0,_ldkind
1461*line 726
1462*line 726
1463cmp #-1,_ldkind
1464bne L96
1465*line 727
1466*line 728
1467*line 729
1468*line 730
1469move #9,(sp)
1470move #14,-(sp)
1471clr.l -(sp)
1472clr.l -(sp)
1473move.l #L97,-(sp)
1474jsr _ldermsg
1475adda.l #14,sp
1476*line 731
1477*line 732
1478jsr _clrlsel
1479*line 733
1480move #-1,R0
1481bra L95
1482*line 734
1483*line 735
1484L96:
1485*line 736
1486move.l #L98,(sp)
1487jsr _ldbusy
1488*line 739
1489move _ldkind,R0
1490bra L100
1491*line 740
1492L101:
1493*line 741
1494*line 742
1495*line 743
1496*line 744
1497jsr _get_asg
1498tst R0
1499beq L102
1500*line 744
1501move #-1,R0
1502bra L95
1503*line 745
1504L102:bra L99
1505*line 746
1506*line 747
1507L103:
1508*line 748
1509L104:
1510*line 749
1511L105:
1512*line 750
1513*line 751
1514*line 752
1515*line 753
1516move _ldkind,(sp)
1517move _lorchl,-(sp)
1518jsr _get_orc
1519addq.l #2,sp
1520tst R0
1521beq L106
1522*line 753
1523move #-1,R0
1524bra L95
1525*line 754
1526L106:bra L99
1527*line 755
1528*line 756
1529L107:
1530*line 757
1531*line 758
1532*line 759
1533*line 760
1534jsr _get_pat
1535tst R0
1536beq L108
1537*line 760
1538move #-1,R0
1539bra L95
1540*line 761
1541L108:bra L99
1542*line 762
1543*line 763
1544L109:
1545*line 764
1546*line 765
1547*line 766
1548*line 767
1549jsr _get_scr
1550tst R0
1551beq L110
1552*line 767
1553move #-1,R0
1554bra L95
1555*line 768
1556L110:bra L99
1557*line 769
1558*line 770
1559L111:
1560*line 771
1561*line 772
1562*line 773
1563*line 774
1564jsr _get_seq
1565tst R0
1566beq L112
1567*line 774
1568move #-1,R0
1569bra L95
1570*line 775
1571L112:bra L99
1572*line 776
1573*line 777
1574L113:
1575*line 778
1576*line 779
1577*line 780
1578*line 781
1579jsr _get_tun
1580tst R0
1581beq L114
1582*line 781
1583move #-1,R0
1584bra L95
1585*line 782
1586L114:bra L99
1587*line 783
1588*line 784
1589L115:
1590*line 785
1591*line 786
1592*line 787
1593*line 788
1594jsr _get_wav
1595tst R0
1596beq L116
1597*line 788
1598move #-1,R0
1599bra L95
1600*line 789
1601L116:bra L99
1602*line 790
1603*line 791
1604L117:
1605*line 792
1606*line 793
1607*line 794
1608*line 795
1609*line 796
1610move #9,(sp)
1611move #14,-(sp)
1612clr.l -(sp)
1613clr.l -(sp)
1614move.l #L118,-(sp)
1615jsr _ldermsg
1616adda.l #14,sp
1617*line 797
1618*line 798
1619jsr _clrlsel
1620*line 799
1621move #-1,R0
1622bra L95
1623bra L99
1624L100:sub #1,R0
1625cmp #8,R0
1626bhi L117
1627asl #2,R0
1628move R0,R8
1629add.l #L119,R8
1630move.l (R8),R8
1631jmp (R8)
1632.data
1633L119:.dc.l L101
1634.dc.l L104
1635.dc.l L103
1636.dc.l L109
1637.dc.l L113
1638.dc.l L115
1639.dc.l L105
1640.dc.l L107
1641.dc.l L111
1642.text
1643L99:
1644*line 804
1645move #8,(sp)
1646move _ldslot,R0
1647muls #56,R0
1648add.l #_filecat,R0
1649move.l R0,-(sp)
1650add.l #4,(sp)
1651move.l #_ldfile,-(sp)
1652jsr _memcpy
1653addq.l #8,sp
1654*line 805
1655move #37,(sp)
1656move _ldslot,R0
1657muls #56,R0
1658add.l #_filecat,R0
1659move.l R0,-(sp)
1660add.l #17,(sp)
1661move.l #_ldcmnt,-(sp)
1662jsr _memcpy
1663addq.l #8,sp
1664*line 806
1665move _ldkind,(sp)
1666jsr _savefc
1667*line 808
1668jsr _clrlsel
1669*line 810
1670*line 810
1671tst _lrasw
1672beq L120
1673*line 811
1674*line 812
1675clr (sp)
1676jsr _ldswin
1677*line 813
1678move #8,(sp)
1679jsr _ldswin
1680*line 814
1681*line 815
1682L120:
1683*line 816
1684move #3,(sp)
1685jsr _ldswin
1686*line 817
1687move #5,(sp)
1688jsr _ldswin
1689*line 818
1690jsr _showsiz
1691*line 819
1692clr R0
1693bra L95
1694L95:unlk R14
1695rts
1696.globl _ldfnbox
1697.text
1698_ldfnbox:
1699~~ldfnbox:
1700~n=8
1701link R14,#0
1702movem.l R3-R7,-(sp)
1703~col=R7
1704~i=R6
1705~slot=R5
1706~sn=R4
1707*line 837
1708move _hitcx,R7
1709asr #3,R7
1710*line 839
1711*line 840
1712tst _lderrsw
1713beq L122
1714*line 840
1715jsr _clrerms
1716*line 841
1717L122:
1718*line 842
1719move 8(R14),R0
1720bra L124
1721*line 843
1722L125:
1723*line 844
1724*line 845
1725*line 846
1726*line 847
1727clr (sp)
1728jsr _lcancel
1729tst R0
1730beq L126
1731*line 847
1732clr R0
1733bra L121
1734*line 848
1735L126:
1736*line 849
1737*line 849
1738tst _lselsw
1739beq L127
1740*line 850
1741*line 851
1742*line 851
1743tst _lrasw
1744beq L128
1745*line 852
1746*line 853
1747*line 853
1748cmp #4,_ldkind
1749bne L129
1750*line 854
1751*line 855
1752move _hitcy,(sp)
1753jsr _ldline
1754move R0,R4
1755sub #1,R4
1756*line 856
1757*line 857
1758*line 857
1759move R4,R0
1760muls #20,R0
1761add.l #_sindex,R0
1762move.l R0,R8
1763cmp.l #$ffffffff,(R8)
1764beq L130
1765*line 858
1766*line 859
1767*line 859
1768move R4,R0
1769add #1,R0
1770cmp _ldrow,R0
1771beq L131
1772*line 860
1773*line 861
1774move _ldrow,(sp)
1775sub #1,(sp)
1776move 24+_ldbox,-(sp)
1777jsr _dpy_scr
1778addq.l #2,sp
1779*line 862
1780move R4,R0
1781add #1,R0
1782move R0,_ldrow
1783*line 863
1784*line 864
1785L131:
1786*line 865
1787move R4,(sp)
1788move #13,-(sp)
1789jsr _dpy_scr
1790addq.l #2,sp
1791*line 866
1792move R4,_lksel
1793*line 867
1794bra L132
1795L130:
1796*line 868
1797*line 869
1798*line 870
1799move #-1,_lksel
1800L132:
1801*line 871
1802*line 872
1803*line 873
1804clr R0
1805bra L121
1806*line 874
1807L129:
1808*line 875
1809*line 876
1810L128:
1811*line 877
1812*line 877
1813move _hitcy,(sp)
1814jsr _ldline
1815cmp _ldrow,R0
1816beq L133
1817*line 878
1818*line 879
1819jsr _clrlsel
1820*line 880
1821clr R0
1822bra L121
1823*line 881
1824*line 882
1825L133:
1826*line 883
1827jsr _getit
1828bra L121
1829*line 884
1830*line 885
1831bra L134
1832L127:
1833*line 886
1834*line 887
1835*line 888
1836*line 888
1837move _hitcy,(sp)
1838jsr _ldline
1839move R0,_ldrow
1840beq L135
1841*line 889
1842*line 890
1843*line 890
1844cmp #11,R7
1845bne L136
1846*line 891
1847*line 892
1848*line 892
1849tst _catin
1850beq L137
1851tst _ltagged
1852beq L137
1853*line 893
1854*line 894
1855move _ldrow,(sp)
1856jsr _lin2slt
1857move R0,R5
1858*line 895
1859*line 896
1860*line 896
1861cmp _tagslot,R5
1862bne L138
1863*line 897
1864*line 898
1865jsr _putcat
1866*line 899
1867clr _ltagged
1868*line 900
1869jsr _showcat
1870*line 901
1871L138:
1872*line 902
1873*line 903
1874L137:bra L139
1875L136:
1876*line 904
1877*line 905
1878*line 906
1879*line 906
1880move _ldrow,(sp)
1881jsr _lin2slt
1882move R0,_ldslot
1883cmp #-1,R0
1884beq L140
1885*line 907
1886*line 908
1887move #1,_lselsw
1888*line 909
1889move #8,(sp)
1890jsr _ldswin
1891*line 910
1892move _ldslot,(sp)
1893jsr _ftkind
1894move R0,_ldkind
1895*line 911
1896*line 912
1897clr R6
1898bra L143
1899L144:
1900*line 913
1901move R6,R8
1902add.l R8,R8
1903add.l #_ldmap,R8
1904move R6,(R8)
1905L142:
1906*line 912
1907add #1,R6
1908L143:
1909*line 912
1910cmp #20,R6
1911blt L144
1912L141:
1913*line 913
1914*line 914
1915*line 915
1916*line 916
1917tst _lrasw
1918beq L145
1919cmp #4,_ldkind
1920bne L145
1921*line 916
1922move _ldslot,(sp)
1923jsr _ndx_scr
1924bra L121
1925*line 917
1926L145:
1927*line 918
1928move _ldrow,(sp)
1929move #13,-(sp)
1930jsr _exp_c
1931addq.l #2,sp
1932move R0,-(sp)
1933move _ldslot,-(sp)
1934jsr _dslslot
1935addq.l #4,sp
1936*line 919
1937clr R0
1938bra L121
1939*line 920
1940L140:L139:
1941*line 921
1942*line 922
1943*line 923
1944L135:
1945*line 924
1946jsr _clrlsel
1947*line 925
1948move #-1,R0
1949bra L121
1950L134:
1951*line 926
1952*line 927
1953*line 928
1954L146:
1955*line 929
1956*line 930
1957*line 931
1958*line 932
1959move #3,(sp)
1960jsr _lcancel
1961tst R0
1962beq L147
1963*line 932
1964clr R0
1965bra L121
1966*line 933
1967L147:
1968*line 934
1969*line 934
1970cmp #1,_lmwtype
1971beq L148
1972*line 935
1973*line 936
1974jsr _lmwvtyp
1975*line 937
1976move #10,(sp)
1977jsr _ldswin
1978*line 938
1979*line 939
1980*line 940
1981*line 941
1982move 8(R14),R0
1983asl #4,R0
1984ext.l R0
1985move.l R0,R8
1986move.l #_ldbox,R9
1987move 10(R8,R9.l),(sp)
1988move 8(R14),R0
1989asl #4,R0
1990ext.l R0
1991move.l R0,R8
1992move.l #_ldbox,R9
1993move 8(R8,R9.l),-(sp)
1994move.l #_endltyp,-(sp)
1995move.l #_nokey,-(sp)
1996move.l #_nokey,-(sp)
1997move.l #_bsplcur,-(sp)
1998move.l #_advlcur,-(sp)
1999move #33,-(sp)
2000move #22,-(sp)
2001move.l #_ldfile,-(sp)
2002move #10,-(sp)
2003move.l #_vtdisp,-(sp)
2004move.l _librob,-(sp)
2005jsr _vtsetup
2006adda.l #40,sp
2007*line 942
2008bra L149
2009L148:
2010*line 943
2011*line 944
2012*line 945
2013jsr _vtyper
2014L149:
2015*line 946
2016*line 947
2017*line 948
2018clr R0
2019bra L121
2020*line 949
2021L150:
2022*line 950
2023*line 951
2024*line 952
2025*line 953
2026move #3,(sp)
2027jsr _lcancel
2028tst R0
2029beq L151
2030*line 953
2031clr R0
2032bra L121
2033*line 954
2034L151:
2035*line 955
2036*line 955
2037cmp #1,_lmwtype
2038beq L152
2039*line 956
2040*line 957
2041jsr _lmwvtyp
2042*line 958
2043move #10,(sp)
2044jsr _ldswin
2045*line 959
2046*line 960
2047*line 961
2048*line 962
2049move 8(R14),R0
2050asl #4,R0
2051ext.l R0
2052move.l R0,R8
2053move.l #_ldbox,R9
2054move 10(R8,R9.l),(sp)
2055move 8(R14),R0
2056asl #4,R0
2057ext.l R0
2058move.l R0,R8
2059move.l #_ldbox,R9
2060move 8(R8,R9.l),-(sp)
2061move.l #_endltyp,-(sp)
2062move.l #_nokey,-(sp)
2063move.l #_nokey,-(sp)
2064move.l #_bsplcur,-(sp)
2065move.l #_advlcur,-(sp)
2066move #33,-(sp)
2067move #22,-(sp)
2068move.l #_ldcmnt,-(sp)
2069move #27,-(sp)
2070move.l #_vtdisp,-(sp)
2071move.l _librob,-(sp)
2072jsr _vtsetup
2073adda.l #40,sp
2074*line 963
2075bra L153
2076L152:
2077*line 964
2078*line 965
2079*line 966
2080jsr _vtyper
2081L153:
2082*line 967
2083*line 968
2084*line 969
2085clr R0
2086bra L121
2087*line 970
2088*line 971
2089*line 972
2090*line 973
2091L154:
2092*line 974
2093*line 975
2094*line 976
2095*line 977
2096clr (sp)
2097jsr _lcancel
2098tst R0
2099beq L155
2100*line 977
2101clr R0
2102bra L121
2103*line 978
2104L155:
2105*line 979
2106jsr _clrlsel
2107*line 980
2108jsr _fcindex
2109bra L121
2110*line 981
2111L156:
2112*line 982
2113*line 983
2114*line 984
2115*line 985
2116tst _lselsw
2117beq L157
2118tst _lrasw
2119beq L157
2120*line 985
2121jsr _getit
2122bra L121
2123*line 986
2124L157:
2125*line 987
2126tst _lrasw
2127beq L10005
2128clr R0
2129bra L10006
2130L10005:move #1,R0
2131L10006:move R0,_lrasw
2132*line 988
2133move #7,(sp)
2134jsr _ldswin
2135*line 989
2136clr R0
2137bra L121
2138*line 990
2139L158:
2140*line 991
2141*line 992
2142*line 993
2143tst _lorchl
2144beq L10007
2145clr R0
2146bra L10008
2147L10007:move #1,R0
2148L10008:move R0,_lorchl
2149*line 994
2150move #8,(sp)
2151jsr _ldswin
2152*line 995
2153clr R0
2154bra L121
2155*line 996
2156*line 997
2157*line 998
2158L159:
2159*line 999
2160*line 1000
2161*line 1001
2162*line 1002
2163move #1,(sp)
2164jsr _lcancel
2165tst R0
2166beq L160
2167*line 1002
2168clr R0
2169bra L121
2170*line 1003
2171L160:
2172*line 1004
2173*line 1004
2174cmp #321,_cyval
2175bge L161
2176*line 1005
2177*line 1006
2178*line 1007
2179*line 1008
2180*line 1008
2181cmp #120,_cxval
2182bge L162
2183*line 1009
2184*line 1010
2185*line 1011
2186*line 1012
2187*line 1012
2188tst _lstrsw
2189beq L163
2190*line 1013
2191*line 1014
2192jsr _storit
2193*line 1015
2194bra L164
2195L163:
2196*line 1016
2197*line 1017
2198*line 1018
2199move #1,_lstrsw
2200*line 1019
2201move #9,(sp)
2202jsr _ldswin
2203L164:
2204*line 1020
2205*line 1021
2206*line 1022
2207clr R0
2208bra L121
2209*line 1023
2210bra L165
2211L162:
2212*line 1024
2213*line 1024
2214cmp #135,_cxval
2215ble L166
2216cmp #176,_cxval
2217bge L166
2218*line 1025
2219*line 1026
2220*line 1027
2221*line 1028
2222tst _lscrsw
2223beq L10009
2224clr R0
2225bra L10010
2226L10009:move #1,R0
2227L10010:move R0,_lscrsw
2228*line 1029
2229move #9,(sp)
2230jsr _ldswin
2231*line 1030
2232*line 1031
2233*line 1032
2234tst _lstrsw
2235beq L167
2236*line 1032
2237jsr _storit
2238*line 1033
2239L167:
2240*line 1034
2241clr R0
2242bra L121
2243*line 1035
2244bra L168
2245L166:
2246*line 1036
2247*line 1036
2248cmp #191,_cxval
2249ble L169
2250*line 1037
2251*line 1038
2252*line 1039
2253*line 1040
2254tst _lorchsw
2255beq L10011
2256clr R0
2257bra L10012
2258L10011:move #1,R0
2259L10012:move R0,_lorchsw
2260*line 1041
2261move #9,(sp)
2262jsr _ldswin
2263*line 1042
2264*line 1043
2265*line 1044
2266tst _lstrsw
2267beq L170
2268*line 1044
2269jsr _storit
2270*line 1045
2271L170:
2272*line 1046
2273clr R0
2274bra L121
2275*line 1047
2276*line 1048
2277*line 1049
2278L169:L168:L165:bra L171
2279L161:
2280*line 1050
2281*line 1050
2282cmp #321,_cyval
2283ble L172
2284cmp #335,_cyval
2285bge L172
2286*line 1051
2287*line 1052
2288*line 1053
2289*line 1054
2290*line 1054
2291cmp #120,_cxval
2292bge L173
2293*line 1055
2294*line 1056
2295tst _lwavsw
2296beq L10013
2297clr R0
2298bra L10014
2299L10013:move #1,R0
2300L10014:move R0,_lwavsw
2301*line 1057
2302move #9,(sp)
2303jsr _ldswin
2304*line 1058
2305*line 1059
2306*line 1060
2307tst _lstrsw
2308beq L174
2309*line 1060
2310jsr _storit
2311*line 1061
2312L174:
2313*line 1062
2314clr R0
2315bra L121
2316*line 1063
2317bra L175
2318L173:
2319*line 1064
2320*line 1064
2321cmp #135,_cxval
2322ble L176
2323cmp #176,_cxval
2324bge L176
2325*line 1065
2326*line 1066
2327*line 1067
2328*line 1068
2329tst _lpatsw
2330beq L10015
2331clr R0
2332bra L10016
2333L10015:move #1,R0
2334L10016:move R0,_lpatsw
2335*line 1069
2336move #9,(sp)
2337jsr _ldswin
2338*line 1070
2339*line 1071
2340*line 1072
2341tst _lstrsw
2342beq L177
2343*line 1072
2344jsr _storit
2345*line 1073
2346L177:
2347*line 1074
2348clr R0
2349bra L121
2350*line 1075
2351bra L178
2352L176:
2353*line 1076
2354*line 1076
2355cmp #191,_cxval
2356ble L179
2357*line 1077
2358*line 1078
2359tst _lorclsw
2360beq L10017
2361clr R0
2362bra L10018
2363L10017:move #1,R0
2364L10018:move R0,_lorclsw
2365*line 1079
2366move #9,(sp)
2367jsr _ldswin
2368*line 1080
2369*line 1081
2370*line 1082
2371tst _lstrsw
2372beq L180
2373*line 1082
2374jsr _storit
2375*line 1083
2376L180:
2377*line 1084
2378clr R0
2379bra L121
2380*line 1085
2381*line 1086
2382*line 1087
2383L179:L178:L175:bra L181
2384L172:
2385*line 1088
2386*line 1088
2387cmp #335,_cyval
2388ble L182
2389*line 1089
2390*line 1090
2391*line 1091
2392*line 1092
2393*line 1092
2394cmp #120,_cxval
2395bge L183
2396*line 1093
2397*line 1094
2398tst _lasgsw
2399beq L10019
2400clr R0
2401bra L10020
2402L10019:move #1,R0
2403L10020:move R0,_lasgsw
2404*line 1095
2405move #9,(sp)
2406jsr _ldswin
2407*line 1096
2408*line 1097
2409*line 1098
2410tst _lstrsw
2411beq L184
2412*line 1098
2413jsr _storit
2414*line 1099
2415L184:
2416*line 1100
2417clr R0
2418bra L121
2419*line 1101
2420bra L185
2421L183:
2422*line 1102
2423*line 1102
2424cmp #135,_cxval
2425ble L186
2426cmp #176,_cxval
2427bge L186
2428*line 1103
2429*line 1104
2430*line 1105
2431*line 1106
2432tst _lseqsw
2433beq L10021
2434clr R0
2435bra L10022
2436L10021:move #1,R0
2437L10022:move R0,_lseqsw
2438*line 1107
2439move #9,(sp)
2440jsr _ldswin
2441*line 1108
2442*line 1109
2443*line 1110
2444tst _lstrsw
2445beq L187
2446*line 1110
2447jsr _storit
2448*line 1111
2449L187:
2450*line 1112
2451clr R0
2452bra L121
2453*line 1113
2454bra L188
2455L186:
2456*line 1114
2457*line 1114
2458cmp #191,_cxval
2459ble L189
2460*line 1115
2461*line 1116
2462tst _ltunsw
2463beq L10023
2464clr R0
2465bra L10024
2466L10023:move #1,R0
2467L10024:move R0,_ltunsw
2468*line 1117
2469move #9,(sp)
2470jsr _ldswin
2471*line 1118
2472*line 1119
2473*line 1120
2474tst _lstrsw
2475beq L190
2476*line 1120
2477jsr _storit
2478*line 1121
2479L190:
2480*line 1122
2481clr R0
2482bra L121
2483*line 1123
2484L189:L188:L185:
2485*line 1124
2486*line 1125
2487L182:L181:L171:
2488*line 1126
2489move #-1,R0
2490bra L121
2491*line 1127
2492L191:
2493*line 1128
2494*line 1129
2495*line 1130
2496move #3,(sp)
2497jsr _lcancel
2498*line 1131
2499move #-1,R0
2500bra L121
2501bra L123
2502L124:sub #1,R0
2503cmp #8,R0
2504bhi L191
2505asl #2,R0
2506move R0,R8
2507add.l #L192,R8
2508move.l (R8),R8
2509jmp (R8)
2510.data
2511L192:.dc.l L125
2512.dc.l L191
2513.dc.l L146
2514.dc.l L191
2515.dc.l L150
2516.dc.l L154
2517.dc.l L156
2518.dc.l L158
2519.dc.l L159
2520.text
2521L123:L121:tst.l (sp)+
2522movem.l (sp)+,R4-R7
2523unlk R14
2524rts
2525.data
2526L2:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
2527L3:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2528L4:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$73,$6B,$69,$70,$0
2529L11:.dc.b $65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2530L12:.dc.b $55,$6E,$65,$78,$70,$65,$63,$74,$65,$64,$20,$45,$4F,$46,$0
2531L17:.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
2532L18:.dc.b $42,$61,$64,$20,$73,$63,$6F,$72,$65,$20,$2D,$2D,$0
2533L19:.dc.b $20,$20,$31,$73,$74,$20,$65,$76,$65,$6E,$74,$20,$69,$73,$20,$77,$72,$6F,$6E,$67,$0
2534L29:.dc.b $45,$52,$52,$4F,$52,$3A,$20,$0
2535L46:.dc.b $20,$20,$0
2536L48:.dc.b $25,$30,$32,$64,$0
2537L50:.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
2538L52:.dc.b $25,$2D,$31,$36,$2E,$31,$36,$73,$20,$20,$25,$35,$6C,$64,$0
2539L55:.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
2540L65:.dc.b $72,$0
2541L67:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2542L68:.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
2543L69:.dc.b $20,$20,$66,$6F,$72,$20,$74,$68,$65,$20,$73,$63,$6F,$72,$65,$73,$0
2544L71:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2545L72:.dc.b $53,$65,$65,$6B,$20,$66,$61,$69,$6C,$75,$72,$65,$0
2546L78:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
2547L79:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2548L80:.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
2549L83:.dc.b $20,$20,$6F,$66,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
2550L84:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
2551L85:.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
2552L87:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
2553L88:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$3D,$25,$64,$20,$20,$72,$6C,$65,$6E,$3D,$25,$6C,$64,$0
2554L89:.dc.b $55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$73,$6B,$69,$70,$20,$70,$61,$73,$74,$0
2555L97:.dc.b $55,$6E,$6B,$6E,$6F,$77,$6E,$20,$66,$69,$6C,$65,$20,$74,$79,$70,$65,$0
2556L98:.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$66,$69,$6C,$65,$0
2557L118:.dc.b $6C,$64,$6B,$69,$6E,$64,$20,$62,$61,$64,$0
Note: See TracBrowser for help on using the repository browser.