source: buchla-68k/alcyon/ldfield.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: 13.5 KB
Line 
1.globl _ebflag
2.globl _ebuf
3.globl _curfet
4.globl _cfetp
5.globl _infetp
6.globl _io_time
7.globl _io_lcd
8.globl _io_ser
9.globl _io_midi
10.globl _io_disk
11.globl _io_tone
12.globl _io_leds
13.globl _io_kbrd
14.globl _lcd_a0
15.globl _lcd_a1
16.globl _io_vreg
17.globl _io_vraw
18.globl _io_vram
19.globl _io_fpu
20.globl _v_regs
21.globl _v_odtab
22.globl _v_actab
23.globl _v_ct0
24.globl _v_gt1
25.globl _v_score
26.globl _v_cgtab
27.globl _v_curs0
28.globl _v_curs1
29.globl _v_curs2
30.globl _v_curs3
31.globl _v_curs4
32.globl _v_curs5
33.globl _v_curs6
34.globl _v_curs7
35.globl _v_tcur
36.globl _v_kbobj
37.globl _v_lnobj
38.globl _v_win0
39.globl _v_cur
40.globl _fc_sw
41.globl _fc_val
42.globl _filecat
43.globl _astat
44.globl _catin
45.globl _cmfirst
46.globl _cxrate
47.globl _cxval
48.globl _cyrate
49.globl _cyval
50.globl _ldelsw
51.globl _lderrsw
52.globl _ldkind
53.globl _ldpass
54.globl _ldrow
55.globl _ldslot
56.globl _lmwtype
57.globl _loadrow
58.globl _loadsw
59.globl _lorchl
60.globl _lrasw
61.globl _lselsw
62.globl _ltagged
63.globl _ndisp
64.globl _oldltag
65.globl _oldpk
66.globl _oldsl
67.globl _pkctrl
68.globl _sliders
69.globl _stcrow
70.globl _stccol
71.globl _submenu
72.globl _tagslot
73.globl _thcwval
74.globl _tvcwval
75.globl _librob
76.globl _bfs
77.globl _ldfile
78.globl _ldcmnt
79.globl _crate1
80.globl _ldmap
81.globl _swpt
82.globl _oldsw
83.globl _csbp
84.globl _ldboxes
85.globl _ld_fet1
86.data
87_ld_fet1:
88.dc.w $15
89.dc.w $A
90.dc.w $11
91.dc.w $0
92*line 98
93.dc.l _et_null
94*line 98
95.dc.l _ef_null
96*line 98
97.dc.l _rd_null
98*line 98
99.dc.l _nd_null
100.dc.w $15
101.dc.w $1B
102.dc.w $3F
103.dc.w $0
104*line 99
105.dc.l _et_null
106*line 99
107.dc.l _ef_null
108*line 99
109.dc.l _rd_null
110*line 99
111.dc.l _nd_null
112.dc.w $0
113.dc.w $0
114.dc.w $0
115.dc.w $0
116.dc.l $0
117.dc.l $0
118.dc.l $0
119.dc.l $0
120.globl _ldbox
121.data
122_ldbox:
123.dc.w $1
124.dc.w $1
125.dc.w $1FE
126.dc.w $D
127.dc.w $C
128.dc.w $2
129.dc.w $0
130.dc.w $1
131.dc.w $1
132.dc.w $E
133.dc.w $1FE
134.dc.w $124
135.dc.w $C
136.dc.w $2
137.dc.w $1
138.dc.w $1
139.dc.w $1
140.dc.w $126
141.dc.w $4E
142.dc.w $133
143.dc.w $C
144.dc.w $3
145.dc.w $15
146.dc.w $1
147.dc.w $50
148.dc.w $126
149.dc.w $8F
150.dc.w $133
151.dc.w $C
152.dc.w $4
153.dc.w $15
154.dc.w $A
155.dc.w $91
156.dc.w $126
157.dc.w $D6
158.dc.w $133
159.dc.w $C
160.dc.w $5
161.dc.w $15
162.dc.w $13
163.dc.w $D8
164.dc.w $126
165.dc.w $1FE
166.dc.w $133
167.dc.w $C
168.dc.w $6
169.dc.w $15
170.dc.w $1B
171.dc.w $1
172.dc.w $135
173.dc.w $46
174.dc.w $141
175.dc.w $C
176.dc.w $7
177.dc.w $16
178.dc.w $1
179.dc.w $1
180.dc.w $142
181.dc.w $46
182.dc.w $14F
183.dc.w $C
184.dc.w $7
185.dc.w $17
186.dc.w $1
187.dc.w $1
188.dc.w $150
189.dc.w $46
190.dc.w $15C
191.dc.w $C
192.dc.w $7
193.dc.w $18
194.dc.w $1
195.dc.w $48
196.dc.w $135
197.dc.w $FF
198.dc.w $15C
199.dc.w $C
200.dc.w $8
201.dc.w $16
202.dc.w $A
203.dc.w $101
204.dc.w $135
205.dc.w $1FE
206.dc.w $15C
207.dc.w $C
208.dc.w $9
209.dc.w $16
210.dc.w $21
211.globl _ldbxlb0
212.data
213_ldbxlb0:
214*line 121
215.dc.l L1
216*line 122
217.dc.l L2
218*line 123
219.dc.l L3
220*line 124
221.dc.l L4
222*line 125
223.dc.l L5
224*line 126
225.dc.l L6
226*line 127
227.dc.l L7
228*line 128
229.dc.l L8
230*line 129
231.dc.l L9
232*line 130
233.dc.l L10
234*line 132
235.dc.l L11
236.globl _ld_flds
237.data
238_ld_flds:
239*line 139
240.dc.l _stdctp0
241*line 140
242.dc.l _ld_prmv
243*line 141
244.dc.l _nokey
245*line 142
246.dc.l _cxkstd
247*line 143
248.dc.l _cykstd
249*line 144
250.dc.l _ldcxupd
251*line 145
252.dc.l _ldcyupd
253*line 146
254.dc.l _nokey
255*line 147
256.dc.l _nokey
257*line 148
258.dc.l _ldxkey
259*line 149
260.dc.l _select
261*line 150
262.dc.l _ldmkey
263*line 151
264.dc.l _ldkey
265*line 152
266.dc.l _nokey
267*line 153
268.dc.l _ld_fet1
269*line 154
270.dc.l _ldboxes
271*line 155
272.dc.l _crate1
273*line 156
274.dc.l _crate1
275.dc.w $1
276.dc.w $20
277.dc.w $13C
278.globl _ldxkey
279.text
280_ldxkey:
281~~ldxkey:
282link R14,#-4
283movem.l R6-R7/R13-R13,-(sp)
284~fn=R13
285~slot=R7
286~buf=-4
287*line 178
288*line 179
289tst _astat
290bne L13
291*line 179
292move #-1,R0
293bra L12
294*line 180
295L13:
296*line 181
297jsr _clrerms
298*line 182
299move _cyval,R0
300ext.l R0
301divs #14,R0
302move R0,_stcrow
303*line 183
304move _cxval,R0
305asr #3,R0
306move R0,_stccol
307*line 185
308*line 185
309tst _lselsw
310beq L14
311tst _lrasw
312beq L14
313*line 186
314*line 187
315*line 187
316move _cyval,(sp)
317jsr _ldline
318move R0,R7
319tst R7
320beq L15
321*line 188
322*line 189
323sub #1,R7
324*line 190
325move R7,R8
326add.l R8,R8
327add.l #_ldmap,R8
328move #-1,(R8)
329*line 191
330move R7,(sp)
331move 24+_ldbox,-(sp)
332jsr _dpy_scr
333addq.l #2,sp
334*line 192
335clr R0
336bra L12
337*line 193
338*line 194
339bra L16
340L15:
341*line 195
342move #-1,R0
343bra L12
344L16:
345*line 196
346*line 197
347L14:
348*line 198
349*line 199
350move #2,(sp)
351jsr _lcancel
352tst R0
353beq L17
354*line 199
355clr R0
356bra L12
357*line 200
358L17:
359*line 201
360*line 201
361tst _ldelsw
362bne L18
363*line 202
364*line 203
365*line 203
366move _cyval,(sp)
367jsr _ldline
368move R0,_ldrow
369beq L19
370*line 204
371*line 205
372*line 205
373cmp #11,_stccol
374bne L20
375*line 206
376*line 207
377*line 208
378move _stcrow,(sp)
379jsr _lin2slt
380move R0,R7
381cmp #-1,R7
382bne L21
383*line 208
384move #-1,R0
385bra L12
386*line 209
387L21:
388*line 210
389*line 210
390tst _ltagged
391beq L22
392*line 211
393*line 212
394*line 212
395cmp _tagslot,R7
396beq L23
397*line 213
398*line 214
399move _oldltag,R0
400move _tagslot,R1
401muls #56,R1
402add.l #_filecat,R1
403move.l R1,R9
404move.b R0,3(R9)
405*line 215
406clr _ltagged
407*line 216
408jsr _showcat
409*line 217
410move #-1,R0
411bra L12
412*line 218
413*line 219
414L23:
415*line 220
416jsr _putcat
417*line 221
418clr _ltagged
419*line 222
420jsr _showcat
421*line 223
422bra L24
423L22:
424*line 224
425*line 225
426*line 226
427move R7,R0
428muls #56,R0
429move.l R0,R8
430move.l #_filecat,R9
431move.b 3(R8,R9.l),R0
432ext.w R0
433move R0,_oldltag
434*line 227
435move R7,R0
436muls #56,R0
437add.l #_filecat,R0
438move.l R0,R8
439move.b #32,3(R8)
440*line 228
441move #1,_ltagged
442*line 229
443move R7,_tagslot
444*line 230
445*line 231
446move _oldltag,R0
447move.b R0,-4(R14)
448*line 232
449clr.b -3(R14)
450*line 233
451*line 234
452*line 235
453clr R0
454move 10+_v_regs,R0
455and #384,R0
456beq L25
457*line 235
458clr (sp)
459jsr _vbank
460*line 236
461L25:
462*line 237
463*line 238
464move #14,(sp)
465move.l R14,-(sp)
466sub.l #4,(sp)
467move #11,-(sp)
468move _stcrow,-(sp)
469move 26+_ldbox,-(sp)
470move #14,-(sp)
471jsr _exp_c
472addq.l #2,sp
473move R0,-(sp)
474move #64,-(sp)
475move.l _librob,-(sp)
476jsr _vcputsv
477adda.l #18,sp
478L24:
479*line 239
480*line 240
481*line 241
482clr R0
483bra L12
484*line 242
485*line 243
486L20:
487*line 244
488*line 245
489cmp #13,_stccol
490blt L10000
491cmp #20,_stccol
492ble L26
493L10000:*line 245
494move #-1,R0
495bra L12
496*line 246
497L26:
498*line 247
499*line 247
500move _ldrow,(sp)
501jsr _lin2slt
502move R0,_ldslot
503cmp #-1,R0
504beq L27
505*line 248
506*line 249
507*line 250
508*line 251
509move _ldrow,(sp)
510move #14,-(sp)
511jsr _exp_c
512addq.l #2,sp
513move R0,-(sp)
514move _ldslot,-(sp)
515jsr _dslslot
516addq.l #4,sp
517*line 252
518move #1,_ldelsw
519*line 253
520clr R0
521bra L12
522*line 254
523*line 255
524*line 256
525L27:bra L28
526L19:
527*line 257
528*line 258
529*line 259
530*line 259
531cmp #21,_stcrow
532bne L29
533*line 260
534*line 261
535*line 261
536cmp #10,_stccol
537blt L30
538cmp #17,_stccol
539bgt L30
540*line 262
541*line 263
542*line 264
543*line 265
544move #8,(sp)
545move #32,-(sp)
546move.l #_ldfile,-(sp)
547jsr _memset
548addq.l #6,sp
549*line 266
550move #3,(sp)
551jsr _ldswin
552*line 267
553clr R0
554bra L12
555*line 268
556bra L31
557L30:
558*line 269
559*line 269
560cmp #27,_stccol
561blt L32
562*line 270
563*line 271
564*line 272
565*line 273
566move #37,(sp)
567move #32,-(sp)
568move.l #_ldcmnt,-(sp)
569jsr _memset
570addq.l #6,sp
571*line 274
572move #5,(sp)
573jsr _ldswin
574*line 275
575clr R0
576bra L12
577*line 276
578L32:L31:
579*line 277
580*line 278
581L29:
582*line 279
583move #-1,R0
584bra L12
585L28:
586*line 280
587*line 281
588*line 282
589*line 283
590*line 284
591bra L33
592L18:
593*line 285
594*line 286
595*line 287
596*line 288
597*line 289
598*line 289
599move _cyval,(sp)
600jsr _ldline
601cmp _ldrow,R0
602bne L34
603*line 290
604*line 291
605move _ldslot,R0
606muls #56,R0
607add.l #_filecat,R0
608move.l R0,R8
609clr.b (R8)
610*line 292
611move _ldslot,(sp)
612jsr _ftkind
613move R0,(sp)
614move _ldslot,-(sp)
615jsr _slotnam
616addq.l #2,sp
617move.l R0,R13
618*line 293
619*line 294
620move.l R13,(sp)
621jsr _unlink
622*line 295
623*line 296
624clr _ldelsw
625*line 297
626jsr _putcat
627*line 298
628*line 299
629jsr __clsvol
630*line 300
631jsr _showcat
632*line 301
633jsr _showsiz
634*line 302
635*line 303
636clr R0
637bra L12
638*line 304
639*line 305
640L34:
641*line 306
642clr _ldelsw
643*line 307
644jsr _showcat
645*line 308
646clr R0
647bra L12
648L33:L12:tst.l (sp)+
649movem.l (sp)+,R7-R7/R13-R13
650unlk R14
651rts
652.globl _ld_prmv
653.text
654_ld_prmv:
655~~ld_prmv:
656link R14,#-4
657*line 323
658*line 324
659tst _lderrsw
660beq L36
661*line 324
662jsr _clrerms
663*line 325
664L36:
665*line 326
666*line 326
667tst _ltagged
668beq L37
669*line 327
670*line 328
671move _oldltag,R0
672move _tagslot,R1
673muls #56,R1
674add.l #_filecat,R1
675move.l R1,R9
676move.b R0,3(R9)
677*line 329
678clr _ltagged
679*line 330
680jsr _showcat
681*line 331
682L37:L35:unlk R14
683rts
684.globl _ldcyupd
685.text
686_ldcyupd:
687~~ldcyupd:
688link R14,#-4
689*line 345
690*line 345
691cmp #1,_lmwtype
692bne L39
693*line 346
694*line 347
695jsr _vtcyupd
696*line 348
697bra L40
698L39:
699*line 349
700*line 350
701*line 351
702move _cyrate,R0
703add R0,_cyval
704*line 352
705*line 353
706*line 354
707cmp #348,_cyval
708ble L41
709*line 354
710move #348,_cyval
711bra L42
712L41:
713*line 355
714*line 356
715cmp #1,_cyval
716bge L43
717*line 356
718move #1,_cyval
719L43:L42:L40:L38:unlk R14
720rts
721.globl _ldcxupd
722.text
723_ldcxupd:
724~~ldcxupd:
725link R14,#-4
726*line 371
727*line 371
728cmp #1,_lmwtype
729bne L45
730*line 372
731*line 373
732jsr _vtcxupd
733*line 374
734bra L46
735L45:
736*line 375
737*line 376
738*line 377
739move _cxrate,R0
740add R0,_cxval
741*line 378
742*line 379
743*line 380
744cmp #510,_cxval
745ble L47
746*line 380
747move #510,_cxval
748bra L48
749L47:
750*line 381
751*line 382
752cmp #1,_cxval
753bge L49
754*line 382
755move #1,_cxval
756L49:L48:L46:L44:unlk R14
757rts
758.globl _ldmkey
759.text
760_ldmkey:
761~~ldmkey:
762link R14,#-4
763*line 397
764*line 397
765tst _astat
766beq L51
767*line 398
768*line 399
769clr _ltagged
770*line 400
771*line 401
772*line 401
773cmp #5,_sliders
774beq L10001
775cmp #5,_pkctrl
776bne L52
777L10001:*line 402
778*line 403
779move _oldsl,_sliders
780*line 404
781move.l _oldsw,_swpt
782*line 405
783move _oldpk,_pkctrl
784*line 406
785jsr _lcdlbls
786*line 407
787jsr _setleds
788*line 408
789L52:
790*line 409
791*line 410
792L51:
793*line 411
794jsr _stdmkey
795L50:unlk R14
796rts
797.globl _loadem
798.text
799_loadem:
800~~loadem:
801~key=8
802link R14,#0
803movem.l R3-R7,-(sp)
804~c=R7
805~i=R6
806~rc=R5
807~slot=R4
808*line 428
809clr R5
810*line 430
811*line 431
812clr (sp)
813jsr _getcat
814tst R0
815bne L53
816*line 432
817*line 433
818clr _ldslot
819bra L56
820L57:
821*line 434
822*line 435
823*line 436
824move _ldslot,(sp)
825jsr _ocslot
826tst R0
827beq L58
828move _ldslot,R0
829muls #56,R0
830move.l R0,R8
831move.l #_filecat,R9
832move.b 3(R8,R9.l),R0
833ext.w R0
834move R0,R7
835move R7,R0
836and #127,R0
837move 8(R14),R1
838and #127,R1
839cmp R1,R0
840bne L58
841*line 437
842*line 438
843move _ldslot,(sp)
844jsr _ftkind
845move R0,_ldkind
846*line 439
847*line 440
848*line 441
849*line 442
850*line 443
851cmp #7,_ldkind
852beq L10002
853cmp #2,_ldkind
854beq L10002
855cmp #3,_ldkind
856bne L59
857L10002:*line 443
858btst #7,R7
859beq L10003
860move #1,R0
861bra L10005
862L10003:clr R0
863L10005:move R0,_lorchl
864*line 444
865L59:
866*line 445
867*line 446
868cmp #4,_ldkind
869bne L60
870*line 446
871clr R6
872bra L63
873L64:
874*line 447
875move R6,R8
876add.l R8,R8
877add.l #_ldmap,R8
878move R6,(R8)
879L62:
880*line 446
881add #1,R6
882L63:
883*line 446
884cmp #20,R6
885blt L64
886L61:
887*line 447
888*line 448
889L60:
890*line 449
891*line 450
892jsr _getit
893tst R0
894bne L53
895*line 451
896*line 452
897move #1,R5
898*line 453
899L58:L55:
900*line 433
901add #1,_ldslot
902L56:
903*line 433
904cmp #20,_ldslot
905blt L57
906L54:
907*line 456
908*line 457
909tst R5
910beq L65
911cmp #-1,_ndisp
912bne L65
913*line 457
914jsr _m7menu
915L65:L53:tst.l (sp)+
916movem.l (sp)+,R4-R7
917unlk R14
918rts
919.globl _ldkey
920.text
921_ldkey:
922~~ldkey:
923~k=8
924link R14,#-4
925movem.l R3-R7,-(sp)
926~c=R7
927~col=R6
928~row=R5
929~slot=R4
930~buf=-4
931*line 475
932*line 476
933tst _astat
934bne L67
935*line 476
936move #-1,R0
937bra L66
938*line 477
939L67:
940*line 478
941*line 479
942tst _catin
943beq L66
944*line 480
945*line 481
946move _cyval,R5
947ext.l R5
948divs #14,R5
949*line 482
950move _cxval,R6
951asr #3,R6
952*line 484
953*line 485
954cmp #11,R6
955bne L66
956*line 486
957*line 487
958*line 488
959move R5,(sp)
960jsr _lin2slt
961move R0,R4
962cmp #-1,R4
963beq L66
964*line 489
965*line 490
966*line 490
967tst _ltagged
968bne L68
969*line 491
970*line 492
971move R4,R0
972muls #56,R0
973move.l R0,R8
974move.l #_filecat,R9
975move.b 3(R8,R9.l),R0
976ext.w R0
977move R0,_oldltag
978*line 493
979move #3,(sp)
980jsr _lcancel
981*line 494
982*line 495
983*line 496
984*line 497
985*line 498
986*line 499
987L68:
988*line 500
989*line 501
990cmp #7,8(R14)
991bge L69
992*line 501
993move 8(R14),R7
994add #65,R7
995move R7,R0
996move R4,R1
997muls #56,R1
998add.l #_filecat,R1
999move.l R1,R9
1000move.b R0,3(R9)
1001bra L70
1002L69:
1003*line 502
1004*line 503
1005cmp #7,8(R14)
1006beq L66
1007*line 504
1008*line 505
1009cmp #8,8(R14)
1010bne L71
1011*line 505
1012move R4,R0
1013muls #56,R0
1014move.l R0,R8
1015move.l #_filecat,R9
1016move.b 3(R8,R9.l),R0
1017ext.w R0
1018move R0,R7
1019and #127,R7
1020move R7,R0
1021move R4,R1
1022muls #56,R1
1023add.l #_filecat,R1
1024move.l R1,R9
1025move.b R0,3(R9)
1026bra L72
1027L71:
1028*line 506
1029*line 507
1030move R4,R0
1031muls #56,R0
1032move.l R0,R8
1033move.l #_filecat,R9
1034move.b 3(R8,R9.l),R0
1035ext.w R0
1036move R0,R7
1037or #128,R7
1038move R7,R0
1039move R4,R1
1040muls #56,R1
1041add.l #_filecat,R1
1042move.l R1,R9
1043move.b R0,3(R9)
1044L72:L70:
1045*line 509
1046move R5,_loadrow
1047*line 510
1048move R4,_tagslot
1049*line 511
1050move #1,_ltagged
1051*line 513
1052move R5,(sp)
1053move #13,-(sp)
1054jsr _exp_c
1055addq.l #2,sp
1056move R0,-(sp)
1057move R4,-(sp)
1058jsr _dslslot
1059addq.l #4,sp
1060bra L66
1061L66:tst.l (sp)+
1062movem.l (sp)+,R4-R7
1063unlk R14
1064rts
1065.globl _ldfield
1066.text
1067_ldfield:
1068~~ldfield:
1069link R14,#-4
1070*line 528
1071clr _lmwtype
1072*line 529
1073clr _ltagged
1074*line 530
1075clr _submenu
1076*line 532
1077move.l #_ld_flds,(sp)
1078jsr _curset
1079L73:unlk R14
1080rts
1081.data
1082L1:.dc.b $52,$65,$63,$72,$64,$54,$79,$70,$65,$20,$4C,$20,$46,$69,$6C,$65,$4E,$61,$6D,$65,$20,$43,$6F,$6D,$6D,$65,$6E,$74,$20,$20
1083.dc.b $20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$20,$4D
1084.dc.b $65,$6D,$0
1085L2:.dc.b $0
1086L3:.dc.b $46,$69,$6C,$65,$4E,$61,$6D,$65,$0
1087L4:.dc.b $0
1088L5:.dc.b $43,$6F,$6D,$6D,$65,$6E,$74,$0
1089L6:.dc.b $0
1090L7:.dc.b $49,$6E,$64,$65,$78,$0
1091L8:.dc.b $0
1092L9:.dc.b $0
1093L10:.dc.b $0
1094L11:.dc.b $0
Note: See TracBrowser for help on using the repository browser.