source: buchla-68k/alcyon/romp.s@ 9519422

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

Added Alcyon C reference output.
  • Property mode set to 100644
File size: 132.1 KB
Line 
1.globl ___atab
2.globl _io_time
3.globl _io_lcd
4.globl _io_ser
5.globl _io_midi
6.globl _io_disk
7.globl _io_tone
8.globl _io_leds
9.globl _io_kbrd
10.globl _lcd_a0
11.globl _lcd_a1
12.globl _io_vreg
13.globl _io_vraw
14.globl _io_vram
15.globl _io_fpu
16.globl _v_regs
17.globl _v_odtab
18.globl _v_actab
19.globl _v_ct0
20.globl _v_gt1
21.globl _v_score
22.globl _v_cgtab
23.globl _v_curs0
24.globl _v_curs1
25.globl _v_curs2
26.globl _v_curs3
27.globl _v_curs4
28.globl _v_curs5
29.globl _v_curs6
30.globl _v_curs7
31.globl _v_tcur
32.globl _v_kbobj
33.globl _v_lnobj
34.globl _v_win0
35.globl _v_cur
36.globl _fc_sw
37.globl _fc_val
38.globl _v_obtab
39.globl _v_curob
40.globl _v_nobj
41.globl _v_obpri
42.globl _wzcrsh
43.globl _crshpc
44.globl _crshsp
45.globl _crshus
46.globl _crshst
47.globl _B_log_s
48.globl _B_dbg_s
49.globl _B_buf_a
50.globl __bpbin
51.globl _dfltpal
52.globl _crshsr
53.globl _crshrg
54.globl _crshvc
55.globl _hs_mtst
56.comm _hs_mtst,2
57.globl _cmtab
58.data
59_cmtab:
60*line 212
61.dc.l L1
62*line 212
63.dc.l _cp_null
64*line 212
65.dc.l _cx_adsp
66*line 212
67.dc.l L2
68*line 213
69.dc.l L3
70*line 213
71.dc.l _cp_boot
72*line 213
73.dc.l _cx_boot
74*line 213
75.dc.l L4
76*line 214
77.dc.l L5
78*line 214
79.dc.l _cp_null
80*line 214
81.dc.l _cx_bpb
82*line 214
83.dc.l L6
84*line 217
85.dc.l L7
86*line 217
87.dc.l _cp_chek
88*line 217
89.dc.l _cx_chek
90*line 217
91.dc.l L8
92*line 218
93.dc.l L9
94*line 218
95.dc.l _cp_copy
96*line 218
97.dc.l _cx_copy
98*line 218
99.dc.l L10
100*line 221
101.dc.l L11
102*line 221
103.dc.l _cp_null
104*line 221
105.dc.l _cx_crsh
106*line 221
107.dc.l L12
108*line 222
109.dc.l L13
110*line 222
111.dc.l _cp_null
112*line 222
113.dc.l _cx_dini
114*line 222
115.dc.l L14
116*line 225
117.dc.l L15
118*line 225
119.dc.l _cp_dump
120*line 225
121.dc.l _cx_dump
122*line 225
123.dc.l L16
124*line 226
125.dc.l L17
126*line 226
127.dc.l _cp_null
128*line 226
129.dc.l _cx_exit
130*line 226
131.dc.l L18
132*line 227
133.dc.l L19
134*line 227
135.dc.l _cp_fill
136*line 227
137.dc.l _cx_fill
138*line 227
139.dc.l L20
140*line 228
141.dc.l L21
142*line 228
143.dc.l _cp_go
144*line 228
145.dc.l _cx_go
146*line 228
147.dc.l L22
148*line 229
149.dc.l L23
150*line 229
151.dc.l _cp_null
152*line 229
153.dc.l _cx_help
154*line 229
155.dc.l L24
156*line 230
157.dc.l L25
158*line 230
159.dc.l _cp_ilev
160*line 230
161.dc.l _cx_ilev
162*line 230
163.dc.l L26
164*line 231
165.dc.l L27
166*line 231
167.dc.l _cp_ldmp
168*line 231
169.dc.l _cx_ldmp
170*line 231
171.dc.l L28
172*line 232
173.dc.l L29
174*line 232
175.dc.l _cp_null
176*line 232
177.dc.l _cx_load
178*line 232
179.dc.l L30
180*line 235
181.dc.l L31
182*line 235
183.dc.l _cp_null
184*line 235
185.dc.l _cx_mlod
186*line 235
187.dc.l L32
188*line 238
189.dc.l L33
190*line 238
191.dc.l _cp_monc
192*line 238
193.dc.l _cx_mon
194*line 238
195.dc.l L34
196*line 239
197.dc.l L35
198*line 239
199.dc.l _cp_mons
200*line 239
201.dc.l _cx_mon
202*line 239
203.dc.l L36
204*line 240
205.dc.l L37
206*line 240
207.dc.l _cp_monl
208*line 240
209.dc.l _cx_mon
210*line 240
211.dc.l L38
212*line 241
213.dc.l L39
214*line 241
215.dc.l _cp_mset
216*line 241
217.dc.l _cx_mset
218*line 241
219.dc.l L40
220*line 242
221.dc.l L41
222*line 242
223.dc.l _cp_mtst
224*line 242
225.dc.l _cx_mtst
226*line 242
227.dc.l _hs_mtst
228*line 243
229.dc.l L42
230*line 243
231.dc.l _cp_null
232*line 243
233.dc.l _cx_next
234*line 243
235.dc.l L43
236*line 244
237.dc.l L44
238*line 244
239.dc.l _cp_null
240*line 244
241.dc.l _cx_omap
242*line 244
243.dc.l L45
244*line 247
245.dc.l L46
246*line 247
247.dc.l _cp_read
248*line 247
249.dc.l _cx_read
250*line 247
251.dc.l L47
252*line 250
253.dc.l L48
254*line 250
255.dc.l _cp_null
256*line 250
257.dc.l _cx_regs
258*line 250
259.dc.l L49
260*line 251
261.dc.l L50
262*line 251
263.dc.l _cp_null
264*line 251
265.dc.l _cx_rest
266*line 251
267.dc.l L51
268*line 252
269.dc.l L52
270*line 252
271.dc.l _cp_rset
272*line 252
273.dc.l _cx_rset
274*line 252
275.dc.l L53
276*line 253
277.dc.l L54
278*line 253
279.dc.l _cp_null
280*line 253
281.dc.l _cx_vreg
282*line 253
283.dc.l L55
284*line 254
285.dc.l L56
286*line 254
287.dc.l _cp_vrst
288*line 254
289.dc.l _cx_vrst
290*line 254
291.dc.l L57
292*line 255
293.dc.l L58
294*line 255
295.dc.l _cp_wdmp
296*line 255
297.dc.l _cx_wdmp
298*line 255
299.dc.l L59
300*line 256
301.dc.l L60
302*line 256
303.dc.l _cp_wfil
304*line 256
305.dc.l _cx_wfil
306*line 256
307.dc.l L61
308*line 259
309.dc.l L62
310*line 259
311.dc.l _cp_read
312*line 259
313.dc.l _cx_writ
314*line 259
315.dc.l L63
316*line 262
317.dc.l L64
318*line 262
319.dc.l _cp_wset
320*line 262
321.dc.l _cx_wset
322*line 262
323.dc.l L65
324*line 263
325.dc.l L66
326*line 263
327.dc.l _cp_null
328*line 263
329.dc.l _cx_zap
330*line 263
331.dc.l L67
332.globl _ahex
333.data
334_ahex:
335.dc.b $30,$31,$32,$33,$34,$35,$36,$37,$38,$39,$61,$62,$63,$64,$65,$66,$41,$42,$43,$44,$45,$46,$0
336.even
337.globl _rlist
338.data
339_rlist:
340*line 275
341.dc.l L69
342*line 275
343.dc.l L70
344*line 275
345.dc.l L71
346*line 275
347.dc.l L72
348*line 275
349.dc.l L73
350*line 275
351.dc.l L74
352*line 275
353.dc.l L75
354*line 275
355.dc.l L76
356*line 276
357.dc.l L77
358*line 276
359.dc.l L78
360*line 276
361.dc.l L79
362*line 276
363.dc.l L80
364*line 276
365.dc.l L81
366*line 276
367.dc.l L82
368*line 276
369.dc.l L83
370*line 276
371.dc.l L84
372*line 277
373.dc.l L85
374*line 277
375.dc.l L86
376*line 277
377.dc.l L87
378.dc.l $0
379.globl _vrlist
380.data
381_vrlist:
382*line 283
383.dc.l L88
384*line 283
385.dc.l L89
386*line 283
387.dc.l L90
388*line 283
389.dc.l L91
390*line 283
391.dc.l L92
392*line 283
393.dc.l L93
394*line 283
395.dc.l L94
396*line 283
397.dc.l L95
398*line 284
399.dc.l L96
400*line 284
401.dc.l L97
402*line 284
403.dc.l L98
404*line 284
405.dc.l L99
406*line 284
407.dc.l L100
408*line 284
409.dc.l L101
410*line 284
411.dc.l L102
412*line 284
413.dc.l L103
414*line 285
415.dc.l L104
416*line 285
417.dc.l L105
418*line 285
419.dc.l L106
420*line 285
421.dc.l L107
422*line 285
423.dc.l L108
424*line 285
425.dc.l L109
426*line 285
427.dc.l L110
428*line 285
429.dc.l L111
430.dc.l $0
431.globl _sigadr
432.data
433_sigadr:
434.dc.w $0
435.dc.w $0
436.dc.w $0
437.dc.w $0
438.dc.w $0
439.dc.w $1
440.dc.w $1
441.dc.w $1
442.dc.w $1
443.dc.w $1
444.dc.w $2
445.dc.w $2
446.dc.w $2
447.dc.w $2
448.dc.w $2
449.dc.w $3
450.dc.w $3
451.dc.w $3
452.dc.w $3
453.dc.w $3
454.dc.w $4
455.dc.w $4
456.dc.w $4
457.dc.w $4
458.dc.w $7
459.dc.w $7
460.dc.w $7
461.dc.w $7
462.dc.w $7
463.dc.w $8
464.dc.w $8
465.dc.w $8
466.dc.w $8
467.dc.w $8
468.dc.w $9
469.dc.w $9
470.dc.w $9
471.dc.w $9
472.dc.w $C
473.dc.w $C
474.dc.w $C
475.dc.w $C
476.dc.w $C
477.dc.w $D
478.dc.w $D
479.dc.w $D
480.dc.w $D
481.dc.w $D
482.dc.w $E
483.dc.w $E
484.dc.w $E
485.dc.w $E
486.dc.w $11
487.dc.w $11
488.dc.w $14
489.dc.w $14
490.dc.w $17
491.dc.w $17
492.dc.w $1A
493.dc.w $1D
494.dc.w $1D
495.dc.w $1D
496.dc.w $1D
497.dc.w $1D
498.dc.w $1E
499.dc.w $1E
500.dc.w $1E
501.dc.w $1E
502.dc.w $1E
503.dc.w $20
504.dc.w $20
505.dc.w $20
506.dc.w $23
507.dc.w $23
508.dc.w $23
509.dc.w $23
510.dc.w $25
511.dc.w $25
512.dc.w $27
513.dc.w $27
514.dc.w $27
515.dc.w $27
516.globl _argsep
517.comm _argsep,2
518.globl _aptr
519.comm _aptr,4
520.globl _monptr
521.comm _monptr,4
522.globl _d_cur
523.comm _d_cur,4
524.globl _d_next
525.comm _d_next,4
526.globl _d_last
527.comm _d_last,4
528.globl _p_end
529.comm _p_end,4
530.globl _p_from
531.comm _p_from,4
532.globl _p_goto
533.comm _p_goto,4
534.globl _p_to
535.comm _p_to,4
536.globl _sptr
537.comm _sptr,4
538.globl _argln
539.comm _argln,2
540.globl _b0flag
541.comm _b0flag,2
542.globl _b1flag
543.comm _b1flag,2
544.globl _cmdunit
545.comm _cmdunit,2
546.globl _dflag
547.comm _dflag,2
548.globl _exflag
549.comm _exflag,2
550.globl _first1
551.comm _first1,2
552.globl _goflag
553.comm _goflag,2
554.globl _ilast
555.comm _ilast,2
556.globl _inext
557.comm _inext,2
558.globl _iplev
559.comm _iplev,2
560.globl _monsw
561.comm _monsw,2
562.globl _redo
563.comm _redo,2
564.globl _rnum
565.comm _rnum,2
566.globl _vrnum
567.comm _vrnum,2
568.globl _asig
569.comm _asig,2
570.globl _aval
571.comm _aval,2
572.globl _astat
573.comm _astat,2
574.globl _aflag
575.comm _aflag,2
576.globl _baseled
577.comm _baseled,2
578.globl _ledcntr
579.comm _ledcntr,2
580.globl _sigtab
581.comm _sigtab,512
582.globl _afi
583.comm _afi,4
584.globl _ftimer
585.comm _ftimer,4
586.globl _baron
587.comm _baron,2
588.globl _baroff
589.comm _baroff,2
590.globl _swon
591.comm _swon,2
592.globl _swoff
593.comm _swoff,2
594.globl _obj0
595.comm _obj0,4
596.globl _tba0
597.comm _tba0,4
598.globl _tba1
599.comm _tba1,4
600.globl _p_bv0
601.comm _p_bv0,2
602.globl _p_bv1
603.comm _p_bv1,2
604.globl _p_ba0
605.comm _p_ba0,4
606.globl _p_ba1
607.comm _p_ba1,4
608.globl _restart
609.comm _restart,60
610.globl _p_len
611.comm _p_len,4
612.globl _p_value
613.comm _p_value,4
614.globl _p_width
615.comm _p_width,4
616.globl _regptr
617.comm _regptr,4
618.globl _argstr
619.comm _argstr,82
620.globl _cmdline
621.comm _cmdline,130
622.globl _bfname
623.comm _bfname,14
624.globl _hs_mtst
625.comm _hs_mtst,82
626.globl _idbuf
627.comm _idbuf,92
628.globl _promdate
629.comm _promdate,16
630.globl _cx_exit
631.text
632_cx_exit:
633~~cx_exit:
634link R14,#-4
635*line 408
636move #1,(sp)
637move.l #_restart,-(sp)
638jsr _longjmp
639addq.l #4,sp
640L112:unlk R14
641rts
642.globl _cx_rest
643.text
644_cx_rest:
645~~cx_rest:
646link R14,#-4
647*line 420
648move.l #$100000,(sp)
649jsr _rjumpto
650L113:unlk R14
651rts
652.globl _cx_mlod
653.text
654_cx_mlod:
655~~cx_mlod:
656link R14,#0
657movem.l R6-R7,-(sp)
658~i=R7
659*line 434
660move #1,_B_log_s
661*line 435
662clr _B_dbg_s
663*line 436
664clr _redo
665*line 438
666jsr _hdvini
667*line 439
668clr __bpbin
669*line 441
670*line 441
671clr.l (sp)
672move.l #L115,-(sp)
673jsr _booter
674addq.l #4,sp
675tst R0
676beq L116
677*line 442
678*line 443
679clr R0
680bra L114
681*line 444
682bra L117
683L116:
684*line 445
685*line 446
686*line 447
687clr R7
688bra L120
689L121:
690*line 448
691move R7,R8
692add.l R8,R8
693add.l R8,R8
694add.l _regptr,R8
695move.l #$0,(R8)
696L119:
697*line 447
698add #1,R7
699L120:
700*line 447
701cmp #8,R7
702blt L121
703L118:
704*line 448
705*line 449
706*line 450
707clr R7
708bra L124
709L125:
710*line 451
711move R7,R8
712add.l R8,R8
713add.l R8,R8
714add.l _regptr,R8
715move.l #$0,32(R8)
716L123:
717*line 450
718add #1,R7
719L124:
720*line 450
721cmp #7,R7
722blt L125
723L122:
724*line 451
725*line 452
726*line 453
727move.l _regptr,R8
728move.l #$ffffe,60(R8)
729*line 454
730*line 455
731move.l _regptr,R8
732move #8704,66(R8)
733*line 456
734move.l _regptr,R8
735move.l _B_buf_a,68(R8)
736*line 457
737*line 458
738move #1,R0
739bra L114
740L117:L114:tst.l (sp)+
741movem.l (sp)+,R7-R7
742unlk R14
743rts
744.globl _cp_boot
745.text
746_cp_boot:
747~~cp_boot:
748link R14,#0
749movem.l R5-R7,-(sp)
750~i=R7
751~endc=R6
752*line 477
753clr _redo
754L129:
755*line 479
756*line 480
757*line 481
758move.l #L130,(sp)
759move _cmdunit,-(sp)
760jsr _writeln
761addq.l #2,sp
762*line 482
763move.l #_bfname,(sp)
764move #14,-(sp)
765move _cmdunit,-(sp)
766jsr _getln
767addq.l #4,sp
768move.b R0,R6
769*line 483
770move.l #L131,(sp)
771move _cmdunit,-(sp)
772jsr _writeln
773addq.l #2,sp
774*line 484
775*line 485
776*line 486
777cmp.b #13,R6
778beq L127
779*line 487
780*line 488
781*line 488
782cmp.b #24,R6
783bne L132
784*line 489
785*line 490
786move.l #L133,(sp)
787move _cmdunit,-(sp)
788jsr _writeln
789addq.l #2,sp
790*line 491
791clr R0
792bra L126
793*line 492
794*line 493
795L132:
796*line 494
797*line 495
798cmp.b #$ffffffff,R6
799bne L134
800*line 495
801move.l #L135,(sp)
802move _cmdunit,-(sp)
803jsr _writeln
804addq.l #2,sp
805L134:L128:bra L129
806L127:
807*line 498
808clr R7
809bra L138
810L139:
811*line 499
812*line 500
813move R7,R8
814add.l #_bfname,R8
815cmp.b #13,(R8)
816bne L140
817*line 500
818move R7,R8
819add.l #_bfname,R8
820clr.b (R8)
821*line 501
822L140:L137:
823*line 498
824add #1,R7
825L138:
826*line 498
827cmp #14,R7
828blt L139
829L136:
830*line 502
831move #1,R0
832bra L126
833L126:tst.l (sp)+
834movem.l (sp)+,R6-R7
835unlk R14
836rts
837.globl _cx_boot
838.text
839_cx_boot:
840~~cx_boot:
841link R14,#0
842movem.l R6-R7,-(sp)
843~i=R7
844*line 519
845move #1,_B_log_s
846*line 520
847clr _B_dbg_s
848*line 522
849jsr _hdvini
850*line 523
851clr __bpbin
852*line 525
853*line 525
854clr.l (sp)
855move.l #_bfname,-(sp)
856jsr _booter
857addq.l #4,sp
858tst R0
859beq L142
860*line 526
861*line 527
862clr R0
863bra L141
864*line 528
865bra L143
866L142:
867*line 529
868*line 530
869*line 531
870clr R7
871bra L146
872L147:
873*line 532
874move R7,R8
875add.l R8,R8
876add.l R8,R8
877add.l _regptr,R8
878move.l #$0,(R8)
879L145:
880*line 531
881add #1,R7
882L146:
883*line 531
884cmp #8,R7
885blt L147
886L144:
887*line 532
888*line 533
889*line 534
890clr R7
891bra L150
892L151:
893*line 535
894move R7,R8
895add.l R8,R8
896add.l R8,R8
897add.l _regptr,R8
898move.l #$0,32(R8)
899L149:
900*line 534
901add #1,R7
902L150:
903*line 534
904cmp #7,R7
905blt L151
906L148:
907*line 535
908*line 536
909*line 537
910move.l _regptr,R8
911move.l #$ffffe,60(R8)
912*line 538
913*line 539
914move.l _regptr,R8
915move #8704,66(R8)
916*line 540
917move.l _regptr,R8
918move.l _B_buf_a,68(R8)
919*line 541
920*line 542
921move #1,R0
922bra L141
923L143:L141:tst.l (sp)+
924movem.l (sp)+,R7-R7
925unlk R14
926rts
927.globl _dobar
928.text
929_dobar:
930~~dobar:
931~nb=R7
932~bv=R6
933link R14,#0
934movem.l R4-R7/R13-R13,-(sp)
935~bp=R13
936~i=R5
937*line 561
938move 8(R14),R7
939*line 561
940move 10(R14),R6
941*line 561
942*line 562
943cmp #1,R7
944blt L152
945cmp #82,R7
946bgt L152
947*line 563
948*line 564
949sub #1,R7
950*line 565
951move R7,R0
952move R7,R9
953add.l R9,R9
954add.l #_sigadr,R9
955move (R9),R1
956add R1,R0
957add #4,R0
958ext.l R0
959asl.l #1,R0
960move.l R0,R13
961add.l _obj0,R13
962add.l #$2800,R13
963*line 567
964move #127,R5
965bra L155
966L156:
967*line 568
968*line 569
969*line 569
970cmp R6,R5
971ble L157
972*line 570
973*line 571
974move _baroff,(R13)
975*line 572
976add.l #$100,R13
977*line 573
978move _baroff,(R13)
979*line 574
980bra L158
981L157:
982*line 575
983*line 576
984*line 577
985move _baron,(R13)
986*line 578
987add.l #$100,R13
988*line 579
989move _baron,(R13)
990L158:
991*line 580
992*line 581
993*line 582
994add.l #$100,R13
995L154:
996*line 567
997sub #1,R5
998L155:
999*line 567
1000tst R5
1001bge L156
1002L153:L152:tst.l (sp)+
1003movem.l (sp)+,R5-R7/R13-R13
1004unlk R14
1005rts
1006.globl _dosw
1007.text
1008_dosw:
1009~~dosw:
1010~nb=R7
1011~sv=R6
1012link R14,#0
1013movem.l R3-R7/R13-R13,-(sp)
1014~bp=R13
1015~i=R5
1016~j=R4
1017*line 601
1018move 8(R14),R7
1019*line 601
1020move 10(R14),R6
1021*line 601
1022*line 602
1023cmp #1,R7
1024blt L159
1025cmp #82,R7
1026bgt L159
1027*line 603
1028*line 604
1029sub #1,R7
1030*line 605
1031move R7,R0
1032move R7,R9
1033add.l R9,R9
1034add.l #_sigadr,R9
1035move (R9),R1
1036add R1,R0
1037add #4,R0
1038ext.l R0
1039asl.l #1,R0
1040move.l R0,R13
1041add.l _obj0,R13
1042add.l #$12c00,R13
1043*line 607
1044*line 608
1045tst R6
1046beq L160
1047*line 608
1048move _swon,R4
1049*line 609
1050bra L161
1051L160:
1052*line 610
1053move _swoff,R4
1054L161:
1055*line 612
1056clr R5
1057bra L164
1058L165:
1059*line 613
1060*line 614
1061move R4,(R13)
1062*line 615
1063add.l #$100,R13
1064L163:
1065*line 612
1066add #1,R5
1067L164:
1068*line 612
1069cmp #8,R5
1070blt L165
1071L162:L159:tst.l (sp)+
1072movem.l (sp)+,R4-R7/R13-R13
1073unlk R14
1074rts
1075.globl _exp_c
1076.text
1077_exp_c:
1078~~exp_c:
1079~c=8
1080link R14,#-4
1081*line 632
1082and #15,8(R14)
1083*line 633
1084clr R0
1085move 8(R14),R0
1086lsl #4,R0
1087or R0,8(R14)
1088*line 634
1089clr R0
1090move 8(R14),R0
1091lsl #8,R0
1092or R0,8(R14)
1093*line 636
1094clr R0
1095move 8(R14),R0
1096bra L166
1097L166:unlk R14
1098rts
1099.globl _cx_adsp
1100.text
1101_cx_adsp:
1102~~cx_adsp:
1103link R14,#-8
1104movem.l R2-R7/R13-R13,-(sp)
1105~xasig=R7
1106~xastat=R6
1107~xaval=R5
1108~xafi=R4
1109~lc=R3
1110~bp=R13
1111~i=-2
1112~j=-4
1113~k=-6
1114~oldi=-8
1115*line 657
1116move #256,(sp)
1117clr -(sp)
1118move.l #_sigtab,-(sp)
1119jsr _memsetw
1120addq.l #6,sp
1121*line 659
1122jsr _VHinit
1123*line 660
1124jsr _VSinit
1125*line 661
1126move.l #_dfltpal,(sp)
1127jsr _vsndpal
1128*line 663
1129move.l #$200400,_obj0
1130*line 665
1131move #-1,(sp)
1132move #1540,-(sp)
1133clr -(sp)
1134clr -(sp)
1135move #350,-(sp)
1136move #512,-(sp)
1137move.l _obj0,-(sp)
1138clr -(sp)
1139clr -(sp)
1140clr -(sp)
1141jsr _SetObj
1142adda.l #20,sp
1143*line 667
1144move.l _obj0,R13
1145*line 669
1146clr.l R3
1147bra L170
1148L171:
1149*line 670
1150clr (R13)+
1151L169:
1152*line 669
1153add.l #$1,R3
1154L170:
1155*line 669
1156cmp.l #$af00,R3
1157blt L171
1158L168:
1159*line 672
1160move #15,(sp)
1161jsr _exp_c
1162and #4095,R0
1163move R0,_baron
1164*line 673
1165move #1,(sp)
1166jsr _exp_c
1167and #4095,R0
1168move R0,_baroff
1169*line 674
1170move #13,(sp)
1171jsr _exp_c
1172and #4095,R0
1173move R0,_swon
1174*line 675
1175move #1,(sp)
1176jsr _exp_c
1177and #4095,R0
1178move R0,_swoff
1179*line 677
1180move #7,(sp)
1181clr -(sp)
1182jsr _SetPri
1183addq.l #2,sp
1184*line 679
1185move #1,-2(R14)
1186bra L174
1187L175:
1188*line 680
1189*line 681
1190clr (sp)
1191move -2(R14),-(sp)
1192jsr _dobar
1193addq.l #2,sp
1194*line 682
1195clr (sp)
1196move -2(R14),-(sp)
1197jsr _dosw
1198addq.l #2,sp
1199L173:
1200*line 679
1201add #1,-2(R14)
1202L174:
1203*line 679
1204cmp #83,-2(R14)
1205blt L175
1206L172:
1207*line 685
1208move #2,(sp)
1209jsr _setipl
1210move R0,-8(R14)
1211*line 690
1212bra L178
1213L177:
1214*line 691
1215*line 692
1216*line 692
1217move #8,(sp)
1218jsr _trap14
1219move.l R0,R4
1220cmp.l #$ffffffff,R4
1221beq L179
1222*line 693
1223*line 694
1224move.l R4,R0
1225asr.l #$8,R0
1226and.l #$7f,R0
1227move R0,R7
1228*line 695
1229move.l R4,R0
1230asr.l #$7,R0
1231and.l #$1,R0
1232move R0,R6
1233*line 696
1234move.l R4,R0
1235and.l #$7f,R0
1236move R0,R5
1237*line 697
1238*line 698
1239*line 698
1240tst R7
1241beq L180
1242*line 699
1243*line 700
1244move R7,R8
1245add.l R8,R8
1246add.l R8,R8
1247add.l #_sigtab,R8
1248move R5,(R8)
1249*line 701
1250move R7,R8
1251add.l R8,R8
1252add.l R8,R8
1253add.l #_sigtab,R8
1254move R6,2(R8)
1255*line 702
1256*line 703
1257*line 703
1258cmp #83,R7
1259bge L181
1260*line 704
1261*line 705
1262move R5,(sp)
1263move R7,-(sp)
1264jsr _dobar
1265addq.l #2,sp
1266*line 706
1267move R6,(sp)
1268move R7,-(sp)
1269jsr _dosw
1270addq.l #2,sp
1271*line 707
1272*line 708
1273L181:bra L182
1274L180:
1275*line 709
1276*line 710
1277*line 711
1278clr -2(R14)
1279bra L185
1280L186:
1281*line 712
1282move -2(R14),R8
1283add.l R8,R8
1284add.l R8,R8
1285add.l #_sigtab,R8
1286clr 2(R8)
1287L184:
1288*line 711
1289add #1,-2(R14)
1290L185:
1291*line 711
1292cmp #83,-2(R14)
1293blt L186
1294L183:
1295*line 712
1296L182:
1297*line 713
1298*line 714
1299L179:L178:
1300*line 715
1301move #2,(sp)
1302move #1,-(sp)
1303jsr _trap13
1304addq.l #2,sp
1305tst.l R0
1306beq L177
1307L176:
1308*line 720
1309move #2,(sp)
1310move #2,-(sp)
1311jsr _trap13
1312addq.l #2,sp
1313*line 722
1314move #1,-4(R14)
1315bra L189
1316L190:
1317*line 723
1318*line 724
1319move -4(R14),R8
1320add.l R8,R8
1321add.l R8,R8
1322move.l #_sigtab,R9
1323move 0(R8,R9.l),(sp)
1324move -4(R14),-(sp)
1325jsr _dobar
1326addq.l #2,sp
1327*line 725
1328move -4(R14),R8
1329add.l R8,R8
1330add.l R8,R8
1331move.l #_sigtab,R9
1332move 2(R8,R9.l),(sp)
1333move -4(R14),-(sp)
1334jsr _dosw
1335addq.l #2,sp
1336L188:
1337*line 722
1338add #1,-4(R14)
1339L189:
1340*line 722
1341cmp #83,-4(R14)
1342blt L190
1343L187:
1344*line 728
1345clr -6(R14)
1346*line 730
1347move.l #L191,(sp)
1348jsr _printf
1349*line 731
1350move.l #L192,(sp)
1351jsr _printf
1352*line 732
1353move.l #L193,(sp)
1354jsr _printf
1355*line 734
1356clr -2(R14)
1357bra L196
1358L197:
1359*line 735
1360*line 736
1361move -6(R14),R0
1362ext.l R0
1363divs #10,R0
1364move R0,(sp)
1365move.l #L198,-(sp)
1366jsr _printf
1367addq.l #4,sp
1368*line 737
1369*line 738
1370clr -4(R14)
1371bra L201
1372L202:
1373*line 739
1374*line 740
1375*line 741
1376tst -6(R14)
1377beq L203
1378*line 741
1379move -6(R14),R8
1380add.l R8,R8
1381add.l R8,R8
1382move.l #_sigtab,R9
1383move 0(R8,R9.l),(sp)
1384move -6(R14),R8
1385add.l R8,R8
1386add.l R8,R8
1387move.l #_sigtab,R9
1388move 2(R8,R9.l),-(sp)
1389move.l #L204,-(sp)
1390jsr _printf
1391addq.l #6,sp
1392*line 742
1393bra L205
1394L203:
1395*line 743
1396move.l #L206,(sp)
1397jsr _printf
1398L205:
1399*line 744
1400*line 745
1401*line 746
1402add #1,-6(R14)
1403move -6(R14),R0
1404cmp #83,R0
1405beq L207
1406L200:
1407*line 738
1408add #1,-4(R14)
1409L201:
1410*line 738
1411cmp #10,-4(R14)
1412blt L202
1413L199:
1414*line 747
1415*line 748
1416*line 749
1417move.l #L208,(sp)
1418jsr _printf
1419L195:
1420*line 734
1421add #1,-2(R14)
1422L196:
1423*line 734
1424cmp #9,-2(R14)
1425blt L197
1426L194:L207:
1427*line 752
1428*line 753
1429*line 754
1430*line 755
1431*line 756
1432move 304+_sigtab,(sp)
1433move 300+_sigtab,-(sp)
1434move 296+_sigtab,-(sp)
1435move 292+_sigtab,-(sp)
1436move.l #L209,-(sp)
1437jsr _printf
1438adda.l #10,sp
1439*line 758
1440*line 759
1441*line 760
1442move 236+_sigtab,(sp)
1443move 232+_sigtab,-(sp)
1444move 228+_sigtab,-(sp)
1445move.l #L210,-(sp)
1446jsr _printf
1447addq.l #8,sp
1448*line 762
1449*line 763
1450move 216+_sigtab,(sp)
1451move 212+_sigtab,-(sp)
1452move.l #L211,-(sp)
1453jsr _printf
1454addq.l #6,sp
1455*line 765
1456*line 766
1457move 224+_sigtab,(sp)
1458move 220+_sigtab,-(sp)
1459move.l #L212,-(sp)
1460jsr _printf
1461addq.l #6,sp
1462*line 768
1463move -8(R14),(sp)
1464jsr _setipl
1465*line 769
1466move #1,R0
1467bra L167
1468L167:tst.l (sp)+
1469movem.l (sp)+,R3-R7/R13-R13
1470unlk R14
1471rts
1472.globl _waitcr
1473.text
1474_waitcr:
1475~~waitcr:
1476link R14,#-6
1477~c=-2
1478*line 788
1479move #7,(sp)
1480move #2,-(sp)
1481move #3,-(sp)
1482jsr _trap13
1483addq.l #4,sp
1484*line 790
1485bra L216
1486L215:
1487*line 791
1488*line 792
1489*line 793
1490cmp.b #7,-2(R14)
1491bne L217
1492*line 793
1493move #1,R0
1494bra L213
1495L217:L216:
1496*line 794
1497move #2,(sp)
1498move #2,-(sp)
1499jsr _trap13
1500addq.l #2,sp
1501and.l #$7f,R0
1502move.b R0,-2(R14)
1503cmp #13,R0
1504bne L215
1505L214:
1506*line 796
1507clr R0
1508bra L213
1509L213:unlk R14
1510rts
1511.globl _xdtoi
1512.text
1513_xdtoi:
1514~~xdtoi:
1515~c=R7
1516link R14,#0
1517movem.l R5-R7/R13-R13,-(sp)
1518~i=R6
1519~ap=R13
1520*line 813
1521move.l #_ahex,R13
1522*line 815
1523move 8(R14),R7
1524*line 815
1525clr R6
1526bra L221
1527L222:
1528*line 816
1529*line 817
1530move.b (R13)+,R0
1531ext.w R0
1532cmp R0,R7
1533bne L223
1534*line 817
1535*line 818
1536cmp #15,R6
1537ble L224
1538*line 818
1539move R6,R0
1540sub #6,R0
1541bra L218
1542*line 819
1543bra L225
1544L224:
1545*line 820
1546move R6,R0
1547bra L218
1548L225:
1549*line 821
1550L223:L220:
1551*line 815
1552add #1,R6
1553L221:
1554*line 815
1555cmp #22,R6
1556blt L222
1557L219:
1558*line 822
1559move #-1,R0
1560bra L218
1561L218:tst.l (sp)+
1562movem.l (sp)+,R6-R7/R13-R13
1563unlk R14
1564rts
1565.globl _getcmd
1566.text
1567_getcmd:
1568~~getcmd:
1569link R14,#0
1570movem.l R6-R7,-(sp)
1571~c=R7
1572*line 839
1573move.l #_cmdline,_sptr
1574*line 840
1575clr _argln
1576*line 841
1577move.l #_argstr,_aptr
1578*line 842
1579move #81,(sp)
1580clr -(sp)
1581move.l #_argstr,-(sp)
1582jsr _memset
1583addq.l #6,sp
1584*line 844
1585L229:
1586*line 845
1587*line 846
1588move.l _sptr,R8
1589move.b (R8),R0
1590ext.w R0
1591move R0,R7
1592and #255,R7
1593move R7,R0
1594bra L231
1595*line 847
1596L232:
1597*line 848
1598L233:
1599*line 849
1600L234:
1601*line 850
1602*line 851
1603*line 852
1604move.b R7,_argsep
1605*line 853
1606move _argln,R0
1607bra L226
1608*line 854
1609L235:
1610*line 855
1611*line 856
1612*line 857
1613add.l #1,_sptr
1614*line 858
1615*line 859
1616bra L238
1617L237:
1618*line 860
1619add.l #1,_sptr
1620L238:
1621*line 860
1622move.l _sptr,R8
1623cmp.b #32,(R8)
1624beq L237
1625L236:
1626*line 861
1627*line 862
1628*line 863
1629move.l _sptr,R8
1630cmp.b #13,(R8)
1631beq L10000
1632move.l _sptr,R8
1633cmp.b #10,(R8)
1634beq L10000
1635move.l _sptr,R8
1636tst.b (R8)
1637bne L239
1638L10000:*line 863
1639move.l _sptr,R8
1640move.b (R8),R0
1641ext.w R0
1642move R0,R7
1643and #255,R7
1644*line 864
1645L239:
1646*line 865
1647move.b R7,_argsep
1648*line 866
1649move _argln,R0
1650bra L226
1651*line 867
1652*line 868
1653*line 869
1654*line 870
1655L240:
1656*line 871
1657*line 872
1658*line 873
1659*line 874
1660move R7,R8
1661add.l #___atab,R8
1662btst #3,(R8)
1663beq L241
1664*line 874
1665add #32,R7
1666*line 875
1667L241:
1668*line 876
1669move R7,R0
1670move.l _aptr,R9
1671move.b R0,(R9)
1672add.l #1,_aptr
1673*line 877
1674add.l #1,_sptr
1675*line 878
1676add #1,_argln
1677bra L230
1678L231:tst R0
1679beq L232
1680cmp #10,R0
1681beq L234
1682cmp #13,R0
1683beq L233
1684cmp #32,R0
1685beq L235
1686bra L240
1687L230:
1688*line 879
1689*line 880
1690L228:
1691*line 881
1692move.l _sptr,R8
1693tst.b (R8)
1694bne L229
1695L227:
1696*line 883
1697clr.b _argsep
1698*line 884
1699move _argln,R0
1700bra L226
1701L226:tst.l (sp)+
1702movem.l (sp)+,R7-R7
1703unlk R14
1704rts
1705.globl _getarg
1706.text
1707_getarg:
1708~~getarg:
1709link R14,#0
1710movem.l R6-R7,-(sp)
1711~c=R7
1712*line 901
1713clr _argln
1714*line 902
1715move.l #_argstr,_aptr
1716*line 903
1717move #81,(sp)
1718clr -(sp)
1719move.l #_argstr,-(sp)
1720jsr _memset
1721addq.l #6,sp
1722*line 905
1723L245:
1724*line 906
1725*line 907
1726move.l _sptr,R8
1727move.b (R8),R0
1728ext.w R0
1729move R0,R7
1730and #255,R7
1731move R7,R0
1732bra L247
1733*line 908
1734L248:
1735*line 909
1736L249:
1737*line 910
1738L250:
1739*line 911
1740*line 912
1741*line 913
1742move.b R7,_argsep
1743*line 914
1744move _argln,R0
1745bra L242
1746*line 915
1747L251:
1748*line 916
1749*line 917
1750*line 918
1751add.l #1,_sptr
1752*line 919
1753*line 920
1754bra L254
1755L253:
1756*line 921
1757add.l #1,_sptr
1758L254:
1759*line 921
1760move.l _sptr,R8
1761cmp.b #32,(R8)
1762beq L253
1763L252:
1764*line 922
1765*line 923
1766*line 924
1767move.l _sptr,R8
1768cmp.b #13,(R8)
1769beq L10001
1770move.l _sptr,R8
1771cmp.b #10,(R8)
1772beq L10001
1773move.l _sptr,R8
1774tst.b (R8)
1775bne L255
1776L10001:*line 924
1777move.l _sptr,R8
1778move.b (R8),R0
1779ext.w R0
1780move R0,R7
1781and #255,R7
1782*line 925
1783L255:
1784*line 926
1785move.b R7,_argsep
1786*line 927
1787move _argln,R0
1788bra L242
1789*line 928
1790L256:
1791*line 929
1792*line 930
1793*line 931
1794add.l #1,_sptr
1795*line 932
1796move.b R7,_argsep
1797*line 933
1798move _argln,R0
1799bra L242
1800*line 934
1801*line 935
1802*line 936
1803*line 937
1804L257:
1805*line 938
1806*line 939
1807*line 940
1808move R7,R0
1809move.l _aptr,R9
1810move.b R0,(R9)
1811add.l #1,_aptr
1812*line 941
1813add.l #1,_sptr
1814*line 942
1815add #1,_argln
1816bra L246
1817L247:ext.l R0
1818move.l #L258,R8
1819move #5,R1
1820L259:cmp.l (R8)+,R0
1821dbeq R1,L259
1822move.l 20(R8),R8
1823jmp (R8)
1824.data
1825L258:.dc.l 0
1826.dc.l 10
1827.dc.l 13
1828.dc.l 32
1829.dc.l 44
1830.dc.l 0
1831.dc.l L248
1832.dc.l L250
1833.dc.l L249
1834.dc.l L251
1835.dc.l L256
1836.dc.l L257
1837.text
1838L246:
1839*line 943
1840*line 944
1841L244:
1842*line 945
1843move.l _sptr,R8
1844tst.b (R8)
1845bne L245
1846L243:
1847*line 947
1848clr.b _argsep
1849*line 948
1850move _argln,R0
1851bra L242
1852L242:tst.l (sp)+
1853movem.l (sp)+,R7-R7
1854unlk R14
1855rts
1856.globl _getlong
1857.text
1858_getlong:
1859~~getlong:
1860~var=8
1861link R14,#0
1862movem.l R4-R7,-(sp)
1863~temp=R7
1864*line 964
1865clr.l R7
1866~csw=R6
1867*line 965
1868clr R6
1869~c=R5
1870*line 968
1871*line 968
1872move.l _aptr,R8
1873cmp.b #36,(R8)
1874bne L261
1875*line 969
1876*line 970
1877add.l #1,_aptr
1878*line 971
1879*line 972
1880bra L264
1881L263:
1882*line 973
1883*line 974
1884move R5,(sp)
1885jsr _xdtoi
1886ext.l R0
1887move.l R7,R1
1888asl.l #$4,R1
1889add.l R1,R0
1890move.l R0,R7
1891*line 975
1892move #1,R6
1893L264:
1894*line 976
1895move.l _aptr,R8
1896move.b (R8),R0
1897ext.w R0
1898move R0,R5
1899move.l #___atab,R8
1900move.b 0(R8,R5),R0
1901ext.w R0
1902and #128,R0
1903add.l #1,_aptr
1904tst R0
1905bne L263
1906L262:
1907*line 977
1908bra L265
1909L261:
1910*line 978
1911*line 979
1912*line 980
1913bra L268
1914L267:
1915*line 981
1916*line 982
1917move.l #$a,-(sp)
1918move.l R7,-(sp)
1919jsr lmul
1920addq.l #8,sp
1921move.l R0,R7
1922move R5,R0
1923add #-48,R0
1924ext.l R0
1925add.l R0,R7
1926*line 983
1927move #1,R6
1928L268:
1929*line 984
1930move.l _aptr,R8
1931move.b (R8),R0
1932ext.w R0
1933move R0,R5
1934move.l #___atab,R8
1935move.b 0(R8,R5),R0
1936ext.w R0
1937and #4,R0
1938add.l #1,_aptr
1939tst R0
1940bne L267
1941L266:L265:
1942*line 987
1943*line 988
1944tst R6
1945beq L269
1946*line 988
1947move.l 8(R14),R8
1948move.l R7,(R8)
1949*line 989
1950L269:
1951*line 990
1952move R5,R0
1953bra L260
1954L260:tst.l (sp)+
1955movem.l (sp)+,R5-R7
1956unlk R14
1957rts
1958.globl _setvar
1959.text
1960_setvar:
1961~~setvar:
1962~var=8
1963~deflt=12
1964link R14,#-10
1965~rc=-2
1966~temp=-6
1967*line 1009
1968move.l 8(R14),R8
1969move.l 12(R14),(R8)
1970*line 1010
1971move.l #_argstr,_aptr
1972*line 1012
1973move.l 8(R14),(sp)
1974jsr _getlong
1975move R0,-2(R14)
1976*line 1014
1977*line 1014
1978tst -2(R14)
1979beq L271
1980*line 1015
1981*line 1016
1982L274:
1983*line 1017
1984*line 1018
1985move -2(R14),R0
1986bra L276
1987*line 1019
1988L277:
1989*line 1020
1990*line 1021
1991*line 1022
1992clr.l -6(R14)
1993*line 1023
1994move.l R14,(sp)
1995sub.l #6,(sp)
1996jsr _getlong
1997move R0,-2(R14)
1998*line 1024
1999move.l 8(R14),R8
2000move.l (R8),R0
2001add.l -6(R14),R0
2002move.l 8(R14),R9
2003move.l R0,(R9)
2004bra L273
2005*line 1025
2006*line 1026
2007L278:
2008*line 1027
2009*line 1028
2010*line 1029
2011clr.l -6(R14)
2012*line 1030
2013move.l R14,(sp)
2014sub.l #6,(sp)
2015jsr _getlong
2016move R0,-2(R14)
2017*line 1031
2018move.l 8(R14),R8
2019move.l (R8),R0
2020sub.l -6(R14),R0
2021move.l 8(R14),R9
2022move.l R0,(R9)
2023bra L273
2024*line 1032
2025*line 1033
2026L279:
2027*line 1034
2028*line 1035
2029*line 1036
2030move.l 8(R14),R8
2031move.l 12(R14),(R8)
2032*line 1037
2033clr R0
2034bra L270
2035bra L275
2036L276:cmp #43,R0
2037beq L277
2038cmp #45,R0
2039beq L278
2040bra L279
2041L275:
2042*line 1038
2043*line 1039
2044L273:
2045*line 1040
2046tst -2(R14)
2047bne L274
2048L272:
2049*line 1041
2050*line 1042
2051move #1,R0
2052bra L270
2053*line 1043
2054*line 1044
2055L271:
2056*line 1045
2057move #1,R0
2058bra L270
2059L270:unlk R14
2060rts
2061.globl _putn
2062.text
2063_putn:
2064~~putn:
2065~num=8
2066~cw=12
2067~unit=14
2068link R14,#0
2069movem.l R6-R7,-(sp)
2070~d=R7
2071*line 1063
2072*line 1064
2073tst 12(R14)
2074beq L280
2075*line 1065
2076*line 1066
2077move 14(R14),(sp)
2078move 12(R14),-(sp)
2079sub #1,(sp)
2080move.l #$a,-(sp)
2081move.l 8(R14),-(sp)
2082jsr ldiv
2083addq.l #8,sp
2084move.l R0,-(sp)
2085jsr _putn
2086addq.l #6,sp
2087*line 1068
2088move.l #$a,-(sp)
2089move.l 8(R14),-(sp)
2090jsr lrem
2091addq.l #8,sp
2092move R0,R7
2093*line 1070
2094move R7,(sp)
2095add #48,(sp)
2096move 14(R14),-(sp)
2097move #3,-(sp)
2098jsr _trap13
2099addq.l #4,sp
2100bra L280
2101L280:tst.l (sp)+
2102movem.l (sp)+,R7-R7
2103unlk R14
2104rts
2105.globl _puthn
2106.text
2107_puthn:
2108~~puthn:
2109~num=8
2110~cw=12
2111~unit=14
2112link R14,#0
2113movem.l R6-R7,-(sp)
2114~d=R7
2115*line 1090
2116*line 1091
2117tst 12(R14)
2118beq L281
2119*line 1092
2120*line 1093
2121move 14(R14),(sp)
2122move 12(R14),-(sp)
2123sub #1,(sp)
2124move.l 8(R14),R0
2125asr.l #$4,R0
2126move.l R0,-(sp)
2127jsr _puthn
2128addq.l #6,sp
2129*line 1095
2130move.l 8(R14),R0
2131and.l #$f,R0
2132move R0,R7
2133*line 1097
2134*line 1098
2135cmp #9,R7
2136ble L282
2137*line 1098
2138move R7,(sp)
2139add #55,(sp)
2140move 14(R14),-(sp)
2141move #3,-(sp)
2142jsr _trap13
2143addq.l #4,sp
2144*line 1099
2145bra L283
2146L282:
2147*line 1100
2148move R7,(sp)
2149add #48,(sp)
2150move 14(R14),-(sp)
2151move #3,-(sp)
2152jsr _trap13
2153addq.l #4,sp
2154L283:bra L281
2155L281:tst.l (sp)+
2156movem.l (sp)+,R7-R7
2157unlk R14
2158rts
2159.globl _ddump
2160.text
2161_ddump:
2162~~ddump:
2163~loc=R13
2164~lastloc=R12
2165~nwide=R7
2166~unit=R6
2167link R14,#0
2168movem.l R5-R7/R12-R13,-(sp)
2169*line 1119
2170move.l 8(R14),R13
2171*line 1119
2172move.l 12(R14),R12
2173*line 1119
2174move 16(R14),R7
2175*line 1119
2176move 18(R14),R6
2177*line 1119
2178bra L287
2179L286:
2180*line 1120
2181*line 1121
2182move R6,(sp)
2183move #2,-(sp)
2184move.b (R13),R0
2185ext.w R0
2186and #255,R0
2187ext.l R0
2188move.l R0,-(sp)
2189jsr _puthn
2190addq.l #6,sp
2191*line 1122
2192move #32,(sp)
2193move R6,-(sp)
2194move #3,-(sp)
2195jsr _trap13
2196addq.l #4,sp
2197*line 1123
2198*line 1124
2199*line 1124
2200move R6,(sp)
2201move #1,-(sp)
2202jsr _trap13
2203addq.l #2,sp
2204tst.l R0
2205beq L288
2206*line 1125
2207*line 1126
2208move R6,(sp)
2209move #2,-(sp)
2210jsr _trap13
2211addq.l #2,sp
2212*line 1127
2213move #1,R0
2214bra L284
2215*line 1128
2216*line 1129
2217L288:
2218*line 1130
2219*line 1130
2220cmp.l R12,R13
2221bne L289
2222*line 1131
2223*line 1132
2224move #1,_dflag
2225*line 1133
2226clr R0
2227bra L284
2228*line 1134
2229*line 1135
2230L289:
2231*line 1136
2232add.l #1,R13
2233L287:
2234*line 1137
2235move R7,R0
2236sub #1,R7
2237tst R0
2238bne L286
2239L285:
2240*line 1140
2241clr R0
2242bra L284
2243L284:tst.l (sp)+
2244movem.l (sp)+,R6-R7/R12-R13
2245unlk R14
2246rts
2247.globl _padr
2248.text
2249_padr:
2250~~padr:
2251~adr=8
2252~unit=12
2253link R14,#-4
2254*line 1156
2255move 12(R14),(sp)
2256move #8,-(sp)
2257move.l 8(R14),-(sp)
2258jsr _puthn
2259addq.l #6,sp
2260*line 1157
2261move #32,(sp)
2262move 12(R14),-(sp)
2263move #3,-(sp)
2264jsr _trap13
2265addq.l #4,sp
2266*line 1158
2267move #45,(sp)
2268move 12(R14),-(sp)
2269move #3,-(sp)
2270jsr _trap13
2271addq.l #4,sp
2272*line 1159
2273move #32,(sp)
2274move 12(R14),-(sp)
2275move #3,-(sp)
2276jsr _trap13
2277addq.l #4,sp
2278L290:unlk R14
2279rts
2280.globl _dtext
2281.text
2282_dtext:
2283~~dtext:
2284~loc=R13
2285~lastloc=R12
2286~nwide=R7
2287~unit=R6
2288link R14,#0
2289movem.l R4-R7/R12-R13,-(sp)
2290~c=R5
2291*line 1178
2292move.l 8(R14),R13
2293*line 1178
2294move.l 12(R14),R12
2295*line 1178
2296move 16(R14),R7
2297*line 1178
2298move 18(R14),R6
2299*line 1178
2300move #32,(sp)
2301move R6,-(sp)
2302move #3,-(sp)
2303jsr _trap13
2304addq.l #4,sp
2305*line 1179
2306move #124,(sp)
2307move R6,-(sp)
2308move #3,-(sp)
2309jsr _trap13
2310addq.l #4,sp
2311*line 1181
2312bra L294
2313L293:
2314*line 1182
2315*line 1183
2316move.b (R13),R5
2317ext.w R5
2318and #255,R5
2319*line 1184
2320*line 1185
2321*line 1186
2322move R5,R0
2323and #-128,R0
2324bne L295
2325move.l #___atab,R8
2326move.b 0(R8,R5),R0
2327ext.w R0
2328and #94,R0
2329beq L295
2330*line 1186
2331move R5,(sp)
2332move R6,-(sp)
2333move #3,-(sp)
2334jsr _trap13
2335addq.l #4,sp
2336*line 1187
2337bra L296
2338L295:
2339*line 1188
2340move #46,(sp)
2341move R6,-(sp)
2342move #3,-(sp)
2343jsr _trap13
2344addq.l #4,sp
2345L296:
2346*line 1189
2347*line 1190
2348*line 1190
2349move R6,(sp)
2350move #1,-(sp)
2351jsr _trap13
2352addq.l #2,sp
2353tst.l R0
2354beq L297
2355*line 1191
2356*line 1192
2357move R6,(sp)
2358move #2,-(sp)
2359jsr _trap13
2360addq.l #2,sp
2361*line 1193
2362move #124,(sp)
2363move R6,-(sp)
2364move #3,-(sp)
2365jsr _trap13
2366addq.l #4,sp
2367*line 1194
2368move #1,R0
2369bra L291
2370*line 1195
2371*line 1196
2372L297:
2373*line 1197
2374*line 1197
2375cmp.l R12,R13
2376bne L298
2377*line 1198
2378*line 1199
2379move #124,(sp)
2380move R6,-(sp)
2381move #3,-(sp)
2382jsr _trap13
2383addq.l #4,sp
2384*line 1200
2385clr R0
2386bra L291
2387*line 1201
2388*line 1202
2389L298:
2390*line 1203
2391add.l #1,R13
2392L294:
2393*line 1204
2394move R7,R0
2395sub #1,R7
2396tst R0
2397bne L293
2398L292:
2399*line 1206
2400move #124,(sp)
2401move R6,-(sp)
2402move #3,-(sp)
2403jsr _trap13
2404addq.l #4,sp
2405*line 1207
2406clr R0
2407bra L291
2408L291:tst.l (sp)+
2409movem.l (sp)+,R5-R7/R12-R13
2410unlk R14
2411rts
2412.globl _cp_mset
2413.text
2414_cp_mset:
2415~~cp_mset:
2416link R14,#-4
2417*line 1222
2418clr _redo
2419*line 1224
2420*line 1225
2421jsr _getarg
2422tst R0
2423bne L300
2424*line 1225
2425clr R0
2426bra L299
2427*line 1226
2428L300:
2429*line 1227
2430*line 1228
2431cmp.b #44,_argsep
2432beq L301
2433*line 1228
2434clr R0
2435bra L299
2436*line 1229
2437L301:
2438*line 1230
2439*line 1231
2440move.l _p_from,(sp)
2441move.l #_p_from,-(sp)
2442jsr _setvar
2443addq.l #4,sp
2444tst R0
2445bne L302
2446*line 1231
2447clr R0
2448bra L299
2449*line 1232
2450L302:
2451*line 1233
2452move #1,R0
2453bra L299
2454L299:unlk R14
2455rts
2456.globl _cx_mset
2457.text
2458_cx_mset:
2459~~cx_mset:
2460link R14,#-4
2461*line 1245
2462bra L306
2463L305:
2464*line 1246
2465*line 1247
2466*line 1248
2467jsr _getarg
2468tst R0
2469beq L307
2470*line 1248
2471*line 1249
2472move.l _p_value,(sp)
2473move.l #_p_value,-(sp)
2474jsr _setvar
2475addq.l #4,sp
2476tst R0
2477bne L308
2478*line 1249
2479clr R0
2480bra L303
2481*line 1250
2482L308:L307:
2483*line 1251
2484*line 1252
2485move.l _p_value,R0
2486and.l #$ffffff00,R0
2487beq L309
2488*line 1252
2489clr R0
2490bra L303
2491*line 1253
2492L309:
2493*line 1254
2494move.l _p_value,R0
2495and.l #$ff,R0
2496move.l _p_from,R9
2497move.b R0,(R9)
2498add.l #1,_p_from
2499*line 1255
2500*line 1256
2501*line 1257
2502cmp.b #13,_argsep
2503bne L310
2504*line 1257
2505move #1,R0
2506bra L303
2507L310:L306:
2508*line 1258
2509bra L305
2510L304:L303:unlk R14
2511rts
2512.globl _cp_wset
2513.text
2514_cp_wset:
2515~~cp_wset:
2516link R14,#-4
2517*line 1272
2518clr _redo
2519*line 1274
2520*line 1275
2521jsr _getarg
2522tst R0
2523bne L312
2524*line 1275
2525clr R0
2526bra L311
2527*line 1276
2528L312:
2529*line 1277
2530*line 1278
2531cmp.b #44,_argsep
2532beq L313
2533*line 1278
2534clr R0
2535bra L311
2536*line 1279
2537L313:
2538*line 1280
2539*line 1281
2540move.l _p_from,(sp)
2541move.l #_p_from,-(sp)
2542jsr _setvar
2543addq.l #4,sp
2544tst R0
2545bne L314
2546*line 1281
2547clr R0
2548bra L311
2549*line 1282
2550L314:
2551*line 1283
2552*line 1284
2553btst #0,3+_p_from
2554beq L315
2555*line 1284
2556clr R0
2557bra L311
2558*line 1285
2559L315:
2560*line 1286
2561move #1,R0
2562bra L311
2563L311:unlk R14
2564rts
2565.globl _cx_wset
2566.text
2567_cx_wset:
2568~~cx_wset:
2569link R14,#-8
2570~p_uint=-4
2571*line 1303
2572move.l _p_from,-4(R14)
2573*line 1305
2574bra L319
2575L318:
2576*line 1306
2577*line 1307
2578*line 1308
2579jsr _getarg
2580tst R0
2581beq L320
2582*line 1308
2583*line 1309
2584move.l _p_value,(sp)
2585move.l #_p_value,-(sp)
2586jsr _setvar
2587addq.l #4,sp
2588tst R0
2589bne L321
2590*line 1309
2591clr R0
2592bra L316
2593*line 1310
2594L321:L320:
2595*line 1311
2596*line 1312
2597move.l _p_value,R0
2598and.l #$ffff0000,R0
2599beq L322
2600*line 1312
2601clr R0
2602bra L316
2603*line 1313
2604L322:
2605*line 1314
2606move.l _p_value,R0
2607move.l -4(R14),R9
2608move R0,(R9)
2609add.l #2,-4(R14)
2610*line 1315
2611*line 1316
2612*line 1317
2613cmp.b #13,_argsep
2614bne L323
2615*line 1317
2616move #1,R0
2617bra L316
2618L323:L319:
2619*line 1318
2620bra L318
2621L317:L316:unlk R14
2622rts
2623.globl _cp_mtst
2624.text
2625_cp_mtst:
2626~~cp_mtst:
2627link R14,#-4
2628*line 1333
2629move _ilast,_inext
2630*line 1335
2631*line 1335
2632cmp.b #13,_argsep
2633beq L10002
2634tst.b _argsep
2635bne L325
2636L10002:*line 1336
2637*line 1337
2638move.l #$8,_p_from
2639*line 1338
2640move.l #$fffe,_p_to
2641*line 1339
2642move #1,R0
2643bra L324
2644*line 1340
2645*line 1341
2646L325:
2647*line 1342
2648*line 1343
2649jsr _getarg
2650tst R0
2651beq L326
2652*line 1343
2653*line 1344
2654move.l #$10000,(sp)
2655move.l #_p_from,-(sp)
2656jsr _setvar
2657addq.l #4,sp
2658tst R0
2659bne L327
2660*line 1344
2661clr R0
2662bra L324
2663*line 1345
2664L327:L326:
2665*line 1346
2666*line 1347
2667cmp.b #44,_argsep
2668beq L328
2669*line 1347
2670clr R0
2671bra L324
2672*line 1348
2673L328:
2674*line 1349
2675*line 1350
2676jsr _getarg
2677tst R0
2678beq L329
2679*line 1350
2680*line 1351
2681move.l #$ffffe,(sp)
2682move.l #_p_to,-(sp)
2683jsr _setvar
2684addq.l #4,sp
2685tst R0
2686bne L330
2687*line 1351
2688clr R0
2689bra L324
2690*line 1352
2691L330:L329:
2692*line 1353
2693*line 1354
2694btst #0,3+_p_from
2695beq L331
2696*line 1354
2697clr R0
2698bra L324
2699*line 1355
2700L331:
2701*line 1356
2702*line 1357
2703btst #0,3+_p_to
2704beq L332
2705*line 1357
2706clr R0
2707bra L324
2708*line 1358
2709L332:
2710*line 1359
2711*line 1360
2712move.l _p_from,R0
2713cmp.l _p_to,R0
2714bls L333
2715*line 1360
2716clr R0
2717bra L324
2718*line 1361
2719L333:
2720*line 1362
2721move #1,R0
2722bra L324
2723L324:unlk R14
2724rts
2725.globl _cx_mtst
2726.text
2727_cx_mtst:
2728~~cx_mtst:
2729link R14,#0
2730movem.l R5-R7/R11-R13,-(sp)
2731~mask=R7
2732~was=R6
2733~loc=R13
2734~eloc=R12
2735~oldloc=R11
2736*line 1379
2737move #1,R7
2738*line 1380
2739move.l _p_from,R13
2740*line 1381
2741move.l _p_to,R12
2742*line 1382
2743move.l R13,R11
2744*line 1384
2745*line 1385
2746move.l _p_from,R0
2747cmp.l #$10000,R0
2748bcc L335
2749*line 1385
2750move #7,(sp)
2751jsr _setipl
2752*line 1386
2753L335:
2754*line 1387
2755L338:
2756*line 1388
2757*line 1389
2758bra L341
2759L340:
2760*line 1390
2761*line 1391
2762move R7,(R13)
2763*line 1392
2764*line 1393
2765*line 1394
2766move (R13),R6
2767cmp R6,R7
2768beq L342
2769*line 1394
2770*line 1395
2771move.l _p_from,R0
2772cmp.l #$10000,R0
2773bcc L343
2774*line 1395
2775jsr _halt
2776*line 1396
2777bra L344
2778L343:
2779*line 1397
2780*line 1398
2781move R7,(sp)
2782move R6,-(sp)
2783move.l R13,-(sp)
2784move.l #L345,-(sp)
2785jsr _printf
2786adda.l #10,sp
2787L344:
2788*line 1399
2789L342:
2790*line 1400
2791move R7,R0
2792not R0
2793move R0,(R13)
2794*line 1401
2795*line 1402
2796*line 1403
2797move (R13),R6
2798move R7,R0
2799not R0
2800cmp R0,R6
2801beq L346
2802*line 1403
2803*line 1404
2804move.l _p_from,R0
2805cmp.l #$10000,R0
2806bcc L347
2807*line 1404
2808jsr _halt
2809*line 1405
2810bra L348
2811L347:
2812*line 1406
2813*line 1407
2814move R7,R0
2815not R0
2816move R0,(sp)
2817move R6,-(sp)
2818move.l R13,-(sp)
2819move.l #L349,-(sp)
2820jsr _printf
2821adda.l #10,sp
2822L348:
2823*line 1408
2824L346:
2825*line 1409
2826asl R7
2827L341:
2828*line 1410
2829tst R7
2830bne L340
2831L339:
2832*line 1411
2833*line 1412
2834move #1,R7
2835*line 1413
2836add.l #2,R13
2837*line 1414
2838L337:
2839*line 1415
2840cmp.l R12,R13
2841bls L338
2842L336:
2843*line 1417
2844*line 1418
2845cmp.l #$10000,R11
2846bcc L350
2847*line 1418
2848move.l #$100000,(sp)
2849jsr _rjumpto
2850*line 1419
2851L350:
2852*line 1420
2853move #1,R0
2854bra L334
2855L334:tst.l (sp)+
2856movem.l (sp)+,R6-R7/R11-R13
2857unlk R14
2858rts
2859.globl _cp_go
2860.text
2861_cp_go:
2862~~cp_go:
2863link R14,#-4
2864*line 1435
2865clr _redo
2866*line 1436
2867clr _b0flag
2868*line 1437
2869clr _b1flag
2870*line 1438
2871clr _goflag
2872*line 1440
2873*line 1440
2874jsr _getarg
2875tst R0
2876beq L352
2877*line 1441
2878*line 1442
2879*line 1443
2880move.l _p_goto,(sp)
2881move.l #_p_goto,-(sp)
2882jsr _setvar
2883addq.l #4,sp
2884tst R0
2885bne L353
2886*line 1443
2887clr R0
2888bra L351
2889*line 1444
2890L353:
2891*line 1445
2892*line 1446
2893btst #0,3+_p_goto
2894beq L354
2895*line 1446
2896clr R0
2897bra L351
2898*line 1447
2899L354:
2900*line 1448
2901move #1,_goflag
2902*line 1449
2903*line 1450
2904*line 1451
2905L352:
2906*line 1452
2907*line 1452
2908jsr _getarg
2909tst R0
2910beq L355
2911*line 1453
2912*line 1454
2913*line 1455
2914clr.l (sp)
2915move.l #_tba0,-(sp)
2916jsr _setvar
2917addq.l #4,sp
2918tst R0
2919bne L356
2920*line 1455
2921clr R0
2922bra L351
2923*line 1456
2924L356:
2925*line 1457
2926*line 1458
2927btst #0,3+_tba0
2928beq L357
2929*line 1458
2930clr R0
2931bra L351
2932*line 1459
2933L357:
2934*line 1460
2935move #1,_b0flag
2936*line 1461
2937*line 1462
2938L355:
2939*line 1463
2940*line 1463
2941jsr _getarg
2942tst R0
2943beq L358
2944*line 1464
2945*line 1465
2946*line 1466
2947clr.l (sp)
2948move.l #_tba1,-(sp)
2949jsr _setvar
2950addq.l #4,sp
2951tst R0
2952bne L359
2953*line 1466
2954clr R0
2955bra L351
2956*line 1467
2957L359:
2958*line 1468
2959*line 1469
2960btst #0,3+_tba1
2961beq L360
2962*line 1469
2963clr R0
2964bra L351
2965*line 1470
2966L360:
2967*line 1471
2968move #1,_b1flag
2969*line 1472
2970*line 1473
2971L358:
2972*line 1474
2973move #1,R0
2974bra L351
2975L351:unlk R14
2976rts
2977.globl _cx_dini
2978.text
2979_cx_dini:
2980~~cx_dini:
2981link R14,#-4
2982*line 1491
2983move #1,_redo
2984*line 1492
2985jsr _hdvini
2986*line 1493
2987move #1,R0
2988bra L361
2989L361:unlk R14
2990rts
2991.globl _cx_zap
2992.text
2993_cx_zap:
2994~~cx_zap:
2995link R14,#0
2996movem.l R7-R7/R12-R13,-(sp)
2997~p=R13
2998~q=R12
2999*line 1509
3000move.l #$10000,R13
3001*line 1510
3002move.l #$ffffe,R12
3003*line 1512
3004move #7,(sp)
3005jsr _setipl
3006*line 1514
3007bra L365
3008L364:
3009*line 1515
3010clr (R13)+
3011L365:
3012*line 1515
3013cmp.l R12,R13
3014bls L364
3015L363:
3016*line 1517
3017move.l #$100000,(sp)
3018jsr _rjumpto
3019L362:tst.l (sp)+
3020movem.l (sp)+,R12-R13
3021unlk R14
3022rts
3023.globl _cx_omap
3024.text
3025_cx_omap:
3026~~cx_omap:
3027link R14,#0
3028movem.l R4-R7,-(sp)
3029~i=R7
3030~width=R6
3031~xloc=R5
3032*line 1534
3033move.l #L367,(sp)
3034jsr _printf
3035*line 1536
3036clr R7
3037bra L370
3038L371:
3039*line 1537
3040*line 1538
3041move R7,R0
3042asl #3,R0
3043ext.l R0
3044add.l #_v_odtab,R0
3045move.l R0,R8
3046move 2(R8),R5
3047and #1023,R5
3048*line 1539
3049*line 1540
3050*line 1541
3051btst #9,R5
3052beq L372
3053*line 1541
3054or #-1024,R5
3055*line 1542
3056L372:
3057*line 1543
3058move R7,R0
3059asl #3,R0
3060ext.l R0
3061add.l #_v_odtab,R0
3062move.l R0,R8
3063move 2(R8),R6
3064move #10,R0
3065asr R0,R6
3066and #63,R6
3067*line 1544
3068*line 1545
3069*line 1546
3070move R7,R0
3071asl #3,R0
3072ext.l R0
3073add.l #_v_odtab,R0
3074move.l R0,R8
3075btst #3,(R8)
3076beq L10003
3077move.l #L374,(sp)
3078bra L10005
3079L10003:move.l #L375,(sp)
3080L10005:move R7,-(sp)
3081move.l #L373,-(sp)
3082jsr _printf
3083addq.l #6,sp
3084*line 1547
3085*line 1548
3086*line 1549
3087move R5,(sp)
3088move R6,-(sp)
3089move R7,R0
3090asl #3,R0
3091ext.l R0
3092move.l R0,R8
3093move.l #_v_odtab,R9
3094clr R0
3095move 4(R8,R9.l),R0
3096swap R0
3097clr R0
3098swap R0
3099asl.l #$1,R0
3100move.l R0,-(sp)
3101move.l #L376,-(sp)
3102jsr _printf
3103adda.l #10,sp
3104*line 1550
3105*line 1551
3106move R7,R0
3107asl #3,R0
3108ext.l R0
3109move.l R0,R8
3110move.l #_v_odtab,R9
3111move 0(R8,R9.l),(sp)
3112move.l #L377,-(sp)
3113jsr _printf
3114addq.l #4,sp
3115L369:
3116*line 1536
3117add #1,R7
3118L370:
3119*line 1536
3120cmp #16,R7
3121blt L371
3122L368:
3123*line 1554
3124move #1,R0
3125bra L366
3126L366:tst.l (sp)+
3127movem.l (sp)+,R5-R7
3128unlk R14
3129rts
3130.globl _cx_help
3131.text
3132_cx_help:
3133~~cx_help:
3134link R14,#-8
3135~i=-2
3136~j=-4
3137*line 1571
3138clr -4(R14)
3139*line 1573
3140move.l #L379,(sp)
3141move _cmdunit,-(sp)
3142jsr _writeln
3143addq.l #2,sp
3144*line 1575
3145clr -2(R14)
3146bra L382
3147L383:
3148*line 1576
3149*line 1577
3150*line 1577
3151cmp #22,-4(R14)
3152move sr,R0
3153add #1,-4(R14)
3154move R0,ccr
3155bne L384
3156*line 1578
3157*line 1579
3158clr -4(R14)
3159*line 1580
3160*line 1581
3161*line 1582
3162jsr _waitcr
3163tst R0
3164beq L385
3165*line 1582
3166move #1,R0
3167bra L378
3168L385:
3169*line 1583
3170*line 1584
3171L384:
3172*line 1585
3173move.l #L386,(sp)
3174move _cmdunit,-(sp)
3175jsr _writeln
3176addq.l #2,sp
3177*line 1586
3178move -2(R14),R0
3179asl #4,R0
3180ext.l R0
3181move.l R0,R8
3182move.l #_cmtab,R9
3183move.l 0(R8,R9.l),(sp)
3184move _cmdunit,-(sp)
3185jsr _writeln
3186addq.l #2,sp
3187*line 1587
3188move.l #L387,(sp)
3189move _cmdunit,-(sp)
3190jsr _writeln
3191addq.l #2,sp
3192*line 1588
3193move -2(R14),R0
3194asl #4,R0
3195ext.l R0
3196move.l R0,R8
3197move.l #_cmtab,R9
3198move.l 12(R8,R9.l),(sp)
3199move _cmdunit,-(sp)
3200jsr _writeln
3201addq.l #2,sp
3202*line 1589
3203move.l #L388,(sp)
3204move _cmdunit,-(sp)
3205jsr _writeln
3206addq.l #2,sp
3207L381:
3208*line 1575
3209add #1,-2(R14)
3210L382:
3211*line 1575
3212cmp #34,-2(R14)
3213blt L383
3214L380:
3215*line 1592
3216move.l #L389,(sp)
3217move _cmdunit,-(sp)
3218jsr _writeln
3219addq.l #2,sp
3220*line 1593
3221move #1,R0
3222bra L378
3223L378:unlk R14
3224rts
3225.globl _cx_bpb
3226.text
3227_cx_bpb:
3228~~cx_bpb:
3229link R14,#0
3230movem.l R7-R7/R13-R13,-(sp)
3231~bpp=R13
3232*line 1610
3233*line 1610
3234clr (sp)
3235move #7,-(sp)
3236jsr _trap13
3237addq.l #2,sp
3238move.l R0,R13
3239move.l R13,R0
3240bne L391
3241*line 1611
3242*line 1612
3243move.l #L392,(sp)
3244move _cmdunit,-(sp)
3245jsr _writeln
3246addq.l #2,sp
3247*line 1613
3248clr R0
3249bra L390
3250*line 1614
3251bra L393
3252L391:
3253*line 1615
3254*line 1616
3255*line 1617
3256move.l #L394,(sp)
3257move _cmdunit,-(sp)
3258jsr _writeln
3259addq.l #2,sp
3260*line 1618
3261move.l #L395,(sp)
3262move _cmdunit,-(sp)
3263jsr _writeln
3264addq.l #2,sp
3265*line 1619
3266move _cmdunit,(sp)
3267move #5,-(sp)
3268clr.l R0
3269move (R13),R0
3270move.l R0,-(sp)
3271jsr _putn
3272addq.l #6,sp
3273*line 1620
3274move.l #L396,(sp)
3275move _cmdunit,-(sp)
3276jsr _writeln
3277addq.l #2,sp
3278*line 1621
3279move _cmdunit,(sp)
3280move #4,-(sp)
3281clr.l R0
3282move 2(R13),R0
3283move.l R0,-(sp)
3284jsr _putn
3285addq.l #6,sp
3286*line 1622
3287move.l #L397,(sp)
3288move _cmdunit,-(sp)
3289jsr _writeln
3290addq.l #2,sp
3291*line 1623
3292move _cmdunit,(sp)
3293move #5,-(sp)
3294clr.l R0
3295move 4(R13),R0
3296move.l R0,-(sp)
3297jsr _putn
3298addq.l #6,sp
3299*line 1624
3300move.l #L398,(sp)
3301move _cmdunit,-(sp)
3302jsr _writeln
3303addq.l #2,sp
3304*line 1625
3305move _cmdunit,(sp)
3306move #4,-(sp)
3307clr.l R0
3308move 6(R13),R0
3309move.l R0,-(sp)
3310jsr _putn
3311addq.l #6,sp
3312*line 1626
3313move.l #L399,(sp)
3314move _cmdunit,-(sp)
3315jsr _writeln
3316addq.l #2,sp
3317*line 1627
3318move _cmdunit,(sp)
3319move #4,-(sp)
3320clr.l R0
3321move 8(R13),R0
3322move.l R0,-(sp)
3323jsr _putn
3324addq.l #6,sp
3325*line 1628
3326move.l #L400,(sp)
3327move _cmdunit,-(sp)
3328jsr _writeln
3329addq.l #2,sp
3330*line 1629
3331move _cmdunit,(sp)
3332move #5,-(sp)
3333clr.l R0
3334move 10(R13),R0
3335move.l R0,-(sp)
3336jsr _putn
3337addq.l #6,sp
3338*line 1630
3339move.l #L401,(sp)
3340move _cmdunit,-(sp)
3341jsr _writeln
3342addq.l #2,sp
3343*line 1631
3344move _cmdunit,(sp)
3345move #5,-(sp)
3346clr.l R0
3347move 12(R13),R0
3348move.l R0,-(sp)
3349jsr _putn
3350addq.l #6,sp
3351*line 1632
3352move.l #L402,(sp)
3353move _cmdunit,-(sp)
3354jsr _writeln
3355addq.l #2,sp
3356*line 1633
3357move _cmdunit,(sp)
3358move #5,-(sp)
3359clr.l R0
3360move 14(R13),R0
3361move.l R0,-(sp)
3362jsr _putn
3363addq.l #6,sp
3364*line 1634
3365move.l #L403,(sp)
3366move _cmdunit,-(sp)
3367jsr _writeln
3368addq.l #2,sp
3369*line 1635
3370move _cmdunit,(sp)
3371move #4,-(sp)
3372clr.l R0
3373move 16(R13),R0
3374move.l R0,-(sp)
3375jsr _puthn
3376addq.l #6,sp
3377*line 1636
3378move.l #L404,(sp)
3379move _cmdunit,-(sp)
3380jsr _writeln
3381addq.l #2,sp
3382*line 1637
3383move _cmdunit,(sp)
3384move #4,-(sp)
3385clr.l R0
3386move 18(R13),R0
3387move.l R0,-(sp)
3388jsr _putn
3389addq.l #6,sp
3390*line 1638
3391move.l #L405,(sp)
3392move _cmdunit,-(sp)
3393jsr _writeln
3394addq.l #2,sp
3395*line 1639
3396move _cmdunit,(sp)
3397move #4,-(sp)
3398clr.l R0
3399move 20(R13),R0
3400move.l R0,-(sp)
3401jsr _putn
3402addq.l #6,sp
3403*line 1640
3404move.l #L406,(sp)
3405move _cmdunit,-(sp)
3406jsr _writeln
3407addq.l #2,sp
3408*line 1641
3409move _cmdunit,(sp)
3410move #5,-(sp)
3411clr.l R0
3412move 22(R13),R0
3413move.l R0,-(sp)
3414jsr _putn
3415addq.l #6,sp
3416*line 1642
3417move.l #L407,(sp)
3418move _cmdunit,-(sp)
3419jsr _writeln
3420addq.l #2,sp
3421*line 1643
3422move _cmdunit,(sp)
3423move #5,-(sp)
3424clr.l R0
3425move 24(R13),R0
3426move.l R0,-(sp)
3427jsr _putn
3428addq.l #6,sp
3429*line 1644
3430move.l #L408,(sp)
3431move _cmdunit,-(sp)
3432jsr _writeln
3433addq.l #2,sp
3434*line 1645
3435move _cmdunit,(sp)
3436move #4,-(sp)
3437clr.l R0
3438move 26(R13),R0
3439move.l R0,-(sp)
3440jsr _putn
3441addq.l #6,sp
3442*line 1646
3443move.l #L409,(sp)
3444move _cmdunit,-(sp)
3445jsr _writeln
3446addq.l #2,sp
3447*line 1647
3448move #1,R0
3449bra L390
3450L393:L390:tst.l (sp)+
3451movem.l (sp)+,R13-R13
3452unlk R14
3453rts
3454.globl _cx_go
3455.text
3456_cx_go:
3457~~cx_go:
3458link R14,#-4
3459*line 1663
3460clr _redo
3461*line 1664
3462move #1,_exflag
3463*line 1665
3464clr _wzcrsh
3465*line 1667
3466*line 1668
3467tst _goflag
3468beq L411
3469*line 1668
3470move.l _regptr,R8
3471move.l _p_goto,68(R8)
3472*line 1669
3473L411:
3474*line 1670
3475*line 1670
3476tst _b0flag
3477beq L412
3478*line 1671
3479*line 1672
3480*line 1672
3481tst.l _p_ba0
3482beq L413
3483*line 1673
3484*line 1674
3485*line 1674
3486move.l _p_ba0,R8
3487cmp #20047,(R8)
3488beq L414
3489*line 1675
3490*line 1676
3491move.l #L415,(sp)
3492move _cmdunit,-(sp)
3493jsr _writeln
3494addq.l #2,sp
3495*line 1677
3496move _cmdunit,(sp)
3497move #8,-(sp)
3498move.l _p_ba0,-(sp)
3499jsr _puthn
3500addq.l #6,sp
3501*line 1678
3502move.l #L416,(sp)
3503move _cmdunit,-(sp)
3504jsr _writeln
3505addq.l #2,sp
3506*line 1679
3507move _cmdunit,(sp)
3508move #4,-(sp)
3509move.l _p_ba0,R8
3510clr R0
3511move (R8),R0
3512swap R0
3513clr R0
3514swap R0
3515and.l #$ffff,R0
3516move.l R0,-(sp)
3517jsr _puthn
3518addq.l #6,sp
3519*line 1680
3520move.l #L417,(sp)
3521move _cmdunit,-(sp)
3522jsr _writeln
3523addq.l #2,sp
3524*line 1681
3525move _cmdunit,(sp)
3526move #4,-(sp)
3527move.l #$4e4f,-(sp)
3528jsr _puthn
3529addq.l #6,sp
3530*line 1682
3531move.l #L418,(sp)
3532move _cmdunit,-(sp)
3533jsr _writeln
3534addq.l #2,sp
3535*line 1683
3536*line 1684
3537L414:
3538*line 1685
3539move.l _p_ba0,R8
3540move _p_bv0,(R8)
3541*line 1686
3542*line 1687
3543L413:
3544*line 1688
3545move.l _tba0,_p_ba0
3546*line 1689
3547move.l _p_ba0,R8
3548move (R8),_p_bv0
3549*line 1690
3550move.l _p_ba0,R8
3551move #20047,(R8)
3552*line 1691
3553*line 1692
3554*line 1693
3555*line 1694
3556*line 1695
3557L412:
3558*line 1696
3559*line 1696
3560tst _b1flag
3561beq L419
3562*line 1697
3563*line 1698
3564*line 1698
3565tst.l _p_ba1
3566beq L420
3567*line 1699
3568*line 1700
3569*line 1700
3570move.l _p_ba1,R8
3571cmp #20047,(R8)
3572beq L421
3573*line 1701
3574*line 1702
3575move.l #L422,(sp)
3576move _cmdunit,-(sp)
3577jsr _writeln
3578addq.l #2,sp
3579*line 1703
3580move _cmdunit,(sp)
3581move #8,-(sp)
3582move.l _p_ba1,-(sp)
3583jsr _puthn
3584addq.l #6,sp
3585*line 1704
3586move.l #L423,(sp)
3587move _cmdunit,-(sp)
3588jsr _writeln
3589addq.l #2,sp
3590*line 1705
3591move _cmdunit,(sp)
3592move #4,-(sp)
3593move.l _p_ba1,R8
3594clr R0
3595move (R8),R0
3596swap R0
3597clr R0
3598swap R0
3599and.l #$ffff,R0
3600move.l R0,-(sp)
3601jsr _puthn
3602addq.l #6,sp
3603*line 1706
3604move.l #L424,(sp)
3605move _cmdunit,-(sp)
3606jsr _writeln
3607addq.l #2,sp
3608*line 1707
3609move _cmdunit,(sp)
3610move #4,-(sp)
3611move.l #$4e4f,-(sp)
3612jsr _puthn
3613addq.l #6,sp
3614*line 1708
3615move.l #L425,(sp)
3616move _cmdunit,-(sp)
3617jsr _writeln
3618addq.l #2,sp
3619*line 1709
3620*line 1710
3621L421:
3622*line 1711
3623move.l _p_ba1,R8
3624move _p_bv1,(R8)
3625*line 1712
3626*line 1713
3627L420:
3628*line 1714
3629move.l _tba1,_p_ba1
3630*line 1715
3631move.l _p_ba1,R8
3632move (R8),_p_bv1
3633*line 1716
3634move.l _p_ba1,R8
3635move #20047,(R8)
3636*line 1717
3637*line 1718
3638L419:
3639*line 1719
3640move #1,R0
3641bra L410
3642L410:unlk R14
3643rts
3644.globl _cp_dump
3645.text
3646_cp_dump:
3647~~cp_dump:
3648link R14,#-4
3649*line 1734
3650move _ilast,_inext
3651*line 1736
3652*line 1737
3653jsr _getarg
3654tst R0
3655beq L427
3656*line 1737
3657*line 1737
3658move.l _p_from,(sp)
3659move.l #_p_from,-(sp)
3660jsr _setvar
3661addq.l #4,sp
3662tst R0
3663bne L428
3664*line 1738
3665*line 1739
3666clr _redo
3667*line 1740
3668clr R0
3669bra L426
3670*line 1741
3671*line 1742
3672L428:L427:
3673*line 1743
3674*line 1743
3675cmp.b #13,_argsep
3676beq L10006
3677tst.b _argsep
3678bne L429
3679L10006:*line 1744
3680*line 1745
3681move.l _p_from,_p_to
3682*line 1746
3683move.l #$10,_p_width
3684*line 1747
3685move #1,_redo
3686*line 1748
3687move #1,R0
3688bra L426
3689*line 1749
3690*line 1750
3691L429:
3692*line 1751
3693*line 1752
3694jsr _getarg
3695tst R0
3696beq L430
3697*line 1752
3698*line 1752
3699move.l _p_to,(sp)
3700move.l #_p_to,-(sp)
3701jsr _setvar
3702addq.l #4,sp
3703tst R0
3704bne L431
3705*line 1753
3706*line 1754
3707clr _redo
3708*line 1755
3709clr R0
3710bra L426
3711*line 1756
3712*line 1757
3713L431:L430:
3714*line 1758
3715*line 1758
3716cmp.b #13,_argsep
3717beq L10007
3718tst.b _argsep
3719bne L432
3720L10007:*line 1759
3721*line 1760
3722move.l #$10,_p_width
3723*line 1761
3724move #1,_redo
3725*line 1762
3726move #1,R0
3727bra L426
3728*line 1763
3729*line 1764
3730L432:
3731*line 1765
3732*line 1766
3733jsr _getarg
3734tst R0
3735beq L433
3736*line 1766
3737*line 1766
3738move.l _p_width,(sp)
3739move.l #_p_width,-(sp)
3740jsr _setvar
3741addq.l #4,sp
3742tst R0
3743bne L434
3744*line 1767
3745*line 1768
3746clr _redo
3747*line 1769
3748clr R0
3749bra L426
3750*line 1770
3751*line 1771
3752L434:L433:
3753*line 1772
3754*line 1772
3755tst.l _p_width
3756ble L10008
3757cmp.l #$10,_p_width
3758ble L435
3759L10008:*line 1773
3760*line 1774
3761move.l #$10,_p_width
3762*line 1775
3763clr _redo
3764*line 1776
3765clr R0
3766bra L426
3767*line 1777
3768*line 1778
3769L435:
3770*line 1779
3771move #1,_redo
3772*line 1780
3773move #1,R0
3774bra L426
3775L426:unlk R14
3776rts
3777.globl _cp_fill
3778.text
3779_cp_fill:
3780~~cp_fill:
3781link R14,#-4
3782*line 1795
3783clr _redo
3784*line 1797
3785*line 1798
3786jsr _getarg
3787tst R0
3788beq L437
3789*line 1798
3790*line 1799
3791move.l _p_from,(sp)
3792move.l #_p_from,-(sp)
3793jsr _setvar
3794addq.l #4,sp
3795tst R0
3796bne L438
3797*line 1799
3798clr R0
3799bra L436
3800*line 1800
3801L438:L437:
3802*line 1801
3803*line 1802
3804jsr _getarg
3805tst R0
3806beq L439
3807*line 1802
3808*line 1803
3809move.l _p_len,(sp)
3810move.l #_p_len,-(sp)
3811jsr _setvar
3812addq.l #4,sp
3813tst R0
3814bne L440
3815*line 1803
3816clr R0
3817bra L436
3818*line 1804
3819L440:L439:
3820*line 1805
3821*line 1806
3822jsr _getarg
3823tst R0
3824beq L441
3825*line 1806
3826*line 1807
3827move.l _p_value,(sp)
3828move.l #_p_value,-(sp)
3829jsr _setvar
3830addq.l #4,sp
3831tst R0
3832bne L442
3833*line 1807
3834clr R0
3835bra L436
3836*line 1808
3837L442:L441:
3838*line 1809
3839*line 1810
3840move.l _p_value,R0
3841and.l #$ffffff00,R0
3842beq L443
3843*line 1810
3844clr R0
3845bra L436
3846*line 1811
3847L443:
3848*line 1812
3849move #1,R0
3850bra L436
3851L436:unlk R14
3852rts
3853.globl _cp_wfil
3854.text
3855_cp_wfil:
3856~~cp_wfil:
3857link R14,#-4
3858*line 1827
3859clr _redo
3860*line 1829
3861*line 1830
3862jsr _getarg
3863tst R0
3864beq L445
3865*line 1830
3866*line 1831
3867move.l _p_from,(sp)
3868move.l #_p_from,-(sp)
3869jsr _setvar
3870addq.l #4,sp
3871tst R0
3872bne L446
3873*line 1831
3874clr R0
3875bra L444
3876*line 1832
3877L446:L445:
3878*line 1833
3879*line 1834
3880jsr _getarg
3881tst R0
3882beq L447
3883*line 1834
3884*line 1835
3885move.l _p_len,(sp)
3886move.l #_p_len,-(sp)
3887jsr _setvar
3888addq.l #4,sp
3889tst R0
3890bne L448
3891*line 1835
3892clr R0
3893bra L444
3894*line 1836
3895L448:L447:
3896*line 1837
3897*line 1838
3898jsr _getarg
3899tst R0
3900beq L449
3901*line 1838
3902*line 1839
3903move.l _p_value,(sp)
3904move.l #_p_value,-(sp)
3905jsr _setvar
3906addq.l #4,sp
3907tst R0
3908bne L450
3909*line 1839
3910clr R0
3911bra L444
3912*line 1840
3913L450:L449:
3914*line 1841
3915*line 1842
3916btst #0,3+_p_from
3917beq L451
3918*line 1842
3919clr R0
3920bra L444
3921*line 1843
3922L451:
3923*line 1844
3924*line 1845
3925move.l _p_value,R0
3926and.l #$ffff0000,R0
3927beq L452
3928*line 1845
3929clr R0
3930bra L444
3931*line 1846
3932L452:
3933*line 1847
3934move #1,R0
3935bra L444
3936L444:unlk R14
3937rts
3938.globl _cp_copy
3939.text
3940_cp_copy:
3941~~cp_copy:
3942link R14,#-4
3943*line 1862
3944clr _redo
3945*line 1864
3946*line 1865
3947jsr _getarg
3948tst R0
3949beq L454
3950*line 1865
3951*line 1866
3952move.l _p_from,(sp)
3953move.l #_p_from,-(sp)
3954jsr _setvar
3955addq.l #4,sp
3956tst R0
3957bne L455
3958*line 1866
3959clr R0
3960bra L453
3961*line 1867
3962L455:L454:
3963*line 1868
3964*line 1869
3965jsr _getarg
3966tst R0
3967beq L456
3968*line 1869
3969*line 1870
3970move.l _p_to,(sp)
3971move.l #_p_to,-(sp)
3972jsr _setvar
3973addq.l #4,sp
3974tst R0
3975bne L457
3976*line 1870
3977clr R0
3978bra L453
3979*line 1871
3980L457:L456:
3981*line 1872
3982*line 1873
3983jsr _getarg
3984tst R0
3985beq L458
3986*line 1873
3987*line 1874
3988move.l _p_len,(sp)
3989move.l #_p_len,-(sp)
3990jsr _setvar
3991addq.l #4,sp
3992tst R0
3993bne L459
3994*line 1874
3995clr R0
3996bra L453
3997*line 1875
3998L459:L458:
3999*line 1876
4000move #1,R0
4001bra L453
4002L453:unlk R14
4003rts
4004.globl _cp_chek
4005.text
4006_cp_chek:
4007~~cp_chek:
4008link R14,#-4
4009*line 1890
4010clr _redo
4011*line 1892
4012*line 1893
4013jsr _getarg
4014tst R0
4015beq L461
4016*line 1893
4017*line 1894
4018move.l _p_from,(sp)
4019move.l #_p_from,-(sp)
4020jsr _setvar
4021addq.l #4,sp
4022tst R0
4023bne L462
4024*line 1894
4025clr R0
4026bra L460
4027*line 1895
4028L462:L461:
4029*line 1896
4030*line 1897
4031jsr _getarg
4032tst R0
4033beq L463
4034*line 1897
4035*line 1898
4036move.l _p_to,(sp)
4037move.l #_p_to,-(sp)
4038jsr _setvar
4039addq.l #4,sp
4040tst R0
4041bne L464
4042*line 1898
4043clr R0
4044bra L460
4045*line 1899
4046L464:L463:
4047*line 1900
4048move #1,R0
4049bra L460
4050L460:unlk R14
4051rts
4052.globl _cp_read
4053.text
4054_cp_read:
4055~~cp_read:
4056link R14,#-4
4057*line 1915
4058clr _redo
4059*line 1917
4060*line 1918
4061jsr _getarg
4062tst R0
4063beq L466
4064*line 1918
4065*line 1919
4066move.l _p_from,(sp)
4067move.l #_p_from,-(sp)
4068jsr _setvar
4069addq.l #4,sp
4070tst R0
4071bne L467
4072*line 1919
4073clr R0
4074bra L465
4075*line 1920
4076L467:L466:
4077*line 1921
4078*line 1922
4079jsr _getarg
4080tst R0
4081beq L468
4082*line 1922
4083*line 1923
4084move.l _p_to,(sp)
4085move.l #_p_to,-(sp)
4086jsr _setvar
4087addq.l #4,sp
4088tst R0
4089bne L469
4090*line 1923
4091clr R0
4092bra L465
4093*line 1924
4094L469:L468:
4095*line 1925
4096*line 1926
4097jsr _getarg
4098tst R0
4099beq L470
4100*line 1926
4101*line 1927
4102move.l _p_len,(sp)
4103move.l #_p_len,-(sp)
4104jsr _setvar
4105addq.l #4,sp
4106tst R0
4107bne L471
4108*line 1927
4109clr R0
4110bra L465
4111*line 1928
4112L471:L470:
4113*line 1929
4114*line 1930
4115move.l _p_len,R0
4116and.l #$ffff8000,R0
4117beq L472
4118*line 1930
4119clr R0
4120bra L465
4121*line 1931
4122L472:
4123*line 1932
4124*line 1933
4125move.l _p_from,R0
4126and.l #$ffff0000,R0
4127beq L473
4128*line 1933
4129clr R0
4130bra L465
4131*line 1934
4132L473:
4133*line 1935
4134move #1,R0
4135bra L465
4136L465:unlk R14
4137rts
4138.globl _cp_null
4139.text
4140_cp_null:
4141~~cp_null:
4142link R14,#-4
4143*line 1947
4144move #1,R0
4145bra L474
4146L474:unlk R14
4147rts
4148.globl _cp_rset
4149.text
4150_cp_rset:
4151~~cp_rset:
4152link R14,#-6
4153~rc=-2
4154*line 1964
4155clr -2(R14)
4156*line 1965
4157clr _redo
4158*line 1967
4159*line 1968
4160jsr _getarg
4161tst R0
4162bne L476
4163*line 1968
4164clr R0
4165bra L475
4166*line 1969
4167L476:
4168*line 1970
4169move.l #_argstr,(sp)
4170jsr _str2lc
4171*line 1972
4172*line 1973
4173move.l #_rlist,(sp)
4174move.l #_argstr,-(sp)
4175jsr _strlcmp
4176addq.l #4,sp
4177move R0,-2(R14)
4178bne L477
4179*line 1973
4180clr R0
4181bra L475
4182*line 1974
4183L477:
4184*line 1975
4185*line 1976
4186jsr _getarg
4187tst R0
4188bne L478
4189*line 1976
4190clr R0
4191bra L475
4192*line 1977
4193L478:
4194*line 1978
4195*line 1979
4196clr.l (sp)
4197move.l #_p_value,-(sp)
4198jsr _setvar
4199addq.l #4,sp
4200tst R0
4201bne L479
4202*line 1979
4203clr R0
4204bra L475
4205*line 1980
4206L479:
4207*line 1981
4208move -2(R14),_rnum
4209*line 1982
4210move #1,R0
4211bra L475
4212L475:unlk R14
4213rts
4214.globl _cx_chek
4215.text
4216_cx_chek:
4217~~cx_chek:
4218link R14,#0
4219movem.l R6-R7/R13-R13,-(sp)
4220~csum=R7
4221~cp=R13
4222*line 1999
4223clr _redo
4224*line 2000
4225clr.l R7
4226*line 2002
4227move.l _p_from,R13
4228bra L483
4229L484:
4230*line 2003
4231move.b (R13),R0
4232ext.w R0
4233ext.l R0
4234and.l #$ff,R0
4235add.l R0,R7
4236L482:
4237*line 2002
4238add.l #1,R13
4239L483:
4240*line 2002
4241cmp.l _p_to,R13
4242bls L484
4243L481:
4244*line 2005
4245move.l R7,(sp)
4246move.l #L485,-(sp)
4247jsr _printf
4248addq.l #4,sp
4249*line 2007
4250move #1,R0
4251bra L480
4252L480:tst.l (sp)+
4253movem.l (sp)+,R7-R7/R13-R13
4254unlk R14
4255rts
4256.globl _cx_rset
4257.text
4258_cx_rset:
4259~~cx_rset:
4260link R14,#-4
4261*line 2022
4262clr _redo
4263*line 2024
4264*line 2025
4265cmp #1,_rnum
4266bge L487
4267*line 2025
4268clr R0
4269bra L486
4270*line 2026
4271L487:
4272*line 2027
4273*line 2027
4274cmp #9,_rnum
4275bge L488
4276*line 2028
4277*line 2029
4278move _rnum,R8
4279sub #1,R8
4280add.l R8,R8
4281add.l R8,R8
4282add.l _regptr,R8
4283move.l _p_value,(R8)
4284*line 2030
4285move #1,R0
4286bra L486
4287*line 2031
4288*line 2032
4289L488:
4290*line 2033
4291*line 2033
4292cmp #17,_rnum
4293bge L489
4294*line 2034
4295*line 2035
4296move _rnum,R8
4297add #-9,R8
4298add.l R8,R8
4299add.l R8,R8
4300add.l _regptr,R8
4301move.l _p_value,32(R8)
4302*line 2036
4303move #1,R0
4304bra L486
4305*line 2037
4306*line 2038
4307*line 2039
4308*line 2040
4309*line 2041
4310L489:
4311*line 2042
4312*line 2042
4313cmp #17,_rnum
4314bne L490
4315*line 2043
4316*line 2044
4317*line 2045
4318move.l _p_value,R0
4319and.l #$ffff0000,R0
4320beq L491
4321*line 2045
4322clr R0
4323bra L486
4324*line 2046
4325L491:
4326*line 2047
4327move.l _p_value,R0
4328move.l _regptr,R9
4329move R0,66(R9)
4330*line 2048
4331move #1,R0
4332bra L486
4333*line 2049
4334*line 2050
4335L490:
4336*line 2051
4337*line 2051
4338cmp #18,_rnum
4339bne L492
4340*line 2052
4341*line 2053
4342*line 2054
4343btst #0,3+_p_value
4344beq L493
4345*line 2054
4346clr R0
4347bra L486
4348*line 2055
4349L493:
4350*line 2056
4351move.l _regptr,R8
4352move.l _p_value,68(R8)
4353*line 2057
4354move #1,R0
4355bra L486
4356*line 2058
4357*line 2059
4358L492:
4359*line 2060
4360*line 2060
4361cmp #19,_rnum
4362bne L494
4363*line 2061
4364*line 2062
4365*line 2063
4366btst #0,3+_p_value
4367beq L495
4368*line 2063
4369clr R0
4370bra L486
4371*line 2064
4372L495:
4373*line 2065
4374move.l _regptr,R8
4375move.l _p_value,60(R8)
4376*line 2066
4377move #1,R0
4378bra L486
4379*line 2067
4380*line 2068
4381L494:
4382*line 2069
4383clr R0
4384bra L486
4385L486:unlk R14
4386rts
4387.globl _cp_vrst
4388.text
4389_cp_vrst:
4390~~cp_vrst:
4391link R14,#-6
4392~rc=-2
4393*line 2086
4394clr -2(R14)
4395*line 2087
4396clr _redo
4397*line 2089
4398*line 2090
4399jsr _getarg
4400tst R0
4401bne L497
4402*line 2090
4403clr R0
4404bra L496
4405*line 2091
4406L497:
4407*line 2092
4408move.l #_argstr,(sp)
4409jsr _str2lc
4410*line 2094
4411*line 2095
4412move.l #_vrlist,(sp)
4413move.l #_argstr,-(sp)
4414jsr _strlcmp
4415addq.l #4,sp
4416move R0,-2(R14)
4417bne L498
4418*line 2095
4419clr R0
4420bra L496
4421*line 2096
4422L498:
4423*line 2097
4424*line 2098
4425jsr _getarg
4426tst R0
4427bne L499
4428*line 2098
4429clr R0
4430bra L496
4431*line 2099
4432L499:
4433*line 2100
4434*line 2101
4435clr.l (sp)
4436move.l #_p_value,-(sp)
4437jsr _setvar
4438addq.l #4,sp
4439tst R0
4440bne L500
4441*line 2101
4442clr R0
4443bra L496
4444*line 2102
4445L500:
4446*line 2103
4447*line 2103
4448cmp #17,_vrnum
4449bge L501
4450*line 2104
4451*line 2105
4452move -2(R14),_vrnum
4453*line 2106
4454move #1,R0
4455bra L496
4456*line 2107
4457*line 2108
4458L501:
4459*line 2109
4460*line 2109
4461cmp #21,_vrnum
4462bge L502
4463*line 2110
4464*line 2111
4465*line 2112
4466move.l _p_value,R0
4467and.l #$ffffffc0,R0
4468beq L503
4469*line 2112
4470clr R0
4471bra L496
4472*line 2113
4473L503:
4474*line 2114
4475move -2(R14),_vrnum
4476*line 2115
4477move #1,R0
4478bra L496
4479*line 2116
4480*line 2117
4481L502:
4482*line 2118
4483*line 2118
4484cmp #25,_vrnum
4485bge L504
4486*line 2119
4487*line 2120
4488*line 2121
4489move.l _p_value,R0
4490and.l #$fffffc00,R0
4491beq L505
4492*line 2121
4493clr R0
4494bra L496
4495*line 2122
4496L505:
4497*line 2123
4498move -2(R14),_vrnum
4499*line 2124
4500move #1,R0
4501bra L496
4502*line 2125
4503*line 2126
4504L504:
4505*line 2127
4506clr R0
4507bra L496
4508L496:unlk R14
4509rts
4510.globl _cx_vrst
4511.text
4512_cx_vrst:
4513~~cx_vrst:
4514link R14,#-4
4515*line 2142
4516clr _redo
4517*line 2144
4518*line 2145
4519cmp #1,_vrnum
4520bge L507
4521*line 2145
4522clr R0
4523bra L506
4524*line 2146
4525L507:
4526*line 2147
4527*line 2147
4528cmp #17,_vrnum
4529bge L508
4530*line 2148
4531*line 2149
4532move.l _p_value,R0
4533move _vrnum,R9
4534sub #1,R9
4535add.l R9,R9
4536add.l #_v_regs,R9
4537move R0,(R9)
4538*line 2150
4539move #1,R0
4540bra L506
4541*line 2151
4542*line 2152
4543L508:
4544*line 2153
4545*line 2153
4546cmp #21,_vrnum
4547bge L509
4548*line 2154
4549*line 2155
4550*line 2156
4551move _vrnum,R8
4552sub #5,R8
4553add.l R8,R8
4554move.l #_v_regs,R9
4555clr R0
4556move 0(R8,R9.l),R0
4557and #1023,R0
4558swap R0
4559clr R0
4560swap R0
4561move.l _p_value,R1
4562move.l #$a,R2
4563asl.l R2,R1
4564and.l #$fffffc00,R1
4565or.l R1,R0
4566move _vrnum,R9
4567sub #5,R9
4568add.l R9,R9
4569add.l #_v_regs,R9
4570move R0,(R9)
4571*line 2157
4572move #1,R0
4573bra L506
4574*line 2158
4575*line 2159
4576L509:
4577*line 2160
4578*line 2160
4579cmp #25,_vrnum
4580bge L510
4581*line 2161
4582*line 2162
4583move _vrnum,R8
4584add #-9,R8
4585add.l R8,R8
4586move.l #_v_regs,R9
4587clr R0
4588move 0(R8,R9.l),R0
4589and #-1024,R0
4590swap R0
4591clr R0
4592swap R0
4593or.l _p_value,R0
4594move _vrnum,R9
4595add #-9,R9
4596add.l R9,R9
4597add.l #_v_regs,R9
4598move R0,(R9)
4599*line 2163
4600move #1,R0
4601bra L506
4602*line 2164
4603*line 2165
4604L510:
4605*line 2166
4606clr R0
4607bra L506
4608L506:unlk R14
4609rts
4610.globl _cx_vreg
4611.text
4612_cx_vreg:
4613~~cx_vreg:
4614link R14,#0
4615movem.l R3-R7/R13-R13,-(sp)
4616~i=R7
4617~j=R6
4618~k=R5
4619~l=R4
4620~rp=R13
4621*line 2184
4622move.l #_v_regs,R13
4623*line 2185
4624clr R4
4625*line 2187
4626clr R7
4627bra L514
4628L515:
4629*line 2188
4630*line 2189
4631clr R6
4632bra L518
4633L519:
4634*line 2190
4635*line 2191
4636clr R5
4637bra L522
4638L523:
4639*line 2192
4640*line 2193
4641move.l #L524,(sp)
4642move _cmdunit,-(sp)
4643jsr _writeln
4644addq.l #2,sp
4645*line 2194
4646move _cmdunit,(sp)
4647move #2,-(sp)
4648move R4,R8
4649move.l R8,-(sp)
4650jsr _putn
4651addq.l #6,sp
4652add #1,R4
4653*line 2195
4654move.l #L525,(sp)
4655move _cmdunit,-(sp)
4656jsr _writeln
4657addq.l #2,sp
4658*line 2196
4659move _cmdunit,(sp)
4660move #4,-(sp)
4661clr.l R0
4662move (R13)+,R0
4663move.l R0,-(sp)
4664jsr _puthn
4665addq.l #6,sp
4666L521:
4667*line 2191
4668add #1,R5
4669L522:
4670*line 2191
4671cmp #4,R5
4672blt L523
4673L520:
4674*line 2197
4675*line 2198
4676*line 2199
4677move.l #L526,(sp)
4678move _cmdunit,-(sp)
4679jsr _writeln
4680addq.l #2,sp
4681L517:
4682*line 2189
4683add #1,R6
4684L518:
4685*line 2189
4686cmp #2,R6
4687blt L519
4688L516:
4689*line 2200
4690*line 2201
4691*line 2202
4692move.l #L527,(sp)
4693move _cmdunit,-(sp)
4694jsr _writeln
4695addq.l #2,sp
4696L513:
4697*line 2187
4698add #1,R7
4699L514:
4700*line 2187
4701cmp #2,R7
4702blt L515
4703L512:
4704*line 2205
4705move #1,R0
4706bra L511
4707L511:tst.l (sp)+
4708movem.l (sp)+,R4-R7/R13-R13
4709unlk R14
4710rts
4711.globl _do_srec
4712.text
4713_do_srec:
4714~~do_srec:
4715~line=R13
4716link R14,#0
4717movem.l R2-R7/R12-R13,-(sp)
4718~ldadr=R12
4719~c=R7
4720~csum=R6
4721~i=R5
4722~len=R4
4723~val=R3
4724*line 2225
4725move.l 8(R14),R13
4726*line 2225
4727*line 2226
4728move.b (R13)+,R7
4729ext.w R7
4730cmp #83,R7
4731beq L529
4732*line 2226
4733move #-1,R0
4734bra L528
4735*line 2227
4736L529:
4737*line 2228
4738move.b (R13)+,R7
4739ext.w R7
4740move R7,R0
4741bra L531
4742*line 2229
4743L532:
4744*line 2230
4745*line 2231
4746*line 2232
4747clr R6
4748*line 2233
4749*line 2234
4750*line 2235
4751move.b (R13)+,R7
4752ext.w R7
4753move R7,R8
4754add.l #___atab,R8
4755btst #7,(R8)
4756beq L533
4757*line 2235
4758move R7,(sp)
4759jsr _xdtoi
4760move R0,R4
4761*line 2236
4762bra L534
4763L533:
4764*line 2237
4765move #-2,R0
4766bra L528
4767L534:
4768*line 2238
4769*line 2239
4770*line 2240
4771move.b (R13)+,R7
4772ext.w R7
4773move R7,R8
4774add.l #___atab,R8
4775btst #7,(R8)
4776beq L535
4777*line 2240
4778move R7,(sp)
4779jsr _xdtoi
4780move R4,R1
4781asl #4,R1
4782add R1,R0
4783move R0,R4
4784*line 2241
4785bra L536
4786L535:
4787*line 2242
4788move #-2,R0
4789bra L528
4790L536:
4791*line 2243
4792*line 2244
4793move R4,R0
4794and #255,R0
4795add R0,R6
4796*line 2245
4797clr.l R12
4798*line 2246
4799sub #4,R4
4800*line 2247
4801*line 2248
4802clr R5
4803bra L539
4804L540:
4805*line 2249
4806*line 2250
4807*line 2251
4808move.b (R13)+,R7
4809ext.w R7
4810move R7,R8
4811add.l #___atab,R8
4812btst #7,(R8)
4813beq L541
4814*line 2251
4815move R7,(sp)
4816jsr _xdtoi
4817move R0,R3
4818*line 2252
4819bra L542
4820L541:
4821*line 2253
4822move #-3,R0
4823bra L528
4824L542:
4825*line 2254
4826*line 2255
4827*line 2256
4828move.b (R13)+,R7
4829ext.w R7
4830move R7,R8
4831add.l #___atab,R8
4832btst #7,(R8)
4833beq L543
4834*line 2256
4835move R7,(sp)
4836jsr _xdtoi
4837clr R1
4838move R3,R1
4839lsl #4,R1
4840add R1,R0
4841move R0,R3
4842*line 2257
4843bra L544
4844L543:
4845*line 2258
4846move #-3,R0
4847bra L528
4848L544:
4849*line 2259
4850*line 2260
4851move.l R12,R0
4852asl.l #$8,R0
4853move.l R0,R12
4854clr.l R0
4855move R3,R0
4856add.l R0,R12
4857*line 2261
4858clr R0
4859move R3,R0
4860and #255,R0
4861add R0,R6
4862L538:
4863*line 2248
4864add #1,R5
4865L539:
4866*line 2248
4867cmp #3,R5
4868blt L540
4869L537:
4870*line 2262
4871*line 2263
4872*line 2264
4873clr R5
4874bra L547
4875L548:
4876*line 2265
4877*line 2266
4878*line 2267
4879move.b (R13)+,R7
4880ext.w R7
4881move R7,R8
4882add.l #___atab,R8
4883btst #7,(R8)
4884beq L549
4885*line 2267
4886move R7,(sp)
4887jsr _xdtoi
4888move R0,R3
4889*line 2268
4890bra L550
4891L549:
4892*line 2269
4893move #-4,R0
4894bra L528
4895L550:
4896*line 2270
4897*line 2271
4898*line 2272
4899move.b (R13)+,R7
4900ext.w R7
4901move R7,R8
4902add.l #___atab,R8
4903btst #7,(R8)
4904beq L551
4905*line 2272
4906move R7,(sp)
4907jsr _xdtoi
4908clr R1
4909move R3,R1
4910lsl #4,R1
4911add R1,R0
4912move R0,R3
4913*line 2273
4914bra L552
4915L551:
4916*line 2274
4917move #-4,R0
4918bra L528
4919L552:
4920*line 2275
4921*line 2276
4922clr R0
4923move R3,R0
4924and #255,R0
4925add R0,R6
4926*line 2277
4927clr R0
4928move R3,R0
4929and #255,R0
4930move.b R0,(R12)
4931*line 2278
4932*line 2279
4933*line 2280
4934move.b (R12),R0
4935ext.w R0
4936and #255,R0
4937clr R1
4938move R3,R1
4939and #255,R1
4940cmp R1,R0
4941beq L553
4942*line 2280
4943move #-5,R0
4944bra L528
4945*line 2281
4946L553:
4947*line 2282
4948add.l #1,R12
4949L546:
4950*line 2264
4951add #1,R5
4952L547:
4953*line 2264
4954cmp R4,R5
4955blt L548
4956L545:
4957*line 2283
4958*line 2284
4959*line 2285
4960move R6,R0
4961not R0
4962move R0,R6
4963and #255,R6
4964*line 2286
4965*line 2287
4966*line 2288
4967move.b (R13)+,R7
4968ext.w R7
4969move R7,R8
4970add.l #___atab,R8
4971btst #7,(R8)
4972beq L554
4973*line 2288
4974move R7,(sp)
4975jsr _xdtoi
4976move R0,R3
4977*line 2289
4978bra L555
4979L554:
4980*line 2290
4981move #-6,R0
4982bra L528
4983L555:
4984*line 2291
4985*line 2292
4986*line 2293
4987move.b (R13)+,R7
4988ext.w R7
4989move R7,R8
4990add.l #___atab,R8
4991btst #7,(R8)
4992beq L556
4993*line 2293
4994move R7,(sp)
4995jsr _xdtoi
4996clr R1
4997move R3,R1
4998lsl #4,R1
4999add R1,R0
5000move R0,R3
5001*line 2294
5002bra L557
5003L556:
5004*line 2295
5005move #-6,R0
5006bra L528
5007L557:
5008*line 2296
5009*line 2297
5010*line 2298
5011clr R0
5012move R3,R0
5013and #255,R0
5014cmp R0,R6
5015beq L558
5016*line 2298
5017move #-7,R0
5018bra L528
5019*line 2299
5020L558:
5021*line 2300
5022move #1,R0
5023bra L528
5024*line 2301
5025L559:
5026*line 2302
5027*line 2303
5028*line 2304
5029*line 2305
5030move #10,(sp)
5031move.l #L560,-(sp)
5032move.l R13,-(sp)
5033jsr _memcmpu
5034addq.l #8,sp
5035tst R0
5036bne L561
5037*line 2305
5038clr R0
5039bra L528
5040*line 2306
5041bra L562
5042L561:
5043*line 2307
5044move #-8,R0
5045bra L528
5046L562:
5047*line 2308
5048L563:
5049*line 2309
5050*line 2310
5051*line 2311
5052move #-9,R0
5053bra L528
5054bra L530
5055L531:cmp #50,R0
5056beq L532
5057cmp #57,R0
5058beq L559
5059bra L563
5060L530:
5061*line 2314
5062move #-10,R0
5063bra L528
5064L528:tst.l (sp)+
5065movem.l (sp)+,R3-R7/R12-R13
5066unlk R14
5067rts
5068.globl _cx_load
5069.text
5070_cx_load:
5071~~cx_load:
5072link R14,#0
5073movem.l R6-R7,-(sp)
5074~rc=R7
5075*line 2331
5076L567:
5077*line 2332
5078*line 2333
5079move.l #_cmdline,(sp)
5080move #128,-(sp)
5081move _cmdunit,-(sp)
5082jsr _getrln
5083addq.l #4,sp
5084move R0,R7
5085*line 2334
5086*line 2335
5087move R7,R0
5088bra L569
5089*line 2336
5090L570:
5091*line 2337
5092*line 2338
5093*line 2339
5094move.l #_cmdline,(sp)
5095jsr _do_srec
5096move R0,R7
5097*line 2340
5098*line 2341
5099*line 2341
5100tst R7
5101bge L571
5102*line 2342
5103*line 2343
5104move R7,R0
5105neg R0
5106move R0,R7
5107*line 2344
5108move.l #L572,(sp)
5109move _cmdunit,-(sp)
5110jsr _writeln
5111addq.l #2,sp
5112*line 2345
5113move.l #L573,(sp)
5114move _cmdunit,-(sp)
5115jsr _writeln
5116addq.l #2,sp
5117*line 2346
5118move _cmdunit,(sp)
5119move #3,-(sp)
5120move R7,R8
5121move.l R8,-(sp)
5122jsr _putn
5123addq.l #6,sp
5124*line 2347
5125move.l #L574,(sp)
5126move _cmdunit,-(sp)
5127jsr _writeln
5128addq.l #2,sp
5129*line 2348
5130clr R0
5131bra L564
5132*line 2349
5133bra L575
5134L571:
5135*line 2350
5136*line 2351
5137*line 2352
5138move.l #L576,(sp)
5139move _cmdunit,-(sp)
5140jsr _writeln
5141addq.l #2,sp
5142L575:
5143*line 2353
5144*line 2354
5145bra L566
5146*line 2355
5147*line 2356
5148L577:
5149*line 2357
5150*line 2358
5151*line 2359
5152move #1,R7
5153*line 2360
5154move.l #L578,(sp)
5155move _cmdunit,-(sp)
5156jsr _writeln
5157addq.l #2,sp
5158bra L566
5159*line 2361
5160*line 2362
5161*line 2363
5162*line 2364
5163*line 2365
5164L579:
5165*line 2366
5166*line 2367
5167*line 2368
5168move.l #L580,(sp)
5169move _cmdunit,-(sp)
5170jsr _writeln
5171addq.l #2,sp
5172*line 2369
5173move.l #L581,(sp)
5174move _cmdunit,-(sp)
5175jsr _writeln
5176addq.l #2,sp
5177*line 2370
5178move _cmdunit,(sp)
5179move #2,-(sp)
5180move R7,-(sp)
5181jsr _puthn
5182addq.l #4,sp
5183*line 2371
5184move.l #L582,(sp)
5185move _cmdunit,-(sp)
5186jsr _writeln
5187addq.l #2,sp
5188*line 2372
5189clr R0
5190bra L564
5191bra L568
5192L569:cmp #13,R0
5193beq L570
5194cmp #24,R0
5195beq L577
5196bra L579
5197L568:
5198*line 2373
5199*line 2374
5200L566:
5201*line 2375
5202tst R7
5203bne L567
5204L565:
5205*line 2377
5206move #1,R0
5207bra L564
5208L564:tst.l (sp)+
5209movem.l (sp)+,R7-R7
5210unlk R14
5211rts
5212.globl _cx_fill
5213.text
5214_cx_fill:
5215~~cx_fill:
5216link R14,#0
5217movem.l R6-R7/R13-R13,-(sp)
5218~cp=R13
5219*line 2392
5220move.l _p_from,R13
5221~count=R7
5222*line 2395
5223clr _redo
5224*line 2397
5225move.l _p_len,R7
5226bra L586
5227L587:
5228*line 2398
5229*line 2399
5230move.l _p_value,R0
5231and.l #$ff,R0
5232ext.w R0
5233move.b R0,(R13)
5234*line 2400
5235*line 2401
5236*line 2401
5237move.l _p_value,R0
5238and.l #$ff,R0
5239ext.w R0
5240cmp.b (R13),R0
5241beq L588
5242*line 2402
5243*line 2403
5244move.l #L589,(sp)
5245move _cmdunit,-(sp)
5246jsr _writeln
5247addq.l #2,sp
5248*line 2404
5249move _cmdunit,(sp)
5250move #8,-(sp)
5251move.l R13,-(sp)
5252jsr _puthn
5253addq.l #6,sp
5254*line 2405
5255move.l #L590,(sp)
5256move _cmdunit,-(sp)
5257jsr _writeln
5258addq.l #2,sp
5259*line 2406
5260clr R0
5261bra L583
5262*line 2407
5263*line 2408
5264L588:
5265*line 2409
5266add.l #1,R13
5267L585:
5268*line 2397
5269sub.l #$1,R7
5270L586:
5271*line 2397
5272tst.l R7
5273bgt L587
5274L584:
5275*line 2412
5276move #1,R0
5277bra L583
5278L583:tst.l (sp)+
5279movem.l (sp)+,R7-R7/R13-R13
5280unlk R14
5281rts
5282.globl _cx_wfil
5283.text
5284_cx_wfil:
5285~~cx_wfil:
5286link R14,#0
5287movem.l R6-R7/R13-R13,-(sp)
5288~cp=R13
5289*line 2427
5290move.l _p_from,R13
5291~count=R7
5292*line 2430
5293clr _redo
5294*line 2432
5295move.l _p_len,R7
5296bra L594
5297L595:
5298*line 2433
5299move.l _p_value,R0
5300and.l #$ffff,R0
5301move R0,(R13)+
5302L593:
5303*line 2432
5304sub.l #$1,R7
5305L594:
5306*line 2432
5307tst.l R7
5308bgt L595
5309L592:
5310*line 2435
5311move #1,R0
5312bra L591
5313L591:tst.l (sp)+
5314movem.l (sp)+,R7-R7/R13-R13
5315unlk R14
5316rts
5317.globl _cx_copy
5318.text
5319_cx_copy:
5320~~cx_copy:
5321link R14,#0
5322movem.l R6-R7/R12-R13,-(sp)
5323~from=R13
5324*line 2450
5325move.l _p_from,R13
5326~to=R12
5327*line 2451
5328move.l _p_to,R12
5329~count=R7
5330*line 2452
5331move.l _p_len,R7
5332*line 2454
5333clr _redo
5334*line 2456
5335*line 2456
5336cmp.l R13,R12
5337bls L597
5338*line 2457
5339*line 2458
5340add.l R7,R13
5341*line 2459
5342add.l R7,R12
5343*line 2460
5344*line 2461
5345bra L600
5346L599:
5347*line 2462
5348*line 2463
5349sub.l #1,R13
5350*line 2464
5351sub.l #1,R12
5352*line 2465
5353move.b (R13),(R12)
5354*line 2466
5355*line 2467
5356*line 2467
5357move.b (R13),R0
5358ext.w R0
5359cmp.b (R12),R0
5360beq L601
5361*line 2468
5362*line 2469
5363move.l #L602,(sp)
5364move _cmdunit,-(sp)
5365jsr _writeln
5366addq.l #2,sp
5367*line 2470
5368move _cmdunit,(sp)
5369move #8,-(sp)
5370move.l R13,-(sp)
5371jsr _puthn
5372addq.l #6,sp
5373*line 2471
5374move.l #L603,(sp)
5375move _cmdunit,-(sp)
5376jsr _writeln
5377addq.l #2,sp
5378*line 2472
5379move _cmdunit,(sp)
5380move #8,-(sp)
5381move.l R12,-(sp)
5382jsr _puthn
5383addq.l #6,sp
5384*line 2473
5385move.l #L604,(sp)
5386move _cmdunit,-(sp)
5387jsr _writeln
5388addq.l #2,sp
5389*line 2474
5390move _cmdunit,(sp)
5391move #2,-(sp)
5392move.b (R13),R0
5393ext.w R0
5394ext.l R0
5395move.l R0,-(sp)
5396jsr _puthn
5397addq.l #6,sp
5398*line 2475
5399move.l #L605,(sp)
5400move _cmdunit,-(sp)
5401jsr _writeln
5402addq.l #2,sp
5403*line 2476
5404move _cmdunit,(sp)
5405move #2,-(sp)
5406move.b (R12),R0
5407ext.w R0
5408ext.l R0
5409move.l R0,-(sp)
5410jsr _puthn
5411addq.l #6,sp
5412*line 2477
5413move.l #L606,(sp)
5414move _cmdunit,-(sp)
5415jsr _writeln
5416addq.l #2,sp
5417*line 2478
5418clr R0
5419bra L596
5420*line 2479
5421L601:L600:
5422*line 2480
5423move.l R7,R0
5424sub.l #$1,R7
5425tst.l R0
5426bne L599
5427L598:
5428*line 2481
5429*line 2482
5430*line 2483
5431*line 2484
5432bra L607
5433L597:
5434*line 2485
5435*line 2486
5436*line 2487
5437bra L610
5438L609:
5439*line 2488
5440*line 2489
5441move.b (R13),(R12)
5442*line 2490
5443*line 2491
5444*line 2491
5445move.b (R13),R0
5446ext.w R0
5447cmp.b (R12),R0
5448beq L611
5449*line 2492
5450*line 2493
5451move.l #L612,(sp)
5452move _cmdunit,-(sp)
5453jsr _writeln
5454addq.l #2,sp
5455*line 2494
5456move _cmdunit,(sp)
5457move #8,-(sp)
5458move.l R13,-(sp)
5459jsr _puthn
5460addq.l #6,sp
5461*line 2495
5462move.l #L613,(sp)
5463move _cmdunit,-(sp)
5464jsr _writeln
5465addq.l #2,sp
5466*line 2496
5467move _cmdunit,(sp)
5468move #8,-(sp)
5469move.l R12,-(sp)
5470jsr _puthn
5471addq.l #6,sp
5472*line 2497
5473move.l #L614,(sp)
5474move _cmdunit,-(sp)
5475jsr _writeln
5476addq.l #2,sp
5477*line 2498
5478move _cmdunit,(sp)
5479move #2,-(sp)
5480move.b (R13),R0
5481ext.w R0
5482ext.l R0
5483move.l R0,-(sp)
5484jsr _puthn
5485addq.l #6,sp
5486*line 2499
5487move.l #L615,(sp)
5488move _cmdunit,-(sp)
5489jsr _writeln
5490addq.l #2,sp
5491*line 2500
5492move _cmdunit,(sp)
5493move #2,-(sp)
5494move.b (R12),R0
5495ext.w R0
5496ext.l R0
5497move.l R0,-(sp)
5498jsr _puthn
5499addq.l #6,sp
5500*line 2501
5501move.l #L616,(sp)
5502move _cmdunit,-(sp)
5503jsr _writeln
5504addq.l #2,sp
5505*line 2502
5506clr R0
5507bra L596
5508*line 2503
5509*line 2504
5510L611:
5511*line 2505
5512add.l #1,R13
5513*line 2506
5514add.l #1,R12
5515L610:
5516*line 2507
5517move.l R7,R0
5518sub.l #$1,R7
5519tst.l R0
5520bne L609
5521L608:L607:
5522*line 2510
5523move #1,R0
5524bra L596
5525L596:tst.l (sp)+
5526movem.l (sp)+,R7-R7/R12-R13
5527unlk R14
5528rts
5529.globl _cx_dump
5530.text
5531_cx_dump:
5532~~cx_dump:
5533link R14,#0
5534movem.l R5-R7,-(sp)
5535~nw=R7
5536~rc=R6
5537*line 2527
5538move #1,_redo
5539*line 2528
5540move.l _p_from,_d_cur
5541*line 2529
5542move.l _p_to,R0
5543add.l #1,R0
5544move.l R0,_d_next
5545*line 2530
5546move.l _p_to,R0
5547sub.l _p_from,R0
5548add.l _d_next,R0
5549move.l R0,_d_last
5550*line 2531
5551move.l _p_width,R0
5552move R0,R7
5553*line 2532
5554move #1,R6
5555*line 2534
5556L620:
5557*line 2535
5558*line 2536
5559move.l #L621,(sp)
5560move _cmdunit,-(sp)
5561jsr _writeln
5562addq.l #2,sp
5563*line 2537
5564move _cmdunit,(sp)
5565move.l _p_from,-(sp)
5566jsr _padr
5567addq.l #4,sp
5568*line 2538
5569*line 2539
5570clr _dflag
5571*line 2540
5572*line 2541
5573*line 2542
5574move _cmdunit,(sp)
5575move R7,-(sp)
5576move.l _p_to,-(sp)
5577move.l _p_from,-(sp)
5578jsr _ddump
5579adda.l #10,sp
5580tst R0
5581beq L622
5582*line 2542
5583clr R6
5584*line 2543
5585L622:
5586*line 2544
5587*line 2545
5588tst R6
5589beq L623
5590*line 2545
5591*line 2546
5592move _cmdunit,(sp)
5593move R7,-(sp)
5594move.l _p_to,-(sp)
5595move.l _p_from,-(sp)
5596jsr _dtext
5597adda.l #10,sp
5598tst R0
5599beq L624
5600*line 2546
5601clr R6
5602*line 2547
5603L624:L623:
5604*line 2548
5605move.l _p_from,R0
5606add.l _p_width,R0
5607move.l R0,_p_from
5608*line 2549
5609*line 2550
5610*line 2551
5611tst _dflag
5612beq L625
5613*line 2551
5614clr R6
5615*line 2552
5616L625:L619:
5617*line 2553
5618tst R6
5619bne L620
5620L618:
5621*line 2555
5622move.l _d_cur,_p_from
5623*line 2557
5624move.l #L626,(sp)
5625move _cmdunit,-(sp)
5626jsr _writeln
5627addq.l #2,sp
5628*line 2558
5629move.l #L627,(sp)
5630move _cmdunit,-(sp)
5631jsr _writeln
5632addq.l #2,sp
5633*line 2560
5634move #1,R0
5635bra L617
5636L617:tst.l (sp)+
5637movem.l (sp)+,R6-R7
5638unlk R14
5639rts
5640.globl _wdump
5641.text
5642_wdump:
5643~~wdump:
5644~loc=R13
5645~lastloc=R12
5646~nwide=16
5647~unit=18
5648link R14,#0
5649movem.l R7-R7/R12-R13,-(sp)
5650*line 2577
5651move.l 8(R14),R13
5652*line 2577
5653move.l 12(R14),R12
5654*line 2577
5655bra L631
5656L630:
5657*line 2578
5658*line 2579
5659move 18(R14),(sp)
5660move #4,-(sp)
5661clr.l R0
5662move (R13),R0
5663and.l #$ffff,R0
5664move.l R0,-(sp)
5665jsr _puthn
5666addq.l #6,sp
5667*line 2580
5668move #32,(sp)
5669move 18(R14),-(sp)
5670move #3,-(sp)
5671jsr _trap13
5672addq.l #4,sp
5673*line 2581
5674*line 2582
5675*line 2583
5676move 18(R14),(sp)
5677move #1,-(sp)
5678jsr _trap13
5679addq.l #2,sp
5680tst.l R0
5681beq L632
5682*line 2583
5683move #1,R0
5684bra L628
5685*line 2584
5686L632:
5687*line 2585
5688*line 2585
5689cmp.l R12,R13
5690bne L633
5691*line 2586
5692*line 2587
5693move #1,_dflag
5694*line 2588
5695clr R0
5696bra L628
5697*line 2589
5698*line 2590
5699L633:
5700*line 2591
5701add.l #2,R13
5702L631:
5703*line 2592
5704move 16(R14),R0
5705sub #1,16(R14)
5706tst R0
5707bne L630
5708L629:
5709*line 2594
5710clr R0
5711bra L628
5712L628:tst.l (sp)+
5713movem.l (sp)+,R12-R13
5714unlk R14
5715rts
5716.globl _ldump
5717.text
5718_ldump:
5719~~ldump:
5720~loc=R13
5721~lastloc=R12
5722~nwide=16
5723~unit=18
5724link R14,#0
5725movem.l R7-R7/R12-R13,-(sp)
5726*line 2611
5727move.l 8(R14),R13
5728*line 2611
5729move.l 12(R14),R12
5730*line 2611
5731bra L637
5732L636:
5733*line 2612
5734*line 2613
5735move 18(R14),(sp)
5736move #8,-(sp)
5737move.l (R13),-(sp)
5738jsr _puthn
5739addq.l #6,sp
5740*line 2614
5741move #32,(sp)
5742move 18(R14),-(sp)
5743move #3,-(sp)
5744jsr _trap13
5745addq.l #4,sp
5746*line 2615
5747*line 2616
5748*line 2617
5749move 18(R14),(sp)
5750move #1,-(sp)
5751jsr _trap13
5752addq.l #2,sp
5753tst.l R0
5754beq L638
5755*line 2617
5756move #1,R0
5757bra L634
5758*line 2618
5759L638:
5760*line 2619
5761*line 2619
5762cmp.l R12,R13
5763bne L639
5764*line 2620
5765*line 2621
5766move #1,_dflag
5767*line 2622
5768clr R0
5769bra L634
5770*line 2623
5771*line 2624
5772L639:
5773*line 2625
5774add.l #4,R13
5775L637:
5776*line 2626
5777move 16(R14),R0
5778sub #1,16(R14)
5779tst R0
5780bne L636
5781L635:
5782*line 2628
5783clr R0
5784bra L634
5785L634:tst.l (sp)+
5786movem.l (sp)+,R12-R13
5787unlk R14
5788rts
5789.globl _cp_wdmp
5790.text
5791_cp_wdmp:
5792~~cp_wdmp:
5793link R14,#-4
5794*line 2643
5795move _ilast,_inext
5796*line 2645
5797*line 2646
5798jsr _getarg
5799tst R0
5800beq L641
5801*line 2646
5802*line 2646
5803move.l _p_from,(sp)
5804move.l #_p_from,-(sp)
5805jsr _setvar
5806addq.l #4,sp
5807tst R0
5808bne L642
5809*line 2647
5810*line 2648
5811clr _redo
5812*line 2649
5813clr R0
5814bra L640
5815*line 2650
5816*line 2651
5817L642:L641:
5818*line 2652
5819*line 2652
5820btst #0,3+_p_from
5821beq L643
5822*line 2653
5823*line 2654
5824clr _redo
5825*line 2655
5826clr R0
5827bra L640
5828*line 2656
5829*line 2657
5830L643:
5831*line 2658
5832*line 2658
5833cmp.b #13,_argsep
5834beq L10009
5835tst.b _argsep
5836bne L644
5837L10009:*line 2659
5838*line 2660
5839move.l _p_from,_p_to
5840*line 2661
5841move.l #$8,_p_width
5842*line 2662
5843move #1,_redo
5844*line 2663
5845move #1,R0
5846bra L640
5847*line 2664
5848*line 2665
5849L644:
5850*line 2666
5851*line 2667
5852jsr _getarg
5853tst R0
5854beq L645
5855*line 2667
5856*line 2667
5857move.l _p_to,(sp)
5858move.l #_p_to,-(sp)
5859jsr _setvar
5860addq.l #4,sp
5861tst R0
5862bne L646
5863*line 2668
5864*line 2669
5865clr _redo
5866*line 2670
5867clr R0
5868bra L640
5869*line 2671
5870*line 2672
5871L646:L645:
5872*line 2673
5873*line 2673
5874btst #0,3+_p_to
5875beq L647
5876*line 2674
5877*line 2675
5878clr _redo
5879*line 2676
5880clr R0
5881bra L640
5882*line 2677
5883*line 2678
5884L647:
5885*line 2679
5886*line 2679
5887cmp.b #13,_argsep
5888beq L10010
5889tst.b _argsep
5890bne L648
5891L10010:*line 2680
5892*line 2681
5893move.l #$8,_p_width
5894*line 2682
5895move #1,_redo
5896*line 2683
5897move #1,R0
5898bra L640
5899*line 2684
5900*line 2685
5901L648:
5902*line 2686
5903*line 2687
5904jsr _getarg
5905tst R0
5906beq L649
5907*line 2687
5908*line 2687
5909move.l _p_width,(sp)
5910move.l #_p_width,-(sp)
5911jsr _setvar
5912addq.l #4,sp
5913tst R0
5914bne L650
5915*line 2688
5916*line 2689
5917clr _redo
5918*line 2690
5919clr R0
5920bra L640
5921*line 2691
5922*line 2692
5923L650:L649:
5924*line 2693
5925move #1,_redo
5926*line 2694
5927move #1,R0
5928bra L640
5929L640:unlk R14
5930rts
5931.globl _cp_ldmp
5932.text
5933_cp_ldmp:
5934~~cp_ldmp:
5935link R14,#-4
5936*line 2709
5937move _ilast,_inext
5938*line 2711
5939*line 2712
5940jsr _getarg
5941tst R0
5942beq L652
5943*line 2712
5944*line 2712
5945move.l _p_from,(sp)
5946move.l #_p_from,-(sp)
5947jsr _setvar
5948addq.l #4,sp
5949tst R0
5950bne L653
5951*line 2713
5952*line 2714
5953clr _redo
5954*line 2715
5955clr R0
5956bra L651
5957*line 2716
5958*line 2717
5959L653:L652:
5960*line 2718
5961*line 2718
5962btst #0,3+_p_from
5963beq L654
5964*line 2719
5965*line 2720
5966clr _redo
5967*line 2721
5968clr R0
5969bra L651
5970*line 2722
5971*line 2723
5972L654:
5973*line 2724
5974*line 2724
5975cmp.b #13,_argsep
5976beq L10011
5977tst.b _argsep
5978bne L655
5979L10011:*line 2725
5980*line 2726
5981move.l _p_from,_p_to
5982*line 2727
5983move.l #$4,_p_width
5984*line 2728
5985move #1,_redo
5986*line 2729
5987move #1,R0
5988bra L651
5989*line 2730
5990*line 2731
5991L655:
5992*line 2732
5993*line 2733
5994jsr _getarg
5995tst R0
5996beq L656
5997*line 2733
5998*line 2733
5999move.l _p_to,(sp)
6000move.l #_p_to,-(sp)
6001jsr _setvar
6002addq.l #4,sp
6003tst R0
6004bne L657
6005*line 2734
6006*line 2735
6007clr _redo
6008*line 2736
6009clr R0
6010bra L651
6011*line 2737
6012*line 2738
6013L657:L656:
6014*line 2739
6015*line 2739
6016btst #0,3+_p_to
6017beq L658
6018*line 2740
6019*line 2741
6020clr _redo
6021*line 2742
6022clr R0
6023bra L651
6024*line 2743
6025*line 2744
6026L658:
6027*line 2745
6028*line 2745
6029cmp.b #13,_argsep
6030beq L10012
6031tst.b _argsep
6032bne L659
6033L10012:*line 2746
6034*line 2747
6035move.l #$4,_p_width
6036*line 2748
6037move #1,_redo
6038*line 2749
6039move #1,R0
6040bra L651
6041*line 2750
6042*line 2751
6043L659:
6044*line 2752
6045*line 2753
6046jsr _getarg
6047tst R0
6048beq L660
6049*line 2753
6050*line 2753
6051move.l _p_width,(sp)
6052move.l #_p_width,-(sp)
6053jsr _setvar
6054addq.l #4,sp
6055tst R0
6056bne L661
6057*line 2754
6058*line 2755
6059clr _redo
6060*line 2756
6061clr R0
6062bra L651
6063*line 2757
6064*line 2758
6065L661:L660:
6066*line 2759
6067move #1,_redo
6068*line 2760
6069move #1,R0
6070bra L651
6071L651:unlk R14
6072rts
6073.globl _cp_ilev
6074.text
6075_cp_ilev:
6076~~cp_ilev:
6077link R14,#-8
6078~iplevl=-4
6079*line 2777
6080*line 2778
6081cmp.b #13,_argsep
6082beq L10013
6083tst.b _argsep
6084bne L663
6085L10013:*line 2778
6086move #1,R0
6087bra L662
6088*line 2779
6089L663:
6090*line 2780
6091*line 2781
6092jsr _getarg
6093tst R0
6094beq L664
6095*line 2781
6096*line 2782
6097move.l -4(R14),(sp)
6098move.l R14,-(sp)
6099sub.l #4,(sp)
6100jsr _setvar
6101addq.l #4,sp
6102tst R0
6103bne L665
6104*line 2782
6105clr R0
6106bra L662
6107*line 2783
6108L665:L664:
6109*line 2784
6110*line 2785
6111cmp.l #$7,-4(R14)
6112ble L666
6113*line 2785
6114clr R0
6115bra L662
6116*line 2786
6117L666:
6118*line 2787
6119move.l -4(R14),R0
6120move R0,_iplev
6121*line 2789
6122move #1,R0
6123bra L662
6124L662:unlk R14
6125rts
6126.globl _cx_ilev
6127.text
6128_cx_ilev:
6129~~cx_ilev:
6130link R14,#-4
6131*line 2801
6132*line 2801
6133move _iplev,(sp)
6134jsr _setipl
6135cmp #-1,R0
6136bne L668
6137*line 2802
6138*line 2803
6139move _iplev,(sp)
6140move.l #L669,-(sp)
6141jsr _printf
6142addq.l #4,sp
6143*line 2804
6144clr R0
6145bra L667
6146*line 2805
6147bra L670
6148L668:
6149*line 2806
6150move _iplev,(sp)
6151move.l #L671,-(sp)
6152jsr _printf
6153addq.l #4,sp
6154L670:
6155*line 2808
6156move #1,R0
6157bra L667
6158L667:unlk R14
6159rts
6160.globl _cp_monc
6161.text
6162_cp_monc:
6163~~cp_monc:
6164link R14,#-4
6165*line 2823
6166*line 2824
6167jsr _getarg
6168tst R0
6169beq L673
6170*line 2824
6171*line 2825
6172move.l _monptr,(sp)
6173move.l #_monptr,-(sp)
6174jsr _setvar
6175addq.l #4,sp
6176tst R0
6177bne L674
6178*line 2825
6179clr R0
6180bra L672
6181*line 2826
6182L674:L673:
6183*line 2827
6184move #1,_monsw
6185*line 2828
6186move #1,_redo
6187*line 2829
6188move #1,R0
6189bra L672
6190L672:unlk R14
6191rts
6192.globl _cp_mons
6193.text
6194_cp_mons:
6195~~cp_mons:
6196link R14,#-4
6197*line 2841
6198*line 2842
6199jsr _getarg
6200tst R0
6201beq L676
6202*line 2842
6203*line 2843
6204move.l _monptr,(sp)
6205move.l #_monptr,-(sp)
6206jsr _setvar
6207addq.l #4,sp
6208tst R0
6209bne L677
6210*line 2843
6211clr R0
6212bra L675
6213*line 2844
6214L677:L676:
6215*line 2845
6216move #2,_monsw
6217*line 2846
6218move #1,_redo
6219*line 2847
6220move #1,R0
6221bra L675
6222L675:unlk R14
6223rts
6224.globl _cp_monl
6225.text
6226_cp_monl:
6227~~cp_monl:
6228link R14,#-4
6229*line 2862
6230*line 2863
6231jsr _getarg
6232tst R0
6233beq L679
6234*line 2863
6235*line 2864
6236move.l _monptr,(sp)
6237move.l #_monptr,-(sp)
6238jsr _setvar
6239addq.l #4,sp
6240tst R0
6241bne L680
6242*line 2864
6243clr R0
6244bra L678
6245*line 2865
6246L680:L679:
6247*line 2866
6248move #4,_monsw
6249*line 2867
6250move #1,_redo
6251*line 2868
6252move #1,R0
6253bra L678
6254L678:unlk R14
6255rts
6256.globl _cx_mon
6257.text
6258_cx_mon:
6259~~cx_mon:
6260link R14,#-4
6261movem.l R2-R7/R12-R13,-(sp)
6262~vc=R7
6263~vcc=R6
6264~vs=R5
6265~vss=R4
6266~vsp=R13
6267~vl=R3
6268~vll=-4
6269~vlp=R12
6270*line 2887
6271move _monsw,R0
6272bra L683
6273*line 2888
6274L684:
6275*line 2889
6276*line 2890
6277*line 2891
6278move.l _monptr,R8
6279move.b (R8),R7
6280and.b #255,R7
6281*line 2892
6282move _cmdunit,(sp)
6283move #2,-(sp)
6284move.b R7,R0
6285ext.w R0
6286ext.l R0
6287move.l R0,-(sp)
6288jsr _puthn
6289addq.l #6,sp
6290*line 2893
6291move.l #L685,(sp)
6292move _cmdunit,-(sp)
6293jsr _writeln
6294addq.l #2,sp
6295*line 2894
6296*line 2895
6297bra L688
6298L687:
6299*line 2896
6300*line 2897
6301move.l _monptr,R8
6302move.b (R8),R6
6303and.b #255,R6
6304*line 2898
6305*line 2899
6306*line 2899
6307cmp.b R6,R7
6308beq L689
6309*line 2900
6310*line 2901
6311move.b R6,R7
6312*line 2902
6313move _cmdunit,(sp)
6314move #2,-(sp)
6315move.b R7,R0
6316ext.w R0
6317ext.l R0
6318move.l R0,-(sp)
6319jsr _puthn
6320addq.l #6,sp
6321*line 2903
6322move.l #L690,(sp)
6323move _cmdunit,-(sp)
6324jsr _writeln
6325addq.l #2,sp
6326*line 2904
6327L689:L688:
6328*line 2905
6329move #2,(sp)
6330move #1,-(sp)
6331jsr _trap13
6332addq.l #2,sp
6333and.l #$ffff,R0
6334beq L687
6335L686:
6336*line 2906
6337*line 2907
6338move #2,(sp)
6339move #2,-(sp)
6340jsr _trap13
6341addq.l #2,sp
6342*line 2908
6343move #1,R0
6344bra L681
6345*line 2909
6346L691:
6347*line 2910
6348*line 2911
6349*line 2912
6350move.l _monptr,R13
6351*line 2913
6352move (R13),R5
6353*line 2914
6354move _cmdunit,(sp)
6355move #4,-(sp)
6356move R5,R8
6357move.l R8,-(sp)
6358jsr _puthn
6359addq.l #6,sp
6360*line 2915
6361move.l #L692,(sp)
6362move _cmdunit,-(sp)
6363jsr _writeln
6364addq.l #2,sp
6365*line 2916
6366*line 2917
6367bra L695
6368L694:
6369*line 2918
6370*line 2919
6371move (R13),R4
6372*line 2920
6373*line 2921
6374*line 2921
6375cmp R4,R5
6376beq L696
6377*line 2922
6378*line 2923
6379move R4,R5
6380*line 2924
6381move _cmdunit,(sp)
6382move #4,-(sp)
6383move R5,R8
6384move.l R8,-(sp)
6385jsr _puthn
6386addq.l #6,sp
6387*line 2925
6388move.l #L697,(sp)
6389move _cmdunit,-(sp)
6390jsr _writeln
6391addq.l #2,sp
6392*line 2926
6393L696:L695:
6394*line 2927
6395move #2,(sp)
6396move #1,-(sp)
6397jsr _trap13
6398addq.l #2,sp
6399and.l #$ffff,R0
6400beq L694
6401L693:
6402*line 2928
6403*line 2929
6404move #2,(sp)
6405move #2,-(sp)
6406jsr _trap13
6407addq.l #2,sp
6408*line 2930
6409move #1,R0
6410bra L681
6411*line 2931
6412*line 2932
6413*line 2933
6414L698:
6415*line 2934
6416*line 2935
6417*line 2936
6418move.l _monptr,R12
6419*line 2937
6420move.l (R12),R3
6421*line 2938
6422move _cmdunit,(sp)
6423move #8,-(sp)
6424move.l R3,-(sp)
6425jsr _puthn
6426addq.l #6,sp
6427*line 2939
6428move.l #L699,(sp)
6429move _cmdunit,-(sp)
6430jsr _writeln
6431addq.l #2,sp
6432*line 2940
6433*line 2941
6434bra L702
6435L701:
6436*line 2942
6437*line 2943
6438move.l (R12),-4(R14)
6439*line 2944
6440*line 2945
6441*line 2945
6442cmp.l -4(R14),R3
6443beq L703
6444*line 2946
6445*line 2947
6446move.l -4(R14),R3
6447*line 2948
6448move _cmdunit,(sp)
6449move #8,-(sp)
6450move.l R3,-(sp)
6451jsr _puthn
6452addq.l #6,sp
6453*line 2949
6454move.l #L704,(sp)
6455move _cmdunit,-(sp)
6456jsr _writeln
6457addq.l #2,sp
6458*line 2950
6459L703:L702:
6460*line 2951
6461move #2,(sp)
6462move #1,-(sp)
6463jsr _trap13
6464addq.l #2,sp
6465and.l #$ffff,R0
6466beq L701
6467L700:
6468*line 2952
6469*line 2953
6470move #2,(sp)
6471move #2,-(sp)
6472jsr _trap13
6473addq.l #2,sp
6474*line 2954
6475move #1,R0
6476bra L681
6477*line 2955
6478L705:
6479*line 2956
6480*line 2957
6481clr R0
6482bra L681
6483bra L682
6484L683:cmp #1,R0
6485beq L684
6486cmp #2,R0
6487beq L691
6488cmp #4,R0
6489beq L698
6490bra L705
6491L682:L681:tst.l (sp)+
6492movem.l (sp)+,R3-R7/R12-R13
6493unlk R14
6494rts
6495.globl _cx_wdmp
6496.text
6497_cx_wdmp:
6498~~cx_wdmp:
6499link R14,#-8
6500~nw=-2
6501~rc=-4
6502*line 2975
6503move.l _p_from,_d_cur
6504*line 2976
6505move.l _p_to,R0
6506add.l #2,R0
6507move.l R0,_d_next
6508*line 2977
6509move.l _p_to,R0
6510sub.l _p_from,R0
6511add.l _d_next,R0
6512move.l R0,_d_last
6513*line 2978
6514move.l _p_width,R0
6515move R0,-2(R14)
6516*line 2979
6517move #1,-4(R14)
6518*line 2981
6519L709:
6520*line 2982
6521*line 2983
6522move.l #L710,(sp)
6523move _cmdunit,-(sp)
6524jsr _writeln
6525addq.l #2,sp
6526*line 2984
6527move _cmdunit,(sp)
6528move.l _p_from,-(sp)
6529jsr _padr
6530addq.l #4,sp
6531*line 2985
6532clr _dflag
6533*line 2986
6534*line 2987
6535*line 2988
6536move _cmdunit,(sp)
6537move -2(R14),-(sp)
6538move.l _p_to,-(sp)
6539move.l _p_from,-(sp)
6540jsr _wdump
6541adda.l #10,sp
6542tst R0
6543beq L711
6544*line 2988
6545clr -4(R14)
6546*line 2989
6547L711:
6548*line 2990
6549move.l _p_width,R0
6550asl.l #$1,R0
6551add.l _p_from,R0
6552move.l R0,_p_from
6553*line 2991
6554*line 2992
6555*line 2993
6556tst _dflag
6557beq L712
6558*line 2993
6559clr -4(R14)
6560*line 2994
6561L712:L708:
6562*line 2995
6563tst -4(R14)
6564bne L709
6565L707:
6566*line 2997
6567move.l _d_cur,_p_from
6568*line 2999
6569move.l #L713,(sp)
6570move _cmdunit,-(sp)
6571jsr _writeln
6572addq.l #2,sp
6573*line 3000
6574move.l #L714,(sp)
6575move _cmdunit,-(sp)
6576jsr _writeln
6577addq.l #2,sp
6578*line 3001
6579move #1,R0
6580bra L706
6581L706:unlk R14
6582rts
6583.globl _cx_ldmp
6584.text
6585_cx_ldmp:
6586~~cx_ldmp:
6587link R14,#-8
6588~nw=-2
6589~rc=-4
6590*line 3018
6591move.l _p_from,_d_cur
6592*line 3019
6593move.l _p_to,R0
6594add.l #4,R0
6595move.l R0,_d_next
6596*line 3020
6597move.l _p_to,R0
6598sub.l _p_from,R0
6599add.l _d_next,R0
6600move.l R0,_d_last
6601*line 3021
6602move.l _p_width,R0
6603move R0,-2(R14)
6604*line 3022
6605move #1,-4(R14)
6606*line 3024
6607L718:
6608*line 3025
6609*line 3026
6610move.l #L719,(sp)
6611move _cmdunit,-(sp)
6612jsr _writeln
6613addq.l #2,sp
6614*line 3027
6615move _cmdunit,(sp)
6616move.l _p_from,-(sp)
6617jsr _padr
6618addq.l #4,sp
6619*line 3028
6620clr _dflag
6621*line 3029
6622*line 3030
6623*line 3031
6624move _cmdunit,(sp)
6625move -2(R14),-(sp)
6626move.l _p_to,-(sp)
6627move.l _p_from,-(sp)
6628jsr _ldump
6629adda.l #10,sp
6630tst R0
6631beq L720
6632*line 3031
6633clr -4(R14)
6634*line 3032
6635L720:
6636*line 3033
6637move.l _p_width,R0
6638asl.l #$2,R0
6639add.l _p_from,R0
6640move.l R0,_p_from
6641*line 3034
6642*line 3035
6643*line 3036
6644tst _dflag
6645beq L721
6646*line 3036
6647clr -4(R14)
6648*line 3037
6649L721:L717:
6650*line 3038
6651tst -4(R14)
6652bne L718
6653L716:
6654*line 3040
6655move.l _d_cur,_p_from
6656*line 3042
6657move.l #L722,(sp)
6658move _cmdunit,-(sp)
6659jsr _writeln
6660addq.l #2,sp
6661*line 3043
6662move.l #L723,(sp)
6663move _cmdunit,-(sp)
6664jsr _writeln
6665addq.l #2,sp
6666*line 3044
6667move #1,R0
6668bra L715
6669L715:unlk R14
6670rts
6671.globl _do_cmd
6672.text
6673_do_cmd:
6674~~do_cmd:
6675link R14,#-8
6676~rc=-2
6677~i=-4
6678*line 3063
6679move.l #L725,(sp)
6680move _cmdunit,-(sp)
6681jsr _writeln
6682addq.l #2,sp
6683*line 3068
6684move.l #_cmdline,(sp)
6685move #128,-(sp)
6686move _cmdunit,-(sp)
6687jsr _getln
6688addq.l #4,sp
6689move R0,-2(R14)
6690*line 3075
6691move -2(R14),R0
6692bra L727
6693*line 3076
6694L728:
6695*line 3077
6696*line 3078
6697*line 3079
6698move.l #L729,(sp)
6699move _cmdunit,-(sp)
6700jsr _writeln
6701addq.l #2,sp
6702*line 3080
6703*line 3081
6704*line 3081
6705jsr _getcmd
6706tst R0
6707beq L730
6708*line 3082
6709*line 3083
6710clr -4(R14)
6711bra L733
6712L734:
6713*line 3084
6714*line 3085
6715*line 3085
6716move -4(R14),R0
6717asl #4,R0
6718ext.l R0
6719move.l R0,R8
6720move.l #_cmtab,R9
6721move.l 0(R8,R9.l),(sp)
6722move.l #_argstr,-(sp)
6723jsr _strcmp
6724addq.l #4,sp
6725tst R0
6726bne L735
6727*line 3086
6728*line 3087
6729move -4(R14),_ilast
6730*line 3088
6731*line 3089
6732*line 3089
6733move -4(R14),R0
6734asl #4,R0
6735ext.l R0
6736move.l R0,R8
6737move.l #_cmtab,R9
6738move.l 4(R8,R9.l),R8
6739jsr (R8)
6740tst R0
6741beq L736
6742*line 3090
6743*line 3091
6744*line 3092
6745move -4(R14),R0
6746asl #4,R0
6747ext.l R0
6748move.l R0,R8
6749move.l #_cmtab,R9
6750move.l 8(R8,R9.l),R8
6751jsr (R8)
6752tst R0
6753bne L737
6754*line 3092
6755move.l #L738,(sp)
6756move _cmdunit,-(sp)
6757jsr _writeln
6758addq.l #2,sp
6759*line 3093
6760L737:bra L739
6761L736:
6762*line 3094
6763*line 3095
6764*line 3096
6765move.l #L740,(sp)
6766move _cmdunit,-(sp)
6767jsr _writeln
6768addq.l #2,sp
6769L739:
6770*line 3097
6771*line 3098
6772bra L724
6773*line 3099
6774*line 3100
6775L735:L732:
6776*line 3083
6777add #1,-4(R14)
6778L733:
6779*line 3083
6780cmp #34,-4(R14)
6781blt L734
6782L731:
6783*line 3101
6784*line 3102
6785*line 3103
6786move.l #L741,(sp)
6787move _cmdunit,-(sp)
6788jsr _writeln
6789addq.l #2,sp
6790bra L724
6791*line 3104
6792*line 3105
6793bra L742
6794L730:
6795*line 3106
6796*line 3107
6797*line 3108
6798*line 3109
6799*line 3110
6800*line 3111
6801*line 3111
6802tst _redo
6803beq L743
6804*line 3112
6805*line 3113
6806*line 3114
6807move _ilast,R0
6808asl #4,R0
6809ext.l R0
6810move.l R0,R8
6811move.l #_cmtab,R9
6812move.l 8(R8,R9.l),R8
6813jsr (R8)
6814tst R0
6815bne L744
6816*line 3114
6817move.l #L745,(sp)
6818move _cmdunit,-(sp)
6819jsr _writeln
6820addq.l #2,sp
6821*line 3115
6822L744:bra L746
6823L743:
6824*line 3116
6825*line 3117
6826*line 3118
6827move.l #L747,(sp)
6828move _cmdunit,-(sp)
6829jsr _writeln
6830addq.l #2,sp
6831L746:
6832*line 3119
6833*line 3120
6834bra L724
6835*line 3121
6836L742:
6837*line 3122
6838*line 3123
6839L748:
6840*line 3124
6841*line 3125
6842*line 3126
6843move.l #L749,(sp)
6844move _cmdunit,-(sp)
6845jsr _writeln
6846addq.l #2,sp
6847bra L724
6848*line 3127
6849*line 3128
6850L750:
6851*line 3129
6852*line 3130
6853*line 3131
6854move.l #L751,(sp)
6855move _cmdunit,-(sp)
6856jsr _writeln
6857addq.l #2,sp
6858bra L724
6859*line 3132
6860bra L726
6861L727:cmp #13,R0
6862beq L728
6863cmp #24,R0
6864beq L748
6865bra L750
6866L726:
6867*line 3135
6868move.l #L752,(sp)
6869move _cmdunit,-(sp)
6870jsr _writeln
6871addq.l #2,sp
6872bra L724
6873L724:unlk R14
6874rts
6875.globl _cx_next
6876.text
6877_cx_next:
6878~~cx_next:
6879link R14,#-4
6880*line 3151
6881move.l _d_last,_p_to
6882*line 3152
6883move.l _d_next,_p_from
6884*line 3153
6885move _inext,R0
6886asl #4,R0
6887ext.l R0
6888move.l R0,R8
6889move.l #_cmtab,R9
6890move.l 8(R8,R9.l),R8
6891jsr (R8)
6892bra L753
6893L753:unlk R14
6894rts
6895.globl _cx_read
6896.text
6897_cx_read:
6898~~cx_read:
6899link R14,#-12
6900~rc=-4
6901~ns=-6
6902~recno=-8
6903*line 3171
6904move.l _p_len,R0
6905and.l #$7fff,R0
6906move R0,-6(R14)
6907*line 3172
6908move.l _p_from,R0
6909and.l #$ffff,R0
6910move R0,-8(R14)
6911*line 3174
6912clr (sp)
6913move -8(R14),-(sp)
6914move -6(R14),-(sp)
6915move.l _p_to,-(sp)
6916move #2,-(sp)
6917move #4,-(sp)
6918jsr _trap13
6919adda.l #12,sp
6920move.l R0,-4(R14)
6921*line 3176
6922*line 3176
6923move.l -4(R14),R0
6924and.l #$ffff,R0
6925beq L755
6926*line 3177
6927*line 3178
6928move.l #L756,(sp)
6929move _cmdunit,-(sp)
6930jsr _writeln
6931addq.l #2,sp
6932*line 3179
6933move _cmdunit,(sp)
6934move #8,-(sp)
6935move.l -4(R14),-(sp)
6936jsr _puthn
6937addq.l #6,sp
6938*line 3180
6939move.l #L757,(sp)
6940move _cmdunit,-(sp)
6941jsr _writeln
6942addq.l #2,sp
6943*line 3181
6944clr R0
6945bra L754
6946*line 3182
6947bra L758
6948L755:
6949*line 3183
6950*line 3184
6951*line 3185
6952move #1,R0
6953bra L754
6954L758:L754:unlk R14
6955rts
6956.globl _cx_writ
6957.text
6958_cx_writ:
6959~~cx_writ:
6960link R14,#-12
6961~rc=-4
6962~ns=-6
6963~recno=-8
6964*line 3204
6965move.l _p_len,R0
6966and.l #$7fff,R0
6967move R0,-6(R14)
6968*line 3205
6969move.l _p_from,R0
6970and.l #$ffff,R0
6971move R0,-8(R14)
6972*line 3207
6973clr (sp)
6974move -8(R14),-(sp)
6975move -6(R14),-(sp)
6976move.l _p_to,-(sp)
6977move #3,-(sp)
6978move #4,-(sp)
6979jsr _trap13
6980adda.l #12,sp
6981move.l R0,-4(R14)
6982*line 3209
6983*line 3209
6984move.l -4(R14),R0
6985and.l #$ffff,R0
6986beq L760
6987*line 3210
6988*line 3211
6989move.l #L761,(sp)
6990move _cmdunit,-(sp)
6991jsr _writeln
6992addq.l #2,sp
6993*line 3212
6994move _cmdunit,(sp)
6995move #8,-(sp)
6996move.l -4(R14),-(sp)
6997jsr _puthn
6998addq.l #6,sp
6999*line 3213
7000move.l #L762,(sp)
7001move _cmdunit,-(sp)
7002jsr _writeln
7003addq.l #2,sp
7004*line 3214
7005clr R0
7006bra L759
7007*line 3215
7008bra L763
7009L760:
7010*line 3216
7011*line 3217
7012*line 3218
7013move #1,R0
7014bra L759
7015L763:L759:unlk R14
7016rts
7017.globl _showrs
7018.text
7019_showrs:
7020~~showrs:
7021~rp=8
7022link R14,#-8
7023~i=-2
7024~srtemp=-4
7025*line 3237
7026move.l #L765,(sp)
7027move _cmdunit,-(sp)
7028jsr _writeln
7029addq.l #2,sp
7030*line 3239
7031clr -2(R14)
7032bra L768
7033L769:
7034*line 3240
7035*line 3241
7036move #32,(sp)
7037move _cmdunit,-(sp)
7038move #3,-(sp)
7039jsr _trap13
7040addq.l #4,sp
7041*line 3242
7042move -2(R14),(sp)
7043add #48,(sp)
7044move _cmdunit,-(sp)
7045move #3,-(sp)
7046jsr _trap13
7047addq.l #4,sp
7048*line 3243
7049move.l #L770,(sp)
7050move _cmdunit,-(sp)
7051jsr _writeln
7052addq.l #2,sp
7053L767:
7054*line 3239
7055add #1,-2(R14)
7056L768:
7057*line 3239
7058cmp #8,-2(R14)
7059blt L769
7060L766:
7061*line 3246
7062move.l #L771,(sp)
7063move _cmdunit,-(sp)
7064jsr _writeln
7065addq.l #2,sp
7066*line 3248
7067clr -2(R14)
7068bra L774
7069L775:
7070*line 3249
7071*line 3250
7072move #32,(sp)
7073move _cmdunit,-(sp)
7074move #3,-(sp)
7075jsr _trap13
7076addq.l #4,sp
7077*line 3251
7078move _cmdunit,(sp)
7079move #8,-(sp)
7080move.l 8(R14),R8
7081move -2(R14),R9
7082add.l R9,R9
7083add.l R9,R9
7084move.l 0(R8,R9.l),-(sp)
7085jsr _puthn
7086addq.l #6,sp
7087L773:
7088*line 3248
7089add #1,-2(R14)
7090L774:
7091*line 3248
7092cmp #8,-2(R14)
7093blt L775
7094L772:
7095*line 3254
7096move.l #L776,(sp)
7097move _cmdunit,-(sp)
7098jsr _writeln
7099addq.l #2,sp
7100*line 3256
7101clr -2(R14)
7102bra L779
7103L780:
7104*line 3257
7105*line 3258
7106move #32,(sp)
7107move _cmdunit,-(sp)
7108move #3,-(sp)
7109jsr _trap13
7110addq.l #4,sp
7111*line 3259
7112move _cmdunit,(sp)
7113move #8,-(sp)
7114move.l 8(R14),R8
7115move -2(R14),R9
7116add.l R9,R9
7117add.l R9,R9
7118move.l 32(R8,R9.l),-(sp)
7119jsr _puthn
7120addq.l #6,sp
7121L778:
7122*line 3256
7123add #1,-2(R14)
7124L779:
7125*line 3256
7126cmp #8,-2(R14)
7127blt L780
7128L777:
7129*line 3262
7130move.l #L781,(sp)
7131move _cmdunit,-(sp)
7132jsr _writeln
7133addq.l #2,sp
7134*line 3263
7135move _cmdunit,(sp)
7136move #8,-(sp)
7137move.l 8(R14),R8
7138move.l 68(R8),-(sp)
7139jsr _puthn
7140addq.l #6,sp
7141*line 3265
7142move.l 8(R14),R8
7143move 66(R8),-4(R14)
7144*line 3266
7145move.l #L782,(sp)
7146move _cmdunit,-(sp)
7147jsr _writeln
7148addq.l #2,sp
7149*line 3267
7150move _cmdunit,(sp)
7151move #4,-(sp)
7152clr.l R0
7153move -4(R14),R0
7154and.l #$ffff,R0
7155move.l R0,-(sp)
7156jsr _puthn
7157addq.l #6,sp
7158*line 3272
7159move.l #L783,(sp)
7160move _cmdunit,-(sp)
7161jsr _writeln
7162addq.l #2,sp
7163*line 3273
7164move _cmdunit,(sp)
7165move #1,-(sp)
7166clr R0
7167move -4(R14),R0
7168lsr #8,R0
7169swap R0
7170clr R0
7171swap R0
7172move.l R0,-(sp)
7173and.l #$7,(sp)
7174jsr _puthn
7175addq.l #6,sp
7176*line 3274
7177move.l #L784,(sp)
7178move _cmdunit,-(sp)
7179jsr _writeln
7180addq.l #2,sp
7181*line 3276
7182*line 3277
7183clr R0
7184move -4(R14),R0
7185and #-32768,R0
7186beq L785
7187*line 3277
7188move #84,(sp)
7189move _cmdunit,-(sp)
7190move #3,-(sp)
7191jsr _trap13
7192addq.l #4,sp
7193*line 3278
7194bra L786
7195L785:
7196*line 3279
7197move #45,(sp)
7198move _cmdunit,-(sp)
7199move #3,-(sp)
7200jsr _trap13
7201addq.l #4,sp
7202L786:
7203*line 3281
7204*line 3282
7205btst #5,-4(R14)
7206beq L787
7207*line 3282
7208move #83,(sp)
7209move _cmdunit,-(sp)
7210move #3,-(sp)
7211jsr _trap13
7212addq.l #4,sp
7213*line 3283
7214bra L788
7215L787:
7216*line 3284
7217move #45,(sp)
7218move _cmdunit,-(sp)
7219move #3,-(sp)
7220jsr _trap13
7221addq.l #4,sp
7222L788:
7223*line 3286
7224move #32,(sp)
7225move _cmdunit,-(sp)
7226move #3,-(sp)
7227jsr _trap13
7228addq.l #4,sp
7229*line 3288
7230*line 3289
7231btst #4,-3(R14)
7232beq L789
7233*line 3289
7234move #88,(sp)
7235move _cmdunit,-(sp)
7236move #3,-(sp)
7237jsr _trap13
7238addq.l #4,sp
7239*line 3290
7240bra L790
7241L789:
7242*line 3291
7243move #45,(sp)
7244move _cmdunit,-(sp)
7245move #3,-(sp)
7246jsr _trap13
7247addq.l #4,sp
7248L790:
7249*line 3293
7250*line 3294
7251btst #3,-3(R14)
7252beq L791
7253*line 3294
7254move #78,(sp)
7255move _cmdunit,-(sp)
7256move #3,-(sp)
7257jsr _trap13
7258addq.l #4,sp
7259*line 3295
7260bra L792
7261L791:
7262*line 3296
7263move #45,(sp)
7264move _cmdunit,-(sp)
7265move #3,-(sp)
7266jsr _trap13
7267addq.l #4,sp
7268L792:
7269*line 3298
7270*line 3299
7271btst #2,-3(R14)
7272beq L793
7273*line 3299
7274move #90,(sp)
7275move _cmdunit,-(sp)
7276move #3,-(sp)
7277jsr _trap13
7278addq.l #4,sp
7279*line 3300
7280bra L794
7281L793:
7282*line 3301
7283move #45,(sp)
7284move _cmdunit,-(sp)
7285move #3,-(sp)
7286jsr _trap13
7287addq.l #4,sp
7288L794:
7289*line 3303
7290*line 3304
7291btst #1,-3(R14)
7292beq L795
7293*line 3304
7294move #86,(sp)
7295move _cmdunit,-(sp)
7296move #3,-(sp)
7297jsr _trap13
7298addq.l #4,sp
7299*line 3305
7300bra L796
7301L795:
7302*line 3306
7303move #45,(sp)
7304move _cmdunit,-(sp)
7305move #3,-(sp)
7306jsr _trap13
7307addq.l #4,sp
7308L796:
7309*line 3308
7310*line 3309
7311btst #0,-3(R14)
7312beq L797
7313*line 3309
7314move #67,(sp)
7315move _cmdunit,-(sp)
7316move #3,-(sp)
7317jsr _trap13
7318addq.l #4,sp
7319*line 3310
7320bra L798
7321L797:
7322*line 3311
7323move #45,(sp)
7324move _cmdunit,-(sp)
7325move #3,-(sp)
7326jsr _trap13
7327addq.l #4,sp
7328L798:
7329*line 3313
7330move.l #L799,(sp)
7331move _cmdunit,-(sp)
7332jsr _writeln
7333addq.l #2,sp
7334L764:unlk R14
7335rts
7336.globl _showcr
7337.text
7338_showcr:
7339~~showcr:
7340link R14,#0
7341movem.l R5-R7/R13-R13,-(sp)
7342~i=R7
7343~cause=R13
7344~srtemp=R6
7345*line 3331
7346move.l #L801,(sp)
7347move _cmdunit,-(sp)
7348jsr _writeln
7349addq.l #2,sp
7350*line 3332
7351move.l #L802,(sp)
7352move _cmdunit,-(sp)
7353jsr _writeln
7354addq.l #2,sp
7355*line 3334
7356clr R7
7357bra L805
7358L806:
7359*line 3335
7360*line 3336
7361move #32,(sp)
7362move _cmdunit,-(sp)
7363move #3,-(sp)
7364jsr _trap13
7365addq.l #4,sp
7366*line 3337
7367move R7,(sp)
7368add #48,(sp)
7369move _cmdunit,-(sp)
7370move #3,-(sp)
7371jsr _trap13
7372addq.l #4,sp
7373*line 3338
7374move.l #L807,(sp)
7375move _cmdunit,-(sp)
7376jsr _writeln
7377addq.l #2,sp
7378L804:
7379*line 3334
7380add #1,R7
7381L805:
7382*line 3334
7383cmp #8,R7
7384blt L806
7385L803:
7386*line 3341
7387move.l #L808,(sp)
7388move _cmdunit,-(sp)
7389jsr _writeln
7390addq.l #2,sp
7391*line 3343
7392clr R7
7393bra L811
7394L812:
7395*line 3344
7396*line 3345
7397move #32,(sp)
7398move _cmdunit,-(sp)
7399move #3,-(sp)
7400jsr _trap13
7401addq.l #4,sp
7402*line 3346
7403move _cmdunit,(sp)
7404move #8,-(sp)
7405move R7,R8
7406add.l R8,R8
7407add.l R8,R8
7408move.l #_crshrg,R9
7409move.l 0(R8,R9.l),-(sp)
7410jsr _puthn
7411addq.l #6,sp
7412L810:
7413*line 3343
7414add #1,R7
7415L811:
7416*line 3343
7417cmp #8,R7
7418blt L812
7419L809:
7420*line 3349
7421move.l #L813,(sp)
7422move _cmdunit,-(sp)
7423jsr _writeln
7424addq.l #2,sp
7425*line 3351
7426move #8,R7
7427bra L816
7428L817:
7429*line 3352
7430*line 3353
7431move #32,(sp)
7432move _cmdunit,-(sp)
7433move #3,-(sp)
7434jsr _trap13
7435addq.l #4,sp
7436*line 3354
7437move _cmdunit,(sp)
7438move #8,-(sp)
7439move R7,R8
7440add.l R8,R8
7441add.l R8,R8
7442move.l #_crshrg,R9
7443move.l 0(R8,R9.l),-(sp)
7444jsr _puthn
7445addq.l #6,sp
7446L815:
7447*line 3351
7448add #1,R7
7449L816:
7450*line 3351
7451cmp #16,R7
7452blt L817
7453L814:
7454*line 3357
7455move.l #L818,(sp)
7456move _cmdunit,-(sp)
7457jsr _writeln
7458addq.l #2,sp
7459*line 3358
7460move _cmdunit,(sp)
7461move #8,-(sp)
7462move.l _crshpc,-(sp)
7463jsr _puthn
7464addq.l #6,sp
7465*line 3360
7466move _crshsr,R6
7467*line 3361
7468move.l #L819,(sp)
7469move _cmdunit,-(sp)
7470jsr _writeln
7471addq.l #2,sp
7472*line 3362
7473move _cmdunit,(sp)
7474move #4,-(sp)
7475clr.l R0
7476move R6,R0
7477and.l #$ffff,R0
7478move.l R0,-(sp)
7479jsr _puthn
7480addq.l #6,sp
7481*line 3367
7482move.l #L820,(sp)
7483move _cmdunit,-(sp)
7484jsr _writeln
7485addq.l #2,sp
7486*line 3368
7487move _cmdunit,(sp)
7488move #1,-(sp)
7489clr R0
7490move R6,R0
7491lsr #8,R0
7492swap R0
7493clr R0
7494swap R0
7495move.l R0,-(sp)
7496and.l #$7,(sp)
7497jsr _puthn
7498addq.l #6,sp
7499*line 3369
7500move.l #L821,(sp)
7501move _cmdunit,-(sp)
7502jsr _writeln
7503addq.l #2,sp
7504*line 3371
7505*line 3372
7506clr R0
7507move R6,R0
7508and #-32768,R0
7509beq L822
7510*line 3372
7511move #84,(sp)
7512move _cmdunit,-(sp)
7513move #3,-(sp)
7514jsr _trap13
7515addq.l #4,sp
7516*line 3373
7517bra L823
7518L822:
7519*line 3374
7520move #45,(sp)
7521move _cmdunit,-(sp)
7522move #3,-(sp)
7523jsr _trap13
7524addq.l #4,sp
7525L823:
7526*line 3376
7527*line 3377
7528btst #13,R6
7529beq L824
7530*line 3377
7531move #83,(sp)
7532move _cmdunit,-(sp)
7533move #3,-(sp)
7534jsr _trap13
7535addq.l #4,sp
7536*line 3378
7537bra L825
7538L824:
7539*line 3379
7540move #45,(sp)
7541move _cmdunit,-(sp)
7542move #3,-(sp)
7543jsr _trap13
7544addq.l #4,sp
7545L825:
7546*line 3381
7547move #32,(sp)
7548move _cmdunit,-(sp)
7549move #3,-(sp)
7550jsr _trap13
7551addq.l #4,sp
7552*line 3383
7553*line 3384
7554btst #4,R6
7555beq L826
7556*line 3384
7557move #88,(sp)
7558move _cmdunit,-(sp)
7559move #3,-(sp)
7560jsr _trap13
7561addq.l #4,sp
7562*line 3385
7563bra L827
7564L826:
7565*line 3386
7566move #45,(sp)
7567move _cmdunit,-(sp)
7568move #3,-(sp)
7569jsr _trap13
7570addq.l #4,sp
7571L827:
7572*line 3388
7573*line 3389
7574btst #3,R6
7575beq L828
7576*line 3389
7577move #78,(sp)
7578move _cmdunit,-(sp)
7579move #3,-(sp)
7580jsr _trap13
7581addq.l #4,sp
7582*line 3390
7583bra L829
7584L828:
7585*line 3391
7586move #45,(sp)
7587move _cmdunit,-(sp)
7588move #3,-(sp)
7589jsr _trap13
7590addq.l #4,sp
7591L829:
7592*line 3393
7593*line 3394
7594btst #2,R6
7595beq L830
7596*line 3394
7597move #90,(sp)
7598move _cmdunit,-(sp)
7599move #3,-(sp)
7600jsr _trap13
7601addq.l #4,sp
7602*line 3395
7603bra L831
7604L830:
7605*line 3396
7606move #45,(sp)
7607move _cmdunit,-(sp)
7608move #3,-(sp)
7609jsr _trap13
7610addq.l #4,sp
7611L831:
7612*line 3398
7613*line 3399
7614btst #1,R6
7615beq L832
7616*line 3399
7617move #86,(sp)
7618move _cmdunit,-(sp)
7619move #3,-(sp)
7620jsr _trap13
7621addq.l #4,sp
7622*line 3400
7623bra L833
7624L832:
7625*line 3401
7626move #45,(sp)
7627move _cmdunit,-(sp)
7628move #3,-(sp)
7629jsr _trap13
7630addq.l #4,sp
7631L833:
7632*line 3403
7633*line 3404
7634btst #0,R6
7635beq L834
7636*line 3404
7637move #67,(sp)
7638move _cmdunit,-(sp)
7639move #3,-(sp)
7640jsr _trap13
7641addq.l #4,sp
7642*line 3405
7643bra L835
7644L834:
7645*line 3406
7646move #45,(sp)
7647move _cmdunit,-(sp)
7648move #3,-(sp)
7649jsr _trap13
7650addq.l #4,sp
7651L835:
7652*line 3408
7653move.l #L836,(sp)
7654move _cmdunit,-(sp)
7655jsr _writeln
7656addq.l #2,sp
7657*line 3412
7658move.l #L837,(sp)
7659move _cmdunit,-(sp)
7660jsr _writeln
7661addq.l #2,sp
7662*line 3413
7663move _cmdunit,(sp)
7664move #2,-(sp)
7665move.b _crshvc,R0
7666ext.w R0
7667ext.l R0
7668move.l R0,-(sp)
7669jsr _putn
7670addq.l #6,sp
7671*line 3415
7672move.l #L838,R13
7673*line 3417
7674move.b _crshvc,R0
7675ext.w R0
7676and #255,R0
7677bra L840
7678*line 3418
7679L841:
7680*line 3419
7681*line 3420
7682*line 3421
7683move.l #L842,R13
7684bra L839
7685*line 3422
7686*line 3423
7687L843:
7688*line 3424
7689*line 3425
7690*line 3426
7691move.l #L844,R13
7692bra L839
7693*line 3427
7694*line 3428
7695L845:
7696*line 3429
7697*line 3430
7698*line 3431
7699move.l #L846,R13
7700bra L839
7701*line 3432
7702*line 3433
7703L847:
7704*line 3434
7705*line 3435
7706*line 3436
7707move.l #L848,R13
7708bra L839
7709*line 3437
7710*line 3438
7711L849:
7712*line 3439
7713*line 3440
7714*line 3441
7715move.l #L850,R13
7716bra L839
7717*line 3442
7718*line 3443
7719L851:
7720*line 3444
7721*line 3445
7722*line 3446
7723move.l #L852,R13
7724bra L839
7725*line 3447
7726*line 3448
7727L853:
7728*line 3449
7729*line 3450
7730*line 3451
7731move.l #L854,R13
7732bra L839
7733*line 3452
7734*line 3453
7735L855:
7736*line 3454
7737*line 3455
7738*line 3456
7739move.l #L856,R13
7740bra L839
7741*line 3457
7742*line 3458
7743L857:
7744*line 3459
7745*line 3460
7746*line 3461
7747move.l #L858,R13
7748bra L839
7749*line 3462
7750*line 3463
7751L859:
7752*line 3464
7753*line 3465
7754*line 3466
7755move.l #L860,R13
7756bra L839
7757*line 3467
7758*line 3468
7759L861:
7760*line 3469
7761*line 3470
7762*line 3471
7763move.l #L862,R13
7764bra L839
7765*line 3472
7766*line 3473
7767L863:
7768*line 3474
7769*line 3475
7770*line 3476
7771move.l #L864,R13
7772bra L839
7773*line 3477
7774*line 3478
7775L865:
7776*line 3479
7777*line 3480
7778*line 3481
7779move.l #L866,R13
7780bra L839
7781*line 3482
7782*line 3483
7783L867:
7784*line 3484
7785*line 3485
7786*line 3486
7787move.l #L868,R13
7788bra L839
7789*line 3487
7790*line 3488
7791L869:
7792*line 3489
7793*line 3490
7794*line 3491
7795move.l #L870,R13
7796bra L839
7797*line 3492
7798*line 3493
7799L871:
7800*line 3494
7801*line 3495
7802*line 3496
7803move.l #L872,R13
7804bra L839
7805*line 3497
7806*line 3498
7807L873:
7808*line 3499
7809*line 3500
7810*line 3501
7811move.l #L874,R13
7812bra L839
7813*line 3502
7814*line 3503
7815L875:
7816*line 3504
7817*line 3505
7818*line 3506
7819move.l #L876,R13
7820bra L839
7821*line 3507
7822*line 3508
7823L877:
7824*line 3509
7825*line 3510
7826*line 3511
7827move.l #L878,R13
7828bra L839
7829*line 3512
7830*line 3513
7831bra L839
7832L840:sub #2,R0
7833cmp #29,R0
7834bhi L839
7835asl #2,R0
7836move R0,R8
7837add.l #L879,R8
7838move.l (R8),R8
7839jmp (R8)
7840.data
7841L879:.dc.l L841
7842.dc.l L843
7843.dc.l L845
7844.dc.l L847
7845.dc.l L849
7846.dc.l L851
7847.dc.l L853
7848.dc.l L855
7849.dc.l L857
7850.dc.l L859
7851.dc.l L839
7852.dc.l L839
7853.dc.l L839
7854.dc.l L861
7855.dc.l L839
7856.dc.l L839
7857.dc.l L839
7858.dc.l L839
7859.dc.l L839
7860.dc.l L839
7861.dc.l L839
7862.dc.l L839
7863.dc.l L863
7864.dc.l L865
7865.dc.l L867
7866.dc.l L869
7867.dc.l L871
7868.dc.l L873
7869.dc.l L875
7870.dc.l L877
7871.text
7872L839:
7873*line 3516
7874move.l R13,(sp)
7875move _cmdunit,-(sp)
7876jsr _writeln
7877addq.l #2,sp
7878*line 3517
7879move.l #L880,(sp)
7880move _cmdunit,-(sp)
7881jsr _writeln
7882addq.l #2,sp
7883L800:tst.l (sp)+
7884movem.l (sp)+,R6-R7/R13-R13
7885unlk R14
7886rts
7887.globl _cx_crsh
7888.text
7889_cx_crsh:
7890~~cx_crsh:
7891link R14,#-4
7892*line 3532
7893*line 3533
7894tst _wzcrsh
7895bne L882
7896*line 3533
7897move.l #L883,(sp)
7898jsr _printf
7899*line 3534
7900L882:
7901*line 3535
7902clr _redo
7903*line 3536
7904jsr _showcr
7905*line 3537
7906move #1,R0
7907bra L881
7908L881:unlk R14
7909rts
7910.globl _bphit
7911.text
7912_bphit:
7913~~bphit:
7914link R14,#-6
7915~rc=-2
7916*line 3554
7917clr -2(R14)
7918*line 3556
7919*line 3556
7920move.l _regptr,R8
7921move.l 68(R8),R0
7922cmp.l _p_ba0,R0
7923bne L885
7924*line 3557
7925*line 3558
7926*line 3558
7927move.l _p_ba0,R8
7928cmp #20047,(R8)
7929bne L886
7930*line 3559
7931*line 3560
7932move.l _p_ba0,R8
7933move _p_bv0,(R8)
7934*line 3561
7935clr.l _p_ba0
7936*line 3562
7937move #20047,_p_bv0
7938*line 3563
7939move #1,-2(R14)
7940*line 3564
7941bra L887
7942L886:
7943*line 3565
7944*line 3566
7945*line 3567
7946move.l #L888,(sp)
7947move _cmdunit,-(sp)
7948jsr _writeln
7949addq.l #2,sp
7950*line 3568
7951move _cmdunit,(sp)
7952move #8,-(sp)
7953move.l _p_ba0,-(sp)
7954jsr _puthn
7955addq.l #6,sp
7956*line 3569
7957move.l #L889,(sp)
7958move _cmdunit,-(sp)
7959jsr _writeln
7960addq.l #2,sp
7961*line 3570
7962move _cmdunit,(sp)
7963move #4,-(sp)
7964move.l _p_ba0,R8
7965clr R0
7966move (R8),R0
7967swap R0
7968clr R0
7969swap R0
7970and.l #$ffff,R0
7971move.l R0,-(sp)
7972jsr _puthn
7973addq.l #6,sp
7974*line 3571
7975move.l #L890,(sp)
7976move _cmdunit,-(sp)
7977jsr _writeln
7978addq.l #2,sp
7979*line 3572
7980move _cmdunit,(sp)
7981move #4,-(sp)
7982move.l #$4e4f,-(sp)
7983jsr _puthn
7984addq.l #6,sp
7985*line 3573
7986move.l #L891,(sp)
7987move _cmdunit,-(sp)
7988jsr _writeln
7989addq.l #2,sp
7990*line 3574
7991move #1,-2(R14)
7992L887:
7993*line 3575
7994*line 3576
7995*line 3577
7996*line 3578
7997*line 3579
7998*line 3580
7999L885:
8000*line 3581
8001*line 3581
8002move.l _regptr,R8
8003move.l 68(R8),R0
8004cmp.l _p_ba1,R0
8005bne L892
8006*line 3582
8007*line 3583
8008*line 3583
8009move.l _p_ba1,R8
8010cmp #20047,(R8)
8011bne L893
8012*line 3584
8013*line 3585
8014move.l _p_ba1,R8
8015move _p_bv1,(R8)
8016*line 3586
8017clr.l _p_ba1
8018*line 3587
8019move #20047,_p_bv1
8020*line 3588
8021move #1,-2(R14)
8022*line 3589
8023bra L894
8024L893:
8025*line 3590
8026*line 3591
8027*line 3592
8028move.l #L895,(sp)
8029move _cmdunit,-(sp)
8030jsr _writeln
8031addq.l #2,sp
8032*line 3593
8033move _cmdunit,(sp)
8034move #8,-(sp)
8035move.l _p_ba0,-(sp)
8036jsr _puthn
8037addq.l #6,sp
8038*line 3594
8039move.l #L896,(sp)
8040move _cmdunit,-(sp)
8041jsr _writeln
8042addq.l #2,sp
8043*line 3595
8044move _cmdunit,(sp)
8045move #4,-(sp)
8046move.l _p_ba1,R8
8047clr R0
8048move (R8),R0
8049swap R0
8050clr R0
8051swap R0
8052and.l #$ffff,R0
8053move.l R0,-(sp)
8054jsr _puthn
8055addq.l #6,sp
8056*line 3596
8057move.l #L897,(sp)
8058move _cmdunit,-(sp)
8059jsr _writeln
8060addq.l #2,sp
8061*line 3597
8062move _cmdunit,(sp)
8063move #4,-(sp)
8064move.l #$4e4f,-(sp)
8065jsr _puthn
8066addq.l #6,sp
8067*line 3598
8068move.l #L898,(sp)
8069move _cmdunit,-(sp)
8070jsr _writeln
8071addq.l #2,sp
8072*line 3599
8073move #1,-2(R14)
8074L894:
8075*line 3600
8076*line 3601
8077*line 3602
8078*line 3603
8079L892:
8080*line 3604
8081*line 3604
8082tst.l _p_ba0
8083beq L899
8084*line 3605
8085*line 3606
8086*line 3606
8087move.l _p_ba0,R8
8088cmp #20047,(R8)
8089bne L900
8090*line 3607
8091*line 3608
8092move.l _p_ba0,R8
8093move _p_bv0,(R8)
8094*line 3609
8095clr.l _p_ba0
8096*line 3610
8097move #20047,_p_bv0
8098*line 3611
8099move #1,-2(R14)
8100*line 3612
8101bra L901
8102L900:
8103*line 3613
8104*line 3614
8105*line 3615
8106move.l #L902,(sp)
8107move _cmdunit,-(sp)
8108jsr _writeln
8109addq.l #2,sp
8110*line 3616
8111move _cmdunit,(sp)
8112move #8,-(sp)
8113move.l _p_ba0,-(sp)
8114jsr _puthn
8115addq.l #6,sp
8116*line 3617
8117move.l #L903,(sp)
8118move _cmdunit,-(sp)
8119jsr _writeln
8120addq.l #2,sp
8121*line 3618
8122move _cmdunit,(sp)
8123move #4,-(sp)
8124move.l _p_ba0,R8
8125clr R0
8126move (R8),R0
8127swap R0
8128clr R0
8129swap R0
8130and.l #$ffff,R0
8131move.l R0,-(sp)
8132jsr _puthn
8133addq.l #6,sp
8134*line 3619
8135move.l #L904,(sp)
8136move _cmdunit,-(sp)
8137jsr _writeln
8138addq.l #2,sp
8139*line 3620
8140move _cmdunit,(sp)
8141move #4,-(sp)
8142move.l #$4e4f,-(sp)
8143jsr _puthn
8144addq.l #6,sp
8145*line 3621
8146move.l #L905,(sp)
8147move _cmdunit,-(sp)
8148jsr _writeln
8149addq.l #2,sp
8150*line 3622
8151move #1,-2(R14)
8152L901:
8153*line 3623
8154*line 3624
8155*line 3625
8156*line 3626
8157*line 3627
8158*line 3628
8159L899:
8160*line 3629
8161*line 3629
8162tst.l _p_ba1
8163beq L906
8164*line 3630
8165*line 3631
8166*line 3631
8167move.l _p_ba1,R8
8168cmp #20047,(R8)
8169bne L907
8170*line 3632
8171*line 3633
8172move.l _p_ba1,R8
8173move _p_bv1,(R8)
8174*line 3634
8175clr.l _p_ba1
8176*line 3635
8177move #20047,_p_bv1
8178*line 3636
8179move #1,-2(R14)
8180*line 3637
8181bra L908
8182L907:
8183*line 3638
8184*line 3639
8185*line 3640
8186move.l #L909,(sp)
8187move _cmdunit,-(sp)
8188jsr _writeln
8189addq.l #2,sp
8190*line 3641
8191move _cmdunit,(sp)
8192move #8,-(sp)
8193move.l _p_ba0,-(sp)
8194jsr _puthn
8195addq.l #6,sp
8196*line 3642
8197move.l #L910,(sp)
8198move _cmdunit,-(sp)
8199jsr _writeln
8200addq.l #2,sp
8201*line 3643
8202move _cmdunit,(sp)
8203move #4,-(sp)
8204move.l _p_ba1,R8
8205clr R0
8206move (R8),R0
8207swap R0
8208clr R0
8209swap R0
8210and.l #$ffff,R0
8211move.l R0,-(sp)
8212jsr _puthn
8213addq.l #6,sp
8214*line 3644
8215move.l #L911,(sp)
8216move _cmdunit,-(sp)
8217jsr _writeln
8218addq.l #2,sp
8219*line 3645
8220move _cmdunit,(sp)
8221move #4,-(sp)
8222move.l #$4e4f,-(sp)
8223jsr _puthn
8224addq.l #6,sp
8225*line 3646
8226move.l #L912,(sp)
8227move _cmdunit,-(sp)
8228jsr _writeln
8229addq.l #2,sp
8230*line 3647
8231move #1,-2(R14)
8232L908:
8233*line 3648
8234*line 3649
8235*line 3650
8236L906:
8237*line 3651
8238*line 3652
8239tst -2(R14)
8240beq L913
8241*line 3652
8242move -2(R14),R0
8243bra L884
8244*line 3653
8245L913:
8246*line 3654
8247move.l #L914,(sp)
8248move _cmdunit,-(sp)
8249jsr _writeln
8250addq.l #2,sp
8251*line 3655
8252clr R0
8253bra L884
8254L884:unlk R14
8255rts
8256.globl _cx_regs
8257.text
8258_cx_regs:
8259~~cx_regs:
8260link R14,#-4
8261*line 3670
8262move.l _regptr,(sp)
8263jsr _showrs
8264*line 3671
8265move #1,R0
8266bra L915
8267L915:unlk R14
8268rts
8269.globl _rompbp
8270.text
8271_rompbp:
8272~~rompbp:
8273~d0=8
8274~d1=12
8275~d2=16
8276~d3=20
8277~d4=24
8278~d5=28
8279~d6=32
8280~d7=36
8281~a0=40
8282~a1=44
8283~a2=48
8284~a3=52
8285~a4=56
8286~a5=60
8287~a6=64
8288~a7=68
8289~sr0=72
8290~sr=74
8291~pc=76
8292link R14,#0
8293movem.l R6-R7,-(sp)
8294~i=R7
8295*line 3690
8296lea 8(R14),R8
8297move.l R8,_regptr
8298*line 3691
8299sub.l #$2,76(R14)
8300*line 3693
8301*line 3694
8302move _iplev,(sp)
8303jsr _setipl
8304cmp #-1,R0
8305bne L917
8306*line 3694
8307move.l #L918,(sp)
8308move _cmdunit,-(sp)
8309jsr _writeln
8310addq.l #2,sp
8311*line 3695
8312L917:
8313*line 3696
8314*line 3696
8315tst _first1
8316beq L919
8317*line 3697
8318*line 3698
8319clr R7
8320bra L922
8321L923:
8322*line 3699
8323move R7,R8
8324add.l R8,R8
8325add.l R8,R8
8326add.l _regptr,R8
8327move.l #$0,(R8)
8328L921:
8329*line 3698
8330add #1,R7
8331L922:
8332*line 3698
8333cmp #8,R7
8334blt L923
8335L920:
8336*line 3699
8337*line 3700
8338*line 3701
8339clr R7
8340bra L926
8341L927:
8342*line 3702
8343move R7,R8
8344add.l R8,R8
8345add.l R8,R8
8346add.l _regptr,R8
8347move.l #$0,32(R8)
8348L925:
8349*line 3701
8350add #1,R7
8351L926:
8352*line 3701
8353cmp #7,R7
8354blt L927
8355L924:
8356*line 3702
8357*line 3703
8358*line 3704
8359move.l _regptr,R8
8360move.l #$ffffe,60(R8)
8361*line 3705
8362*line 3706
8363move #8704,74(R14)
8364*line 3707
8365add.l #$2,76(R14)
8366*line 3708
8367bra L928
8368L919:
8369*line 3709
8370*line 3710
8371*line 3711
8372move.l #L929,(sp)
8373move _cmdunit,-(sp)
8374jsr _writeln
8375addq.l #2,sp
8376*line 3712
8377*line 3713
8378move.l _regptr,(sp)
8379jsr _showrs
8380*line 3714
8381*line 3715
8382*line 3716
8383jsr _bphit
8384tst R0
8385bne L930
8386*line 3716
8387add.l #$2,76(R14)
8388*line 3717
8389L930:L928:
8390*line 3720
8391clr _first1
8392*line 3721
8393clr _exflag
8394*line 3723
8395L933:
8396*line 3724
8397*line 3725
8398jsr _do_cmd
8399*line 3726
8400L932:
8401*line 3727
8402tst _exflag
8403beq L933
8404L931:bra L916
8405L916:tst.l (sp)+
8406movem.l (sp)+,R7-R7
8407unlk R14
8408rts
8409.globl _progid
8410.text
8411_progid:
8412~~progid:
8413link R14,#0
8414movem.l R7-R7/R13-R13,-(sp)
8415~pcptr=R13
8416*line 3748
8417move.l #L935,(sp)
8418move _cmdunit,-(sp)
8419jsr _writeln
8420addq.l #2,sp
8421*line 3763
8422move.l #L936,(sp)
8423move _cmdunit,-(sp)
8424jsr _writeln
8425addq.l #2,sp
8426*line 3764
8427move.l #L937,(sp)
8428move _cmdunit,-(sp)
8429jsr _writeln
8430addq.l #2,sp
8431*line 3766
8432move.l #L938,(sp)
8433move _cmdunit,-(sp)
8434jsr _writeln
8435addq.l #2,sp
8436*line 3767
8437move.l #$100002,R13
8438*line 3768
8439move _cmdunit,(sp)
8440move #2,-(sp)
8441move.b (R13)+,R0
8442ext.w R0
8443ext.l R0
8444move.l R0,-(sp)
8445jsr _putn
8446addq.l #6,sp
8447*line 3769
8448move #46,(sp)
8449move _cmdunit,-(sp)
8450move #3,-(sp)
8451jsr _trap13
8452addq.l #4,sp
8453*line 3770
8454move _cmdunit,(sp)
8455move #2,-(sp)
8456move.b (R13)+,R0
8457ext.w R0
8458ext.l R0
8459move.l R0,-(sp)
8460jsr _putn
8461addq.l #6,sp
8462*line 3771
8463move.l #_promdate,(sp)
8464move _cmdunit,-(sp)
8465jsr _writeln
8466addq.l #2,sp
8467L934:tst.l (sp)+
8468movem.l (sp)+,R13-R13
8469unlk R14
8470rts
8471.globl _pclr
8472.text
8473_pclr:
8474~~pclr:
8475link R14,#0
8476movem.l R6-R7,-(sp)
8477~i=R7
8478*line 3793
8479move.l #$ea60,_ftimer
8480*line 3795
8481bra L942
8482L941:
8483*line 3796
8484*line 3797
8485move.l _afi,R0
8486asr.l #$8,R0
8487and.l #$7f,R0
8488move R0,_asig
8489*line 3798
8490*line 3799
8491*line 3799
8492tst _asig
8493bne L943
8494*line 3800
8495*line 3801
8496*line 3802
8497*line 3803
8498clr R7
8499bra L946
8500L947:
8501*line 3804
8502*line 3805
8503move R7,R8
8504add.l R8,R8
8505add.l R8,R8
8506add.l #_sigtab,R8
8507clr (R8)
8508*line 3806
8509move R7,R8
8510add.l R8,R8
8511add.l R8,R8
8512add.l #_sigtab,R8
8513clr 2(R8)
8514L945:
8515*line 3803
8516add #1,R7
8517L946:
8518*line 3803
8519cmp #128,R7
8520blt L947
8521L944:
8522*line 3807
8523*line 3808
8524bra L940
8525*line 3809
8526*line 3810
8527*line 3811
8528L943:
8529*line 3812
8530*line 3813
8531move.l _ftimer,R0
8532sub.l #$1,_ftimer
8533tst.l R0
8534bge L948
8535*line 3813
8536move #-1,R0
8537bra L939
8538L948:L942:
8539*line 3814
8540move #8,(sp)
8541jsr _trap14
8542move.l R0,_afi
8543cmp.l #$ffffffff,R0
8544bne L941
8545L940:
8546*line 3816
8547clr R0
8548bra L939
8549L939:tst.l (sp)+
8550movem.l (sp)+,R7-R7
8551unlk R14
8552rts
8553.globl _pscan
8554.text
8555_pscan:
8556~~pscan:
8557link R14,#0
8558movem.l R5-R7,-(sp)
8559~i=R7
8560~c=R6
8561*line 3833
8562*line 3833
8563move _ledcntr,R0
8564sub #1,_ledcntr
8565tst R0
8566bne L950
8567*line 3834
8568*line 3835
8569*line 3836
8570move _baseled,R0
8571add #3,R0
8572cmp #23,R0
8573ble L951
8574*line 3836
8575move _baseled,R0
8576add #-21,R0
8577move.b R0,_io_leds
8578*line 3837
8579bra L952
8580L951:
8581*line 3838
8582move _baseled,R0
8583add #3,R0
8584move.b R0,_io_leds
8585L952:
8586*line 3839
8587*line 3840
8588move _baseled,R0
8589add #128,R0
8590move.b R0,_io_leds
8591*line 3841
8592*line 3842
8593*line 3843
8594add #1,_baseled
8595move _baseled,R0
8596cmp #23,R0
8597ble L953
8598*line 3843
8599clr _baseled
8600*line 3844
8601L953:
8602*line 3845
8603move #200,_ledcntr
8604*line 3846
8605*line 3847
8606L950:
8607*line 3848
8608clr _aflag
8609*line 3850
8610*line 3850
8611move #8,(sp)
8612jsr _trap14
8613move.l R0,_afi
8614cmp.l #$ffffffff,R0
8615beq L954
8616*line 3851
8617*line 3852
8618move.l _afi,R0
8619asr.l #$8,R0
8620and.l #$7f,R0
8621move R0,_asig
8622*line 3853
8623move.l _afi,R0
8624asr.l #$7,R0
8625and.l #$1,R0
8626move R0,_astat
8627*line 3854
8628move.l _afi,R0
8629and.l #$7f,R0
8630move R0,_aval
8631*line 3855
8632*line 3856
8633*line 3856
8634tst _asig
8635beq L955
8636*line 3857
8637*line 3858
8638move #1,_aflag
8639*line 3859
8640*line 3860
8641move _asig,R8
8642add.l R8,R8
8643add.l R8,R8
8644add.l #_sigtab,R8
8645move _aval,(R8)
8646*line 3861
8647move _asig,R8
8648add.l R8,R8
8649add.l R8,R8
8650add.l #_sigtab,R8
8651move _astat,2(R8)
8652*line 3862
8653bra L956
8654L955:
8655*line 3863
8656*line 3864
8657*line 3865
8658clr _aflag
8659*line 3866
8660*line 3867
8661clr R7
8662bra L959
8663L960:
8664*line 3868
8665move R7,R8
8666add.l R8,R8
8667add.l R8,R8
8668add.l #_sigtab,R8
8669clr 2(R8)
8670L958:
8671*line 3867
8672add #1,R7
8673L959:
8674*line 3867
8675cmp #128,R7
8676blt L960
8677L957:
8678*line 3868
8679L956:
8680*line 3869
8681*line 3870
8682*line 3871
8683*line 3872
8684L954:
8685*line 3873
8686*line 3873
8687tst _aflag
8688beq L961
8689*line 3874
8690*line 3875
8691*line 3875
8692tst _astat
8693beq L962
8694cmp #39,_asig
8695bne L962
8696*line 3876
8697*line 3877
8698clr R7
8699bra L965
8700L966:
8701*line 3878
8702move R7,R0
8703add #128,R0
8704move.b R0,_io_leds
8705L964:
8706*line 3877
8707add #1,R7
8708L965:
8709*line 3877
8710cmp #24,R7
8711blt L966
8712L963:
8713*line 3878
8714*line 3879
8715*line 3880
8716move.b #31,_io_leds
8717*line 3881
8718*line 3882
8719*line 3883
8720*line 3884
8721clr _B_log_s
8722*line 3885
8723clr _B_dbg_s
8724*line 3886
8725*line 3887
8726jsr _hdvini
8727*line 3888
8728clr __bpbin
8729*line 3889
8730*line 3890
8731*line 3891
8732clr.l (sp)
8733move.l #L967,-(sp)
8734jsr _booter
8735addq.l #4,sp
8736tst R0
8737beq L968
8738*line 3891
8739clr R0
8740bra L949
8741*line 3892
8742bra L969
8743L968:
8744*line 3893
8745move.l #$ffffe,(sp)
8746move.l _B_buf_a,-(sp)
8747jsr _sjumpto
8748addq.l #4,sp
8749L969:
8750*line 3894
8751bra L970
8752L962:
8753*line 3895
8754*line 3895
8755tst _astat
8756beq L971
8757cmp #40,_asig
8758bne L971
8759*line 3896
8760*line 3897
8761clr R7
8762bra L974
8763L975:
8764*line 3898
8765move R7,R0
8766add #128,R0
8767move.b R0,_io_leds
8768L973:
8769*line 3897
8770add #1,R7
8771L974:
8772*line 3897
8773cmp #24,R7
8774blt L975
8775L972:
8776*line 3898
8777*line 3899
8778*line 3900
8779move #1,R0
8780bra L949
8781*line 3901
8782L971:L970:
8783*line 3902
8784*line 3903
8785*line 3904
8786*line 3905
8787*line 3906
8788L961:
8789*line 3907
8790*line 3907
8791move #2,(sp)
8792move #1,-(sp)
8793jsr _trap13
8794addq.l #2,sp
8795tst.l R0
8796beq L976
8797*line 3908
8798*line 3909
8799move #2,(sp)
8800move #2,-(sp)
8801jsr _trap13
8802addq.l #2,sp
8803and.l #$7f,R0
8804move R0,R6
8805*line 3910
8806*line 3911
8807*line 3912
8808cmp #114,R6
8809beq L10014
8810cmp #82,R6
8811bne L977
8812L10014:*line 3912
8813move #1,R0
8814bra L949
8815L977:
8816*line 3913
8817*line 3914
8818L976:
8819*line 3915
8820clr R0
8821bra L949
8822L949:tst.l (sp)+
8823movem.l (sp)+,R6-R7
8824unlk R14
8825rts
8826.globl _main
8827.text
8828_main:
8829~~main:
8830link R14,#0
8831movem.l R6-R7/R12-R13,-(sp)
8832~i=R7
8833~pdptr=R13
8834~pcptr=R12
8835*line 3935
8836move.l #$100008,R12
8837*line 3936
8838move.l #_promdate,R13
8839*line 3937
8840move.b #32,(R13)+
8841*line 3938
8842move.b #45,(R13)+
8843*line 3939
8844move.b #45,(R13)+
8845*line 3940
8846move.b #32,(R13)+
8847*line 3941
8848move.b (R12),R0
8849ext.w R0
8850asr #4,R0
8851and #15,R0
8852add #48,R0
8853move.b R0,(R13)+
8854*line 3942
8855move.b (R12)+,R0
8856ext.w R0
8857and #15,R0
8858add #48,R0
8859move.b R0,(R13)+
8860*line 3943
8861move.b (R12),R0
8862ext.w R0
8863asr #4,R0
8864and #15,R0
8865add #48,R0
8866move.b R0,(R13)+
8867*line 3944
8868move.b (R12)+,R0
8869ext.w R0
8870and #15,R0
8871add #48,R0
8872move.b R0,(R13)+
8873*line 3945
8874move.b #45,(R13)+
8875*line 3946
8876move.b (R12),R0
8877ext.w R0
8878asr #4,R0
8879and #15,R0
8880add #48,R0
8881move.b R0,(R13)+
8882*line 3947
8883move.b (R12)+,R0
8884ext.w R0
8885and #15,R0
8886add #48,R0
8887move.b R0,(R13)+
8888*line 3948
8889move.b #45,(R13)+
8890*line 3949
8891move.b (R12),R0
8892ext.w R0
8893asr #4,R0
8894and #15,R0
8895add #48,R0
8896move.b R0,(R13)+
8897*line 3950
8898move.b (R12)+,R0
8899ext.w R0
8900and #15,R0
8901add #48,R0
8902move.b R0,(R13)+
8903*line 3951
8904clr.b (R13)+
8905*line 3955
8906*line 3956
8907move.l #$fffe,(sp)
8908move.l #$ffffe,-(sp)
8909move.l #$10000,-(sp)
8910move.l #L979,-(sp)
8911move.l #_hs_mtst,-(sp)
8912jsr _sprintf
8913adda.l #16,sp
8914*line 3958
8915move #2,_cmdunit
8916*line 3960
8917clr _ilast
8918*line 3961
8919clr _inext
8920*line 3962
8921move #2,_iplev
8922*line 3964
8923clr _dflag
8924*line 3965
8925clr _exflag
8926*line 3966
8927clr _redo
8928*line 3967
8929clr _goflag
8930*line 3968
8931clr _b0flag
8932*line 3969
8933clr _b1flag
8934*line 3971
8935move.l #$100000,_p_goto
8936*line 3972
8937clr.l _p_len
8938*line 3973
8939move.l #$10,_p_width
8940*line 3974
8941clr.l _p_value
8942*line 3976
8943clr.l _p_ba0
8944*line 3977
8945move #20047,_p_bv0
8946*line 3979
8947clr.l _p_ba1
8948*line 3980
8949move #20047,_p_bv1
8950*line 3982
8951clr.l _tba0
8952*line 3983
8953clr.l _tba1
8954*line 3985
8955clr _inext
8956*line 3987
8957jsr _tsetup
8958*line 3990
8959move #21,_baseled
8960*line 3991
8961clr _ledcntr
8962*line 3992
8963move.b #159,_io_leds
8964*line 3993
8965jsr _GLCinit
8966*line 3995
8967move.l #L980,(sp)
8968move #1,-(sp)
8969clr -(sp)
8970jsr _GLCtext
8971addq.l #4,sp
8972*line 3996
8973move.l #L981,(sp)
8974move #1,-(sp)
8975move #1,-(sp)
8976jsr _GLCtext
8977addq.l #4,sp
8978*line 3998
8979move.l #L982,(sp)
8980move #15,-(sp)
8981move #3,-(sp)
8982jsr _GLCtext
8983addq.l #4,sp
8984*line 4000
8985*line 4001
8986move.l #_promdate,(sp)
8987move.b $100003,R0
8988ext.w R0
8989move R0,-(sp)
8990move.b $100002,R0
8991ext.w R0
8992move R0,-(sp)
8993move.l #L983,-(sp)
8994move.l #_idbuf,-(sp)
8995jsr _sprintf
8996adda.l #12,sp
8997*line 4002
8998move.l #_idbuf,(sp)
8999move #30,-(sp)
9000move #5,-(sp)
9001jsr _GLCtext
9002addq.l #4,sp
9003*line 4004
9004move.l #L985,(sp)
9005move.l #L984,-(sp)
9006move.l #_idbuf,-(sp)
9007jsr _sprintf
9008addq.l #8,sp
9009*line 4005
9010move.l #_idbuf,(sp)
9011move #30,-(sp)
9012move #6,-(sp)
9013jsr _GLCtext
9014addq.l #4,sp
9015*line 4006
9016clr (sp)
9017clr -(sp)
9018jsr _GLCcrc
9019addq.l #2,sp
9020*line 4008
9021move.l #_trap15,(sp)
9022move #47,-(sp)
9023move #5,-(sp)
9024jsr _trap13
9025addq.l #4,sp
9026*line 4010
9027clr R7
9028bra L988
9029L989:
9030*line 4011
9031*line 4012
9032move R7,R8
9033add.l R8,R8
9034add.l R8,R8
9035add.l #_sigtab,R8
9036clr (R8)
9037*line 4013
9038move R7,R8
9039add.l R8,R8
9040add.l R8,R8
9041add.l #_sigtab,R8
9042clr 2(R8)
9043L987:
9044*line 4010
9045add #1,R7
9046L988:
9047*line 4010
9048cmp #128,R7
9049blt L989
9050L986:
9051*line 4016
9052move #9,(sp)
9053jsr _trap14
9054*line 4017
9055move #2,(sp)
9056jsr _setipl
9057*line 4018
9058jsr _pclr
9059*line 4019
9060move #9,(sp)
9061jsr _trap14
9062*line 4021
9063bra L992
9064L991:L992:
9065*line 4021
9066jsr _pscan
9067tst R0
9068beq L991
9069L990:
9070*line 4026
9071*line 4027
9072move.l #_restart,(sp)
9073jsr _setjmp
9074tst R0
9075beq L993
9076*line 4027
9077move.l #L994,(sp)
9078move _cmdunit,-(sp)
9079jsr _writeln
9080addq.l #2,sp
9081*line 4028
9082L993:
9083*line 4029
9084jsr _tsetup
9085*line 4030
9086jsr _progid
9087*line 4032
9088move.l #_trap15,(sp)
9089move #47,-(sp)
9090move #5,-(sp)
9091jsr _trap13
9092addq.l #4,sp
9093*line 4033
9094move.l #L995,(sp)
9095move _cmdunit,-(sp)
9096jsr _writeln
9097addq.l #2,sp
9098*line 4037
9099move #1,_first1
9100*line 4039
9101bra L998
9102L997:
9103*line 4040
9104*line 4041
9105jsr _xtrap15
9106*line 4042
9107move.l #L999,(sp)
9108move _cmdunit,-(sp)
9109jsr _writeln
9110addq.l #2,sp
9111L998:
9112*line 4043
9113bra L997
9114L996:L978:tst.l (sp)+
9115movem.l (sp)+,R7-R7/R12-R13
9116unlk R14
9117rts
9118.data
9119L1:.dc.b $61,$64,$69,$73,$70,$0
9120L2:.dc.b $0
9121L3:.dc.b $62,$6F,$6F,$74,$0
9122L4:.dc.b $0
9123L5:.dc.b $62,$70,$62,$0
9124L6:.dc.b $0
9125L7:.dc.b $63,$68,$65,$63,$6B,$0
9126L8:.dc.b $73,$74,$61,$72,$74,$2C,$65,$6E,$64,$0
9127L9:.dc.b $63,$6F,$70,$79,$0
9128L10:.dc.b $66,$72,$6F,$6D,$2C,$74,$6F,$2C,$6C,$65,$6E,$0
9129L11:.dc.b $63,$72,$61,$73,$68,$0
9130L12:.dc.b $0
9131L13:.dc.b $64,$69,$6E,$69,$74,$0
9132L14:.dc.b $0
9133L15:.dc.b $64,$75,$6D,$70,$0
9134L16:.dc.b $66,$72,$6F,$6D,$5B,$2C,$5B,$74,$6F,$3D,$66,$72,$6F,$6D,$5D,$5B,$2C,$77,$69,$64,$74,$68,$3D,$31,$36,$5D,$5D,$0
9135L17:.dc.b $65,$78,$69,$74,$0
9136L18:.dc.b $0
9137L19:.dc.b $66,$69,$6C,$6C,$0
9138L20:.dc.b $6C,$6F,$63,$2C,$63,$6F,$75,$6E,$74,$2C,$62,$79,$74,$65,$0
9139L21:.dc.b $67,$6F,$0
9140L22:.dc.b $5B,$61,$64,$64,$72,$5D,$5B,$2C,$5B,$62,$72,$6B,$31,$5D,$5B,$2C,$62,$72,$6B,$32,$5D,$5D,$0
9141L23:.dc.b $68,$65,$6C,$70,$0
9142L24:.dc.b $0
9143L25:.dc.b $69,$70,$6C,$0
9144L26:.dc.b $6C,$65,$76,$65,$6C,$0
9145L27:.dc.b $6C,$64,$75,$6D,$70,$0
9146L28:.dc.b $66,$72,$6F,$6D,$5B,$2C,$5B,$74,$6F,$3D,$66,$72,$6F,$6D,$5D,$5B,$2C,$77,$69,$64,$74,$68,$3D,$34,$5D,$5D,$0
9147L29:.dc.b $6C,$6F,$61,$64,$0
9148L30:.dc.b $0
9149L31:.dc.b $6D,$69,$64,$61,$73,$0
9150L32:.dc.b $0
9151L33:.dc.b $6D,$6F,$6E,$63,$0
9152L34:.dc.b $61,$64,$64,$72,$0
9153L35:.dc.b $6D,$6F,$6E,$73,$0
9154L36:.dc.b $61,$64,$64,$72,$0
9155L37:.dc.b $6D,$6F,$6E,$6C,$0
9156L38:.dc.b $61,$64,$64,$72,$0
9157L39:.dc.b $6D,$73,$65,$74,$0
9158L40:.dc.b $61,$64,$64,$72,$2C,$62,$31,$5B,$2C,$2E,$2E,$2E,$2C,$62,$6E,$5D,$0
9159L41:.dc.b $6D,$74,$65,$73,$74,$0
9160L42:.dc.b $6E,$65,$78,$74,$0
9161L43:.dc.b $0
9162L44:.dc.b $6F,$62,$6D,$61,$70,$0
9163L45:.dc.b $0
9164L46:.dc.b $72,$65,$61,$64,$0
9165L47:.dc.b $73,$65,$63,$74,$6F,$72,$2C,$62,$75,$66,$66,$65,$72,$2C,$63,$6F,$75,$6E,$74,$0
9166L48:.dc.b $72,$65,$67,$73,$0
9167L49:.dc.b $0
9168L50:.dc.b $72,$65,$73,$65,$74,$0
9169L51:.dc.b $0
9170L52:.dc.b $72,$73,$65,$74,$0
9171L53:.dc.b $72,$65,$67,$69,$73,$74,$65,$72,$2C,$76,$61,$6C,$75,$65,$0
9172L54:.dc.b $76,$72,$65,$67,$73,$0
9173L55:.dc.b $0
9174L56:.dc.b $76,$72,$73,$65,$74,$0
9175L57:.dc.b $72,$65,$67,$69,$73,$74,$65,$72,$2C,$76,$61,$6C,$75,$65,$0
9176L58:.dc.b $77,$64,$75,$6D,$70,$0
9177L59:.dc.b $66,$72,$6F,$6D,$5B,$2C,$5B,$74,$6F,$3D,$66,$72,$6F,$6D,$5D,$5B,$2C,$77,$69,$64,$74,$68,$3D,$38,$5D,$5D,$0
9178L60:.dc.b $77,$66,$69,$6C,$6C,$0
9179L61:.dc.b $6C,$6F,$63,$2C,$63,$6F,$75,$6E,$74,$2C,$77,$6F,$72,$64,$0
9180L62:.dc.b $77,$72,$69,$74,$65,$0
9181L63:.dc.b $73,$65,$63,$74,$6F,$72,$2C,$62,$75,$66,$66,$65,$72,$2C,$63,$6F,$75,$6E,$74,$0
9182L64:.dc.b $77,$73,$65,$74,$0
9183L65:.dc.b $61,$64,$64,$72,$2C,$77,$31,$5B,$2C,$2E,$2E,$2E,$2C,$77,$6E,$5D,$0
9184L66:.dc.b $7A,$61,$70,$0
9185L67:.dc.b $0
9186L69:.dc.b $64,$30,$0
9187L70:.dc.b $64,$31,$0
9188L71:.dc.b $64,$32,$0
9189L72:.dc.b $64,$33,$0
9190L73:.dc.b $64,$34,$0
9191L74:.dc.b $64,$35,$0
9192L75:.dc.b $64,$36,$0
9193L76:.dc.b $64,$37,$0
9194L77:.dc.b $61,$30,$0
9195L78:.dc.b $61,$31,$0
9196L79:.dc.b $61,$32,$0
9197L80:.dc.b $61,$33,$0
9198L81:.dc.b $61,$34,$0
9199L82:.dc.b $61,$35,$0
9200L83:.dc.b $61,$36,$0
9201L84:.dc.b $61,$37,$0
9202L85:.dc.b $73,$72,$0
9203L86:.dc.b $70,$63,$0
9204L87:.dc.b $73,$70,$0
9205L88:.dc.b $72,$30,$0
9206L89:.dc.b $72,$31,$0
9207L90:.dc.b $72,$32,$0
9208L91:.dc.b $72,$33,$0
9209L92:.dc.b $72,$34,$0
9210L93:.dc.b $72,$35,$0
9211L94:.dc.b $72,$36,$0
9212L95:.dc.b $72,$37,$0
9213L96:.dc.b $72,$38,$0
9214L97:.dc.b $72,$39,$0
9215L98:.dc.b $72,$31,$30,$0
9216L99:.dc.b $72,$31,$31,$0
9217L100:.dc.b $72,$31,$32,$0
9218L101:.dc.b $72,$31,$33,$0
9219L102:.dc.b $72,$31,$34,$0
9220L103:.dc.b $72,$31,$35,$0
9221L104:.dc.b $68,$30,$0
9222L105:.dc.b $68,$31,$0
9223L106:.dc.b $68,$32,$0
9224L107:.dc.b $68,$33,$0
9225L108:.dc.b $76,$30,$0
9226L109:.dc.b $76,$31,$0
9227L110:.dc.b $76,$32,$0
9228L111:.dc.b $76,$33,$0
9229L115:.dc.b $6D,$69,$64,$61,$73,$2E,$61,$62,$73,$0
9230L130:.dc.b $46,$69,$6C,$65,$20,$6E,$61,$6D,$65,$3A,$20,$0
9231L131:.dc.b $D,$A,$0
9232L133:.dc.b $D,$A,$2D,$2D,$2D,$2D,$2D,$20,$43,$61,$6E,$63,$65,$6C,$6C,$65,$64,$20,$2D,$2D,$2D,$2D,$2D,$D,$A,$0
9233L135:.dc.b $D,$A,$2A,$2A,$20,$49,$6E,$76,$61,$6C,$69,$64,$20,$70,$61,$72,$61,$6D,$65,$74,$65,$72,$20,$2A,$2A,$D,$A,$0
9234L191:.dc.b $A,$0
9235L192:.dc.b $20,$20,$20,$20,$20,$20,$20,$78,$30,$20,$20,$20,$20,$20,$78,$31,$20,$20,$20,$20,$20,$78,$32,$20,$20,$20,$20,$20,$78,$33
9236.dc.b $20,$20,$20,$20,$20,$78,$34,$20,$20,$20,$20,$20,$78,$35,$20,$20,$20,$20,$20,$78,$36,$20,$20,$20,$20,$20,$78,$37,$20,$20
9237.dc.b $20,$20,$20,$78,$38,$20,$20,$20,$20,$20,$78,$39,$D,$A,$0
9238L193:.dc.b $20,$20,$20,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D
9239.dc.b $2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$20
9240.dc.b $20,$2D,$2D,$2D,$2D,$2D,$20,$20,$2D,$2D,$2D,$2D,$2D,$D,$A,$0
9241L198:.dc.b $25,$30,$31,$64,$78,$20,$20,$20,$0
9242L204:.dc.b $25,$31,$64,$3A,$25,$33,$64,$20,$20,$0
9243L206:.dc.b $20,$20,$20,$20,$20,$20,$20,$0
9244L208:.dc.b $A,$0
9245L209:.dc.b $A,$54,$65,$6D,$70,$6F,$20,$20,$20,$20,$20,$3D,$20,$25,$33,$64,$2C,$20,$20,$54,$69,$6D,$65,$20,$20,$20,$20,$20,$20,$3D
9246.dc.b $20,$25,$33,$64,$2C,$20,$20,$54,$75,$6E,$69,$6E,$67,$20,$3D,$20,$25,$33,$64,$2C,$20,$20,$4C,$65,$76,$65,$6C,$20,$3D,$20
9247.dc.b $25,$33,$64,$A,$0
9248L210:.dc.b $4C,$6F,$6E,$67,$50,$6F,$74,$20,$4C,$20,$3D,$20,$25,$33,$64,$2C,$20,$20,$4C,$6F,$6E,$67,$50,$6F,$74,$20,$52,$20,$3D,$20
9249.dc.b $25,$33,$64,$2C,$20,$20,$53,$63,$72,$6F,$6C,$6C,$20,$3D,$20,$25,$33,$64,$A,$0
9250L211:.dc.b $54,$61,$62,$6C,$65,$74,$20,$58,$20,$20,$3D,$20,$25,$33,$64,$2C,$20,$20,$54,$61,$62,$6C,$65,$74,$20,$59,$20,$20,$3D,$20
9251.dc.b $25,$33,$64,$A,$0
9252L212:.dc.b $43,$75,$72,$73,$6F,$72,$20,$58,$20,$20,$3D,$20,$25,$33,$64,$2C,$20,$20,$43,$75,$72,$73,$6F,$72,$20,$59,$20,$20,$3D,$20
9253.dc.b $25,$33,$64,$A,$0
9254L345:.dc.b $25,$30,$38,$6C,$58,$20,$77,$61,$73,$20,$25,$30,$34,$58,$2C,$20,$65,$78,$70,$65,$63,$74,$65,$64,$20,$25,$30,$34,$58,$D
9255.dc.b $A,$0
9256L349:.dc.b $25,$30,$38,$6C,$58,$20,$77,$61,$73,$20,$25,$30,$34,$58,$2C,$20,$65,$78,$70,$65,$63,$74,$65,$64,$20,$25,$30,$34,$58,$D
9257.dc.b $A,$0
9258L367:.dc.b $50,$72,$20,$42,$2F,$43,$20,$4C,$6F,$63,$6E,$20,$20,$20,$20,$20,$20,$57,$64,$20,$58,$6C,$6F,$63,$20,$46,$6C,$61,$67,$73
9259.dc.b $D,$A,$0
9260L373:.dc.b $25,$32,$64,$20,$25,$73,$20,$0
9261L374:.dc.b $43,$68,$72,$0
9262L375:.dc.b $42,$69,$74,$0
9263L376:.dc.b $24,$25,$30,$38,$6C,$58,$20,$25,$32,$64,$20,$25,$34,$64,$20,$0
9264L377:.dc.b $24,$25,$30,$34,$58,$D,$A,$0
9265L379:.dc.b $D,$A,$0
9266L386:.dc.b $20,$20,$20,$20,$20,$0
9267L387:.dc.b $20,$20,$0
9268L388:.dc.b $D,$A,$0
9269L389:.dc.b $D,$A,$0
9270L392:.dc.b $D,$A,$A,$45,$52,$52,$4F,$52,$20,$2D,$2D,$20,$55,$6E,$61,$62,$6C,$65,$20,$74,$6F,$20,$72,$65,$61,$64,$20,$42,$50,$42
9271.dc.b $D,$A,$A,$0
9272L394:.dc.b $D,$A,$A,$42,$50,$42,$20,$76,$61,$6C,$75,$65,$73,$3A,$D,$A,$0
9273L395:.dc.b $D,$A,$20,$20,$20,$72,$65,$63,$73,$69,$7A,$20,$20,$20,$0
9274L396:.dc.b $D,$A,$20,$20,$20,$63,$6C,$73,$69,$7A,$20,$20,$20,$20,$20,$0
9275L397:.dc.b $D,$A,$20,$20,$20,$63,$6C,$73,$69,$7A,$62,$20,$20,$20,$0
9276L398:.dc.b $D,$A,$20,$20,$20,$72,$64,$6C,$65,$6E,$20,$20,$20,$20,$20,$0
9277L399:.dc.b $D,$A,$20,$20,$20,$66,$73,$69,$7A,$20,$20,$20,$20,$20,$20,$0
9278L400:.dc.b $D,$A,$20,$20,$20,$66,$61,$74,$72,$65,$63,$20,$20,$20,$0
9279L401:.dc.b $D,$A,$20,$20,$20,$64,$61,$74,$72,$65,$63,$20,$20,$20,$0
9280L402:.dc.b $D,$A,$20,$20,$20,$6E,$75,$6D,$63,$6C,$20,$20,$20,$20,$0
9281L403:.dc.b $D,$A,$20,$20,$20,$62,$66,$6C,$61,$67,$73,$20,$20,$20,$20,$0
9282L404:.dc.b $D,$A,$20,$20,$20,$6E,$74,$72,$61,$63,$6B,$73,$20,$20,$20,$0
9283L405:.dc.b $D,$A,$20,$20,$20,$6E,$73,$69,$64,$65,$73,$20,$20,$20,$20,$0
9284L406:.dc.b $D,$A,$20,$20,$20,$73,$65,$63,$2F,$63,$79,$6C,$20,$20,$0
9285L407:.dc.b $D,$A,$20,$20,$20,$73,$65,$63,$2F,$74,$72,$6B,$20,$20,$0
9286L408:.dc.b $D,$A,$20,$20,$20,$68,$69,$64,$64,$65,$6E,$20,$20,$20,$20,$0
9287L409:.dc.b $D,$A,$A,$0
9288L415:.dc.b $D,$A,$A,$2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$30,$20,$61,$74,$20,$0
9289L416:.dc.b $20,$77,$61,$73,$20,$0
9290L417:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9291L418:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9292L422:.dc.b $D,$A,$A,$2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$31,$20,$61,$74,$20,$0
9293L423:.dc.b $20,$77,$61,$73,$20,$0
9294L424:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9295L425:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9296L485:.dc.b $43,$68,$65,$63,$6B,$73,$75,$6D,$20,$3D,$20,$30,$78,$25,$30,$38,$6C,$58,$D,$A,$0
9297L524:.dc.b $20,$20,$0
9298L525:.dc.b $3A,$0
9299L526:.dc.b $20,$20,$0
9300L527:.dc.b $D,$A,$0
9301L560:.dc.b $30,$34,$30,$30,$30,$30,$30,$30,$46,$42,$0
9302L572:.dc.b $3F,$D,$0
9303L573:.dc.b $2A,$2A,$20,$4C,$6F,$61,$64,$20,$65,$72,$72,$6F,$72,$20,$0
9304L574:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9305L576:.dc.b $4B,$D,$0
9306L578:.dc.b $4B,$D,$0
9307L580:.dc.b $3F,$D,$0
9308L581:.dc.b $2A,$2A,$20,$4C,$6F,$61,$64,$20,$61,$62,$6F,$72,$74,$65,$64,$20,$6F,$6E,$20,$0
9309L582:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9310L589:.dc.b $D,$A,$2A,$2A,$20,$46,$49,$4C,$4C,$20,$66,$61,$69,$6C,$65,$64,$20,$61,$74,$20,$0
9311L590:.dc.b $20,$2A,$2A,$D,$A,$0
9312L602:.dc.b $D,$A,$2A,$2A,$20,$43,$4F,$50,$59,$20,$66,$61,$69,$6C,$65,$64,$20,$66,$72,$6F,$6D,$20,$0
9313L603:.dc.b $20,$74,$6F,$20,$0
9314L604:.dc.b $20,$77,$69,$74,$68,$20,$28,$66,$72,$6F,$6D,$29,$20,$3D,$20,$0
9315L605:.dc.b $20,$61,$6E,$64,$20,$28,$74,$6F,$29,$20,$3D,$20,$0
9316L606:.dc.b $20,$2A,$2A,$D,$A,$0
9317L612:.dc.b $D,$A,$2A,$2A,$20,$43,$4F,$50,$59,$20,$66,$61,$69,$6C,$65,$64,$20,$66,$72,$6F,$6D,$20,$0
9318L613:.dc.b $20,$74,$6F,$20,$0
9319L614:.dc.b $20,$77,$69,$74,$68,$20,$28,$66,$72,$6F,$6D,$29,$20,$3D,$20,$0
9320L615:.dc.b $20,$61,$6E,$64,$20,$28,$74,$6F,$29,$20,$3D,$20,$0
9321L616:.dc.b $20,$2A,$2A,$D,$A,$0
9322L621:.dc.b $D,$A,$0
9323L626:.dc.b $D,$A,$0
9324L627:.dc.b $D,$A,$0
9325L669:.dc.b $45,$52,$52,$4F,$52,$20,$2D,$2D,$20,$43,$6F,$75,$6C,$64,$20,$6E,$6F,$74,$20,$73,$65,$74,$20,$49,$50,$4C,$20,$74,$6F,$20
9326.dc.b $25,$64,$D,$A,$0
9327L671:.dc.b $52,$4F,$4D,$50,$20,$49,$50,$4C,$20,$6E,$6F,$77,$20,$73,$65,$74,$20,$74,$6F,$20,$25,$64,$D,$A,$0
9328L685:.dc.b $D,$A,$0
9329L690:.dc.b $D,$A,$0
9330L692:.dc.b $D,$A,$0
9331L697:.dc.b $D,$A,$0
9332L699:.dc.b $D,$A,$0
9333L704:.dc.b $D,$A,$0
9334L710:.dc.b $D,$A,$0
9335L713:.dc.b $D,$A,$0
9336L714:.dc.b $D,$A,$0
9337L719:.dc.b $D,$A,$0
9338L722:.dc.b $D,$A,$0
9339L723:.dc.b $D,$A,$0
9340L725:.dc.b $52,$4F,$4D,$50,$3A,$20,$0
9341L729:.dc.b $D,$A,$0
9342L738:.dc.b $D,$A,$2A,$2A,$20,$43,$6F,$6D,$6D,$61,$6E,$64,$20,$65,$72,$72,$6F,$72,$20,$2A,$2A,$D,$A,$0
9343L740:.dc.b $D,$A,$2A,$2A,$20,$49,$6E,$76,$61,$6C,$69,$64,$20,$70,$61,$72,$61,$6D,$65,$74,$65,$72,$20,$2A,$2A,$D,$A,$0
9344L741:.dc.b $D,$A,$2A,$2A,$20,$55,$6E,$72,$65,$63,$6F,$67,$6E,$69,$7A,$65,$64,$20,$63,$6F,$6D,$6D,$61,$6E,$64,$20,$2A,$2A,$D,$A,$0
9345L745:.dc.b $D,$A,$2A,$2A,$20,$43,$6F,$6D,$6D,$61,$6E,$64,$20,$65,$72,$72,$6F,$72,$20,$2A,$2A,$D,$A,$0
9346L747:.dc.b $D,$A,$2A,$2A,$20,$43,$6F,$6D,$6D,$61,$6E,$64,$20,$6E,$6F,$74,$20,$72,$65,$70,$65,$61,$74,$61,$62,$6C,$65,$20,$2A,$2A
9347.dc.b $D,$A,$0
9348L749:.dc.b $D,$A,$2D,$2D,$2D,$2D,$2D,$20,$43,$61,$6E,$63,$65,$6C,$6C,$65,$64,$20,$2D,$2D,$2D,$2D,$2D,$D,$A,$0
9349L751:.dc.b $D,$A,$2A,$2A,$20,$49,$6E,$76,$61,$6C,$69,$64,$20,$6C,$69,$6E,$65,$20,$74,$65,$72,$6D,$69,$6E,$61,$74,$6F,$72,$20,$2A
9350.dc.b $2A,$D,$A,$0
9351L752:.dc.b $D,$A,$2A,$2A,$20,$64,$6F,$5F,$63,$6D,$64,$28,$29,$20,$73,$77,$69,$74,$63,$68,$20,$66,$61,$69,$6C,$65,$64,$20,$2A,$2A
9352.dc.b $D,$A,$0
9353L756:.dc.b $D,$A,$45,$52,$52,$4F,$52,$20,$72,$65,$61,$64,$69,$6E,$67,$20,$64,$69,$73,$6B,$3A,$20,$20,$0
9354L757:.dc.b $D,$A,$A,$0
9355L761:.dc.b $D,$A,$45,$52,$52,$4F,$52,$20,$77,$72,$69,$74,$69,$6E,$67,$20,$64,$69,$73,$6B,$3A,$20,$20,$0
9356L762:.dc.b $D,$A,$A,$0
9357L765:.dc.b $20,$20,$20,$20,$20,$20,$20,$0
9358L770:.dc.b $5F,$5F,$5F,$5F,$5F,$5F,$5F,$0
9359L771:.dc.b $D,$A,$64,$30,$2E,$2E,$64,$37,$20,$0
9360L776:.dc.b $D,$A,$61,$30,$2E,$2E,$61,$37,$20,$0
9361L781:.dc.b $D,$A,$50,$43,$20,$3D,$20,$20,$0
9362L782:.dc.b $2C,$20,$20,$20,$20,$53,$52,$20,$3D,$20,$0
9363L783:.dc.b $20,$20,$28,$49,$50,$4C,$20,$3D,$20,$0
9364L784:.dc.b $2C,$20,$0
9365L799:.dc.b $20,$29,$D,$A,$0
9366L801:.dc.b $42,$49,$4F,$53,$20,$43,$72,$61,$73,$68,$20,$41,$72,$65,$61,$20,$44,$75,$6D,$70,$D,$A,$0
9367L802:.dc.b $20,$20,$20,$20,$20,$20,$20,$0
9368L807:.dc.b $5F,$5F,$5F,$5F,$5F,$5F,$5F,$0
9369L808:.dc.b $D,$A,$64,$30,$2E,$2E,$64,$37,$20,$0
9370L813:.dc.b $D,$A,$61,$30,$2E,$2E,$61,$37,$20,$0
9371L818:.dc.b $D,$A,$A,$50,$43,$20,$3D,$20,$20,$0
9372L819:.dc.b $2C,$20,$20,$20,$20,$53,$52,$20,$3D,$20,$0
9373L820:.dc.b $20,$20,$28,$49,$50,$4C,$20,$3D,$20,$0
9374L821:.dc.b $2C,$20,$0
9375L836:.dc.b $20,$29,$D,$A,$0
9376L837:.dc.b $54,$52,$41,$50,$20,$76,$65,$63,$74,$6F,$72,$20,$6E,$75,$6D,$62,$65,$72,$20,$3D,$20,$0
9377L838:.dc.b $20,$20,$28,$6E,$6F,$20,$68,$61,$6E,$64,$6C,$65,$72,$20,$66,$6F,$72,$20,$69,$6E,$74,$65,$72,$72,$75,$70,$74,$29,$0
9378L842:.dc.b $20,$20,$28,$42,$75,$73,$20,$65,$72,$72,$6F,$72,$29,$0
9379L844:.dc.b $20,$20,$28,$41,$64,$64,$72,$65,$73,$73,$20,$65,$72,$72,$6F,$72,$29,$0
9380L846:.dc.b $20,$20,$28,$49,$6C,$6C,$65,$67,$61,$6C,$20,$69,$6E,$73,$74,$72,$75,$63,$74,$69,$6F,$6E,$29,$0
9381L848:.dc.b $20,$20,$28,$5A,$65,$72,$6F,$20,$64,$69,$76,$69,$64,$65,$29,$0
9382L850:.dc.b $20,$20,$28,$43,$48,$4B,$20,$69,$6E,$73,$74,$72,$75,$63,$74,$69,$6F,$6E,$29,$0
9383L852:.dc.b $20,$20,$28,$54,$52,$41,$50,$56,$20,$69,$6E,$73,$74,$72,$75,$63,$74,$69,$6F,$6E,$29,$0
9384L854:.dc.b $20,$20,$28,$50,$72,$69,$76,$69,$6C,$65,$67,$65,$20,$76,$69,$6F,$6C,$61,$74,$69,$6F,$6E,$29,$0
9385L856:.dc.b $20,$20,$28,$54,$72,$61,$63,$65,$20,$2D,$2D,$20,$6E,$6F,$74,$20,$69,$6D,$70,$6C,$65,$6D,$65,$6E,$74,$65,$64,$29,$0
9386L858:.dc.b $20,$20,$28,$4C,$69,$6E,$65,$20,$31,$30,$31,$30,$20,$45,$6D,$75,$6C,$61,$74,$6F,$72,$20,$2D,$2D,$20,$6E,$6F,$74,$20,$69
9387.dc.b $6D,$70,$6C,$65,$6D,$65,$6E,$74,$65,$64,$29,$0
9388L860:.dc.b $20,$20,$28,$4C,$69,$6E,$65,$20,$31,$31,$31,$31,$20,$45,$6D,$75,$6C,$61,$74,$6F,$72,$20,$2D,$2D,$20,$6E,$6F,$74,$20,$69
9389.dc.b $6D,$70,$6C,$65,$6D,$65,$6E,$74,$65,$64,$0
9390L862:.dc.b $20,$20,$28,$55,$6E,$69,$6E,$69,$74,$69,$61,$6C,$69,$7A,$65,$64,$20,$69,$6E,$74,$65,$72,$72,$75,$70,$74,$29,$0
9391L864:.dc.b $20,$20,$28,$53,$70,$75,$72,$69,$6F,$75,$73,$20,$69,$6E,$74,$65,$72,$72,$75,$70,$74,$29,$0
9392L866:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$31,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9393.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9394L868:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$32,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9395.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9396L870:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$33,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9397.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9398L872:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$34,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9399.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9400L874:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$35,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9401.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9402L876:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$36,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9403.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9404L878:.dc.b $20,$20,$28,$4C,$65,$76,$65,$6C,$20,$37,$20,$49,$6E,$74,$65,$72,$72,$75,$70,$74,$20,$2D,$2D,$20,$75,$6E,$69,$6D,$70,$6C
9405.dc.b $6D,$65,$6E,$74,$65,$64,$29,$0
9406L880:.dc.b $D,$A,$0
9407L883:.dc.b $2A,$2A,$20,$43,$72,$61,$73,$68,$20,$73,$77,$69,$74,$63,$68,$20,$4E,$4F,$54,$20,$73,$65,$74,$20,$2A,$2A,$D,$A,$0
9408L888:.dc.b $2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$77,$6F,$72,$64,$20,$61,$74,$20,$0
9409L889:.dc.b $20,$77,$61,$73,$20,$0
9410L890:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9411L891:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9412L895:.dc.b $2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$77,$6F,$72,$64,$20,$61,$74,$20,$0
9413L896:.dc.b $20,$77,$61,$73,$20,$0
9414L897:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9415L898:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9416L902:.dc.b $2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$77,$6F,$72,$64,$20,$61,$74,$20,$0
9417L903:.dc.b $20,$77,$61,$73,$20,$0
9418L904:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9419L905:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9420L909:.dc.b $2A,$2A,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$77,$6F,$72,$64,$20,$61,$74,$20,$0
9421L910:.dc.b $20,$77,$61,$73,$20,$0
9422L911:.dc.b $20,$69,$6E,$73,$74,$65,$61,$64,$20,$6F,$66,$20,$0
9423L912:.dc.b $20,$2A,$2A,$D,$A,$A,$0
9424L914:.dc.b $D,$A,$2A,$2A,$20,$50,$72,$6F,$67,$72,$61,$6D,$20,$69,$6E,$76,$6F,$6B,$65,$64,$20,$52,$4F,$4D,$50,$20,$74,$72,$61,$70
9425.dc.b $20,$2A,$2A,$D,$A,$0
9426L918:.dc.b $D,$A,$A,$2A,$2A,$2A,$2A,$2A,$20,$73,$65,$74,$69,$70,$6C,$28,$29,$20,$66,$61,$69,$6C,$65,$64,$20,$2A,$2A,$2A,$2A,$2A
9427.dc.b $D,$A,$A,$0
9428L929:.dc.b $D,$A,$A,$2A,$2A,$20,$52,$4F,$4D,$50,$20,$42,$72,$65,$61,$6B,$70,$6F,$69,$6E,$74,$20,$54,$52,$41,$50,$20,$2A,$2A,$D
9429.dc.b $A,$0
9430L935:.dc.b $D,$A,$A,$42,$75,$63,$68,$6C,$61,$20,$37,$30,$30,$20,$42,$49,$4F,$53,$20,$2F,$20,$44,$65,$62,$75,$67,$20,$50,$52,$4F
9431.dc.b $4D,$D,$A,$0
9432L936:.dc.b $20,$20,$52,$4F,$4D,$50,$20,$56,$65,$72,$73,$69,$6F,$6E,$20,$0
9433L937:.dc.b $32,$32,$2E,$30,$30,$20,$2D,$2D,$20,$31,$39,$38,$38,$2D,$30,$36,$2D,$32,$30,$0
9434L938:.dc.b $D,$A,$20,$20,$42,$49,$4F,$53,$20,$56,$65,$72,$73,$69,$6F,$6E,$20,$0
9435L967:.dc.b $6D,$69,$64,$61,$73,$2E,$61,$62,$73,$0
9436L979:.dc.b $5B,$5B,$73,$74,$61,$72,$74,$3D,$24,$25,$6C,$58,$5D,$2C,$5B,$65,$6E,$64,$3D,$24,$25,$6C,$78,$5D,$5D,$20,$20,$28,$6F,$72
9437.dc.b $20,$24,$38,$2E,$2E,$24,$25,$6C,$58,$29,$0
9438L980:.dc.b $4C,$6F,$61,$64,$20,$20,$47,$6F,$54,$6F,$0
9439L981:.dc.b $44,$69,$73,$6B,$20,$20,$52,$4F,$4D,$50,$0
9440L982:.dc.b $42,$75,$63,$68,$6C,$61,$20,$37,$30,$30,$20,$2D,$2D,$20,$42,$49,$4F,$53,$2F,$52,$4F,$4D,$50,$20,$46,$69,$72,$6D,$77,$61
9441.dc.b $72,$65,$20,$62,$79,$20,$44,$2E,$4E,$2E,$20,$4C,$79,$6E,$78,$20,$43,$72,$6F,$77,$65,$0
9442L983:.dc.b $42,$49,$4F,$53,$20,$56,$65,$72,$73,$69,$6F,$6E,$20,$25,$30,$32,$64,$2E,$25,$30,$32,$64,$25,$73,$0
9443L984:.dc.b $52,$4F,$4D,$50,$20,$56,$65,$72,$73,$69,$6F,$6E,$20,$25,$73,$0
9444L985:.dc.b $32,$32,$2E,$30,$30,$20,$2D,$2D,$20,$31,$39,$38,$38,$2D,$30,$36,$2D,$32,$30,$0
9445L994:.dc.b $D,$A,$2A,$2A,$2A,$2A,$2A,$20,$52,$4F,$4D,$50,$20,$52,$65,$2D,$73,$74,$61,$72,$74,$69,$6E,$67,$20,$2A,$2A,$2A,$2A,$2A
9446.dc.b $D,$A,$A,$0
9447L995:.dc.b $D,$A,$A,$0
9448L999:.dc.b $D,$A,$2A,$2A,$20,$78,$74,$72,$61,$70,$31,$35,$28,$29,$20,$72,$65,$74,$75,$72,$6E,$65,$64,$20,$74,$6F,$20,$52,$4F,$4D
9449.dc.b $50,$20,$2A,$2A,$D,$A,$A,$0
Note: See TracBrowser for help on using the repository browser.