source: buchla-68k/alcyon/librw.s@ 4810254

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

Added Alcyon C reference output.

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