source: buchla-68k/alcyon/scread.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: 20.4 KB
RevLine 
[7bf3856]1.globl _Cbuffs
2.globl _Stdbufs
3.globl _Stdbuf
4.globl _ac_code
5.globl _scname
6.globl _se_chg
7.globl _curscor
8.globl _cursect
9.globl _se1_cnt
10.globl _se2_cnt
11.globl _se3_cnt
12.globl _spool
13.globl _pspool
14.globl _spcount
15.globl _frags
16.globl _t_bak
17.globl _t_cur
18.globl _t_ctr
19.globl _t_fwd
20.globl _size1
21.globl _size2
22.globl _size3
23.globl _scores
24.globl _scp
25.globl _seclist
26.globl _hplist
27.globl _p_bak
28.globl _p_cur
29.globl _p_ctr
30.globl _p_fwd
31.globl _filecat
32.globl _schksum
33.globl _errno
34.globl _lderrsw
35.globl _lrasw
36.globl _ldmap
37.globl _libsp
38.globl _stimes
39.globl _scioerr
40.text
41_scioerr:
42~~scioerr:
43~sn=8
44~ep=10
45link R14,#-84
46~scid=-40
47~erms=-80
48*line 48
49*line 49
50tst.l 10(R14)
51beq L2
52*line 49
53move.l 10(R14),(sp)
54jsr _e_del
55*line 50
56L2:
57*line 51
58move 8(R14),(sp)
59jsr _sc_clr
60*line 52
61jsr _clrlsel
62*line 54
63move 8(R14),(sp)
64add #1,(sp)
65move.l #L3,-(sp)
66move.l R14,-(sp)
67add.l #-40,(sp)
68jsr _sprintf
69addq.l #8,sp
70*line 55
71move _errno,(sp)
72move.l #L4,-(sp)
73move.l R14,-(sp)
74add.l #-80,(sp)
75jsr _sprintf
76addq.l #8,sp
77*line 57
78*line 58
79move #9,(sp)
80move #14,-(sp)
81move.l R14,-(sp)
82add.l #-80,(sp)
83move.l R14,-(sp)
84add.l #-40,(sp)
85move.l #L5,-(sp)
86jsr _ldermsg
87adda.l #14,sp
88L1:unlk R14
89rts
90.globl _noevent
91.text
92_noevent:
93~~noevent:
94~sn=8
95link R14,#-28
96~scid=-24
97*line 71
98move 8(R14),(sp)
99jsr _sc_clr
100*line 72
101jsr _clrlsel
102*line 74
103move 8(R14),(sp)
104add #1,(sp)
105move.l #L7,-(sp)
106move.l R14,-(sp)
107add.l #-24,(sp)
108jsr _sprintf
109addq.l #8,sp
110*line 76
111*line 77
112move #9,(sp)
113move #14,-(sp)
114move.l #L9,-(sp)
115move.l R14,-(sp)
116add.l #-24,(sp)
117move.l #L8,-(sp)
118jsr _ldermsg
119adda.l #14,sp
120L6:unlk R14
121rts
122.globl _scread
123.text
124_scread:
125~~scread:
126~fp=R13
127~ns=8
128link R14,#-90
129movem.l R4-R7/R12-R13,-(sp)
130~ep=R12
131~ehdr=R7
132~go=R6
133~sn=R5
134~nbr=-4
135~nev=-8
136~etype=-10
137~scid=-50
138~erms=-90
139*line 101
140move.l 10(R14),R13
141*line 101
142move 8(R14),R8
143add.l R8,R8
144add.l #_ldmap,R8
145move (R8),R5
146*line 103
147*line 103
148cmp #-1,R5
149bne L11
150*line 104
151*line 105
152*line 105
153move.l #$4,(sp)
154move.l R14,-(sp)
155sub.l #4,(sp)
156move.l R13,-(sp)
157jsr _rd_ec
158addq.l #8,sp
159tst R0
160beq L12
161*line 106
162*line 107
163move 8(R14),(sp)
164jsr _skperr
165*line 108
166move #-1,R0
167bra L10
168*line 109
169*line 110
170L12:
171*line 111
172*line 112
173cmp.l #$ffffffff,-4(R14)
174bne L13
175*line 112
176clr R0
177bra L10
178*line 113
179L13:
180*line 114
181*line 114
182move.l #$10,(sp)
183move.l R13,-(sp)
184jsr _skp_ec
185addq.l #4,sp
186tst R0
187beq L14
188*line 115
189*line 116
190move 8(R14),(sp)
191jsr _skperr
192*line 117
193move #-1,R0
194bra L10
195*line 118
196*line 119
197L14:
198*line 120
199move 8(R14),(sp)
200move.l R13,-(sp)
201jsr _scskip
202addq.l #4,sp
203bra L10
204*line 121
205*line 122
206*line 123
207*line 124
208L11:
209*line 125
210move #1,R6
211*line 127
212move 8(R14),(sp)
213add #1,(sp)
214move.l #L15,-(sp)
215move.l R14,-(sp)
216add.l #-50,(sp)
217jsr _sprintf
218addq.l #8,sp
219*line 128
220move R5,(sp)
221add #1,(sp)
222move.l #L16,-(sp)
223move.l R14,-(sp)
224add.l #-90,(sp)
225jsr _sprintf
226addq.l #8,sp
227*line 130
228*line 131
229move #9,(sp)
230move #12,-(sp)
231move.l R14,-(sp)
232add.l #-90,(sp)
233move.l R14,-(sp)
234add.l #-50,(sp)
235move.l #L17,-(sp)
236jsr _ldwmsg
237adda.l #14,sp
238*line 133
239*line 133
240move.l #$4,(sp)
241move.l R14,-(sp)
242sub.l #4,(sp)
243move.l R13,-(sp)
244jsr _rd_ec
245addq.l #8,sp
246tst R0
247beq L18
248*line 134
249*line 135
250clr.l (sp)
251move R5,-(sp)
252jsr _scioerr
253addq.l #2,sp
254*line 136
255move #-1,R0
256bra L10
257*line 137
258*line 138
259L18:
260*line 139
261*line 139
262cmp.l #$ffffffff,-4(R14)
263bne L19
264*line 140
265*line 141
266clr R0
267bra L10
268*line 142
269*line 143
270L19:
271*line 144
272*line 145
273tst _lrasw
274beq L20
275*line 145
276move R5,(sp)
277jsr _sc_clr
278*line 146
279L20:
280*line 147
281*line 147
282jsr _evleft
283move.l R0,-8(R14)
284cmp.l -4(R14),R0
285bge L21
286*line 148
287*line 149
288move R5,(sp)
289add #1,(sp)
290move.l #L22,-(sp)
291move.l R14,-(sp)
292add.l #-50,(sp)
293jsr _sprintf
294addq.l #8,sp
295*line 150
296move.l -8(R14),(sp)
297move.l -4(R14),-(sp)
298move.l #L23,-(sp)
299move.l R14,-(sp)
300add.l #-90,(sp)
301jsr _sprintf
302adda.l #12,sp
303*line 151
304*line 152
305*line 153
306move #9,(sp)
307move #14,-(sp)
308move.l R14,-(sp)
309add.l #-90,(sp)
310move.l R14,-(sp)
311add.l #-50,(sp)
312move.l #L24,-(sp)
313jsr _ldermsg
314adda.l #14,sp
315*line 154
316*line 155
317move #-1,R0
318bra L10
319*line 156
320*line 157
321L21:
322*line 158
323*line 158
324move.l #$10,(sp)
325move R5,R0
326asl #4,R0
327ext.l R0
328add.l #_scname,R0
329move.l R0,-(sp)
330move.l R13,-(sp)
331jsr _rd_ec
332addq.l #8,sp
333tst R0
334beq L25
335*line 159
336*line 160
337clr.l (sp)
338move R5,-(sp)
339jsr _scioerr
340addq.l #2,sp
341*line 161
342move #-1,R0
343bra L10
344*line 162
345*line 163
346L25:
347*line 164
348*line 164
349move.l #$f0,(sp)
350move R5,R0
351muls #240,R0
352add.l #_stimes,R0
353move.l R0,-(sp)
354move.l R13,-(sp)
355jsr _rd_ec
356addq.l #8,sp
357tst R0
358beq L26
359*line 165
360*line 166
361clr.l (sp)
362move R5,-(sp)
363jsr _scioerr
364addq.l #2,sp
365*line 167
366move #-1,R0
367bra L10
368*line 168
369*line 169
370L26:
371*line 170
372*line 170
373move.l #$1,(sp)
374move.l R14,-(sp)
375add.l #-10,(sp)
376move.l R13,-(sp)
377jsr _rd_ec
378addq.l #8,sp
379tst R0
380beq L27
381*line 171
382*line 172
383clr.l (sp)
384move R5,-(sp)
385jsr _scioerr
386addq.l #2,sp
387*line 173
388move #-1,R0
389bra L10
390*line 174
391*line 175
392L27:
393*line 176
394*line 176
395cmp.b #1,-10(R14)
396beq L28
397*line 177
398*line 178
399move R5,(sp)
400add #1,(sp)
401move.l #L29,-(sp)
402move.l R14,-(sp)
403add.l #-50,(sp)
404jsr _sprintf
405addq.l #8,sp
406*line 179
407*line 180
408*line 181
409move #9,(sp)
410move #14,-(sp)
411move.l R14,-(sp)
412add.l #-50,(sp)
413move.l #L31,-(sp)
414move.l #L30,-(sp)
415jsr _ldermsg
416adda.l #14,sp
417*line 182
418*line 183
419move #-1,R0
420bra L10
421*line 184
422*line 185
423L28:
424*line 186
425*line 186
426move #5,(sp)
427jsr _e_alc
428move.l R0,R12
429move.l R12,R0
430bne L32
431*line 187
432*line 188
433move R5,(sp)
434jsr _noevent
435*line 189
436move #-1,R0
437bra L10
438*line 190
439*line 191
440L32:
441*line 192
442move.l R12,_libsp
443*line 193
444move R5,R8
445add.l R8,R8
446add.l R8,R8
447add.l #_scores,R8
448move.l R12,(R8)
449*line 195
450move.b #1,5(R12)
451*line 197
452*line 197
453move.l #$1,(sp)
454move.l R12,-(sp)
455add.l #6,(sp)
456move.l R13,-(sp)
457jsr _rd_ec
458addq.l #8,sp
459tst R0
460beq L33
461*line 198
462*line 199
463move.l R12,(sp)
464move R5,-(sp)
465jsr _scioerr
466addq.l #2,sp
467*line 200
468move #-1,R0
469bra L10
470*line 201
471*line 202
472L33:
473*line 203
474move.l R12,12(R12)
475*line 204
476move.l R12,8(R12)
477*line 207
478L36:
479*line 208
480*line 209
481*line 209
482move.l #$1,(sp)
483move.l R14,-(sp)
484add.l #-10,(sp)
485move.l R13,-(sp)
486jsr _rd_ec
487addq.l #8,sp
488tst R0
489beq L37
490*line 210
491*line 211
492clr.l (sp)
493move R5,-(sp)
494jsr _scioerr
495addq.l #2,sp
496*line 212
497move #-1,R0
498bra L10
499*line 213
500*line 214
501L37:
502*line 215
503move.b -10(R14),R0
504ext.w R0
505bra L39
506*line 216
507L40:
508*line 217
509L41:
510*line 218
511L42:
512*line 219
513*line 220
514*line 221
515*line 221
516move #5,(sp)
517jsr _e_alc
518move.l R0,R12
519move.l R12,R0
520bne L43
521*line 222
522*line 223
523move R5,(sp)
524jsr _noevent
525*line 224
526move #-1,R0
527bra L10
528*line 225
529*line 226
530L43:
531*line 227
532move.b -10(R14),5(R12)
533*line 228
534*line 229
535*line 229
536move.l #$4,(sp)
537move.l R12,-(sp)
538move.l R13,-(sp)
539jsr _rd_ec
540addq.l #8,sp
541tst R0
542beq L44
543*line 230
544*line 231
545move.l R12,(sp)
546move R5,-(sp)
547jsr _scioerr
548addq.l #2,sp
549*line 232
550move #-1,R0
551bra L10
552*line 233
553*line 234
554L44:
555*line 235
556move.l _libsp,(sp)
557move.l R12,-(sp)
558jsr _e_ins
559addq.l #4,sp
560move.l R0,_libsp
561bra L38
562*line 236
563*line 237
564*line 238
565L45:
566*line 239
567*line 240
568*line 241
569move #10,R7
570bra L46
571*line 242
572*line 243
573L47:
574*line 244
575*line 245
576*line 246
577move #11,R7
578bra L46
579*line 247
580*line 248
581L48:
582*line 249
583*line 250
584*line 251
585move #7,R7
586bra L46
587*line 252
588*line 253
589L49:
590*line 254
591*line 255
592*line 256
593move #8,R7
594bra L46
595*line 257
596*line 258
597L50:
598*line 259
599*line 260
600*line 261
601move #9,R7
602*line 262
603*line 263
604L46:
605*line 264
606*line 265
607*line 266
608*line 266
609move #6,(sp)
610jsr _e_alc
611move.l R0,R12
612move.l R12,R0
613bne L51
614*line 267
615*line 268
616move R5,(sp)
617jsr _noevent
618*line 269
619move #-1,R0
620bra L10
621*line 270
622*line 271
623L51:
624*line 272
625move.b -10(R14),5(R12)
626*line 273
627*line 274
628*line 274
629move.l #$4,(sp)
630move.l R12,-(sp)
631move.l R13,-(sp)
632jsr _rd_ec
633addq.l #8,sp
634tst R0
635beq L52
636*line 275
637*line 276
638move.l R12,(sp)
639move R5,-(sp)
640jsr _scioerr
641addq.l #2,sp
642*line 277
643move #-1,R0
644bra L10
645*line 278
646*line 279
647L52:
648*line 280
649*line 280
650move.l #$1,(sp)
651move.l R12,-(sp)
652add.l #6,(sp)
653move.l R13,-(sp)
654jsr _rd_ec
655addq.l #8,sp
656tst R0
657beq L53
658*line 281
659*line 282
660move.l R12,(sp)
661move R5,-(sp)
662jsr _scioerr
663addq.l #2,sp
664*line 283
665move #-1,R0
666bra L10
667*line 284
668*line 285
669L53:
670*line 286
671move.l _libsp,(sp)
672move.l R12,-(sp)
673jsr _e_ins
674addq.l #4,sp
675move.l R0,_libsp
676*line 287
677move R7,(sp)
678move.l R12,-(sp)
679jsr _eh_ins
680addq.l #4,sp
681*line 288
682*line 289
683*line 290
684cmp.b #2,-10(R14)
685bne L54
686*line 290
687move R5,R0
688muls #80,R0
689move.b 6(R12),R1
690ext.w R1
691asl #2,R1
692ext.l R1
693add.l R1,R0
694add.l #_seclist,R0
695move.l R0,R8
696move.l R12,(R8)
697*line 291
698L54:bra L38
699*line 292
700*line 293
701*line 294
702L55:
703*line 295
704L56:
705*line 296
706L57:
707*line 297
708*line 298
709*line 299
710*line 299
711move #5,(sp)
712jsr _e_alc
713move.l R0,R12
714move.l R12,R0
715bne L58
716*line 300
717*line 301
718move R5,(sp)
719jsr _noevent
720*line 302
721move #-1,R0
722bra L10
723*line 303
724*line 304
725L58:
726*line 305
727move.b -10(R14),5(R12)
728*line 306
729*line 307
730*line 307
731move.l #$4,(sp)
732move.l R12,-(sp)
733move.l R13,-(sp)
734jsr _rd_ec
735addq.l #8,sp
736tst R0
737beq L59
738*line 308
739*line 309
740move.l R12,(sp)
741move R5,-(sp)
742jsr _scioerr
743addq.l #2,sp
744*line 310
745move #-1,R0
746bra L10
747*line 311
748*line 312
749L59:
750*line 313
751*line 313
752move.l #$1,(sp)
753move.l R12,-(sp)
754add.l #6,(sp)
755move.l R13,-(sp)
756jsr _rd_ec
757addq.l #8,sp
758tst R0
759beq L60
760*line 314
761*line 315
762move.l R12,(sp)
763move R5,-(sp)
764jsr _scioerr
765addq.l #2,sp
766*line 316
767move #-1,R0
768bra L10
769*line 317
770*line 318
771L60:
772*line 319
773move.l _libsp,(sp)
774move.l R12,-(sp)
775jsr _e_ins
776addq.l #4,sp
777move.l R0,_libsp
778bra L38
779*line 320
780*line 321
781*line 322
782L61:
783*line 323
784L62:
785*line 324
786*line 325
787*line 326
788*line 326
789move #5,(sp)
790jsr _e_alc
791move.l R0,R12
792move.l R12,R0
793bne L63
794*line 327
795*line 328
796move R5,(sp)
797jsr _noevent
798*line 329
799move #-1,R0
800bra L10
801*line 330
802*line 331
803L63:
804*line 332
805move.b -10(R14),5(R12)
806*line 333
807*line 334
808*line 334
809move.l #$4,(sp)
810move.l R12,-(sp)
811move.l R13,-(sp)
812jsr _rd_ec
813addq.l #8,sp
814tst R0
815beq L64
816*line 335
817*line 336
818move.l R12,(sp)
819move R5,-(sp)
820jsr _scioerr
821addq.l #2,sp
822*line 337
823move #-1,R0
824bra L10
825*line 338
826*line 339
827L64:
828*line 340
829*line 340
830move.l #$1,(sp)
831move.l R12,-(sp)
832add.l #6,(sp)
833move.l R13,-(sp)
834jsr _rd_ec
835addq.l #8,sp
836tst R0
837beq L65
838*line 341
839*line 342
840move.l R12,(sp)
841move R5,-(sp)
842jsr _scioerr
843addq.l #2,sp
844*line 343
845move #-1,R0
846bra L10
847*line 344
848*line 345
849L65:
850*line 346
851*line 346
852move.l #$1,(sp)
853move.l R12,-(sp)
854add.l #7,(sp)
855move.l R13,-(sp)
856jsr _rd_ec
857addq.l #8,sp
858tst R0
859beq L66
860*line 347
861*line 348
862move.l R12,(sp)
863move R5,-(sp)
864jsr _scioerr
865addq.l #2,sp
866*line 349
867move #-1,R0
868bra L10
869*line 350
870*line 351
871L66:
872*line 352
873*line 352
874move.l #$2,(sp)
875move.l R12,-(sp)
876add.l #16,(sp)
877move.l R13,-(sp)
878jsr _rd_ec
879addq.l #8,sp
880tst R0
881beq L67
882*line 353
883*line 354
884move.l R12,(sp)
885move R5,-(sp)
886jsr _scioerr
887addq.l #2,sp
888*line 355
889move #-1,R0
890bra L10
891*line 356
892*line 357
893L67:
894*line 358
895move.l _libsp,(sp)
896move.l R12,-(sp)
897jsr _e_ins
898addq.l #4,sp
899move.l R0,_libsp
900bra L38
901*line 359
902*line 360
903*line 361
904L68:
905*line 362
906*line 363
907*line 364
908*line 364
909move #5,(sp)
910jsr _e_alc
911move.l R0,R12
912move.l R12,R0
913bne L69
914*line 365
915*line 366
916move R5,(sp)
917jsr _noevent
918*line 367
919move #-1,R0
920bra L10
921*line 368
922*line 369
923L69:
924*line 370
925move.b -10(R14),5(R12)
926*line 371
927*line 372
928*line 372
929move.l #$4,(sp)
930move.l R12,-(sp)
931move.l R13,-(sp)
932jsr _rd_ec
933addq.l #8,sp
934tst R0
935beq L70
936*line 373
937*line 374
938move.l R12,(sp)
939move R5,-(sp)
940jsr _scioerr
941addq.l #2,sp
942*line 375
943move #-1,R0
944bra L10
945*line 376
946*line 377
947L70:
948*line 378
949*line 378
950move.l #$1,(sp)
951move.l R12,-(sp)
952add.l #6,(sp)
953move.l R13,-(sp)
954jsr _rd_ec
955addq.l #8,sp
956tst R0
957beq L71
958*line 379
959*line 380
960move.l R12,(sp)
961move R5,-(sp)
962jsr _scioerr
963addq.l #2,sp
964*line 381
965move #-1,R0
966bra L10
967*line 382
968*line 383
969L71:
970*line 384
971*line 384
972move.l #$1,(sp)
973move.l R12,-(sp)
974add.l #7,(sp)
975move.l R13,-(sp)
976jsr _rd_ec
977addq.l #8,sp
978tst R0
979beq L72
980*line 385
981*line 386
982move.l R12,(sp)
983move R5,-(sp)
984jsr _scioerr
985addq.l #2,sp
986*line 387
987move #-1,R0
988bra L10
989*line 388
990*line 389
991L72:
992*line 390
993move.l _libsp,(sp)
994move.l R12,-(sp)
995jsr _e_ins
996addq.l #4,sp
997move.l R0,_libsp
998bra L38
999*line 391
1000*line 392
1001*line 393
1002L73:
1003*line 394
1004*line 395
1005*line 396
1006*line 396
1007move #5,(sp)
1008jsr _e_alc
1009move.l R0,R12
1010move.l R12,R0
1011bne L74
1012*line 397
1013*line 398
1014move R5,(sp)
1015jsr _noevent
1016*line 399
1017move #-1,R0
1018bra L10
1019*line 400
1020*line 401
1021L74:
1022*line 402
1023move.b -10(R14),5(R12)
1024*line 403
1025*line 404
1026*line 404
1027move.l #$4,(sp)
1028move.l R12,-(sp)
1029move.l R13,-(sp)
1030jsr _rd_ec
1031addq.l #8,sp
1032tst R0
1033beq L75
1034*line 405
1035*line 406
1036move.l R12,(sp)
1037move R5,-(sp)
1038jsr _scioerr
1039addq.l #2,sp
1040*line 407
1041move #-1,R0
1042bra L10
1043*line 408
1044*line 409
1045L75:
1046*line 410
1047*line 410
1048move.l #$1,(sp)
1049move.l R12,-(sp)
1050add.l #6,(sp)
1051move.l R13,-(sp)
1052jsr _rd_ec
1053addq.l #8,sp
1054tst R0
1055beq L76
1056*line 411
1057*line 412
1058move.l R12,(sp)
1059move R5,-(sp)
1060jsr _scioerr
1061addq.l #2,sp
1062*line 413
1063move #-1,R0
1064bra L10
1065*line 414
1066*line 415
1067L76:
1068*line 416
1069*line 416
1070move.l #$1,(sp)
1071move.l R12,-(sp)
1072add.l #7,(sp)
1073move.l R13,-(sp)
1074jsr _rd_ec
1075addq.l #8,sp
1076tst R0
1077beq L77
1078*line 417
1079*line 418
1080move.l R12,(sp)
1081move R5,-(sp)
1082jsr _scioerr
1083addq.l #2,sp
1084*line 419
1085move #-1,R0
1086bra L10
1087*line 420
1088*line 421
1089L77:
1090*line 422
1091move.l _libsp,(sp)
1092move.l R12,-(sp)
1093jsr _e_ins
1094addq.l #4,sp
1095move.l R0,_libsp
1096bra L38
1097*line 423
1098*line 424
1099*line 425
1100*line 426
1101L78:
1102*line 427
1103*line 428
1104*line 429
1105clr R7
1106bra L79
1107*line 430
1108*line 431
1109L80:
1110*line 432
1111*line 433
1112*line 434
1113move #6,R7
1114bra L79
1115*line 435
1116*line 436
1117L81:
1118*line 437
1119*line 438
1120*line 439
1121move #1,R7
1122bra L79
1123*line 440
1124*line 441
1125L82:
1126*line 442
1127*line 443
1128*line 444
1129move #2,R7
1130bra L79
1131*line 445
1132*line 446
1133L83:
1134*line 447
1135*line 448
1136*line 449
1137move #3,R7
1138bra L79
1139*line 450
1140*line 451
1141L84:
1142*line 452
1143*line 453
1144*line 454
1145move #4,R7
1146*line 455
1147*line 456
1148L79:
1149*line 457
1150*line 458
1151*line 459
1152*line 459
1153move #6,(sp)
1154jsr _e_alc
1155move.l R0,R12
1156move.l R12,R0
1157bne L85
1158*line 460
1159*line 461
1160move R5,(sp)
1161jsr _noevent
1162*line 462
1163move #-1,R0
1164bra L10
1165*line 463
1166*line 464
1167L85:
1168*line 465
1169move.b -10(R14),5(R12)
1170*line 466
1171*line 467
1172*line 467
1173move.l #$4,(sp)
1174move.l R12,-(sp)
1175move.l R13,-(sp)
1176jsr _rd_ec
1177addq.l #8,sp
1178tst R0
1179beq L86
1180*line 468
1181*line 469
1182move.l R12,(sp)
1183move R5,-(sp)
1184jsr _scioerr
1185addq.l #2,sp
1186*line 470
1187move #-1,R0
1188bra L10
1189*line 471
1190*line 472
1191L86:
1192*line 473
1193*line 473
1194move.l #$1,(sp)
1195move.l R12,-(sp)
1196add.l #6,(sp)
1197move.l R13,-(sp)
1198jsr _rd_ec
1199addq.l #8,sp
1200tst R0
1201beq L87
1202*line 474
1203*line 475
1204move.l R12,(sp)
1205move R5,-(sp)
1206jsr _scioerr
1207addq.l #2,sp
1208*line 476
1209move #-1,R0
1210bra L10
1211*line 477
1212*line 478
1213L87:
1214*line 479
1215*line 479
1216move.l #$1,(sp)
1217move.l R12,-(sp)
1218add.l #7,(sp)
1219move.l R13,-(sp)
1220jsr _rd_ec
1221addq.l #8,sp
1222tst R0
1223beq L88
1224*line 480
1225*line 481
1226move.l R12,(sp)
1227move R5,-(sp)
1228jsr _scioerr
1229addq.l #2,sp
1230*line 482
1231move #-1,R0
1232bra L10
1233*line 483
1234*line 484
1235L88:
1236*line 485
1237move.l _libsp,(sp)
1238move.l R12,-(sp)
1239jsr _e_ins
1240addq.l #4,sp
1241move.l R0,_libsp
1242*line 486
1243move R7,(sp)
1244move.l R12,-(sp)
1245jsr _eh_ins
1246addq.l #4,sp
1247bra L38
1248*line 487
1249*line 488
1250*line 489
1251L89:
1252*line 490
1253*line 491
1254*line 492
1255*line 492
1256move #8,(sp)
1257jsr _e_alc
1258move.l R0,R12
1259move.l R12,R0
1260bne L90
1261*line 493
1262*line 494
1263move R5,(sp)
1264jsr _noevent
1265*line 495
1266move #-1,R0
1267bra L10
1268*line 496
1269*line 497
1270L90:
1271*line 498
1272move.b -10(R14),5(R12)
1273*line 499
1274*line 500
1275*line 500
1276move.l #$4,(sp)
1277move.l R12,-(sp)
1278move.l R13,-(sp)
1279jsr _rd_ec
1280addq.l #8,sp
1281tst R0
1282beq L91
1283*line 501
1284*line 502
1285move.l R12,(sp)
1286move R5,-(sp)
1287jsr _scioerr
1288addq.l #2,sp
1289*line 503
1290move #-1,R0
1291bra L10
1292*line 504
1293*line 505
1294L91:
1295*line 506
1296*line 506
1297move.l #$1,(sp)
1298move.l R12,-(sp)
1299add.l #6,(sp)
1300move.l R13,-(sp)
1301jsr _rd_ec
1302addq.l #8,sp
1303tst R0
1304beq L92
1305*line 507
1306*line 508
1307move.l R12,(sp)
1308move R5,-(sp)
1309jsr _scioerr
1310addq.l #2,sp
1311*line 509
1312move #-1,R0
1313bra L10
1314*line 510
1315*line 511
1316L92:
1317*line 512
1318*line 512
1319move.l #$2,(sp)
1320move.l R12,-(sp)
1321add.l #24,(sp)
1322move.l R13,-(sp)
1323jsr _rd_ec
1324addq.l #8,sp
1325tst R0
1326beq L93
1327*line 513
1328*line 514
1329move.l R12,(sp)
1330move R5,-(sp)
1331jsr _scioerr
1332addq.l #2,sp
1333*line 515
1334move #-1,R0
1335bra L10
1336*line 516
1337*line 517
1338L93:
1339*line 518
1340move.l _libsp,(sp)
1341move.l R12,-(sp)
1342jsr _e_ins
1343addq.l #4,sp
1344move.l R0,_libsp
1345*line 519
1346move #6,(sp)
1347move.l R12,-(sp)
1348jsr _eh_ins
1349addq.l #4,sp
1350bra L38
1351*line 520
1352*line 521
1353*line 522
1354L94:
1355*line 523
1356*line 524
1357*line 525
1358*line 525
1359move #6,(sp)
1360jsr _e_alc
1361move.l R0,R12
1362move.l R12,R0
1363bne L95
1364*line 526
1365*line 527
1366move R5,(sp)
1367jsr _noevent
1368*line 528
1369move #-1,R0
1370bra L10
1371*line 529
1372*line 530
1373L95:
1374*line 531
1375move.b -10(R14),5(R12)
1376*line 532
1377*line 533
1378*line 533
1379move.l #$4,(sp)
1380move.l R12,-(sp)
1381move.l R13,-(sp)
1382jsr _rd_ec
1383addq.l #8,sp
1384tst R0
1385beq L96
1386*line 534
1387*line 535
1388move.l R12,(sp)
1389move R5,-(sp)
1390jsr _scioerr
1391addq.l #2,sp
1392*line 536
1393move #-1,R0
1394bra L10
1395*line 537
1396*line 538
1397L96:
1398*line 539
1399*line 539
1400move.l #$1,(sp)
1401move.l R12,-(sp)
1402add.l #6,(sp)
1403move.l R13,-(sp)
1404jsr _rd_ec
1405addq.l #8,sp
1406tst R0
1407beq L97
1408*line 540
1409*line 541
1410move.l R12,(sp)
1411move R5,-(sp)
1412jsr _scioerr
1413addq.l #2,sp
1414*line 542
1415move #-1,R0
1416bra L10
1417*line 543
1418*line 544
1419L97:
1420*line 545
1421clr.l 16(R12)
1422*line 546
1423*line 547
1424*line 547
1425move.l #$2,(sp)
1426move.l R12,-(sp)
1427add.l #16,(sp)
1428move.l R13,-(sp)
1429jsr _rd_ec
1430addq.l #8,sp
1431tst R0
1432beq L98
1433*line 548
1434*line 549
1435move.l R12,(sp)
1436move R5,-(sp)
1437jsr _scioerr
1438addq.l #2,sp
1439*line 550
1440move #-1,R0
1441bra L10
1442*line 551
1443*line 552
1444L98:
1445*line 553
1446move.l _libsp,(sp)
1447move.l R12,-(sp)
1448jsr _e_ins
1449addq.l #4,sp
1450move.l R0,_libsp
1451bra L38
1452*line 554
1453*line 555
1454*line 556
1455L99:
1456*line 557
1457*line 558
1458*line 559
1459*line 559
1460move #5,(sp)
1461jsr _e_alc
1462move.l R0,R12
1463move.l R12,R0
1464bne L100
1465*line 560
1466*line 561
1467move R5,(sp)
1468jsr _noevent
1469*line 562
1470move #-1,R0
1471bra L10
1472*line 563
1473*line 564
1474L100:
1475*line 565
1476move.b -10(R14),5(R12)
1477*line 566
1478*line 567
1479*line 567
1480move.l #$4,(sp)
1481move.l R12,-(sp)
1482move.l R13,-(sp)
1483jsr _rd_ec
1484addq.l #8,sp
1485tst R0
1486beq L101
1487*line 568
1488*line 569
1489move.l R12,(sp)
1490move R5,-(sp)
1491jsr _scioerr
1492addq.l #2,sp
1493*line 570
1494move #-1,R0
1495bra L10
1496*line 571
1497*line 572
1498L101:
1499*line 573
1500*line 573
1501move.l #$1,(sp)
1502move.l R12,-(sp)
1503add.l #6,(sp)
1504move.l R13,-(sp)
1505jsr _rd_ec
1506addq.l #8,sp
1507tst R0
1508beq L102
1509*line 574
1510*line 575
1511move.l R12,(sp)
1512move R5,-(sp)
1513jsr _scioerr
1514addq.l #2,sp
1515*line 576
1516move #-1,R0
1517bra L10
1518*line 577
1519*line 578
1520L102:
1521*line 579
1522move.l _libsp,(sp)
1523move.l R12,-(sp)
1524jsr _e_ins
1525addq.l #4,sp
1526move.l R0,_libsp
1527*line 580
1528clr R6
1529bra L38
1530L39:sub #1,R0
1531cmp #23,R0
1532bhi L38
1533asl #2,R0
1534move R0,R8
1535add.l #L103,R8
1536move.l (R8),R8
1537jmp (R8)
1538.data
1539L103:.dc.l L55
1540.dc.l L45
1541.dc.l L47
1542.dc.l L78
1543.dc.l L61
1544.dc.l L62
1545.dc.l L41
1546.dc.l L80
1547.dc.l L48
1548.dc.l L49
1549.dc.l L81
1550.dc.l L82
1551.dc.l L83
1552.dc.l L94
1553.dc.l L84
1554.dc.l L50
1555.dc.l L89
1556.dc.l L56
1557.dc.l L57
1558.dc.l L68
1559.dc.l L99
1560.dc.l L73
1561.dc.l L40
1562.dc.l L42
1563.text
1564L38:
1565*line 581
1566*line 582
1567L35:
1568*line 583
1569tst R6
1570bne L36
1571L34:
1572*line 585
1573clr R0
1574bra L10
1575L10:tst.l (sp)+
1576movem.l (sp)+,R5-R7/R12-R13
1577unlk R14
1578rts
1579.data
1580L3:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
1581L4:.dc.b $20,$20,$65,$72,$72,$6E,$6F,$20,$3D,$20,$25,$64,$0
1582L5:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
1583L7:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
1584L8:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
1585L9:.dc.b $20,$20,$52,$61,$6E,$20,$6F,$75,$74,$20,$6F,$66,$20,$73,$70,$61,$63,$65,$0
1586L15:.dc.b $20,$20,$52,$65,$61,$64,$69,$6E,$67,$20,$73,$63,$6F,$72,$65,$20,$25,$32,$64,$0
1587L16:.dc.b $20,$20,$20,$20,$20,$20,$20,$61,$73,$20,$73,$63,$6F,$72,$65,$20,$25,$32,$64,$0
1588L17:.dc.b $20,$42,$75,$73,$79,$20,$2D,$2D,$20,$70,$6C,$65,$61,$73,$65,$20,$73,$74,$61,$6E,$64,$20,$62,$79,$0
1589L22:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$20,$2D,$20,$6E,$6F,$20,$73,$70,$61,$63,$65,$0
1590L23:.dc.b $20,$20,$4E,$65,$65,$64,$20,$25,$6C,$64,$2C,$20,$48,$61,$76,$65,$20,$25,$6C,$64,$0
1591L24:.dc.b $43,$6F,$75,$6C,$64,$6E,$27,$74,$20,$72,$65,$61,$64,$0
1592L29:.dc.b $20,$20,$73,$63,$6F,$72,$65,$20,$25,$64,$0
1593L30:.dc.b $42,$61,$64,$20,$73,$63,$6F,$72,$65,$20,$2D,$2D,$0
1594L31:.dc.b $20,$20,$31,$73,$74,$20,$65,$76,$65,$6E,$74,$20,$69,$73,$20,$77,$72,$6F,$6E,$67,$0
Note: See TracBrowser for help on using the repository browser.