source: buchla-68k/alcyon/adselbx.s@ 58ff1a9

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

Added Alcyon C reference output.

  • Property mode set to 100644
File size: 16.4 KB
Line 
1.globl _io_time
2.globl _io_lcd
3.globl _io_ser
4.globl _io_midi
5.globl _io_disk
6.globl _io_tone
7.globl _io_leds
8.globl _io_kbrd
9.globl _lcd_a0
10.globl _lcd_a1
11.globl _io_vreg
12.globl _io_vraw
13.globl _io_vram
14.globl _io_fpu
15.globl _v_regs
16.globl _v_odtab
17.globl _v_actab
18.globl _v_ct0
19.globl _v_gt1
20.globl _v_score
21.globl _v_cgtab
22.globl _v_curs0
23.globl _v_curs1
24.globl _v_curs2
25.globl _v_curs3
26.globl _v_curs4
27.globl _v_curs5
28.globl _v_curs6
29.globl _v_curs7
30.globl _v_tcur
31.globl _v_kbobj
32.globl _v_lnobj
33.globl _v_win0
34.globl _v_cur
35.globl _fc_sw
36.globl _fc_val
37.globl _ebflag
38.globl _ebuf
39.globl _curfet
40.globl _cfetp
41.globl _infetp
42.globl _itxput
43.globl _point
44.globl _admctl
45.globl _adnamsw
46.globl _asgfks
47.globl _asghit
48.globl _asgmod
49.globl _auxctl
50.globl _curasg
51.globl _cxval
52.globl _cyval
53.globl _hitbox
54.globl _hitcx
55.globl _hitcy
56.globl _lastam
57.globl _submenu
58.globl _adbox
59.globl _grp2prt
60.globl _ins2grp
61.globl _asgkble
62.globl _key2grp
63.globl _mctlnum
64.globl _csbp
65.globl _curboxp
66.globl _bfs
67.globl _caname
68.globl _vtlin1
69.globl _vtlin2
70.globl _vtlin3
71.globl _asgob
72.globl _adboxes
73.data
74_adboxes:
75.dc.w $1
76.dc.w $0
77.dc.w $5E
78.dc.w $1B
79.dc.w $0
80*line 73
81.dc.l _adfnbox
82.dc.w $1
83.dc.w $1C
84.dc.w $5E
85.dc.w $28
86.dc.w $1
87*line 74
88.dc.l _adfnbox
89.dc.w $1
90.dc.w $38
91.dc.w $5E
92.dc.w $44
93.dc.w $2
94*line 75
95.dc.l _enterit
96.dc.w $1
97.dc.w $2A
98.dc.w $5E
99.dc.w $36
100.dc.w $3
101*line 76
102.dc.l _enterit
103.dc.w $60
104.dc.w $1
105.dc.w $BE
106.dc.w $8A
107.dc.w $4
108*line 77
109.dc.l _enterit
110.dc.w $C0
111.dc.w $1
112.dc.w $12E
113.dc.w $8A
114.dc.w $5
115*line 78
116.dc.l _adfnbox
117.dc.w $130
118.dc.w $1
119.dc.w $1FE
120.dc.w $8A
121.dc.w $6
122*line 79
123.dc.l _adfnbox
124.dc.w $1
125.dc.w $8C
126.dc.w $1FE
127.dc.w $15C
128.dc.w $7
129*line 80
130.dc.l _adfnbox
131.dc.w $1
132.dc.w $46
133.dc.w $26
134.dc.w $52
135.dc.w $8
136*line 81
137.dc.l _adfnbox
138.dc.w $28
139.dc.w $46
140.dc.w $5E
141.dc.w $52
142.dc.w $9
143*line 82
144.dc.l _adfnbox
145.dc.w $1
146.dc.w $54
147.dc.w $5E
148.dc.w $8A
149.dc.w $A
150*line 83
151.dc.l _enterit
152.dc.w $0
153.dc.w $0
154.dc.w $0
155.dc.w $0
156.dc.w $0
157.dc.l $0
158.globl _endatyp
159.text
160_endatyp:
161~~endatyp:
162link R14,#-4
163*line 99
164clr _adnamsw
165*line 100
166clr _submenu
167*line 102
168*line 103
169cmp #-1,_admctl
170bne L2
171*line 103
172move #7,(sp)
173jsr _adswin
174*line 104
175bra L3
176L2:
177*line 105
178move _admctl,(sp)
179jsr _admenu
180L3:L1:unlk R14
181rts
182.globl _admtxt
183.text
184_admtxt:
185~~admtxt:
186~row=8
187~col=10
188~txt=12
189~tag=16
190link R14,#-4
191*line 122
192*line 123
193clr R0
194move 10+_v_regs,R0
195and #384,R0
196beq L5
197*line 123
198clr (sp)
199jsr _vbank
200*line 124
201L5:
202*line 125
203move #14,(sp)
204move.l 12(R14),-(sp)
205move 10(R14),-(sp)
206move 8(R14),-(sp)
207add #10,(sp)
208move #5,-(sp)
209move #11,-(sp)
210move #64,-(sp)
211move.l _asgob,-(sp)
212jsr _vcputsv
213adda.l #18,sp
214L4:unlk R14
215rts
216.globl _admenu
217.text
218_admenu:
219~~admenu:
220~n=8
221link R14,#0
222movem.l R6-R7,-(sp)
223~i=R7
224*line 142
225*line 142
226tst 8(R14)
227blt L7
228*line 143
229*line 144
230move.l #_admtxt,_itxput
231*line 145
232*line 146
233*line 147
234clr R0
235move 10+_v_regs,R0
236and #384,R0
237beq L8
238*line 147
239clr (sp)
240jsr _vbank
241*line 148
242L8:
243*line 149
244*line 150
245move 122+_adbox,(sp)
246jsr _exp_c
247move R0,(sp)
248move 118+_adbox,-(sp)
249move 116+_adbox,-(sp)
250move 114+_adbox,-(sp)
251move 112+_adbox,-(sp)
252move #128,-(sp)
253move.l _asgob,-(sp)
254jsr _vbfill4
255adda.l #14,sp
256*line 151
257*line 152
258move 8(R14),R0
259bra L10
260*line 153
261L11:
262*line 154
263*line 155
264*line 156
265jsr _showim
266bra L9
267*line 157
268*line 158
269L12:
270*line 159
271*line 160
272*line 161
273move _lastam,(sp)
274jsr _showam
275*line 162
276move #9,(sp)
277clr -(sp)
278jsr _settc
279addq.l #2,sp
280bra L9
281*line 163
282*line 164
283L13:
284*line 165
285*line 166
286*line 167
287jsr _showtm
288*line 168
289move #10,(sp)
290move #5,-(sp)
291jsr _settc
292addq.l #2,sp
293bra L9
294*line 169
295*line 170
296L14:
297*line 171
298*line 172
299bra L9
300*line 173
301bra L9
302L10:tst R0
303beq L11
304cmp #1,R0
305beq L12
306cmp #2,R0
307beq L13
308bra L14
309L9:
310*line 174
311*line 175
312bra L15
313L7:
314*line 176
315*line 177
316*line 178
317move 8(R14),_admctl
318*line 179
319move #7,(sp)
320jsr _adswin
321L15:
322*line 182
323move.l #_adpoint,_point
324*line 184
325*line 185
326clr R0
327move 10+_v_regs,R0
328and #384,R0
329beq L16
330*line 185
331clr (sp)
332jsr _vbank
333*line 186
334L16:
335*line 187
336move #10,(sp)
337move #349,-(sp)
338clr -(sp)
339clr -(sp)
340clr -(sp)
341jsr _lseg
342addq.l #8,sp
343*line 188
344move #10,(sp)
345move #349,-(sp)
346move #511,-(sp)
347clr -(sp)
348move #511,-(sp)
349jsr _lseg
350addq.l #8,sp
351*line 190
352move 8(R14),_admctl
353L6:tst.l (sp)+
354movem.l (sp)+,R7-R7
355unlk R14
356rts
357.globl _adfnbox
358.text
359_adfnbox:
360~~adfnbox:
361~n=8
362link R14,#-4
363movem.l R3-R7,-(sp)
364~i=R7
365~grp=R6
366~key=R5
367~line=R4
368~row=-2
369~col=-4
370*line 209
371move _hitcy,R0
372ext.l R0
373divs #14,R0
374move R0,-2(R14)
375*line 210
376move _hitcx,R0
377asr #3,R0
378move R0,-4(R14)
379*line 212
380move _hitbox,R0
381bra L19
382*line 213
383L20:
384*line 214
385*line 215
386*line 216
387*line 216
388tst _adnamsw
389bne L21
390tst -2(R14)
391bne L21
392*line 217
393*line 218
394*line 218
395cmp #1,-4(R14)
396blt L22
397cmp #7,-4(R14)
398bgt L22
399*line 219
400*line 220
401*line 220
402cmp #1,_admctl
403beq L23
404*line 221
405*line 222
406clr _lastam
407*line 223
408move #1,(sp)
409jsr _admenu
410*line 224
411bra L24
412L23:
413*line 225
414*line 226
415*line 227
416*line 227
417tst _lastam
418bne L25
419*line 228
420*line 229
421move #60,_lastam
422*line 230
423move #1,(sp)
424jsr _admenu
425*line 231
426bra L26
427L25:
428*line 232
429*line 233
430*line 234
431clr _lastam
432*line 235
433move #-1,(sp)
434jsr _admenu
435L26:
436*line 236
437L24:
438*line 237
439*line 238
440*line 239
441clr R0
442bra L17
443*line 240
444bra L27
445L22:
446*line 241
447*line 242
448*line 243
449jsr _enterit
450bra L17
451L27:
452*line 244
453*line 245
454*line 246
455L21:
456*line 247
457*line 247
458tst _adnamsw
459beq L28
460*line 248
461*line 249
462*line 249
463jsr _vtyper
464tst R0
465beq L29
466*line 250
467*line 251
468*line 251
469tst _asgmod
470bne L30
471*line 252
472*line 253
473move #1,_asgmod
474*line 254
475clr (sp)
476jsr _adswin
477*line 255
478L30:
479*line 256
480*line 257
481*line 258
482L29:bra L31
483L28:
484*line 259
485*line 260
486*line 261
487clr (sp)
488jsr _vbank
489*line 262
490*line 263
491*line 264
492move #3,(sp)
493jsr _exp_c
494move R0,(sp)
495move #181,-(sp)
496move #247,-(sp)
497move #140,-(sp)
498move #8,-(sp)
499move #128,-(sp)
500move.l _asgob,-(sp)
501jsr _vbfill4
502adda.l #14,sp
503*line 265
504*line 266
505move #14,(sp)
506move.l #_vtlin1,-(sp)
507move #1,-(sp)
508move #10,-(sp)
509move #11,-(sp)
510move #64,-(sp)
511move.l _asgob,-(sp)
512jsr _tsplot4
513adda.l #16,sp
514*line 267
515move #14,(sp)
516move.l #_vtlin2,-(sp)
517move #1,-(sp)
518move #11,-(sp)
519move #11,-(sp)
520move #64,-(sp)
521move.l _asgob,-(sp)
522jsr _tsplot4
523adda.l #16,sp
524*line 268
525move #14,(sp)
526move.l #_vtlin3,-(sp)
527move #1,-(sp)
528move #12,-(sp)
529move #11,-(sp)
530move #64,-(sp)
531move.l _asgob,-(sp)
532jsr _tsplot4
533adda.l #16,sp
534*line 269
535*line 270
536move.l #_adpoint,_point
537*line 271
538*line 272
539*line 273
540*line 274
541move #10,(sp)
542move #139,-(sp)
543move #248,-(sp)
544move #139,-(sp)
545move #7,-(sp)
546jsr _lseg
547addq.l #8,sp
548*line 275
549*line 276
550*line 277
551*line 278
552move #10,(sp)
553move #181,-(sp)
554move #248,-(sp)
555move #139,-(sp)
556move #248,-(sp)
557jsr _lseg
558addq.l #8,sp
559*line 279
560*line 280
561*line 281
562*line 282
563move #10,(sp)
564move #181,-(sp)
565move #7,-(sp)
566move #181,-(sp)
567move #248,-(sp)
568jsr _lseg
569addq.l #8,sp
570*line 283
571*line 284
572*line 285
573*line 286
574move #10,(sp)
575move #139,-(sp)
576move #7,-(sp)
577move #181,-(sp)
578move #7,-(sp)
579jsr _lseg
580addq.l #8,sp
581*line 287
582*line 288
583*line 289
584*line 290
585*line 291
586*line 292
587move 8(R14),R0
588asl #4,R0
589ext.l R0
590move.l R0,R8
591move.l #_adbox,R9
592move 10(R8,R9.l),(sp)
593move 8(R14),R0
594asl #4,R0
595ext.l R0
596move.l R0,R8
597move.l #_adbox,R9
598move 8(R8,R9.l),-(sp)
599move.l #_endatyp,-(sp)
600move.l #_nokey,-(sp)
601move.l #_nokey,-(sp)
602move.l #_bspacur,-(sp)
603move.l #_advacur,-(sp)
604move #1,-(sp)
605move #10,-(sp)
606move.l #_caname,-(sp)
607move #1,-(sp)
608move.l #_vtdisp,-(sp)
609move.l _asgob,-(sp)
610jsr _vtsetup
611adda.l #40,sp
612*line 293
613*line 294
614move #1,_adnamsw
615*line 295
616move #1,_submenu
617L31:
618*line 296
619*line 297
620*line 298
621clr R0
622bra L17
623*line 299
624*line 300
625L32:
626*line 301
627*line 302
628*line 303
629*line 303
630cmp #1,-4(R14)
631blt L33
632cmp #4,-4(R14)
633bgt L33
634*line 304
635*line 305
636*line 306
637tst _curasg
638bne L34
639*line 306
640move #-1,R0
641bra L17
642*line 307
643L34:
644*line 308
645move _curasg,(sp)
646jsr _putasg
647*line 309
648clr (sp)
649jsr _adswin
650*line 310
651clr R0
652bra L17
653*line 311
654bra L35
655L33:
656*line 312
657*line 312
658cmp #6,-4(R14)
659blt L36
660cmp #10,-4(R14)
661bgt L36
662*line 313
663*line 314
664move _curasg,(sp)
665jsr _getasg
666*line 315
667jsr _awins
668*line 316
669clr R0
670bra L17
671*line 317
672*line 318
673L36:L35:L37:
674*line 319
675*line 320
676*line 321
677*line 321
678cmp #25,-4(R14)
679bne L38
680*line 322
681*line 323
682*line 324
683cmp #5,-2(R14)
684blt L10000
685cmp #8,-2(R14)
686ble L39
687L10000:*line 324
688move #-1,R0
689bra L17
690*line 325
691L39:
692*line 326
693move #256,R0
694move -2(R14),R9
695sub #5,R9
696add.l R9,R9
697add.l #_mctlnum,R9
698eor R0,(R9)
699*line 327
700*line 328
701*line 329
702clr R0
703move 10+_v_regs,R0
704and #384,R0
705beq L40
706*line 329
707clr (sp)
708jsr _vbank
709*line 330
710L40:
711*line 331
712move -2(R14),R0
713add #45,R0
714move.b R0,_bfs
715*line 332
716clr.b 1+_bfs
717*line 333
718*line 334
719*line 335
720*line 336
721*line 337
722move #14,(sp)
723move.l #_bfs,-(sp)
724move 8(R14),R0
725asl #4,R0
726ext.l R0
727move.l R0,R8
728move.l #_adbox,R9
729move 14(R8,R9.l),-(sp)
730move -2(R14),-(sp)
731move -2(R14),R8
732sub #5,R8
733add.l R8,R8
734add.l #_mctlnum,R8
735btst #0,(R8)
736beq L10001
737move #13,-(sp)
738bra L10003
739L10001:move 8(R14),R0
740asl #4,R0
741ext.l R0
742move.l R0,R8
743move.l #_adbox,R9
744move 8(R8,R9.l),-(sp)
745L10003:move #64,-(sp)
746move.l _asgob,-(sp)
747jsr _tsplot4
748adda.l #16,sp
749*line 338
750*line 339
751clr R0
752bra L17
753*line 340
754bra L41
755L38:
756*line 341
757*line 342
758*line 343
759jsr _enterit
760bra L17
761L41:
762*line 344
763*line 345
764*line 346
765L42:
766*line 347
767*line 348
768*line 349
769*line 350
770cmp #41,-4(R14)
771beq L10004
772cmp #42,-4(R14)
773beq L10004
774cmp #54,-4(R14)
775beq L10004
776cmp #55,-4(R14)
777bne L43
778L10004:cmp #3,-2(R14)
779bne L43
780*line 351
781*line 352
782*line 353
783*line 354
784*line 355
785tst _admctl
786beq L44
787*line 355
788clr (sp)
789jsr _admenu
790*line 356
791bra L45
792L44:
793*line 357
794move #-1,(sp)
795jsr _admenu
796L45:
797*line 358
798*line 359
799clr R0
800bra L17
801*line 360
802bra L46
803L43:
804*line 361
805*line 361
806cmp #39,-4(R14)
807bne L47
808*line 362
809*line 363
810*line 364
811cmp #4,-2(R14)
812blt L10005
813cmp #9,-2(R14)
814ble L48
815L10005:*line 364
816move #-1,R0
817bra L17
818*line 365
819*line 366
820*line 367
821L48:
822*line 368
823move -2(R14),R6
824sub #4,R6
825*line 369
826*line 370
827move #256,R0
828move R6,R9
829add.l R9,R9
830add.l #_ins2grp,R9
831eor R0,(R9)
832*line 371
833*line 372
834move R6,R0
835add #49,R0
836move.b R0,_bfs
837*line 373
838clr.b 1+_bfs
839*line 374
840*line 375
841*line 376
842clr R0
843move 10+_v_regs,R0
844and #384,R0
845beq L49
846*line 376
847clr (sp)
848jsr _vbank
849*line 377
850L49:
851*line 378
852*line 379
853*line 380
854move #14,(sp)
855move.l #_bfs,-(sp)
856move -4(R14),-(sp)
857move -2(R14),-(sp)
858move R6,R8
859add.l R8,R8
860add.l #_ins2grp,R8
861btst #0,(R8)
862beq L10006
863move #13,-(sp)
864bra L10008
865L10006:move 8(R14),R0
866asl #4,R0
867ext.l R0
868move.l R0,R8
869move.l #_adbox,R9
870move 8(R8,R9.l),-(sp)
871L10008:move #64,-(sp)
872move.l _asgob,-(sp)
873jsr _tsplot4
874adda.l #16,sp
875*line 381
876*line 382
877clr R0
878bra L17
879*line 383
880*line 384
881bra L50
882L47:
883*line 385
884*line 385
885cmp #52,-4(R14)
886bne L51
887*line 386
888*line 387
889*line 388
890cmp #4,-2(R14)
891blt L10009
892cmp #9,-2(R14)
893ble L52
894L10009:*line 388
895move #-1,R0
896bra L17
897*line 389
898*line 390
899*line 391
900L52:
901*line 392
902move -2(R14),R6
903add #2,R6
904*line 393
905*line 394
906move #256,R0
907move R6,R9
908add.l R9,R9
909add.l #_ins2grp,R9
910eor R0,(R9)
911*line 395
912*line 396
913move R6,R0
914cmp #8,R6
915ble L10010
916move #163,R1
917bra L10012
918L10010:move #49,R1
919L10012:add R1,R0
920move.b R0,_bfs
921*line 397
922clr.b 1+_bfs
923*line 398
924*line 399
925*line 400
926clr R0
927move 10+_v_regs,R0
928and #384,R0
929beq L53
930*line 400
931clr (sp)
932jsr _vbank
933*line 401
934L53:
935*line 402
936*line 403
937*line 404
938move #14,(sp)
939move.l #_bfs,-(sp)
940move -4(R14),-(sp)
941move -2(R14),-(sp)
942move R6,R8
943add.l R8,R8
944add.l #_ins2grp,R8
945btst #0,(R8)
946beq L10013
947move #13,-(sp)
948bra L10015
949L10013:move 8(R14),R0
950asl #4,R0
951ext.l R0
952move.l R0,R8
953move.l #_adbox,R9
954move 8(R8,R9.l),-(sp)
955L10015:move #64,-(sp)
956move.l _asgob,-(sp)
957jsr _tsplot4
958adda.l #16,sp
959*line 405
960*line 406
961clr R0
962bra L17
963*line 407
964bra L54
965L51:
966*line 408
967*line 409
968*line 410
969jsr _enterit
970bra L17
971L54:L50:L46:
972*line 411
973*line 412
974*line 413
975L55:
976*line 414
977*line 415
978*line 416
979*line 417
980cmp #-1,_admctl
981beq L56
982*line 417
983move #-1,R0
984bra L17
985*line 418
986L56:
987*line 419
988*line 419
989tst _asghit
990beq L57
991*line 420
992*line 421
993*line 421
994move _hitcy,R0
995ext.l R0
996divs #14,R0
997cmp _asghit,R0
998bne L58
999*line 422
1000*line 423
1001*line 424
1002*line 425
1003move _asghit,R6
1004add #-11,R6
1005*line 426
1006move R6,R4
1007muls #14,R4
1008add #158,R4
1009*line 427
1010clr R5
1011*line 428
1012*line 429
1013clr R7
1014bra L61
1015L62:
1016*line 430
1017*line 431
1018*line 432
1019move R7,R8
1020add.l R8,R8
1021move.l #_asgkble,R9
1022move 0(R8,R9.l),R0
1023add #24,R0
1024cmp _hitcx,R0
1025bgt L63
1026move R7,R8
1027add.l R8,R8
1028move.l #_asgkble,R9
1029move 0(R8,R9.l),R0
1030cmp #87,R7
1031bne L10016
1032move #31,R1
1033bra L10018
1034L10016:move #28,R1
1035L10018:add R1,R0
1036cmp _hitcx,R0
1037blt L63
1038*line 432
1039move R7,R5
1040add #1,R5
1041*line 433
1042L63:L60:
1043*line 429
1044add #1,R7
1045L61:
1046*line 429
1047cmp #88,R7
1048blt L62
1049L59:
1050*line 434
1051*line 435
1052move R5,R0
1053sub #1,R5
1054tst R0
1055bne L64
1056*line 435
1057move #-1,R0
1058bra L17
1059*line 436
1060L64:
1061*line 437
1062*line 437
1063cmp _asgfks,R5
1064bge L65
1065*line 438
1066*line 439
1067move _asgfks,R7
1068*line 440
1069move R5,_asgfks
1070*line 441
1071move R7,R5
1072*line 442
1073*line 443
1074L65:
1075*line 444
1076move _asgfks,R7
1077bra L68
1078L69:
1079*line 445
1080move #1,R0
1081move R6,R1
1082asl R1,R0
1083move R7,R9
1084add.l R9,R9
1085add.l #_key2grp,R9
1086eor R0,(R9)
1087L67:
1088*line 444
1089add #1,R7
1090L68:
1091*line 444
1092cmp R5,R7
1093ble L69
1094L66:
1095*line 445
1096*line 446
1097*line 447
1098move R6,(sp)
1099jsr _drawk2g
1100*line 448
1101clr _asghit
1102*line 449
1103*line 450
1104*line 450
1105tst _asgmod
1106bne L70
1107*line 451
1108*line 452
1109move #1,_asgmod
1110*line 453
1111clr (sp)
1112jsr _adswin
1113*line 454
1114*line 455
1115L70:bra L71
1116L58:
1117*line 456
1118*line 457
1119*line 458
1120*line 459
1121*line 460
1122move _asghit,(sp)
1123add #-11,(sp)
1124jsr _drawk2g
1125*line 461
1126clr _asghit
1127L71:
1128*line 462
1129*line 463
1130*line 464
1131bra L72
1132L57:
1133*line 465
1134*line 466
1135*line 467
1136*line 468
1137*line 469
1138move _hitcy,R0
1139ext.l R0
1140divs #14,R0
1141move R0,_asghit
1142*line 470
1143move _asghit,R6
1144add #-11,R6
1145*line 471
1146*line 472
1147*line 472
1148move R6,R8
1149add.l R8,R8
1150add.l R8,R8
1151add.l #_grp2prt,R8
1152cmp #1,(R8)
1153beq L73
1154*line 473
1155*line 474
1156clr _asghit
1157*line 475
1158move #-1,R0
1159bra L17
1160*line 476
1161*line 477
1162L73:
1163*line 478
1164move R6,R4
1165muls #14,R4
1166add #158,R4
1167*line 479
1168clr R5
1169*line 480
1170*line 481
1171clr R7
1172bra L76
1173L77:
1174*line 482
1175*line 483
1176*line 484
1177move R7,R8
1178add.l R8,R8
1179move.l #_asgkble,R9
1180move 0(R8,R9.l),R0
1181add #24,R0
1182cmp _hitcx,R0
1183bgt L78
1184move R7,R8
1185add.l R8,R8
1186move.l #_asgkble,R9
1187move 0(R8,R9.l),R0
1188cmp #87,R7
1189bne L10019
1190move #31,R1
1191bra L10021
1192L10019:move #28,R1
1193L10021:add R1,R0
1194cmp _hitcx,R0
1195blt L78
1196*line 484
1197move R7,R5
1198add #1,R5
1199*line 485
1200L78:L75:
1201*line 481
1202add #1,R7
1203L76:
1204*line 481
1205cmp #88,R7
1206blt L77
1207L74:
1208*line 486
1209*line 486
1210move R5,R0
1211sub #1,R5
1212tst R0
1213bne L79
1214*line 487
1215*line 488
1216clr _asghit
1217*line 489
1218move #-1,R0
1219bra L17
1220*line 490
1221*line 491
1222L79:
1223*line 492
1224move R5,_asgfks
1225*line 493
1226*line 494
1227*line 495
1228*line 496
1229move #13,(sp)
1230jsr _exp_c
1231move R0,(sp)
1232move R4,-(sp)
1233add #3,(sp)
1234move R5,R8
1235add.l R8,R8
1236move.l #_asgkble,R9
1237move 0(R8,R9.l),-(sp)
1238cmp #87,R5
1239bne L10022
1240move #31,R0
1241bra L10024
1242L10022:move #28,R0
1243L10024:add R0,(sp)
1244move R4,-(sp)
1245move R5,R8
1246add.l R8,R8
1247move.l #_asgkble,R9
1248move 0(R8,R9.l),-(sp)
1249add #24,(sp)
1250move #128,-(sp)
1251move.l _asgob,-(sp)
1252jsr _vbfill4
1253adda.l #14,sp
1254*line 497
1255L72:
1256*line 498
1257*line 499
1258*line 500
1259clr R0
1260bra L17
1261*line 501
1262L80:
1263*line 502
1264*line 503
1265*line 504
1266tst _auxctl
1267beq L10025
1268clr (sp)
1269bra L10026
1270L10025:move #1,(sp)
1271L10026:jsr _setaux
1272*line 505
1273move #8,(sp)
1274jsr _adswin
1275*line 506
1276clr R0
1277bra L17
1278*line 507
1279L81:
1280*line 508
1281*line 509
1282*line 510
1283*line 510
1284cmp #6,-4(R14)
1285blt L82
1286cmp #8,-4(R14)
1287bgt L82
1288*line 511
1289*line 512
1290*line 513
1291cmp #2,_admctl
1292beq L83
1293*line 513
1294move #2,(sp)
1295jsr _admenu
1296*line 514
1297bra L84
1298L83:
1299*line 515
1300move #-1,(sp)
1301jsr _admenu
1302L84:
1303*line 516
1304*line 517
1305clr R0
1306bra L17
1307*line 518
1308bra L85
1309L82:
1310*line 519
1311*line 520
1312*line 521
1313jsr _enterit
1314bra L17
1315L85:
1316*line 522
1317bra L18
1318L19:cmp #9,R0
1319bhi L18
1320asl #2,R0
1321move R0,R8
1322add.l #L86,R8
1323move.l (R8),R8
1324jmp (R8)
1325.data
1326L86:.dc.l L20
1327.dc.l L32
1328.dc.l L18
1329.dc.l L18
1330.dc.l L18
1331.dc.l L37
1332.dc.l L42
1333.dc.l L55
1334.dc.l L80
1335.dc.l L81
1336.text
1337L18:
1338*line 525
1339move #-1,R0
1340bra L17
1341L17:tst.l (sp)+
1342movem.l (sp)+,R4-R7
1343unlk R14
1344rts
1345.data
Note: See TracBrowser for help on using the repository browser.