!------------------------------------------------------------------------- ! TEST AND BRANCH GROUP !------------------------------------------------------------------------- tlt_z: testen (sp)+ ; blt true ; cl -(sp) ; jmp (a4) tle_z: testen (sp)+ ; ble true ; cl -(sp) ; jmp (a4) teq_z: testen (sp)+ ; beq true ; cl -(sp) ; jmp (a4) tne_z: testen (sp)+ ; bne true ; cl -(sp) ; jmp (a4) tge_z: testen (sp)+ ; bge true ; cl -(sp) ; jmp (a4) tgt_z: testen (sp)+ ; bgt true ; cl -(sp) ; jmp (a4) true: mov #1,-(sp) ; jmp (a4) zlt_s0: testen (sp)+ ; blt bra_s0 ; bra nobr2 zlt_l: testen (sp)+ ; blt bra_l ; bra nobr3 zlt_q: move.l (sp)+,d0 testen (sp)+ ; blt 1f ; jmp (a4) zle_s0: testen (sp)+ ; ble bra_s0 ; bra nobr2 zle_l: testen (sp)+ ; ble bra_l ; bra nobr3 zle_q: move.l (sp)+,d0 testen (sp)+ ; ble 1f ; jmp (a4) zeq_s0: testen (sp)+ ; beq bra_s0 ; bra nobr2 zeq_s1: testen (sp)+ ; beq bra_s1 ; bra nobr2 zeq_l: testen (sp)+ ; beq bra_l ; bra nobr3 zeq_q: move.l (sp)+,d0 testen (sp)+ ; beq 1f ; jmp (a4) zne_s0: testen (sp)+ ; bne bra_s0 ; bra nobr2 zne_s_1: testen (sp)+ ; bne bra_s_1 ; bra nobr2 zne_l: testen (sp)+ ; bne bra_l ; bra nobr3 zne_q: move.l (sp)+,d0 testen (sp)+ ; bne 1f ; jmp (a4) zge_s0: testen (sp)+ ; bge bra_s0 ; bra nobr2 zge_l: testen (sp)+ ; bge bra_l ; bra nobr3 zge_q: move.l (sp)+,d0 testen (sp)+ ; bge 1f ; jmp (a4) zgt_s0: testen (sp)+ ; bgt bra_s0 ; bra nobr2 zgt_l: testen (sp)+ ; bgt bra_l ; bra nobr3 zgt_q: move.l (sp)+,d0 testen (sp)+ ; bgt 1f ; jmp (a4) blt_s0: comp (sp)+,(sp)+ ; blt bra_s0 ; bra nobr2 blt_l: comp (sp)+,(sp)+ ; blt bra_l ; bra nobr3 blt_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; blt 1f ; jmp (a4) ble_s0: comp (sp)+,(sp)+ ; ble bra_s0 ; bra nobr2 ble_l: comp (sp)+,(sp)+ ; ble bra_l ; bra nobr3 ble_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; ble 1f ; jmp (a4) beq_s0: comp (sp)+,(sp)+ ; beq bra_s0 ; bra nobr2 beq_l: comp (sp)+,(sp)+ ; beq bra_l ; bra nobr3 beq_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; beq 1f ; jmp (a4) bne_s0: comp (sp)+,(sp)+ ; bne bra_s0 ; bra nobr2 bne_l: comp (sp)+,(sp)+ ; bne bra_l ; bra nobr3 bne_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; bne 1f ; jmp (a4) bge_s0: comp (sp)+,(sp)+ ; bge bra_s0 ; bra nobr2 bge_l: comp (sp)+,(sp)+ ; bge bra_l ; bra nobr3 bge_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; bge 1f ; jmp (a4) bgt_s0: comp (sp)+,(sp)+ ; bgt bra_s0 ; bra nobr2 bgt_l: comp (sp)+,(sp)+ ; bgt bra_l ; bra nobr3 bgt_q: move.l (sp)+,d0 comp (sp)+,(sp)+ ; bgt 1f ; jmp (a4) bra_s0: move.l d6,d0 0: move.b (a3)+,d0 1: add.l d0,a3 ; jmp (a4) bra_l: move.b (a3)+,-(sp) ; move.b (a3)+,1(sp) move.w (sp)+,d0 ; ext.l d0 bra 1b bra_q: move.l (sp)+,d0 ; bra 1b bra_s1: move.w #0x100,d0 ; bra 0b bra_s_1: move.l #-1,d0 ; bra 0b bra_s_2: move.l #-0x200,d0 ; bra 0b nobr2: add.l #1,a3 ; jmp (a4) nobr3: add.l #2,a3 ; jmp (a4) !--------------------------------------------------------------------------- ! COMPARE GROUP !----------------------------------------------------------------------------- cmi_z: mov (sp)+,d0 ; bra 0f cmi_l: adroff ; move.w (a1),d0 0: sub.w wrd,d0 ; beq cmi_1W sub.w wrd,d0 ; beq cmi_2W bra e_oddz cmi_1W: comp (sp)+,(sp)+ ; bgt 1f ; beq 2f 3: mov #-1,-(sp) ; jmp (a4) 1: mov #1,-(sp) ; jmp (a4) 2: cl -(sp) ; jmp (a4) cmi_2W: #ifdef lword bsr no8bar ; bra e_oddz #endif cmp.l (sp)+,(sp)+ ; blt 3b ; beq 2b bra 1b cmu_z: mov (sp)+,d0 ; bra 4f cmu_l: adroff ; move.w (a1),d0 4: sub.w wrd,d0 ; bne 5f comp (sp)+,(sp)+ ; bcs 3b beq 2b ; bra 1b 5: sub.w wrd,d0 ; bne e_oddz #ifdef lword bsr no8bar ; bra e_oddz #endif cmp_z: cmp.l (sp)+,(sp)+ ; bcs 3b beq 2b ; bra 1b cms_l: adroff ; move.w (a1),d0 bra 0f cms_z: mov (sp)+,d0 ; bra 0f cms_s0: move.l d6,d0 ; move.b (a3)+,d0 0: move.l d0,d1 ; move.l sp,a0 asri wmu,d1 ; subt #1,d1 add.l d0,sp ; move.l sp,d2 1: comp (a0)+,(sp)+ ; bne 2f dbra d1,1b mov d6,-(sp) ; jmp (a4) 2: add.l d0,d2 ; move.l d2,sp move.l #1,d1 ; mov d1,-(sp) jmp (a4) ! DUMMY FLOAT ROUTINES. POINTER ADJUSTMENT AND WARNING cmf_s0: move.l d6,d0 ; move.b (a3)+,d0 9: add.w d0,d0 ; add.l d0,sp cl -(sp) #ifdef FLTRAP bra flnim #else jmp (a4) #endif cmf_l: adroff ; move.w (a1),d0 ; bra 9b cmf_z: mov (sp)+,d0 ; bra 9b !------------------------------------------------------------------------- ! CALL AND RETURN GROUP !---------------------------------------------------------------------------- cai_z: move.l (sp)+,d0 ; bra 1f cal_q: move.l (sp)+,d0 ; bra 1f cal_l: adroff ; move.w (a1),d0 ; bra 1f cal_s0: move.w d6,d0 ; move.b (a3)+,d0 ; bra 1f cal_1: cal_2: cal_3: cal_4: cal_5: cal_6: cal_7: cal_8: cal_9: cal_10: cal_11: cal_12: cal_13: cal_14: cal_15: cal_16: cal_17: cal_18: cal_19: cal_20: cal_21: cal_22: cal_23: cal_24: cal_25: cal_26: cal_27: cal_28: asr.w #2,d0 ; sub.w #0x3F,d0 lblcal: 1: cmp.l nproc,d0 ; bhi e_badpc asl.l #3,d0 #if flow + count + prof move.l d0,d1 ; asl.l #1,d1 add.l d1,d0 !PROC DES. 24 BYTES #endif move.l (a6),-(sp) move.l 4(a6),-(sp) ; move.l a3,-(sp) link a2,#0 ; move.l d0,a0 add.l pd,a0 !a0 points at proc. des. #if prof+count+flow tst.l 20(a0) !A FILE NAME DEFINED IN THIS PROC bne 4f !YES ? CONTINUE move.l 8(sp),20(a0) !NO ? TAKE OLD FILE NAME 4: move.l curproc,8(sp) !SAVE OLD PROCEDURE DESCRIPTOR move.l a0,curproc !CONTINUE WITH NEW ONE move.l 8(a0),d0 !COUNT POINTER MINUS LINE NUMBER sub.l 12(a0),d0 !OF FIRST LINE IN countfld move.l d0,countfld #endif move.l (a0)+,d1 ; sub.l d1,sp claimstack ; add.l d1,sp tst.l d1 ; beq 3f sub.l #1,d1 ; asr.l wmu,d1 2: mov und,-(sp) ; dbra d1,2b 3: move.l (a0),a3 ; jmp (a4) ret_l: adroff ; move.w (a1),d0 bra 1f ret_s0: move.l #0,d0 ; move.b (a3)+,d0 1: blt e_oddz ; beq ret_0 comp #32,d0 ; ble 2f bsr e_badlfr 2: sub.w #1,d0 ; asr.w wmu,d0 bra 5f ret_1W: move.l #0,d0 5: move.w d0,retsize !RETSIZE CONTAINS 3: mov (sp)+,(a1)+ ; dbra d0,3b ! #WORDS-1 lea retarea,a1 ; bra 4f ret_0: move.w #-1,retsize 4: unlk a2 ; cmp.l a2,d6 beq hlt_z ; move.l (sp)+,a3 move.l (sp)+,a0 !FILE OR PROC DES BASE IN a0 #if count+flow+prof move.l a0,curproc !SAVE PROC DES BASE CUR PROC move.l 8(a0),d0 !d0 IS COUNT sub.l 12(a0),d0 !d0 IS COUNT-FIRST LINE move.l d0,countfld !RESTORE POINTER beq 1f !NO LINES IN CALLER add.l (sp),d0 !ADD LINE NUMBER move.l d0,countptr 1: #if prof beq 5f asl.l #2,d0 add.l ltime,d0 move.l d0,profile !profile POINTS AT COUNT 5: #endif move.l 20(a0),a0 !POINTER TO FILE NAME IN a0 #endif move.l a0,4(a6) !OLD FILE ADDRESS move.l (sp)+,(a6) !OLD LINE NUMBER jmp (a4) lfr_1W: move.w d6,d0 ; move.l wrd,d1 0: cmp.w retsize,d0 ; beq 1f bsr e_badlfr 1: add.l d1,a1 2: mov -(a1),-(sp) ; dbra d0,2b 5: jmp (a4) lfr_l: move.b (a3)+,-(sp) ; move.b (a3)+,1(sp) move.w (sp)+,d0 ; bra 3f lfr_s0: move.l d6,d0 ; move.b (a3)+,d0 3: move.l d7,d2 ; move.l d0,d1 4: asr.w #1,d0 ; bcs e_illins dbra d2,4b ; beq 5b sub.w #1,d0 ; bra 0b lfr_2W: move.l wrd,d1 ; add.l d1,d1 move.l #1,d0 ; bra 0b e_badlfr: mov #0x1C,-(sp) ; bra error