Edinburgh IMP77 Compiler - Version 8.4 Edinburgh IMP77 Compiler - Version 8.4 1 %BEGIN; !HAL-70 1 %BEGIN; !HAL-70 .Ltext0: .Ltext0: .section .rodata.str1. < .align 2 < .LC6: < .ascii "regression-compile-t < < < < < .align 2 .align 2 CHAR.6: CHAR.6: .LVL0: .LVL0: .LFB201: .LFB201: @ args = 0, pretend = 0, fram | sub sp, sp, #1744 @ frame_needed = 0, uses_anon | stp x29, x30, [sp] push {r4, r5, r6, r7, r8, | mov x29, sp sub sp, sp, #1632 | stp x19, x20, [sp, 16] sub sp, sp, #12 | stp x21, x22, [sp, 32] add r3, sp, #1680 | stp x23, x24, [sp, 48] str r3, [sp, #356] | stp x25, x26, [sp, 64] > stp x27, x28, [sp, 80] > add x2, sp, 1744 > str x2, [sp, 456] 2 ! INPUT/OUTPUT STREAMS 2 ! INPUT/OUTPUT STREAMS 3 %OWNINTEGER MAIN=1, PRE=2; !INPUT 3 %OWNINTEGER MAIN=1, PRE=2; !INPUT bl _imp_initialise bl _imp_initialise .LVL649: | .LVL632: 4 %OWNINTEGER BIN=1, LIS=2; !OUTPUT 4 %OWNINTEGER BIN=1, LIS=2; !OUTPUT 5 ! OPERAND TYPES 5 ! OPERAND TYPES 6 %OWNINTEGER OPMASK=16_F000; !MACHINE INSTRUCT 6 %OWNINTEGER OPMASK=16_F000; !MACHINE INSTRUCT ldr r6, .L962 < ldr r7, .L962+4 < str r7, [r6] < 7 %OWNINTEGER MACRO=16_A000 7 %OWNINTEGER MACRO=16_A000 8 %OWNINTEGER SINGLE=16_5000 8 %OWNINTEGER SINGLE=16_5000 9 %OWNINTEGER FMASK=16_0800; !FORWARD REF 9 %OWNINTEGER FMASK=16_0800; !FORWARD REF 10 %OWNINTEGER OPFMASK=16_F800; !=OPMASK+FMASK 10 %OWNINTEGER OPFMASK=16_F800; !=OPMASK+FMASK 11 %OWNINTEGER UMASK=16_0200; !UNDEF (FORWARD R 11 %OWNINTEGER UMASK=16_0200; !UNDEF (FORWARD R 12 %OWNINTEGER BMASK=16_0100; !BYTE 12 %OWNINTEGER BMASK=16_0100; !BYTE 13 %OWNINTEGER REG=16_0080; !REGISTER 13 %OWNINTEGER REG=16_0080; !REGISTER 14 %OWNINTEGER MEMMASK=16_0040; !MEM REF 14 %OWNINTEGER MEMMASK=16_0040; !MEM REF 15 %OWNINTEGER RELMASK=16_0020; !RELOCATABLE 15 %OWNINTEGER RELMASK=16_0020; !RELOCATABLE 16 %OWNINTEGER XMASK=16_0010; !INDEXED 16 %OWNINTEGER XMASK=16_0010; !INDEXED 17 %OWNINTEGER REGXMASK=16_0090; !=REG+XMASK 17 %OWNINTEGER REGXMASK=16_0090; !=REG+XMASK 18 %OWNINTEGER RELUXMASK=16_0230; !=RELMASK+UMASK+X 18 %OWNINTEGER RELUXMASK=16_0230; !=RELMASK+UMASK+X 19 ! TEXT POINTERS (BYTE ADDRESSES) 19 ! TEXT POINTERS (BYTE ADDRESSES) 20 %OWNINTEGER CODEPOS; !(NOT ACTUALLY BY 20 %OWNINTEGER CODEPOS; !(NOT ACTUALLY BY 21 %OWNINTEGER STARTPOS; !START OF CURRENT 21 %OWNINTEGER STARTPOS; !START OF CURRENT 22 %OWNINTEGER GETPOS; !INPUT POINTER (N 22 %OWNINTEGER GETPOS; !INPUT POINTER (N 23 %OWNINTEGER PUTPOS 23 %OWNINTEGER PUTPOS 24 %OWNINTEGER PSEUDOLIM 24 %OWNINTEGER PSEUDOLIM 25 %OWNINTEGER PRINTPOS; !START OF PRINT L 25 %OWNINTEGER PRINTPOS; !START OF PRINT L 26 %OWNINTEGER FAULTPOS 26 %OWNINTEGER FAULTPOS 27 %OWNINTEGER MACLIM; !MACRO DEF LIMIT 27 %OWNINTEGER MACLIM; !MACRO DEF LIMIT 28 ! OTHER POINTERS (WORD ADDRESSES) 28 ! OTHER POINTERS (WORD ADDRESSES) 29 %OWNINTEGER MP; !MACRO-CALL PARAM 29 %OWNINTEGER MP; !MACRO-CALL PARAM 30 %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE 30 %OWNINTEGER QBASE,QSTART,QLIM,TRANSF; !OPERAND QUEUE 31 %OWNINTEGER DEFMIN; !TAG MIN (DOWN - 31 %OWNINTEGER DEFMIN; !TAG MIN (DOWN - 32 %OWNINTEGER DEFLIM; !TAG LIM (FIXED) 32 %OWNINTEGER DEFLIM; !TAG LIM (FIXED) 33 %OWNINTEGER ALMAX; !ASSEMBLER LAB MA 33 %OWNINTEGER ALMAX; !ASSEMBLER LAB MA 34 %OWNINTEGER LABMIN; !USER LAB MIN (DO 34 %OWNINTEGER LABMIN; !USER LAB MIN (DO 35 %OWNINTEGER LABLIM; !USER LAB LIM (FI 35 %OWNINTEGER LABLIM; !USER LAB LIM (FI 36 %OWNINTEGER BP; !BLOCK POINTER (U 36 %OWNINTEGER BP; !BLOCK POINTER (U 37 %OWNINTEGER NP; !NEST POINTER (DO 37 %OWNINTEGER NP; !NEST POINTER (DO 38 %OWNINTEGER STORELIM; !(FIXED) 38 %OWNINTEGER STORELIM; !(FIXED) 39 39 40 %INTEGER SYM; !CURRENT SYMBOL 40 %INTEGER SYM; !CURRENT SYMBOL 41 %INTEGER TERM; !TAG TERMINATOR 41 %INTEGER TERM; !TAG TERMINATOR 42 %INTEGER FSYM; !FAULT FLAG SYMBO 42 %INTEGER FSYM; !FAULT FLAG SYMBO 43 %OWNINTEGER CHARS=0; !PRINT CHAR COUNT 43 %OWNINTEGER CHARS=0; !PRINT CHAR COUNT 44 %OWNINTEGER LINES=0; !PRINT LINE COUNT 44 %OWNINTEGER LINES=0; !PRINT LINE COUNT 45 %OWNINTEGER BINCOUNT=0; !OUTPUT RECORD IT 45 %OWNINTEGER BINCOUNT=0; !OUTPUT RECORD IT 46 %OWNINTEGER CHECK=0; !OUTPUT RECORD CH 46 %OWNINTEGER CHECK=0; !OUTPUT RECORD CH 47 %OWNINTEGER PASS=-1; !CURRENT PASS (-1 47 %OWNINTEGER PASS=-1; !CURRENT PASS (-1 48 %OWNINTEGER LIST=-1; !LISTING CONTROL 48 %OWNINTEGER LIST=-1; !LISTING CONTROL 49 %INTEGER ASSCOND,SKIP; !ASSEMBLY CONDITI 49 %INTEGER ASSCOND,SKIP; !ASSEMBLY CONDITI 50 %OWNINTEGER SAVE=1; !REG SAVE DISPLAC 50 %OWNINTEGER SAVE=1; !REG SAVE DISPLAC 51 %OWNINTEGER TEMPS=12; !TEMPORARY REGIST 51 %OWNINTEGER TEMPS=12; !TEMPORARY REGIST 52 %INTEGER LOCTYPE,LOC; !LOCATION COUNTER 52 %INTEGER LOCTYPE,LOC; !LOCATION COUNTER 53 %INTEGER ACC,ATYPE,AVAL; !MAIN TEMP REGIST 53 %INTEGER ACC,ATYPE,AVAL; !MAIN TEMP REGIST 54 %INTEGER CREG,CTYPE,CVAL; !CONDITION CODE 54 %INTEGER CREG,CTYPE,CVAL; !CONDITION CODE 55 %INTEGER COND; !CONDITION CODE M 55 %INTEGER COND; !CONDITION CODE M 56 %INTEGER DREG,DUSE; !DESTINATION REGI 56 %INTEGER DREG,DUSE; !DESTINATION REGI 57 %INTEGER TYPE,VAL; !CURRENT TYPE,VAL 57 %INTEGER TYPE,VAL; !CURRENT TYPE,VAL 58 %INTEGER TAG1,TAG2; !TAG (CHARS 1:3, 58 %INTEGER TAG1,TAG2; !TAG (CHARS 1:3, 59 %INTEGER MODE; !ASSEMBLY MODE 59 %INTEGER MODE; !ASSEMBLY MODE 60 %INTEGER PEND; !TAG ALREADY RECO 60 %INTEGER PEND; !TAG ALREADY RECO 61 %INTEGER FLAG; !JUMPS / AHM 61 %INTEGER FLAG; !JUMPS / AHM 62 %OWNINTEGER QQ='?' 62 %OWNINTEGER QQ='?' 63 63 64 %OWNINTEGERARRAY BREC(1:52); !BINARY OUTPUT RE 64 %OWNINTEGERARRAY BREC(1:52); !BINARY OUTPUT RE 65 65 66 !!%INTEGER SBOUND 66 !!%INTEGER SBOUND 67 %constINTEGER SBOUND = 16_7F00 67 %constINTEGER SBOUND = 16_7F00 68 !! SBOUND = FREESTORE-260; !ALLOW FOR INPU 68 !! SBOUND = FREESTORE-260; !ALLOW FOR INPU 69 !! SBOUND = SBOUND-256 %IF OUTDEV = 2 69 !! SBOUND = SBOUND-256 %IF OUTDEV = 2 70 SELECT OUTPUT(LIS) 70 SELECT OUTPUT(LIS) .LVL650: | .LBB181: .LBB165: | .LBI181: .LBI165: < 71 !! SBOUND = SBOUND-256 %IF OUTDEV = 2 71 !! SBOUND = SBOUND-256 %IF OUTDEV = 2 72 72 ldr r8, .L962+8 < mov r3, #70 < str r3, [r8] < 73 !! Simulate 18-bit word-addressed PDP9/15 memory: 73 !! Simulate 18-bit word-addressed PDP9/15 memory: 74 74 75 %ownINTEGERARRAY STORE(1:SBOUND) 75 %ownINTEGERARRAY STORE(1:SBOUND) 76 76 str r7, [r6] < 77 %integerfn integer(%integer p) 77 %integerfn integer(%integer p) @ args = 0, pretend = 0, fram | sub sp, sp, #800 @ frame_needed = 0, uses_anon | stp x29, x30, [sp] push {r4, r5, r6, r7, r8, | mov x29, sp sub sp, sp, #756 | str x19, [sp, 16] mov r4, r0 | mov w19, w0 78 %if p&1 # 0 %start 78 %if p&1 # 0 %start tst r0, #1 | tbnz x19, 0, .L142 bne .L212 | .LDL25: .LDL31: < 79 printstring("Integer fetch was not aligned at "); 79 printstring("Integer fetch was not aligned at "); add r7, sp, #240 | adrp x1, .LANCHOR2 mov r9, #256 | add x1, x1, :lo12:.LANCHO mov r2, r9 | ldp q16, q18, [x1] ldr r1, .L213+16 | ldp q17, q20, [x1, 32] mov r0, r7 | ldp q19, q22, [x1, 64] .LVL130: | ldp q21, q24, [x1, 96] bl memcpy | ldp q23, q26, [x1, 128] .LVL131: | ldp q25, q28, [x1, 160] add r5, sp, #496 | ldp q27, q30, [x1, 192] mov r2, r9 | ldp q29, q31, [x1, 224] mov r1, r7 < mov r0, r5 < bl memcpy < .LVL132: < .LBB71: .LBB71: .LBI71: .LBI71: mvn r1, #0 | mov w1, -1 mov r0, r4 | mov w0, w19 bl _imp_writeint bl _imp_writeint .LVL135: | .LVL107: .LBB73: .LBB73: .LBI73: .LBI73: 80 %stop 80 %stop ldr r3, .L213 | mov w0, 0 ldr r2, .L213+4 < str r2, [r3] < ldr r6, .L213+8 < mov r8, #79 < str r8, [r6] < str r8, [r6] < ldr r5, .L213 < ldr r7, .L213+4 < str r7, [r5] < str r8, [r6] < str r7, [r5] < mov r0, #0 < bl exit bl exit .LVL137: | .LVL109: .L214: < .align 2 < .L213: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word STORE.133 < .word .LANCHOR2 < .LFE200: .LFE200: .align 2 .align 2 SETLAB.10: SETLAB.10: .LVL138: | .LVL110: .LFB220: .LFB220: 81 %finish 81 %finish mov r3, #80 < str r3, [r6] < str r7, [r5] < 82 %result = store(P>>1) 82 %result = store(P>>1) lsr r4, r0, #1 | lsr w19, w0, 1 sub r4, r4, #-1073741823 | adrp x0, STORE.133 ldr r3, .L213+12 | .LVL103: ldr r0, [r3, r4, lsl #2] | add x0, x0, :lo12:STORE.1 .LVL128: | add x19, x0, x19, lsl 2 > ldr w0, [x19, -4] 83 %end 83 %end ldr r3, .L213+8 < mov r2, #82 < str r2, [r3] < 84 84 add sp, sp, #756 | ldp x29, x30, [sp] @ sp needed | ldr x19, [sp, 16] pop {r4, r5, r6, r7, r8, | add sp, sp, 800 .LVL129: | ret .L212: | .LVL104: > .L142: 85 %INTEGERFN CHAR(%INTEGER P) 85 %INTEGERFN CHAR(%INTEGER P) @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 86 !BYTE FETCH 86 !BYTE FETCH 87 87 88 %integer val = store(p>>1) 88 %integer val = store(p>>1) lsr r3, r0, #1 | lsr w1, w0, 1 sub r3, r3, #-1073741823 | adrp x2, STORE.133 ldr r2, .L4+8 | add x2, x2, :lo12:STORE.1 ldr r3, [r2, r3, lsl #2] | add x1, x2, x1, lsl 2 > ldr w1, [x1, -4] .LVL1: .LVL1: 89 %if p&1 = 0 %start 89 %if p&1 = 0 %start tst r0, #1 < .LDL1: < 90 %result = val&255 90 %result = val&255 ldr r3, .L4 < ldr r2, .L4+4 < str r2, [r3] < uxtbeq r0, r3 < 91 %else 91 %else moveq r2, #90 < ldr r3, .L4+12 < .LVL3: < str r2, [r3] < 92 %result = (val>>8)&255 92 %result = (val>>8)&255 lsrne r0, r3, #8 | ubfx x2, x1, 8, 8 > and w1, w1, 255 .LVL2: .LVL2: uxtbne r0, r0 | tst x0, 1 movne r2, #92 < 93 %finish 93 %finish 94 94 95 !! %OPR 2064;!RCR; %DAC P 95 !! %OPR 2064;!RCR; %DAC P 96 !! %LAC* P; %OPR 768;!SZL; %JMP L1 96 !! %LAC* P; %OPR 768;!SZL; %JMP L1 97 !! %OPR 1040;!RTR; %OPR 1040 97 !! %OPR 1040;!RTR; %OPR 1040 98 !! %OPR 1040; %OPR 1040 98 !! %OPR 1040; %OPR 1040 99 !!L1: %AND #255; %JMP* CHAR 99 !!L1: %AND #255; %JMP* CHAR 100 !! %STOP 100 !! %STOP 101 101 102 %END 102 %END 103 103 bx lr | csel w0, w1, w2, eq .L5: | .LVL3: .align 2 | ret .L4: < .word _imp_current_file < .word .LC6 < .word STORE.133 < .word _imp_current_line < .LFE201: .LFE201: .align 2 .align 2 SETINTEGER.8: SETINTEGER.8: .LVL4: .LVL4: .LFB202: .LFB202: 104 %routine set integer(%integer p, k) 104 %routine set integer(%integer p, k) @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 105 store(p>>1) = k 105 store(p>>1) = k lsr r0, r0, #1 | lsr w0, w0, 1 .LVL5: .LVL5: sub r0, r0, #-1073741823 | adrp x2, STORE.133 ldr r3, .L7+8 | add x2, x2, :lo12:STORE.1 str r1, [r3, r0, lsl #2] | add x0, x2, x0, lsl 2 ldr r3, .L7+12 | str w1, [x0, -4] mov r2, #106 < str r2, [r3] < 106 %end 106 %end 107 107 ldr r3, .L7 < ldr r2, .L7+4 < str r2, [r3] < 108 %ROUTINE PUT CHAR(%INTEGER K) 108 %ROUTINE PUT CHAR(%INTEGER K) bx lr | ret .L8: < .align 2 < .L7: < .word _imp_current_file < .word .LC6 < .word STORE.133 < .word _imp_current_line < .LFE202: .LFE202: .align 2 .align 2 PUTCHAR.37: PUTCHAR.37: .LVL6: .LVL6: .LFB203: .LFB203: @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < str lr, [sp, #-4]! < 109 !AT PUTPOS WITH POST-INCREMENT 109 !AT PUTPOS WITH POST-INCREMENT 110 %INTEGER P 110 %INTEGER P 111 !! %MONITOR 21 %IF PUTPOS>>1-DEFMIN >= 0 111 !! %MONITOR 21 %IF PUTPOS>>1-DEFMIN >= 0 112 !{} %signal 2,1 %IF PUTPOS>>1-DEFMIN >= 0 112 !{} %signal 2,1 %IF PUTPOS>>1-DEFMIN >= 0 113 113 114 p = store(putpos>>1) 114 p = store(putpos>>1) ldr r3, .L13 | adrp x1, .LANCHOR0 ldr r3, [r3] | ldr w2, [x1, #:lo12:.LANC lsr r2, r3, #1 | lsr w1, w2, 1 sub r2, r2, #-1073741823 | lsl x1, x1, 2 ldr ip, .L13+4 | sub x1, x1, #4 ldr r1, [ip, r2, lsl #2] | adrp x3, STORE.133 > add x3, x3, :lo12:STORE.1 > ldr w4, [x3, x1] .LVL7: .LVL7: 115 %if putpos&1 = 0 %start 115 %if putpos&1 = 0 %start tst r3, #1 < .LDL2: < 116 p = (p&16_FF00) ! (K&255) 116 p = (p&16_FF00) ! (K&255) andeq r1, r1, #65280 < uxtbeq r0, r0 < orr r0, r0, r1 < .LVL10: < 117 %else 117 %else .L11: < 118 p = (p&16_00FF) ! ((K&255)<<8) 118 p = (p&16_00FF) ! ((K&255)<<8) uxtbne r1, r1 | and w6, w4, 255 > ubfiz w5, w0, 8, 8 > orr w5, w5, w6 > and w4, w4, 65280 .LVL8: .LVL8: lslne r0, r0, #8 | and w0, w0, 255 .LVL9: .LVL9: uxthne r0, r0 | orr w0, w0, w4 > tst x2, 1 > csel w0, w0, w5, eq > .L7: > .LVL10: 119 %finish 119 %finish 120 store(putpos>>1) = p 120 store(putpos>>1) = p str r0, [ip, r2, lsl #2] | str w0, [x3, x1] 121 121 ldr r1, .L13+8 < ldr lr, .L13+12 < str lr, [r1] < 122 !! %LAC PUTPOS; %OPR 2064;!RCR; %DAC P 122 !! %LAC PUTPOS; %OPR 2064;!RCR; %DAC P 123 !! %OPR 768;!SZL; %JMP L1 123 !! %OPR 768;!SZL; %JMP L1 124 !! %LAC K; %OPR 1032;!RTL; %OPR 1032 124 !! %LAC K; %OPR 1032;!RTL; %OPR 1032 125 !! %OPR 1032; %OPR 1032; %DAC K 125 !! %OPR 1032; %OPR 1032; %DAC K 126 !! %LAC #-256; %OPR 513;!SKP!CMA 126 !! %LAC #-256; %OPR 513;!SKP!CMA 127 !!L1: %LAC #-256; %AND* P; %TAD K; %DAC* P 127 !!L1: %LAC #-256; %AND* P; %TAD K; %DAC* P 128 !! %ISZ PUTPOS 128 !! %ISZ PUTPOS 129 129 130 putpos = putpos+1 130 putpos = putpos+1 add r3, r3, #1 | add w2, w2, 1 ldr r2, .L13 | adrp x0, .LANCHOR0 str r3, [r2] | .LVL11: > str w2, [x0, #:lo12:.LANC 131 %END 131 %END 132 132 ldr r3, .L13+16 < mov r2, #131 < str r2, [r3] < 133 %ROUTINE FAULT(%INTEGER K) 133 %ROUTINE FAULT(%INTEGER K) ldr pc, [sp], #4 | ret .L14: < .align 2 < .L13: < .word .LANCHOR0 < .word STORE.133 < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LFE203: .LFE203: .align 2 .align 2 FAULT.45: FAULT.45: .LVL11: | .LVL12: .LFB204: .LFB204: @ Nested: function declared i < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 134 !RECORD (FIRST) FAULT 134 !RECORD (FIRST) FAULT 135 !NOT NECESSARILY CULPABLE IN PASS 0 135 !NOT NECESSARILY CULPABLE IN PASS 0 136 FSYM = K %IF FSYM = ' ' 136 FSYM = K %IF FSYM = ' ' ldr r3, [ip, #80] | ldr w1, [x18, 80] cmp r3, #32 | cmp w1, 32 streq r0, [ip, #80] | bne .L8 .L16: | str w0, [x18, 80] ldr r3, .L17+8 < mov r2, #137 < str r2, [r3] < 137 %END 137 %END 138 138 ldr r3, .L17 | .L9: ldr r2, .L17+4 | .L8: str r2, [r3] < 139 %ROUTINE PRINT(%INTEGER K) 139 %ROUTINE PRINT(%INTEGER K) bx lr | ret .L18: < .align 2 < .L17: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LFE204: .LFE204: .align 2 .align 2 PRINT.5: PRINT.5: .LVL12: | .LVL13: .LFB205: .LFB205: @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -32]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, lr} | stp x19, x20, [sp, 16] mov r1, r0 < 140 !! INTEGER(CODEPOS+CHARS) = K 140 !! INTEGER(CODEPOS+CHARS) = K 141 set INTEGER(CODEPOS+CHARS, K) 141 set INTEGER(CODEPOS+CHARS, K) ldr r5, .L21 | adrp x19, .LANCHOR0 ldr r4, [r5, #4] | add x19, x19, :lo12:.LANC ldr r0, [r5, #8] | ldr w20, [x19, 4] .LVL13: | ldr w2, [x19, 8] add r0, r4, r0 | mov w1, w0 bl SETINTEGER.8 | add w0, w20, w2 .LVL14: .LVL14: ldr r3, .L21+4 | bl SETINTEGER.8 ldr r2, .L21+8 | .LVL15: str r2, [r3] < 142 CHARS = CHARS+1 142 CHARS = CHARS+1 add r4, r4, #1 | add w20, w20, 1 str r4, [r5, #4] | str w20, [x19, 4] 143 %END 143 %END 144 144 ldr r3, .L21+12 < mov r2, #143 < str r2, [r3] < 145 %ROUTINE PRINT WORD(%INTEGER V) 145 %ROUTINE PRINT WORD(%INTEGER V) pop {r4, r5, r6, pc} | ldp x19, x20, [sp, 16] .L22: | ldp x29, x30, [sp], 32 .align 2 | ret .L21: < .word .LANCHOR0 < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LFE205: .LFE205: .align 2 .align 2 PRINTHIT.4: PRINTHIT.4: .LVL15: | .LVL16: .LFB207: .LFB207: @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -32]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, r8, | str x19, [sp, 16] mov r4, r0 | mov w19, w0 146 %ROUTINE PRINT HIT(%INTEGER V) 146 %ROUTINE PRINT HIT(%INTEGER V) @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -16]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, lr} < 147 V = V&15+'0'; V = V+7 %IF V > '9' 147 V = V&15+'0'; V = V+7 %IF V > '9' and r3, r0, #15 | and w1, w0, 15 add r0, r3, #48 | add w0, w1, 48 .LVL16: < cmp r0, #57 < addgt r0, r3, #55 < .LVL17: .LVL17: .L24: | add w1, w1, 55 ldr r4, .L26+8 | cmp w0, 57 mov r3, #148 | .L13: str r3, [r4] | .LVL18: 148 PRINT(V) 148 PRINT(V) > csel w0, w1, w0, gt > .LVL19: bl PRINT.5 bl PRINT.5 .LVL18: | .LVL20: ldr r5, .L34 < ldr r6, .L34+4 < str r6, [r5] < 149 %END 149 %END ldr r3, .L26 < ldr r2, .L26+4 < str r2, [r3] < 150 %ROUTINE PRINT1(%INTEGER V) 150 %ROUTINE PRINT1(%INTEGER V) mov r3, #149 | .LBB138: str r3, [r4] | .LBB140: ldr r3, .L26 < ldr r2, .L26+4 < str r2, [r3] < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < push {r4, r5, r6, r7, r8, < mov r4, r0 < 151 PRINT HIT(V>>4); PRINT HIT(V) 151 PRINT HIT(V>>4); PRINT HIT(V) pop {r4, pc} | ldp x29, x30, [sp], 16 .L27: | ret .align 2 < .L26: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LFE207: .LFE207: .align 2 .align 2 PRINT1.3: | PUT.42: .LVL19: < .LFB208: < lsr r0, r0, #4 < .LVL20: < bl PRINTHIT.4 < .LVL21: .LVL21: mov r0, r4 | .LFB213: > lsr w0, w0, 12 > .LVL345: bl PRINTHIT.4 bl PRINTHIT.4 .LVL22: | .LVL346: mov r3, #152 | lsr w0, w19, 8 str r3, [r7] | .LVL347: str r6, [r5] | bl PRINTHIT.4 > .LVL348: > lsr w0, w19, 4 > bl PRINTHIT.4 > .LVL349: > mov w0, w19 > bl PRINTHIT.4 > .LVL350: 152 %END 152 %END str r8, [r7] < str r6, [r5] < 153 PRINT1(V>>8); PRINT1(V) 153 PRINT1(V>>8); PRINT1(V) ldr r7, .L30 | .LVL344: mov r8, #151 | .LBB137: str r8, [r7] | .LBI137: ldr r5, .L30+4 | .LBE138: ldr r6, .L30+8 | .LBE137: str r6, [r5] | .LBB139: lsr r0, r0, #8 | .LBI139: .LVL24: | .LBE140: bl PRINT1.3 | .LBE139: .LVL25: < mov r0, r4 < bl PRINT1.3 < .LVL26: < 154 %END 154 %END pop {r4, r5, r6, r7, r8, < .L31: < .align 2 < .L30: < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .LFE208: < .align 2 < PRINTWORD.2: < .LVL23: < .LFB206: < str r8, [r7] < str r6, [r5] < 155 155 mov r3, #154 | 156 %ROUTINE PRINT LOC str r3, [r7] | ldr x19, [sp, 16] str r6, [r5] | .LVL351: pop {r4, r5, r6, r7, r8, | ldp x29, x30, [sp], 32 .L35: | ret .align 2 < .L34: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LFE206: .LFE206: .align 2 .align 2 PRINTLOC.46: PRINTLOC.46: .LFB209: .LFB209: @ Nested: function declared i | stp x29, x30, [sp, -32]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | str x19, [sp, 16] push {r4, r5, r6, r7, r8, | mov x19, x18 mov r4, ip < 156 %ROUTINE PRINT LOC < ldr r7, .L34+8 < mov r8, #153 < str r8, [r7] < 157 PRINT WORD(LOC) 157 PRINT WORD(LOC) ldr r0, [ip, #76] | ldr w0, [x18, 76] bl PRINTWORD.2 bl PRINTWORD.2 .LVL27: | .LVL352: mov r3, #158 < str r3, [r7] < str r6, [r5] < 158 %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRI 158 %IF LOCTYPE&RELMASK # 0 %THEN PRINT('''') %ELSE PRI ldr r3, [r4, #72] | ldr w0, [x19, 72] tst r3, #32 | tbnz x0, 5, .L406 .LDL3: | .LDL103: moveq r0, #32 | mov w0, 32 movne r0, #39 < bl PRINT.5 bl PRINT.5 .LVL28: | .LVL353: .L38: | .L407: > mov w0, 39 > bl PRINT.5 > .LVL355: > b .L407 > .LFE209: > .align 2 > PRINTLINE.47: > .LFB211: 159 PRINT(' ') 159 PRINT(' ') ldr r7, .L40 | mov w0, 32 mov r3, #157 < str r3, [r7] < ldr r5, .L40+4 < ldr r6, .L40+8 < str r6, [r5] < mov r0, #32 < bl PRINT.5 bl PRINT.5 .LVL29: | .LVL354: 160 %END 160 %END ldr r6, .L40 < mov r3, #159 < str r3, [r6] < ldr r4, .L40+4 < ldr r5, .L40+8 < str r5, [r4] < 161 161 mov r3, #160 < str r3, [r6] < str r5, [r4] < 162 %ROUTINE DO NEWLINE 162 %ROUTINE DO NEWLINE pop {r4, r5, r6, r7, r8, | stp x29, x30, [sp, -16]! .L41: | mov x29, sp .align 2 | ldr x19, [sp, 16] .L40: | ldp x29, x30, [sp], 32 .word _imp_current_line | ret .word _imp_current_file | .L406: .word .LC6 < .LFE209: < .align 2 < PUT.42: < .LVL30: < .LFB213: < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < push {r4, r5, r6, lr} < 163 NEWLINE; LINES = LINES+1 163 NEWLINE; LINES = LINES+1 .LBB67: .LBB67: .LBI67: .LBI67: ldr r2, .L205+12 | adrp x1, .LANCHOR0 ldr r3, [r2, #256] | add x1, x1, :lo12:.LANCHO add r3, r3, #1 | ldr w0, [x1, 260] str r3, [r2, #256] | add w0, w0, 1 > str w0, [x1, 260] 164 NEWLINES(2) %AND LINES = 0 %IF LINES = 61 164 NEWLINES(2) %AND LINES = 0 %IF LINES = 61 str r6, [r5] | cmp w0, 61 cmp r3, #61 | beq .L136 beq .L204 | .L134: .L202: | .L133: .LVL125: | .LVL100: .LBB69: .LBB69: .LBI69: .LBI69: ldr r3, .L205+12 | adrp x0, .LANCHOR0+260 mov r2, #0 | str wzr, [x0, #:lo12:.LAN str r2, [r3, #256] | 165 %END b .L202 | 166 .L206: | b .L133 .align 2 < .L205: < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .LFE210: .LFE210: .align 2 .align 2 INTEGER.39: INTEGER.39: .LVL127: | .LVL102: .LFB200: .LFB200: 165 %END < ldr r4, .L205 < mov r3, #163 < str r3, [r4] < ldr r5, .L205+4 < ldr r6, .L205+8 < str r6, [r5] < mov r2, #164 < str r2, [r4] < 166 < ldr r3, .L205 < mov r2, #165 < str r2, [r3] < ldr r3, .L205+4 < ldr r2, .L205+8 < str r2, [r3] < 167 %ROUTINE PRINT LINE 167 %ROUTINE PRINT LINE pop {r4, r5, r6, pc} | ldp x29, x30, [sp], 16 .L204: | ret @ Nested: function declared i | .L136: @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -48]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, lr} | add x0, sp, 48 sub sp, sp, #12 | stp x18, x0, [sp, 32] add r3, sp, #32 < str r3, [sp, #4] < str ip, [sp] < 168 %ROUTINE PRINTIT(%INTEGER SUB) 168 %ROUTINE PRINTIT(%INTEGER SUB) @ Nested: function declared i | stp x29, x30, [sp, -80]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r3, r4, r5, r6, r7, | stp x21, x22, [sp, 32] mov r10, r0 | mov w22, w0 mov r4, ip | mov x19, x18 169 %OWNINTEGER MARKER=124; !VERTICAL BAR 169 %OWNINTEGER MARKER=124; !VERTICAL BAR 170 %INTEGER P,Q,K 170 %INTEGER P,Q,K ldr r3, .L492 < ldr r2, .L492+4 < str r2, [r3] < 171 %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL 171 %RETURN %IF CHARS = 0 %AND CHAR(PRINTPOS) = NL ldr r3, .L466 | adrp x0, .LANCHOR0+4 ldr r2, .L466+4 | .LVL288: str r2, [r3] | ldr w0, [x0, #:lo12:.LANC ldr r3, .L466+12 | cbnz w0, .L374 ldr r3, [r3, #4] | adrp x0, .LANCHOR0+288 cmp r3, #0 | ldr w0, [x0, #:lo12:.LANC beq .L464 < .LVL307: < .L453: < ldr r3, .L466+12 < ldr r0, [r3, #284] < .LVL322: < bl CHAR.6 bl CHAR.6 .LVL323: | .LVL289: cmp r0, #10 | cmp w0, 10 popeq {r3, r4, r5, r6, r7, | beq .L373 b .L453 | .L374: .LVL324: < .L465: < 172 PRINT SYMBOL(FSYM); SPACE 172 PRINT SYMBOL(FSYM); SPACE ldr r3, .L466+8 | .LVL290: mov r2, #171 | .LBB85: str r2, [r3] | .LBI85: .LVL308: | ldr x0, [x19] > .LBB88: .LBB87: .LBB87: .LBI87: < ldr r3, [r4] < .LBB90: < .LBB89: .LBB89: .LBB91: | .LBI89: .LBI91: < 173 P = CODEPOS; Q = P+CHARS 173 P = CODEPOS; Q = P+CHARS ldr r6, .L466+8 | adrp x0, .LANCHOR0 mov r8, #172 | add x0, x0, :lo12:.LANCHO str r8, [r6] | ldr w19, [x0, 8] ldr r5, .L466 | .LVL293: ldr r7, .L466+4 | ldr w20, [x0, 4] str r7, [r5] | add w20, w19, w20 str r8, [r6] | .LVL294: str r7, [r5] < ldr r3, .L466+12 < ldr r4, [r3, #8] < .LVL311: < ldr r5, [r3, #4] < add r5, r4, r5 < .LVL312: < 174 PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q 174 PRINT SYMBOL(INTEGER(P)) %AND P=P+1 %WHILE P # Q str r7, [r5] | cmp w19, w20 cmp r4, r5 | beq .L378 beq .L457 | .L376: .L455: | mov w0, w19 mov r0, r4 < bl INTEGER.39 bl INTEGER.39 .LVL313: | .LVL295: .LBB93: | .LBB91: .LBI93: | .LBI91: add r4, r4, #1 | add w19, w19, 1 .LVL315: | .LVL297: .LDL99: | .LDL93: cmp r5, r4 | cmp w20, w19 bne .L455 | bne .L376 .L457: | .L378: .LDL100: | .LDL94: 175 %RETURN %IF PRINTPOS = 0 175 %RETURN %IF PRINTPOS = 0 mov r3, #174 | adrp x0, .LANCHOR0+288 str r3, [r6] | ldr w0, [x0, #:lo12:.LANC ldr r3, .L466+12 | cbnz w0, .L388 ldr r3, [r3, #284] | .LVL298: cmp r3, #0 | .L373: popeq {r3, r4, r5, r6, r7, | .LDL95: .LDL101: < 176 SPACES(17-CHARS) 176 SPACES(17-CHARS) ldr r3, .L466+8 | .LVL301: mov r2, #175 | .LBB93: str r2, [r3] | .LBI93: ldr r3, .L466 | adrp x19, .LANCHOR0 ldr r2, .L466+4 | .LVL302: str r2, [r3] | add x19, x19, :lo12:.LANC .LVL316: | ldr w0, [x19, 4] > .LBB96: .LBB95: .LBB95: .LBI95: < ldr r4, .L466+12 < .LVL317: < ldr r0, [r4, #4] < .LBB98: < .LBB97: < 177 P = PRINTPOS; Q = 0 177 P = PRINTPOS; Q = 0 ldr r3, .L466+8 | ldr w20, [x19, 288] mov r2, #176 | .LVL304: str r2, [r3] | mov w21, 0 ldr r5, [r4, #284] < .LVL320: < mov r9, #0 < 178 %CYCLE 178 %CYCLE 179 PRINT SYMBOL(MARKER) %IF P = FAULTPOS 179 PRINT SYMBOL(MARKER) %IF P = FAULTPOS ldr fp, .L466+12 | mov x23, x19 b .L458 | .LBB97: .LVL321: | .LBB98: .L464: | .LBB103: .LBB99: | .LBI97: .LBI99: | ldr w0, [x23, 296] ldr r3, [fp, #292] | cmp w0, w20 cmp r3, r5 | beq .L390 beq .L465 | .L380: .L459: < 180 K = CHAR(P); K = SUB %IF P = PSEUDOLIM 180 K = CHAR(P); K = SUB %IF P = PSEUDOLIM ldr r4, .L466+8 | ldr w0, [x23, 284] ldr r8, .L466 | mov w19, w22 ldr r7, .L466+4 | cmp w0, w20 mov r3, #179 | beq .L381 str r3, [r4] | .LVL313: str r7, [r8] | mov w0, w20 mov r0, r5 < bl CHAR.6 bl CHAR.6 .LVL331: | .LVL314: ldr r3, [fp, #280] | mov w19, w0 cmp r3, r5 | .LVL315: movne r6, r0 | b .L381 moveq r6, r10 | .LVL316: .L460: | .L389: .LVL332: < 181 PRINT SYMBOL('''') %IF (K!!Q)&128 # 0 181 PRINT SYMBOL('''') %IF (K!!Q)&128 # 0 mov r3, #180 | eor w21, w21, w19 str r3, [r4] | .LVL308: str r7, [r8] | tbnz x21, 7, .L389 str r7, [r8] | .L382: eor r9, r9, r6 | .LBB106: .LVL333: | .LBI100: tst r9, #128 < beq .L461 < .LVL334: < .LBB103: < .LBI103: < 182 %RETURN %IF K = NL 182 %RETURN %IF K = NL cmp r6, #10 | cmp w19, 10 popeq {r3, r4, r5, r6, r7, | beq .L386 .LDL102: | .LDL96: mov r3, #181 < str r3, [r4] < 183 PRINT SYMBOL(K&127) 183 PRINT SYMBOL(K&127) mov r3, #182 | .LVL309: str r3, [r4] | .LBB104: str r7, [r8] | .LBI104: .LVL327: < .LBB101: < .LBI101: < 184 P = P+1; Q = K 184 P = P+1; Q = K mov r3, #183 | add w20, w20, 1 str r3, [r4] | .LVL311: add r5, r5, #1 | mov w21, w19 .LVL329: | .LVL312: mov r9, r6 | .L379: .LVL330: < .L458: < 185 %REPEAT 185 %REPEAT 186 %END 186 %END 187 %RETURN %IF PASS = 0 187 %RETURN %IF PASS = 0 ldr r3, .L492+12 | adrp x0, .LANCHOR1+8 ldr r3, [r3, #8] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cbnz w0, .L418 bne .L489 | .L409: .L480: | .LDL104: .LDL109: < 188 %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND 188 %UNLESS LIST < 0 %OR (PRINTPOS=0 %AND FSYM=' ' %AND ldr r3, .L492+12 | ldp x19, x20, [sp, 16] ldr r3, [r3, #16] | ldp x21, x22, [sp, 32] cmp r3, #0 | .LVL299: blt .L482 | ldp x29, x30, [sp], 80 ldr r2, [ip, #80] | ret cmp r2, #32 | .LVL300: bne .L483 | .L388: and r3, r3, #1 | stp x23, x24, [sp, 48] ldr r2, .L492+16 | str x25, [sp, 64] ldr r2, [r2, #284] | adrp x0, .LANCHOR1+16 orrs r3, r3, r2 | ldr w0, [x0, #:lo12:.LANC beq .L482 | tbnz w0, #31, .L411 .L483: | ldr w1, [x18, 80] > cmp w1, 32 > bne .L412 > and w0, w0, 1 > adrp x1, .LANCHOR0+288 > ldr w1, [x1, #:lo12:.LANC > orr w0, w0, w1 > cbz w0, .L413 > .L412: 189 NEWLINES(3) %IF LINES = 0 189 NEWLINES(3) %IF LINES = 0 ldr r3, .L492+16 | adrp x0, .LANCHOR0+260 ldr r3, [r3, #256] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cbz w0, .L419 beq .L490 | .L414: .L484: | .LVL364: .LVL361: | .LBB159: .LBB143: | .LBI159: .LBI143: | .LBB160: .LBB144: | mov w0, 3 mov r0, #3 < bl _imp_newlines bl _imp_newlines .LVL362: | .LVL365: b .L484 | b .L414 .L491: | .L420: .LBE144: | .LBE160: .LBE143: | .LBE159: 190 PRINTIT(' ') 190 PRINTIT(' ') ldr r3, .L492+8 | add x18, sp, 32 mov r2, #187 | mov w0, 32 str r2, [r3] < ldr r3, .L492+8 < mov r2, #189 < str r2, [r3] < mov ip, sp < mov r0, #32 < bl PRINTIT.48 bl PRINTIT.48 .LVL352: | .LVL356: 191 DO NEWLINE 191 DO NEWLINE ldr r7, .L492+8 < mov r3, #190 < str r3, [r7] < ldr r5, .L492 < ldr r6, .L492+4 < str r6, [r5] < bl DONEWLINE.15 bl DONEWLINE.15 .LVL353: | .LVL357: > .L411: 192 %FINISH 192 %FINISH mov r3, #191 < str r3, [r7] < str r6, [r5] < 193 %IF FSYM # ' ' %AND OUTDEV # 1 %START 193 %IF FSYM # ' ' %AND OUTDEV # 1 %START .L482: | ldr w0, [x19, 80] ldr r3, [r4, #80] | cmp w0, 32 cmp r3, #32 | beq .L413 beq .L485 | .LBB151: .LBB135: | .LBI151: .LBI135: | ldr w0, [x0] ldr r3, [r3] | cmp w0, 1 cmp r3, #1 | beq .L413 beq .L485 < 194 SELECT OUTPUT(0) 194 SELECT OUTPUT(0) ldr r3, .L492+8 | .LVL359: mov r2, #193 | .LBB153: str r2, [r3] | .LBI153: ldr r3, .L492 < ldr r2, .L492+4 < str r2, [r3] < .LVL355: < .LBB137: < .LBI137: < 195 PRINTPOS = STARTPOS %IF PRINTPOS = 0 195 PRINTPOS = STARTPOS %IF PRINTPOS = 0 ldr r3, .L492+8 | adrp x0, .LANCHOR0+288 mov r2, #194 | ldr w0, [x0, #:lo12:.LANC str r2, [r3] | cbnz w0, .L415 ldr r5, .L492 | adrp x0, .LANCHOR0 ldr r6, .L492+4 | add x0, x0, :lo12:.LANCHO str r6, [r5] | ldr w1, [x0, 280] ldr r3, .L492+16 | str w1, [x0, 288] ldr r3, [r3, #284] | .L415: cmp r3, #0 < ldreq r3, .L492+16 < ldreq r2, [r3, #276] < streq r2, [r3, #284] < .L486: < 196 PRINT LOC %IF CHARS = 0 196 PRINT LOC %IF CHARS = 0 str r6, [r5] | adrp x0, .LANCHOR0+4 ldr r3, .L492+16 | ldr w0, [x0, #:lo12:.LANC ldr r3, [r3, #4] | cbz w0, .L420 cmp r3, #0 | .L416: beq .L491 | mov x18, x19 .L487: < mov ip, r4 < bl PRINTLOC.46 bl PRINTLOC.46 .LVL363: | .LVL366: b .L487 | b .L416 .L493: < .align 2 < .L492: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word .LANCHOR1 < .word .LANCHOR0 < .word .LANCHOR2+296 < .word _imp_OutStream < .word _imp_outfile < .word _imp_OUTFILE < .word .LANCHOR2+276 < .LFE211: .LFE211: .align 2 .align 2 PLANTVAL.1: PLANTVAL.1: .LFB218: .LFB218: 197 PRINTIT(NL) 197 PRINTIT(NL) ldr r3, .L492+8 | add x18, sp, 32 mov r2, #196 | mov w0, 10 str r2, [r3] < mov ip, sp < mov r0, #10 < bl PRINTIT.48 bl PRINTIT.48 .LVL357: | .LVL361: 198 NEWLINE 198 NEWLINE ldr r7, .L492+8 | .LBB155: mov r3, #197 | .LBI155: str r3, [r7] < ldr r5, .L492 < ldr r6, .L492+4 < str r6, [r5] < .LBB139: < .LBI139: < 199 SELECT OUTPUT(LIS) 199 SELECT OUTPUT(LIS) mov r3, #198 | .LBB157: str r3, [r7] | .LBI157: str r6, [r5] < .LVL359: < .LBB141: < .LBI141: < 200 %FINISH 200 %FINISH mov r3, #199 < str r3, [r7] < str r6, [r5] < 201 FSYM = ' '; PRINTPOS = 0; CHARS = 0 201 FSYM = ' '; PRINTPOS = 0; CHARS = 0 .L485: | mov w0, 32 mov r3, #32 | str w0, [x19, 80] str r3, [r4, #80] | adrp x0, .LANCHOR0 ldr r3, .L492+16 | add x0, x0, :lo12:.LANCHO mov r2, #0 | str wzr, [x0, 288] str r2, [r3, #284] | str wzr, [x0, 4] str r2, [r3, #4] | ldr x19, [sp, 16] 202 %END 202 %END ldr r3, .L492 | b .L409 ldr r2, .L492+4 | .L419: str r2, [r3] < b .L480 < .L490: < 203 203 ldr r3, .L492+8 < mov r2, #202 < str r2, [r3] < 204 %ROUTINE PUT(%INTEGER V) 204 %ROUTINE PUT(%INTEGER V) @ args = 0, pretend = 0, fram | ldp x29, x30, [sp], 48 @ frame_needed = 0, uses_anon | ret @ link register save eliminat | .L418: add sp, sp, #12 | str x19, [sp, 16] @ sp needed | mov x19, x18 pop {r4, r5, r6, r7, pc} < .L489: < mov r4, ip < 205 !STORE 4-BIT ITEM IN BINARY RECORD 205 !STORE 4-BIT ITEM IN BINARY RECORD 206 %OWNINTEGER HOLD=0 206 %OWNINTEGER HOLD=0 207 V = V&15 207 V = V&15 .LVL31: | and w0, w0, 15 and r0, r0, #15 | .LVL22: .LVL32: | add w2, w0, w2, lsl 4 > str w2, [x1, 12] 208 HOLD = HOLD<<4+V 208 HOLD = HOLD<<4+V ldr r3, .L44 | adrp x1, .LANCHOR0 ldr r2, .L44+4 | add x1, x1, :lo12:.LANCHO str r2, [r3] | ldr w2, [x1, 12] ldr r2, .L44+8 < ldr r3, [r2, #12] < add r0, r0, r3, lsl #4 < .LVL33: < str r0, [r2, #12] < 209 BINCOUNT = BINCOUNT+1 209 BINCOUNT = BINCOUNT+1 ldr r3, [r2, #16] | ldr w0, [x1, 16] add r3, r3, #1 | .LVL23: str r3, [r2, #16] | add w0, w0, 1 > str w0, [x1, 16] 210 %IF BINCOUNT&3 = 0 %START 210 %IF BINCOUNT&3 = 0 %START tst r3, #3 | tst x0, 3 bne .L43 | bne .L15 211 BREC(BINCOUNT>>2) = HOLD 211 BREC(BINCOUNT>>2) = HOLD bic r3, r3, #3 | adrp x1, .LANCHOR0 add r3, r2, r3 | add x1, x1, :lo12:.LANCHO str r0, [r3, #16] | and x0, x0, 4294967292 > add x0, x1, x0 > str w2, [x0, 20] 212 CHECK = CHECK!!HOLD 212 CHECK = CHECK!!HOLD ldr r3, [r2, #228] | ldr w0, [x1, 232] eor r3, r3, r0 | eor w0, w0, w2 str r3, [r2, #228] | str w0, [x1, 232] 213 HOLD = 0 213 HOLD = 0 mov r3, #0 | str wzr, [x1, 12] str r3, [r2, #12] < 214 %FINISH 214 %FINISH 215 %END 215 %END .L43: < 216 216 ldr r3, .L44+12 | .L16: mov r2, #215 | .L15: str r2, [r3] < 217 %ROUTINE PUT WORD(%INTEGER V) 217 %ROUTINE PUT WORD(%INTEGER V) bx lr | ret .L45: < .align 2 < .L44: < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word _imp_current_line < .LFE213: .LFE213: .align 2 .align 2 PUT1.30: | NEST.0: .LVL34: | .LVL24: .LFB215: | .LFB219: @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -32]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, r8, | str x19, [sp, 16] mov r4, r0 | mov w19, w0 218 %ROUTINE PUT1(%INTEGER V) 218 %ROUTINE PUT1(%INTEGER V) @ args = 0, pretend = 0, fram | .LBB130: @ frame_needed = 0, uses_anon | .LBB132: push {r4, r5, r6, r7, r8, < mov r4, r0 < 219 PUT(V>>4); PUT(V) 219 PUT(V>>4); PUT(V) lsr r0, r0, #4 | lsr w0, w0, 12 .LVL35: | .LVL336: bl PUT.42 bl PUT.42 .LVL36: | .LVL337: mov r0, r4 | lsr w0, w19, 8 > .LVL338: bl PUT.42 bl PUT.42 .LVL37: | .LVL339: mov r3, #220 | lsr w0, w19, 4 str r3, [r7] | bl PUT.42 str r6, [r5] | .LVL340: > mov w0, w19 > bl PUT.42 > .LVL341: 220 %END 220 %END str r8, [r7] < str r6, [r5] < ldr r5, .L52 < ldr r6, .L52+4 < str r6, [r5] < 221 PUT1(V>>8); PUT1(V) 221 PUT1(V>>8); PUT1(V) ldr r7, .L48 | .LVL335: mov r8, #219 | .LBB129: str r8, [r7] | .LBI129: ldr r5, .L48+4 | .LBE130: ldr r6, .L48+8 | .LBE129: str r6, [r5] | .LBB131: lsr r0, r0, #8 | .LBI131: .LVL39: | .LBE132: bl PUT1.30 | .LBE131: .LVL40: < mov r0, r4 < bl PUT1.30 < .LVL41: < 222 %END 222 %END pop {r4, r5, r6, r7, r8, < .L49: < .align 2 < .L48: < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .LFE215: < .align 2 < PUTWORD.29: < .LVL38: < .LFB214: < str r8, [r7] < str r6, [r5] < 223 223 mov r3, #222 | 224 %ROUTINE OUTPUT RECORD str r3, [r7] | stp x29, x30, [sp, -32]! str r6, [r5] | mov x29, sp pop {r4, r5, r6, r7, r8, | stp x19, x20, [sp, 16] .L53: | ldr x19, [sp, 16] .align 2 | .LVL342: .L52: | ldp x29, x30, [sp], 32 .word _imp_current_file | ret .word .LC6 < .word _imp_current_line < .LFE214: .LFE214: .align 2 .align 2 NEST.0: | PRINTWORD.2: .LVL42: | .LVL343: .LFB219: | .LFB206: 224 %ROUTINE OUTPUT RECORD < ldr r7, .L52+8 < mov r8, #221 < str r8, [r7] < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < push {r4, r5, r6, r7, r8, < 225 %OWNINTEGER SEQ=0 225 %OWNINTEGER SEQ=0 226 %INTEGER I 226 %INTEGER I 227 %ROUTINE OUTPUT WORD(%INTEGER W) 227 %ROUTINE OUTPUT WORD(%INTEGER W) @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -32]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, r8, | str x19, [sp, 16] mov r4, r0 | mov w19, w0 ldr r3, .L478 < ldr r2, .L478+4 < str r2, [r3] < 228 PRINT CH(W>>8&255); PRINT CH(W&255) 228 PRINT CH(W>>8&255); PRINT CH(W&255) .LVL301: | .LVL282: .LBB81: .LBB81: .LBI81: .LBI81: lsr r0, r0, #8 < .LVL302: < .LBB84: < .LBB83: .LBB83: .LVL304: | .LBI83: .LBB85: < .LBI85: < 229 %END 229 %END str r8, [r7] < str r6, [r5] < 230 PUT(0) %WHILE BINCOUNT # 208 230 PUT(0) %WHILE BINCOUNT # 208 ldr r7, .L450 | adrp x0, .LANCHOR0+16 mov r8, #228 | ldr w0, [x0, #:lo12:.LANC str r8, [r7] | adrp x19, .LANCHOR0 ldr r5, .L450+4 | add x19, x19, :lo12:.LANC ldr r6, .L450+8 | cmp w0, 208 str r6, [r5] | beq .L394 mov r3, #229 | .L392: str r3, [r7] | mov w0, 0 str r6, [r5] < ldr r3, .L478+12 < ldr r3, [r3, #16] < cmp r3, #208 < beq .L471 < mov r5, #0 < ldr r4, .L478+12 < .L469: < mov r0, r5 < bl PUT.42 bl PUT.42 .LVL336: | .LVL318: .LDL103: | .LDL97: ldr r3, [r4, #16] | ldr w0, [x19, 16] cmp r3, #208 | cmp w0, 208 bne .L469 | bne .L392 .L471: | .L394: .LDL104: | .LDL98: 231 SELECT OUTPUT(BIN) 231 SELECT OUTPUT(BIN) pop {r4, r5, r6, r7, r8, | ldr x19, [sp, 16] .L451: | .LVL286: .align 2 | ldp x29, x30, [sp], 32 .L450: | ret .word _imp_current_line < .word _imp_current_file < .word .LC6 < .LFE217: .LFE217: .align 2 .align 2 PRINTIT.48: PRINTIT.48: .LVL306: | .LVL287: .LFB212: .LFB212: .LVL337: | .LVL319: .LBB113: | .LBB115: .LBI113: | .LBI115: 232 %CYCLE I = 1,1,10 232 %CYCLE I = 1,1,10 ldr r3, .L478+8 < mov r2, #231 < str r2, [r3] < ldr r3, .L478 < ldr r2, .L478+4 < str r2, [r3] < 233 PRINT CH(0); !RUNOUT 233 PRINT CH(0); !RUNOUT ldr r3, .L478+8 | .LBB119: mov r2, #230 | .LBI119: str r2, [r3] < .LVL340: < .LBB120: < .LBI117: < 234 %REPEAT 234 %REPEAT 235 PRINT CH(16_F0); !HEADER CODE 235 PRINT CH(16_F0); !HEADER CODE .LBB116: | .LBB118: .LBB115: | .LBB117: subs r4, r4, #1 | subs w19, w19, #1 .LVL342: | .LVL323: bne .L470 | bne .L393 .LDL106: | .LDL100: .LVL344: | .LVL324: .LBB121: .LBB121: .LBI121: .LBI121: 236 SEQ = SEQ-1 236 SEQ = SEQ-1 ldr r7, .L478+8 | adrp x20, .LANCHOR0 mov r3, #235 | add x20, x20, :lo12:.LANC str r3, [r7] | ldr w0, [x20, 300] ldr r4, .L478 | sub w0, w0, #1 .LVL343: | str w0, [x20, 300] ldr r6, .L478+4 < str r6, [r4] < ldr r5, .L478+12 < ldr r0, [r5, #296] < sub r0, r0, #1 < str r0, [r5, #296] < 237 OUTPUT WORD(SEQ); !SEQUENCE NUMBER 237 OUTPUT WORD(SEQ); !SEQUENCE NUMBER str r6, [r4] < bl OUTPUTWORD.44 bl OUTPUTWORD.44 .LVL346: | .LVL326: 238 OUTPUT WORD(\(CHECK!!SEQ)); !CHECKSUM 238 OUTPUT WORD(\(CHECK!!SEQ)); !CHECKSUM ldr r9, .L478+8 | ldr w1, [x20, 232] mov r8, #233 | ldr w0, [x20, 300] ldr r7, .L478 | eon w0, w1, w0 ldr r6, .L478+4 < .LBB117: < .LBB118: < str r8, [r9] < str r6, [r7] < mov r3, #237 < str r3, [r7] < ldr r0, [r5, #228] < ldr r3, [r5, #296] < eor r0, r0, r3 < mvn r0, r0 < bl OUTPUTWORD.44 bl OUTPUTWORD.44 .LVL347: | .LVL327: 239 %CYCLE I = 1,1,52 239 %CYCLE I = 1,1,52 mov r3, #238 < str r3, [r7] < str r6, [r4] < 240 OUTPUT WORD(BREC(I)) 240 OUTPUT WORD(BREC(I)) ldr r0, [r4, #4]! | ldr w0, [x19], 4 > .LVL329: bl OUTPUTWORD.44 bl OUTPUTWORD.44 .LVL349: | .LVL330: 241 %REPEAT 241 %REPEAT 242 BINCOUNT = 0; CHECK = 0 242 BINCOUNT = 0; CHECK = 0 add r4, r5, #16 | add x19, x20, 24 add r5, r5, #224 | add x20, x20, 232 cmp r4, r5 | .LVL328: bne .L472 | .L395: .LDL108: | .LDL101: ldr r3, .L478+12 | cmp x19, x20 mov r2, #0 | bne .L395 str r2, [r3, #16] | .LDL102: str r2, [r3, #228] | adrp x0, .LANCHOR0 > add x0, x0, :lo12:.LANCHO > str wzr, [x0, 16] > str wzr, [x0, 232] 243 SELECT OUTPUT(LIS) 243 SELECT OUTPUT(LIS) ldr r4, .L478 | .LVL331: ldr r5, .L478+4 < str r5, [r4] < .LVL350: < .LBB123: .LBB123: .LBI123: .LBI123: 244 %END 244 %END ldr r6, .L478+8 < mov r3, #243 < str r3, [r6] < 245 245 mov r9, r7 < mov r8, #240 < ldr r7, .L478 < .LVL348: < .L472: < .LDL107: < str r8, [r9] < str r6, [r7] < mov r3, #244 < str r3, [r6] < str r5, [r4] < 246 %ROUTINE PLANT VAL 246 %ROUTINE PLANT VAL pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .L479: | .LVL333: .align 2 | ldp x29, x30, [sp], 32 .L478: | ret .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word .LANCHOR0 < .word _imp_OutStream < .word _imp_outfile < .word _imp_OUTFILE < .word .LANCHOR2+276 < .LFE216: .LFE216: .align 2 .align 2 PRINTLINE.47: | PUTWORD.29: .LFB211: | .LVL334: @ Nested: function declared i | .LFB214: @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -48]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, r8, | stp x19, x20, [sp, 16] mov r4, ip | mov x19, x18 247 %INTEGER I,J 247 %INTEGER I,J 248 TYPE = 0 %IF TYPE = SINGLE 248 TYPE = 0 %IF TYPE = SINGLE ldr r3, [ip, #68] | ldr w0, [x18, 68] cmp r3, #20480 | cmp w0, 20480 moveq r3, #0 | bne .L422 streq r3, [ip, #68] | str wzr, [x18, 68] 249 I = 2; I = 4 %IF TYPE&OPMASK # 0 249 I = 2; I = 4 %IF TYPE&OPMASK # 0 ldr r3, .L516 | .LVL367: ldr r2, .L516+4 | mov w20, 2 str r2, [r3] | b .L423 .LVL364: | .LVL368: moveq r5, #2 | .L422: beq .L496 | tst w0, 61440 .LVL365: | beq .L439 .L495: | mov w20, 4 tst r3, #61440 | .L423: moveq r5, #2 | .LVL369: movne r5, #4 | mov w20, 2 .L496: | b .L423 .LVL366: | .LVL372: > .L442: 250 %IF PASS > 0 %START 250 %IF PASS > 0 %START ldr r3, .L516+8 | adrp x0, .LANCHOR1+8 ldr r3, [r3, #8] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cmp w0, 0 ble .L497 | ble .L438 251 OUTPUT RECORD %IF BINCOUNT+I+I >= 208 251 OUTPUT RECORD %IF BINCOUNT+I+I >= 208 ldr r3, .L516+16 | adrp x0, .LANCHOR0+16 ldr r3, [r3, #16] | ldr w0, [x0, #:lo12:.LANC add r3, r3, r5, lsl #1 | add w0, w0, w20, lsl 1 cmp r3, #207 | cmp w0, 207 bgt .L513 | bgt .L442 .L498: | .L425: bl OUTPUTRECORD.43 bl OUTPUTRECORD.43 .LVL368: | .LVL373: b .L498 | b .L425 .L499: | .L426: > str x21, [sp, 32] 252 %IF I = 4 %START 252 %IF I = 4 %START ldr r3, .L516+12 | cmp w20, 4 mov r2, #251 | beq .L426 str r2, [r3] | .LDL105: cmp r5, #4 < beq .L499 < .LDL110: < 253 %IF TYPE&16_4000 = 0 %START 253 %IF TYPE&16_4000 = 0 %START ldr r3, .L516 | ldr w0, [x19, 68] ldr r2, .L516+4 | tbz x0, 14, .L429 str r2, [r3] | .LDL106: ldr r3, [r4, #68] < tst r3, #16384 < beq .L502 < .LDL111: < 254 PUT(11); J = TYPE!!OPMASK 254 PUT(11); J = TYPE!!OPMASK mov r0, #11 | mov w0, 11 bl PUT.42 bl PUT.42 .LVL378: | .LVL383: ldr r9, [r4, #68] | ldr w21, [x19, 68] eor r9, r9, #61440 | eor w21, w21, 61440 .LVL379: | .LVL384: 255 TYPE = RELMASK 255 TYPE = RELMASK str r3, [r4, #68] | str w0, [x19, 68] ldr r3, .L516+12 < mov r2, #254 < str r2, [r3] < 256 %finish %ELSE %START 256 %finish %ELSE %START mov r3, #32 | mov w0, 32 b .L503 | b .L430 .L514: | .L443: 257 PUT(10); J = TYPE; TYPE = 0 257 PUT(10); J = TYPE; TYPE = 0 mov r0, #10 | mov w0, 10 bl PUT.42 bl PUT.42 .LVL369: | .LVL374: ldr r9, [r4, #68] | ldr w21, [x19, 68] .LVL370: | .LVL375: mov r3, #0 | mov w0, 0 .L503: | .L430: 258 %FINISH 258 %FINISH ldr r3, .L516+12 < ldr r2, .L516+20 < str r2, [r3] < 259 PUT WORD(J) 259 PUT WORD(J) mov r0, r9 | mov w0, w21 bl PUTWORD.29 bl PUTWORD.29 .LVL371: | .LVL376: 260 PRINT LINE %IF CHARS # 0 260 PRINT LINE %IF CHARS # 0 ldr r8, .L516+12 | adrp x0, .LANCHOR0+4 ldr r3, .L516+24 | ldr w0, [x0, #:lo12:.LANC str r3, [r8] | cbnz w0, .L443 ldr r6, .L516 | .L431: ldr r7, .L516+4 | mov x18, x19 str r7, [r6] < ldr r3, .L516+16 < ldr r3, [r3, #4] < cmp r3, #0 < bne .L514 < .L504: < mov ip, r4 < bl PRINTLINE.47 bl PRINTLINE.47 .LVL380: | .LVL385: b .L504 | b .L431 .LVL381: | .LVL386: .L500: | .L427: 261 PRINT LOC 261 PRINT LOC mov r3, #260 | mov x18, x19 str r3, [r8] < str r7, [r6] < mov ip, r4 < bl PRINTLOC.46 bl PRINTLOC.46 .LVL372: | .LVL377: 262 PRINT WORD(J); PRINT(' ') 262 PRINT WORD(J); PRINT(' ') ldr r8, .L516+12 | mov w0, w21 ldr r3, .L516+28 < str r3, [r8] < ldr r6, .L516 < ldr r7, .L516+4 < str r7, [r6] < mov r0, r9 < bl PRINTWORD.2 bl PRINTWORD.2 .LVL373: | .LVL378: mov r0, #32 | mov w0, 32 bl PRINT.5 bl PRINT.5 .LVL374: | .LVL379: 263 %finish %ELSE %START 263 %finish %ELSE %START ldr r10, .L516+32 | ldr x21, [sp, 32] str r10, [r8] | .LVL380: str r7, [r6] | .L432: str r10, [r8] | .L435: str r7, [r6] < .L505: < 264 %IF TYPE&RELMASK # 0 %THEN PUT(9) %ELSE PUT(8 264 %IF TYPE&RELMASK # 0 %THEN PUT(9) %ELSE PUT(8 ldr r3, [r4, #68] | ldr w0, [x19, 68] tst r3, #32 | tbz x0, 5, .L427 beq .L500 | mov w0, 9 mov r0, #9 < bl PUT.42 bl PUT.42 .LVL367: | .LVL370: b .L506 | b .L433 .L513: | .LVL371: .LDL112: | .L439: mov r0, #8 | .LDL107: > mov w0, 8 bl PUT.42 bl PUT.42 .LVL382: | .LVL387: .L506: | .L433: 265 %IF CHARS # 0 %THEN PRINT(' ') %ELSE PRINT LO 265 %IF CHARS # 0 %THEN PRINT(' ') %ELSE PRINT LO ldr r3, .L516+12 | adrp x0, .LANCHOR0+4 mov r2, #264 | ldr w0, [x0, #:lo12:.LANC str r2, [r3] | cbnz w0, .L434 ldr r3, .L516+16 | .LDL108: ldr r3, [r3, #4] | mov x18, x19 cmp r3, #0 < bne .L507 < .LDL113: < mov ip, r4 < bl PRINTLOC.46 bl PRINTLOC.46 .LVL383: | .LVL388: b .L505 | b .L435 .L507: | .L434: mov r0, #32 | mov w0, 32 bl PRINT.5 bl PRINT.5 .LVL384: | .LVL389: b .L505 | b .L435 .L515: | .L444: 266 %FINISH 266 %FINISH ldr r3, .L516+12 < ldr r2, .L516+44 < str r2, [r3] < ldr r3, .L516 < ldr r2, .L516+4 < str r2, [r3] < 267 PUT WORD(VAL); PRINT WORD(VAL) 267 PUT WORD(VAL); PRINT WORD(VAL) ldr r0, [r4, #64] | ldr w0, [x19, 64] bl PUTWORD.29 bl PUTWORD.29 .LVL375: | .LVL381: ldr r0, [r4, #64] | ldr w0, [x19, 64] bl PRINTWORD.2 bl PRINTWORD.2 .LVL376: | .LVL382: 268 PRINT('''') %IF TYPE&RELMASK # 0 268 PRINT('''') %IF TYPE&RELMASK # 0 ldr r8, .L516+12 | ldr w0, [x19, 68] ldr r9, .L516+36 | tbnz x0, 5, .L444 str r9, [r8] | .L436: ldr r6, .L516 | mov w0, 39 ldr r7, .L516+4 < str r7, [r6] < str r9, [r8] < str r7, [r6] < ldr r3, [r4, #68] < tst r3, #32 < bne .L515 < .L508: < mov r0, #39 < bl PRINT.5 bl PRINT.5 .LVL385: | .LVL390: b .L508 | .LDL109: .L517: < .align 2 < .L516: < .word _imp_current_file < .word .LC6 < .word .LANCHOR1 < .word _imp_current_line < .word .LANCHOR0 < .word 257 < .word 259 < .word 261 < .word 262 < .word 267 < .word 269 < .word 265 < .LFE218: < .align 2 < PLANTJUMP.28: < .LFB223: < 269 PRINT LINE %IF TYPE&RELMASK#0 %OR CHARS=15 269 PRINT LINE %IF TYPE&RELMASK#0 %OR CHARS=15 mov r3, #268 | adrp x0, .LANCHOR0+4 str r3, [r8] | ldr w0, [x0, #:lo12:.LANC str r7, [r6] | cmp w0, 15 ldr r3, [r4, #68] | bne .L438 tst r3, #32 | b .L437 bne .L509 | .L429: ldr r3, .L516+16 | ldr w0, [x19, 68] ldr r3, [r3, #4] | tbz x0, 5, .L436 cmp r3, #15 | .L437: bne .L497 | mov x18, x19 .L509: < mov ip, r4 < bl PRINTLINE.47 bl PRINTLINE.47 .LVL377: | .LVL391: .L497: | .L424: > .L438: 270 %FINISH 270 %FINISH ldr r3, .L516+12 < ldr r2, .L516+40 < str r2, [r3] < ldr r3, .L516 < ldr r2, .L516+4 < str r2, [r3] < 271 LOC = LOC+I 271 LOC = LOC+I ldr r3, [r4, #76] | ldr w0, [x19, 76] add r3, r3, r5 | add w0, w0, w20 str r3, [r4, #76] | str w0, [x19, 76] 272 %END 272 %END ldr r3, .L516 < ldr r2, .L516+4 < str r2, [r3] < 273 273 ldr r3, .L516+12 < mov r2, #272 < str r2, [r3] < 274 %ROUTINE NEST(%INTEGER K) 274 %ROUTINE NEST(%INTEGER K) @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -16]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, lr} | mov w1, w0 mov r1, r0 | ldp x19, x20, [sp, 16] pop {r4, r5, r6, r7, r8, | .LVL392: .L502: | ldp x29, x30, [sp], 48 > ret > .LFE218: > .align 2 > PLANTJUMP.28: > .LFB223: 275 !! NP = NP-1; %MONITOR 23 %IF NP = BP 275 !! NP = NP-1; %MONITOR 23 %IF NP = BP 276 NP = NP-1; !{}%signal 2,3 %IF NP = BP 276 NP = NP-1; !{}%signal 2,3 %IF NP = BP ldr r2, .L56 | adrp x3, .LANCHOR0 ldr r3, [r2, #232] | add x3, x3, :lo12:.LANCHO sub r0, r3, #1 | ldr w2, [x3, 236] .LVL43: | sub w0, w2, #1 str r0, [r2, #232] | .LVL25: > str w0, [x3, 236] 277 !! INTEGER(NP) = K 277 !! INTEGER(NP) = K 278 set INTEGER(NP, K) 278 set INTEGER(NP, K) bl SETINTEGER.8 bl SETINTEGER.8 .LVL44: | .LVL26: 279 %END 279 %END 280 280 ldr r3, .L56+4 < ldr r2, .L56+8 < str r2, [r3] < ldr r3, .L56+12 < ldr r2, .L56+16 < str r2, [r3] < 281 %ROUTINE SET LAB(%INTEGER DEST) 281 %ROUTINE SET LAB(%INTEGER DEST) pop {r4, pc} | ldp x29, x30, [sp], 16 .L57: | ret .align 2 < .L56: < .word .LANCHOR0 < .word _imp_current_line < .word 279 < .word _imp_current_file < .word .LC6 < .LFE219: .LFE219: .align 2 .align 2 FORMINST.21: FORMINST.21: .LVL45: | .LVL27: .LFB222: .LFB222: @ Nested: function declared i | stp x29, x30, [sp, -80]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | stp x21, x22, [sp, 32] sub sp, sp, #12 | stp x23, x24, [sp, 48] str r0, [sp, #4] | str x25, [sp, 64] mov r4, ip | mov w23, w0 > mov x20, x18 282 %INTEGER D 282 %INTEGER D 283 D = DEST 283 D = DEST .LVL139: | .LVL111: mov r9, r0 | mov w21, w0 284 %CYCLE 284 %CYCLE 285 TYPE = INTEGER(NP)&16_FFF+DEFLIM; !DEST SLOT 285 TYPE = INTEGER(NP)&16_FFF+DEFLIM; !DEST SLOT ldr r5, .L227+16 | adrp x19, .LANCHOR0 b .L216 | add x19, x19, :lo12:.LANC .LVL140: | ldr w0, [x19, 236] .L223: < ldr r0, [r5, #232] < bl INTEGER.39 bl INTEGER.39 .LVL142: | .LVL114: lsl r0, r0, #20 | and w0, w0, 4095 lsr r0, r0, #20 | ldr w1, [x19, 264] ldr r3, [r5, #260] | add w0, w0, w1 add r0, r0, r3 | str w0, [x20, 68] str r0, [r4, #68] < 286 NP = NP+1 286 NP = NP+1 ldr r8, .L227 | ldr w0, [x19, 236] ldr fp, .L227+4 | add w0, w0, 1 ldr r7, .L227+8 | str w0, [x19, 236] ldr r6, .L227+12 < str fp, [r8] < str r6, [r7] < ldr r0, [r5, #232] < add r0, r0, #1 < str r0, [r5, #232] < 287 VAL = INTEGER(NP); !LOC OF JUMP 287 VAL = INTEGER(NP); !LOC OF JUMP str r6, [r7] < bl INTEGER.39 bl INTEGER.39 .LVL143: | .LVL115: 288 NP = NP+1 288 NP = NP+1 ldr r3, .L227+20 | ldr w1, [x19, 236] str r3, [r8] | add w1, w1, 1 ldr r3, [r5, #232] | str w1, [x19, 236] add r3, r3, #1 < str r3, [r5, #232] < 289 ATYPE = -1; CREG = -1 289 ATYPE = -1; CREG = -1 str r6, [r7] | mov w22, -1 mvn r3, #0 < str r3, [r4, #60] < str r3, [r4, #56] < 290 FLAG = 0; FLAG = 2 %IF (D-VAL)>>1+PASS <= 16 290 FLAG = 0; FLAG = 2 %IF (D-VAL)>>1+PASS <= 16 ldr r3, .L227+24 | adrp x24, .LANCHOR1 ldr r2, [r3, #8] | add x24, x24, :lo12:.LANC sub r3, r9, r0 | ldr w2, [x24, 8] add r3, r2, r3, asr #1 | sub w1, w21, w0 cmp r3, #16 | add w1, w2, w1, asr 1 movgt r3, #0 | cmp w1, 16 movle r3, #1 | cset w1, le lsl r3, r3, #1 | lsl w1, w1, 1 .LDL33: | .LDL27: str r3, [r4, #52] | stp w1, w22, [x20, 52] 291 VAL = VAL-FLAG 291 VAL = VAL-FLAG sub r0, r0, r3 | sub w0, w0, w1 str r0, [r4, #64] | stp w22, w0, [x20, 60] 292 %IF PASS = 0 %START 292 %IF PASS = 0 %START cmp r2, #0 | cbz w2, .L145 beq .L217 | .LDL28: .LDL34: < 293 !! D = D-FLAG; INTEGER(TYPE) = D 293 !! D = D-FLAG; INTEGER(TYPE) = D 294 D = D-FLAG; set INTEGER(TYPE, D) 294 D = D-FLAG; set INTEGER(TYPE, D) sub r9, r9, r3 | sub w21, w21, w1 .LVL146: | .LVL118: mov r1, r9 | mov w1, w21 ldr r0, [r4, #68] | ldr w0, [x20, 68] bl SETINTEGER.8 bl SETINTEGER.8 .LVL147: | .LVL119: 295 %IF FLAG # 0 %START 295 %IF FLAG # 0 %START ldr r3, [r4, #52] | ldr w0, [x20, 52] cmp r3, #0 | cbnz w0, .L155 bne .L226 | .L146: .L218: | .L149: .LDL35: | .LDL29: 296 LOC = LOC-2; DEST = DEST-2 296 LOC = LOC-2; DEST = DEST-2 ldr r3, .L227+32 | ldr w0, [x20, 76] str r3, [r8] | sub w0, w0, #2 str r6, [r7] | str w0, [x20, 76] ldr r3, [r4, #76] | sub w23, w23, #2 sub r3, r3, #2 | .LVL124: str r3, [r4, #76] < ldr r3, [sp, #4] < sub r3, r3, #2 < str r3, [sp, #4] < .LVL152: < 297 %WHILE TYPE # ALMAX %CYCLE 297 %WHILE TYPE # ALMAX %CYCLE ldr r0, [r4, #68] | ldr w0, [x20, 68] ldr r3, [r5, #264] | ldr w1, [x19, 268] .LVL153: | cmp w1, w0 cmp r3, r0 | beq .L149 beq .L218 | .L148: ldr r0, [r4, #68] | ldr w0, [x20, 68] ldr r3, [r5, #264] | ldr w1, [x19, 268] cmp r3, r0 | cmp w1, w0 bne .L220 | bne .L148 b .L218 | b .L149 .L215: | .L143: 298 !! TYPE = TYPE+1; INTEGER(TYPE) = INTEG 298 !! TYPE = TYPE+1; INTEGER(TYPE) = INTEG 299 TYPE = TYPE+1; set INTEGER(TYPE, INTE 299 TYPE = TYPE+1; set INTEGER(TYPE, INTE add r0, r0, #1 | add w0, w0, 1 str r0, [r4, #68] | str w0, [x20, 68] bl INTEGER.39 bl INTEGER.39 .LVL154: | .LVL125: sub r1, r0, #2 | sub w1, w0, #2 ldr r0, [r4, #68] | ldr w0, [x20, 68] bl SETINTEGER.8 bl SETINTEGER.8 .LVL155: | .LVL126: 300 %REPEAT 300 %REPEAT ldr r10, .L227+44 | .LDL31: .L220: < str r10, [r8] < str r6, [r7] < .LDL37: < 301 %FINISH 301 %FINISH str r6, [r7] < 302 %finish %ELSE %START 302 %finish %ELSE %START 303 FAULT('P') %IF INTEGER(TYPE) # D 303 FAULT('P') %IF INTEGER(TYPE) # D ldr r0, [r4, #68] | mov w25, 80 > b .L144 > .LVL112: > .L152: > ldr w0, [x20, 68] bl INTEGER.39 bl INTEGER.39 .LVL144: | .LVL116: cmp r0, r9 | cmp w0, w21 beq .L218 | beq .L149 mov ip, r4 | mov x18, x20 mov r0, #80 | mov w0, w25 bl FAULT.45 bl FAULT.45 .LVL145: | .LVL117: b .L218 | b .L149 .L217: | .L145: 304 %FINISH 304 %FINISH ldr r3, .L227+28 < str r3, [r8] < 305 %RETURN %UNLESS INTEGER(NP)&16_1000 # 0 305 %RETURN %UNLESS INTEGER(NP)&16_1000 # 0 ldr r0, [r5, #232] | ldr w0, [x19, 236] bl INTEGER.39 bl INTEGER.39 .LVL148: | .LVL120: tst r0, #4096 | tbz x0, 12, .L143 beq .L215 | .LDL30: .LDL36: < 306 %IF INTEGER(NP)&16_2000 # 0 %START; !OR 306 %IF INTEGER(NP)&16_2000 # 0 %START; !OR ldr r3, .L227+36 | ldr w0, [x19, 236] str r3, [r8] < str r6, [r7] < ldr r0, [r5, #232] < bl INTEGER.39 bl INTEGER.39 .LVL149: | .LVL121: tst r0, #8192 | tbz x0, 13, .L152 beq .L223 < 307 D = VAL+4 %IF D = DEST 307 D = VAL+4 %IF D = DEST ldr r3, .L227+40 | cmp w23, w21 str r3, [r8] | bne .L144 str r6, [r7] | ldr w21, [x20, 64] ldr r3, [sp, #4] | .LVL122: cmp r3, r9 | add w21, w21, 4 ldreq r9, [r4, #64] | .LVL123: .LVL150: | b .L144 addeq r9, r9, #4 | .L155: .LVL151: < b .L216 < .L226: < 308 %finish %ELSE %START 308 %finish %ELSE %START 309 D = DEST 309 D = DEST ldr r9, [sp, #4] | mov w21, w23 .LVL141: | .LVL113: .L216: | .L144: .LDL32: | .LDL26: 310 %FINISH 310 %FINISH 311 %REPEAT 311 %REPEAT 312 %END 312 %END 313 313 314 %ROUTINE ASSEMBLE 314 %ROUTINE ASSEMBLE add sp, sp, #12 | ldp x19, x20, [sp, 16] @ sp needed | ldp x21, x22, [sp, 32] pop {r4, r5, r6, r7, r8, | .LVL127: .LVL156: | ldp x23, x24, [sp, 48] .L228: | .LVL128: .align 2 | ldr x25, [sp, 64] .L227: | ldp x29, x30, [sp], 80 .word _imp_current_line | ret .word 285 < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word 287 < .word .LANCHOR1 < .word 303 < .word 295 < .word 305 < .word 306 < .word 299 < .LFE220: .LFE220: .align 2 .align 2 LOOKUP.32: LOOKUP.32: .LVL157: | .LVL129: .LFB232: .LFB232: @ Nested: function declared i | stp x29, x30, [sp, -144]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | stp x21, x22, [sp, 32] sub sp, sp, #60 | stp x23, x24, [sp, 48] mov r5, ip | stp x25, x26, [sp, 64] add r3, sp, #96 | stp x27, x28, [sp, 80] str r3, [sp, #52] | mov x20, x18 str ip, [sp, #48] | add x0, sp, 144 > str x0, [sp, 136] > str x18, [sp, 112] 315 ! INTERDATA OP-CODES (+FORMATS) 315 ! INTERDATA OP-CODES (+FORMATS) 316 %OWNINTEGER LOAD=16_080F, LB=16_9303 316 %OWNINTEGER LOAD=16_080F, LB=16_9303 317 %OWNINTEGER ADD=16_0A0F, SUB=16_0B0F, AND=16_0407 317 %OWNINTEGER ADD=16_0A0F, SUB=16_0B0F, AND=16_0407 318 %OWNINTEGER OR=16_0607, XOR=16_0707 318 %OWNINTEGER OR=16_0607, XOR=16_0707 319 %OWNINTEGER SLLS=16_7508, SRLS=16_7408, SLHL=16_0D04, S 319 %OWNINTEGER SLLS=16_7508, SRLS=16_7408, SLHL=16_0D04, S 320 %OWNINTEGER COMP=16_0907, CLB=16_9402 320 %OWNINTEGER COMP=16_0907, CLB=16_9402 321 %OWNINTEGER STORE=16_0002, STB=16_9202, AHM=16_2102 321 %OWNINTEGER STORE=16_0002, STB=16_9202, AHM=16_2102 322 %OWNINTEGER BT=16_0203, BF=16_0303 322 %OWNINTEGER BT=16_0203, BF=16_0303 323 ! FORMAT CODES 323 ! FORMAT CODES 324 %OWNINTEGER REGISTER=1, MEM=2, LIT=4, SHORT=8 324 %OWNINTEGER REGISTER=1, MEM=2, LIT=4, SHORT=8 325 325 326 %OWNINTEGER ZQUERY=0 326 %OWNINTEGER ZQUERY=0 327 %INTEGER OP,K,Q,LITVAL,NQ,TYPE1,VAL1,FREE 327 %INTEGER OP,K,Q,LITVAL,NQ,TYPE1,VAL1,FREE 328 %SWITCH ASS(-30:-1) 328 %SWITCH ASS(-30:-1) 329 329 330 %ROUTINE FORM INST(%INTEGER CODE) 330 %ROUTINE FORM INST(%INTEGER CODE) @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, lr} | str x21, [sp, 32] mov r6, r0 | mov w20, w0 mov r4, ip | mov x19, x18 331 ! LS 4 BITS OF CODE DEFINE VALID FORMATS 331 ! LS 4 BITS OF CODE DEFINE VALID FORMATS 332 ! INTERDATA OP-CODES FOR DIFFERENT FORMATS 332 ! INTERDATA OP-CODES FOR DIFFERENT FORMATS 333 ! ARE SYSTEMATICALLY RELATED 333 ! ARE SYSTEMATICALLY RELATED 334 ! SHORT=REGISTER+SINC, LIT=REGISTER+LINC, MEM=REGIST 334 ! SHORT=REGISTER+SINC, LIT=REGISTER+LINC, MEM=REGIST 335 %OWNINTEGER SINC=16_1C00, LINC=16_C000, MINC=16_4000 335 %OWNINTEGER SINC=16_1C00, LINC=16_C000, MINC=16_4000 336 %INTEGER OP 336 %INTEGER OP 337 OP = CODE&16_FFF0 337 OP = CODE&16_FFF0 ldr r3, .L77 | and w21, w0, 65520 ldr r2, .L77+4 | .LVL28: str r2, [r3] < ldr r5, .L77+8 < and r5, r5, r0 < .LVL46: < 338 %IF TYPE = REG %START 338 %IF TYPE = REG %START ldr r3, [ip, #12] | ldr x0, [x18] ldr r2, [r3, #68] | .LVL29: cmp r2, #128 | ldr w1, [x0, 68] bne .L59 | cmp w1, 128 > bne .L20 339 %IF CODE®ISTER # 0 %START 339 %IF CODE®ISTER # 0 %START tst r0, #1 | tbz x20, 0, .L35 beq .L74 | .LDL1: .LDL4: < 340 TYPE = SINGLE; VAL = OP+VAL 340 TYPE = SINGLE; VAL = OP+VAL ldr r2, .L77+12 | mov w1, 20480 ldr r1, .L77+16 | str w1, [x0, 68] str r1, [r2] | ldr x1, [x18] mov r2, #20480 | ldr w0, [x1, 64] str r2, [r3, #68] | add w0, w0, w21 ldr r2, [ip, #12] | str w0, [x1, 64] ldr r3, [r2, #64] < add r3, r3, r5 < str r3, [r2, #64] < 341 %RETURN 341 %RETURN pop {r4, r5, r6, pc} | b .L19 .L74: | .L35: 342 %FINISH 342 %FINISH ldr r3, .L77+12 < ldr r2, .L77+20 < str r2, [r3] < 343 TYPE = XMASK+VAL; VAL = 0; !COERCE TO INDEXE 343 TYPE = XMASK+VAL; VAL = 0; !COERCE TO INDEXE ldr r2, [r3, #64] | ldr w1, [x0, 64] add r2, r2, #16 | add w1, w1, 16 str r2, [r3, #68] | str w1, [x0, 68] ldr r3, [ip, #12] | ldr x0, [x18] mov r2, #0 | str wzr, [x0, 64] str r2, [r3, #64] | .L20: 344 %FINISH 344 %FINISH 345 !! %IF TYPE=0 %AND !VAL!<=15 %AND CODE&SHORT#0 %STAR 345 !! %IF TYPE=0 %AND !VAL!<=15 %AND CODE&SHORT#0 %STAR .L59: < 346 %IF TYPE=0 %AND |VAL|<=15 %AND CODE&SHORT#0 %START; 346 %IF TYPE=0 %AND |VAL|<=15 %AND CODE&SHORT#0 %START; ldr ip, [r4, #12] | ldr x18, [x19] ldr r3, [ip, #68] | ldr w0, [x18, 68] cmp r3, #0 | cbnz w0, .L23 bne .L62 | ldr w0, [x18, 64] ldr r3, [ip, #64] | .LVL30: .LVL47: < .LBB64: .LBB64: .LBI64: .LBI64: cmp r2, #15 < bgt .L63 < tst r6, #8 < beq .L63 < 347 VAL = -VAL %AND OP = OP!!16_100 %IF VAL < 0 347 VAL = -VAL %AND OP = OP!!16_100 %IF VAL < 0 ldr r3, .L77+12 | tbz w0, #31, .L25 ldr r2, .L77+24 | neg w0, w0 str r2, [r3] | str w0, [x18, 64] cmp r3, #0 | eor w21, w21, 256 rsblt r3, r3, #0 | .LVL31: strlt r3, [ip, #64] | .L25: eorlt r5, r5, #256 < .LVL48: < .L64: < 348 TYPE = SINGLE; VAL = OP+SINC+VAL 348 TYPE = SINGLE; VAL = OP+SINC+VAL ldr r3, [r4, #12] | ldr x0, [x19] mov r2, #20480 | mov w1, 20480 str r2, [r3, #68] | str w1, [x0, 68] ldr r2, [r4, #12] | ldr x2, [x19] add r5, r5, #7168 | add w1, w21, 4096 .LVL49: | add w1, w1, 3072 ldr r3, [r2, #64] | ldr w0, [x2, 64] add r3, r3, r5 | add w0, w0, w1 str r3, [r2, #64] | str w0, [x2, 64] 349 %finish %ELSE %START 349 %finish %ELSE %START b .L65 | b .L19 .LVL50: | .L23: .L62: < 350 FAULT('R') %IF TYPE&31 = XMASK; !R0 AS INDEX 350 FAULT('R') %IF TYPE&31 = XMASK; !R0 AS INDEX and r3, r3, #31 | and w0, w0, 31 cmp r3, #16 | cmp w0, 16 bne .L63 | bne .L26 mov r0, #82 | mov w0, 82 .LVL51: < bl FAULT.45 bl FAULT.45 .LVL52: | .LVL32: .L63: | .L26: 351 %IF TYPE&MEMMASK = 0 %START; !IMMEDIATE 351 %IF TYPE&MEMMASK = 0 %START; !IMMEDIATE ldr ip, [r4, #12] | ldr x18, [x19] ldr r3, [ip, #68] | ldr w0, [x18, 68] tst r3, #64 | tbz x0, 6, .L27 beq .L66 | .LDL2: .LDL5: | ldr x18, [x19] > .L27: 352 FAULT('I') %IF CODE&LIT = 0 352 FAULT('I') %IF CODE&LIT = 0 ldr r3, .L77+12 | mov w0, 73 ldr r2, .L77+28 < str r2, [r3] < ldr r3, .L77 < ldr r2, .L77+4 < str r2, [r3] < tst r6, #4 < beq .L76 < .L69: < mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL58: | .LVL33: b .L69 | b .L30 .L75: | .L36: > tbz x20, 2, .L37 > .L30: 353 OP = OP+LINC 353 OP = OP+LINC add r5, r5, #49152 | add w1, w21, 49152 .LVL54: | .LVL35: 354 %finish %ELSE %START; !MEMORY 354 %finish %ELSE %START; !MEMORY .L70: | .L31: 355 FAULT('I') %IF CODE&MEM = 0 355 FAULT('I') %IF CODE&MEM = 0 tst r6, #2 | tbz x20, 1, .L36 beq .L75 | .L28: .L67: | mov w0, 73 mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL59: | .LVL34: b .L67 | b .L28 .L78: | .L24: .align 2 < .L77: < .word _imp_current_file < .word .LC6 < .word 65520 < .word _imp_current_line < .word 339 < .word 341 < .word 346 < .word 351 < .word 361 < .LFE222: < .align 2 < RELEASE.20: < .LFB227: < 356 OP = OP+MINC 356 OP = OP+MINC add r5, r5, #16384 | add w1, w21, 16384 .LVL53: | b .L31 > .L37: 357 %FINISH 357 %FINISH 358 OP = OP!!OPMASK %IF TYPE&RELMASK # 0 358 OP = OP!!OPMASK %IF TYPE&RELMASK # 0 b .L70 | ldr x2, [x19] .L66: | ldr w0, [x2, 68] ldr r2, [r4, #12] | eor w3, w1, 61440 ldr r3, [r2, #68] | tst x0, 32 tst r3, #32 | csel w1, w3, w1, ne eorne r5, r5, #61440 | .LVL36: .LVL55: | .L32: .L71: < 359 TYPE = TYPE&15+OP 359 TYPE = TYPE&15+OP and r3, r3, #15 | and w0, w0, 15 add r3, r3, r5 | add w0, w0, w1 str r3, [r2, #68] | str w0, [x2, 68] > .L22: 360 %FINISH 360 %FINISH 361 %END 361 %END .LVL56: < .L65: < 362 362 ldr r3, .L77+12 | .LVL37: ldr r2, .L77+32 | .L19: str r2, [r3] < ldr r3, .L77 < ldr r2, .L77+4 < str r2, [r3] < 363 %ROUTINE PLANT JUMP 363 %ROUTINE PLANT JUMP pop {r4, r5, r6, pc} | ldp x19, x20, [sp, 16] .LVL57: | .LVL38: .L76: | ldr x21, [sp, 32] @ Nested: function declared i | ldp x29, x30, [sp], 48 @ args = 0, pretend = 0, fram | ret @ frame_needed = 0, uses_anon | .LFE222: push {r4, r5, r6, r7, r8, | .align 2 mov r4, ip | RELEASE.20: > .LFB227: > stp x29, x30, [sp, -32]! > mov x29, sp > stp x19, x20, [sp, 16] > mov x19, x18 364 %INTEGER I,OP 364 %INTEGER I,OP 365 OP = BF; COND=\COND %AND OP=BT %IF COND < 0 365 OP = BF; COND=\COND %AND OP=BT %IF COND < 0 .LVL386: | .LVL393: ldr r2, [ip, #12] | ldr x1, [x18] ldr r3, [r2, #48] | ldr w0, [x1, 48] cmp r3, #0 | mov w20, 771 mvnlt r3, r3 | tbz w0, #31, .L446 strlt r3, [r2, #48] | mvn w0, w0 .LVL387: | str w0, [x1, 48] ldrlt r8, .L531+8 | .LVL394: ldrge r8, .L531+12 | mov w20, 515 .L519: | .LVL395: .LVL388: | .L446: 366 %IF TYPE&(\UMASK) = LOCTYPE %START 366 %IF TYPE&(\UMASK) = LOCTYPE %START ldr r3, .L531 | ldr x18, [x19] ldr r2, .L531+4 | ldp w1, w0, [x18, 68] str r2, [r3] | and w2, w1, -513 ldr ip, [ip, #12] | cmp w2, w0 ldr r3, [ip, #68] | bne .L454 bic r3, r3, #512 < ldr r2, [ip, #72] < cmp r3, r2 < bne .L520 < 367 I = LOC>>1-VAL>>1 367 I = LOC>>1-VAL>>1 ldr r3, .L531+16 | ldr w2, [x18, 76] ldr r2, .L531+20 | lsr w2, w2, 1 str r2, [r3] | ldr w0, [x18, 64] ldr r2, [ip, #76] | sub w0, w2, w0, lsr 1 ldr r3, [ip, #64] | .LVL396: lsr r3, r3, #1 < rsb r3, r3, r2, lsr #1 < .LVL389: < 368 !! FAULT('J') %AND I=0 %IF FLAG # 0 %AND !I! > 15 368 !! FAULT('J') %AND I=0 %IF FLAG # 0 %AND !I! > 15 369 FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 15 369 FAULT('J') %AND I=0 %IF FLAG # 0 %AND |I| > 15 ldr r2, [ip, #52] | ldr w2, [x18, 52] cmp r2, #0 | cbz w2, .L462 beq .L521 < .LVL390: < .LBB145: < .LBI145: < cmp r2, #15 < bgt .L530 < .LVL391: < .L522: < mov r0, #74 < bl FAULT.45 < .LVL396: < mov r3, #0 < b .L522 < .LVL397: .LVL397: .L521: | .LBB161: > .LBI161: > cmp w1, 15 > bgt .L463 > .LVL398: > .L450: > .LDL110: > mov w0, 74 > .LVL408: > bl FAULT.45 > .LVL409: 370 !! %IF !I! <= 15 %START 370 !! %IF !I! <= 15 %START 371 %IF |I| <= 15 %START 371 %IF |I| <= 15 %START .LVL392: | .LBB163: .LBB147: | .LBI163: .LBI147: | cmp w2, 15 .LVL398: | bgt .L454 .LBB150: | .LVL405: cmp r2, #15 | .LBB166: bgt .L520 < b .L525 < .L523: < 372 %IF TYPE&UMASK = 0 %OR FLAG # 0 %START 372 %IF TYPE&UMASK = 0 %OR FLAG # 0 %START ldr r2, .L531 | tbz x1, 9, .L450 ldr r1, .L531+4 | .L455: str r1, [r2] | .LDL111: ldr ip, [r4, #12] | ldr x18, [x19] ldr r2, [ip, #68] | ldr w1, [x18, 68] tst r2, #512 | and w0, w1, 512 beq .L523 | tbz x1, 9, .L450 ldr r2, [ip, #52] | ldr w0, [x18, 52] cmp r2, #0 | cbz w0, .L455 bne .L523 | mov w0, 0 .LDL114: | b .L450 ldr r2, .L531 | .LFE223: ldr r1, .L531+4 | .align 2 str r1, [r2] | SETJUMP.26: > .LVL410: > .LFB224: 373 OP = OP<<1+2; !0408, 0608 373 OP = OP<<1+2; !0408, 0608 ldr r2, .L531+16 | lsl w20, w20, 1 mov r1, #372 < str r1, [r2] < lsl r8, r8, #1 < .LVL399: .LVL399: add r8, r8, #2 | add w20, w20, 2 .LVL400: .LVL400: 374 TYPE = 0; VAL = I 374 TYPE = 0; VAL = I mov r2, #0 | str wzr, [x18, 68] str r2, [ip, #68] | ldr x1, [x19] ldr r2, [r4, #12] | str w0, [x1, 64] str r3, [r2, #64] < 375 %finish %ELSE %START 375 %finish %ELSE %START .LVL401: | .L447: .L520: | .L452: > .L453: > .L454: 376 FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0 376 FAULT('S') %IF LIST >= 0 %AND LIST&8 # 0 ldr r3, .L531+24 | adrp x0, .LANCHOR1+16 .LVL393: | ldr w0, [x0, #:lo12:.LANC ldr r3, [r3, #16] | tbnz w0, #31, .L454 cmp r3, #0 | tbz x0, 3, .L454 blt .L520 | mov w0, 83 tst r3, #8 < beq .L520 < mov r0, #83 < bl FAULT.45 bl FAULT.45 .LVL394: | .LVL406: b .L520 | b .L454 .LVL395: | .LVL407: .L530: | .L463: 377 %FINISH 377 %FINISH 378 %FINISH 378 %FINISH 379 %FINISH 379 %FINISH 380 FORM INST(COND<<4+OP) 380 FORM INST(COND<<4+OP) ldr r3, [r4, #12] | ldr x0, [x19] ldr r0, [r3, #48] | ldr w0, [x0, 48] mov ip, r4 | mov x18, x19 add r0, r8, r0, lsl #4 | add w0, w20, w0, lsl 4 bl FORMINST.21 bl FORMINST.21 .LVL402: | .LVL401: 381 PLANT VAL 381 PLANT VAL ldr r5, .L531+16 | ldr x18, [x19] mov r3, #380 < str r3, [r5] < ldr r6, .L531 < ldr r7, .L531+4 < str r7, [r6] < ldr ip, [r4, #12] < bl PLANTVAL.1 bl PLANTVAL.1 .LVL403: | .LVL402: 382 COND = 0 382 COND = 0 ldr r3, .L531+28 | ldr x0, [x19] str r3, [r5] | str wzr, [x0, 48] str r7, [r6] < ldr r3, [r4, #12] < mov r2, #0 < str r2, [r3, #48] < 383 %END 383 %END str r7, [r6] < 384 384 ldr r3, .L531+32 < str r3, [r5] < 385 %ROUTINE SET JUMP(%INTEGER CASE) 385 %ROUTINE SET JUMP(%INTEGER CASE) pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .L532: | .LVL403: .align 2 | ldp x29, x30, [sp], 32 .L531: | ret .word _imp_current_file < .word .LC6 < .word 515 < .word 771 < .word _imp_current_line < .word 366 < .word .LANCHOR1 < .word 381 < .word 383 < .LFE223: < .align 2 < SETJUMP.26: < .LVL404: .LVL404: .LFB224: | .L462: @ Nested: function declared i | stp x29, x30, [sp, -64]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r3, r4, r5, r6, r7, | stp x21, x22, [sp, 32] mov r9, r0 | stp x23, x24, [sp, 48] mov r4, ip | mov w22, w0 > mov x19, x18 386 %INTEGER THOLD,VHOLD,FHOLD 386 %INTEGER THOLD,VHOLD,FHOLD 387 !! ALMAX = ALMAX+1; %MONITOR 22 %IF ALMAX = LABMIN 387 !! ALMAX = ALMAX+1; %MONITOR 22 %IF ALMAX = LABMIN 388 ALMAX = ALMAX+1; !{}%signal 2,2 %IF ALMAX = LABMIN 388 ALMAX = ALMAX+1; !{}%signal 2,2 %IF ALMAX = LABMIN ldr r6, .L536 | adrp x21, .LANCHOR0 ldr r7, .L536+4 | add x21, x21, :lo12:.LANC str r7, [r6] | ldr w20, [x21, 268] ldr r10, .L536+8 | add w20, w20, 1 ldr r5, [r10, #264] | str w20, [x21, 268] add r5, r5, #1 < str r5, [r10, #264] < 389 NEST(LOC); NEST(ALMAX-DEFLIM+CASE) 389 NEST(LOC); NEST(ALMAX-DEFLIM+CASE) ldr r3, [ip, #12] | ldr x0, [x18] ldr r0, [r3, #76] | .LVL411: .LVL405: | ldr w0, [x0, 76] bl NEST.0 bl NEST.0 .LVL406: | .LVL412: ldr r0, [r10, #260] | ldr w0, [x21, 264] sub r0, r5, r0 | sub w0, w20, w0 add r0, r0, r9 | add w0, w0, w22 bl NEST.0 bl NEST.0 .LVL407: | .LVL413: 390 THOLD = TYPE; VHOLD = VAL; FHOLD = FLAG 390 THOLD = TYPE; VHOLD = VAL; FHOLD = FLAG ldr r8, .L536+12 | ldr x0, [x19] ldr fp, .L536+16 | ldp w22, w23, [x0, 64] str fp, [r8] | .LVL414: str fp, [r8] | ldr w21, [x0, 52] str r7, [r6] | .LVL415: ldr r3, [r4, #12] < ldr fp, [r3, #68] < .LVL408: < ldr r10, [r3, #64] < .LVL409: < ldr r9, [r3, #52] < .LVL410: < 391 TYPE = LOCTYPE; VAL = INTEGER(ALMAX); FLAG = 0 391 TYPE = LOCTYPE; VAL = INTEGER(ALMAX); FLAG = 0 str r7, [r6] | ldr w1, [x0, 72] ldr r2, [r3, #72] | str w1, [x0, 68] str r2, [r3, #68] | ldr x24, [x19] ldr r8, [r4, #12] | mov w0, w20 mov r0, r5 < bl INTEGER.39 bl INTEGER.39 .LVL411: | .LVL416: str r0, [r8, #64] | str w0, [x24, 64] ldr r3, [r4, #12] | ldr x0, [x19] mov r2, #0 | str wzr, [x0, 52] str r2, [r3, #52] < 392 TYPE = TYPE+UMASK %IF PASS = 0 392 TYPE = TYPE+UMASK %IF PASS = 0 ldr r2, .L536+20 | adrp x0, .LANCHOR1+8 str r2, [r8] | ldr w0, [x0, #:lo12:.LANC str r7, [r6] | cbnz w0, .L465 ldr r3, .L536+24 | ldr x1, [x19] ldr r3, [r3, #8] | ldr w0, [x1, 68] cmp r3, r2 | add w0, w0, 512 ldreq r2, [r4, #12] | str w0, [x1, 68] ldreq r3, [r2, #68] | .L465: addeq r3, r3, #512 < streq r3, [r2, #68] < .L534: < 393 COND = \COND 393 COND = \COND ldr r2, [r4, #12] | ldr x1, [x19] ldr r3, [r2, #48] | ldr w0, [x1, 48] mvn r3, r3 | mvn w0, w0 str r3, [r2, #48] | str w0, [x1, 48] 394 PLANT JUMP 394 PLANT JUMP mov ip, r4 | mov x18, x19 bl PLANTJUMP.28 bl PLANTJUMP.28 .LVL412: | .LVL417: 395 TYPE = THOLD; VAL = VHOLD; FLAG = FHOLD 395 TYPE = THOLD; VAL = VHOLD; FLAG = FHOLD ldr r5, .L536+12 | ldr x0, [x19] ldr r3, .L536+28 | str w23, [x0, 68] str r3, [r5] | ldr x0, [x19] ldr r3, [r4, #12] | str w22, [x0, 64] str fp, [r3, #68] | ldr x0, [x19] ldr r3, [r4, #12] | str w21, [x0, 52] str r10, [r3, #64] < ldr r3, [r4, #12] < str r9, [r3, #52] < 396 %END 396 %END ldr r3, .L536 < ldr r2, .L536+4 < str r2, [r3] < 397 397 mov r3, #396 < str r3, [r5] < 398 %ROUTINE PLANT INST(%INTEGER CODE) 398 %ROUTINE PLANT INST(%INTEGER CODE) pop {r3, r4, r5, r6, r7, | ldp x19, x20, [sp, 16] .L537: | ldp x21, x22, [sp, 32] .align 2 | .LVL418: .L536: | ldp x23, x24, [sp, 48] .word _imp_current_file | ldp x29, x30, [sp], 64 .word .LC6 | ret .word .LANCHOR0 < .word _imp_current_line < .word 389 < .word 391 < .word .LANCHOR1 < .word 394 < .LFE224: .LFE224: .align 2 .align 2 PLANTINST.25: PLANTINST.25: .LVL413: | .LVL419: .LFB225: .LFB225: @ Nested: function declared i | stp x29, x30, [sp, -32]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | str x19, [sp, 16] push {r4, r5, r6, r7, r8, | mov x19, x18 mov r4, ip < 399 FORM INST(CODE) 399 FORM INST(CODE) bl FORMINST.21 bl FORMINST.21 .LVL414: | .LVL420: 400 SET JUMP(16_1000) %IF COND # 0 400 SET JUMP(16_1000) %IF COND # 0 ldr r3, [r4, #12] | ldr x0, [x19] ldr r3, [r3, #48] | ldr w0, [x0, 48] cmp r3, #0 | cbnz w0, .L470 bne .L541 | .L468: .L539: | mov x18, x19 mov ip, r4 | mov w0, 4096 mov r0, #4096 < bl SETJUMP.26 bl SETJUMP.26 .LVL416: | .LVL422: b .L539 | b .L468 .L543: < .align 2 < .L542: < .word _imp_current_line < .word 399 < .word _imp_current_file < .word .LC6 < .word 401 < .word 402 < .LFE225: .LFE225: .align 2 .align 2 LOADREG.24: LOADREG.24: .LVL417: | .LVL423: .LFB226: .LFB226: 401 PLANT VAL 401 PLANT VAL ldr r7, .L542 | ldr x18, [x19] ldr r3, .L542+4 < str r3, [r7] < ldr r5, .L542+8 < ldr r6, .L542+12 < str r6, [r5] < mov r3, #400 < str r3, [r7] < str r6, [r5] < ldr ip, [r4, #12] < bl PLANTVAL.1 bl PLANTVAL.1 .LVL415: | .LVL421: 402 %END 402 %END ldr r7, .L542 < ldr r3, .L542+16 < str r3, [r7] < ldr r5, .L542+8 < ldr r6, .L542+12 < str r6, [r5] < 403 403 ldr r3, .L542+20 < str r3, [r7] < str r6, [r5] < 404 %ROUTINE LOAD REG(%INTEGER R) 404 %ROUTINE LOAD REG(%INTEGER R) pop {r4, r5, r6, r7, r8, | ldr x19, [sp, 16] .L541: | ldp x29, x30, [sp], 32 @ Nested: function declared i | ret @ args = 0, pretend = 0, fram | .L470: @ frame_needed = 0, uses_anon | stp x29, x30, [sp, -32]! push {r4, r5, r6, lr} | mov x29, sp mov r5, r0 | stp x19, x20, [sp, 16] mov r4, ip | mov w20, w0 > mov x19, x18 405 %INTEGER OP 405 %INTEGER OP 406 %IF ATYPE = TYPE %AND AVAL = VAL %START 406 %IF ATYPE = TYPE %AND AVAL = VAL %START ldr r3, [ip, #12] | ldr x0, [x18] ldr r1, [r3, #60] | .LVL424: ldr r2, [r3, #68] | ldr w1, [x0, 68] cmp r1, r2 | ldr w2, [x0, 60] bne .L545 | cmp w2, w1 ldr r1, [r3, #44] | bne .L472 ldr r2, [r3, #64] | ldr w3, [x0, 44] cmp r1, r2 | ldr w2, [x0, 64] bne .L545 | cmp w3, w2 > bne .L472 407 TYPE = REG; VAL = ACC 407 TYPE = REG; VAL = ACC ldr r3, .L559 | mov w1, 128 ldr r2, .L559+4 | str w1, [x0, 68] str r2, [r3] | ldr x0, [x18] ldr r3, .L559+8 | ldr w1, [x0, 40] ldr r2, .L559+12 | str w1, [x0, 64] str r2, [r3] < mov r2, #128 < str r2, [r3, #68] < ldr r3, [ip, #12] < ldr r2, [r3, #40] < str r2, [r3, #64] < 408 %RETURN %IF R = ACC 408 %RETURN %IF R = ACC ldr r3, [ip, #12] | ldr x0, [x18] ldr r3, [r3, #40] | ldr w0, [x0, 40] cmp r3, r0 | cmp w0, w20 popeq {r4, r5, r6, pc} | bne .L473 .L545: | b .L471 .LDL115: | .L472: > .LDL112: 409 %FINISH 409 %FINISH ldr r3, .L559+8 < mov r2, #408 < str r2, [r3] < 410 ATYPE = TYPE %AND AVAL = VAL %IF R = ACC 410 ATYPE = TYPE %AND AVAL = VAL %IF R = ACC ldr r3, [r4, #12] | ldr w2, [x0, 40] ldr r2, [r3, #40] | cmp w20, w2 cmp r5, r2 | bne .L473 ldreq r2, [r3, #68] | str w1, [x0, 60] streq r2, [r3, #60] | ldr x0, [x19] ldreq r3, [r4, #12] | ldr w1, [x0, 64] ldreq r2, [r3, #64] | str w1, [x0, 44] streq r2, [r3, #44] | .L473: .L547: < 411 ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) %OR ATYPE&15 411 ATYPE = -1 %IF (ATYPE=REG %AND AVAL=R) %OR ATYPE&15 ldr r3, .L559+8 | ldr x1, [x19] ldr r2, .L559+16 | ldr w0, [x1, 60] str r2, [r3] | cmp w0, 128 ldr r1, [r4, #12] | bne .L475 ldr r3, [r1, #60] | ldr w2, [x1, 44] cmp r3, #128 | cmp w20, w2 bne .L548 | beq .L476 ldr r2, [r1, #44] | .L475: cmp r5, r2 | and w0, w0, 15 beq .L549 | cmp w20, 0 .L548: | ccmp w0, w20, 0, ne and r2, r3, #15 | beq .L476 clz r3, r5 | .L477: lsr r3, r3, #5 | mov w0, -1 cmp r2, r5 | str w0, [x1, 60] orrne r3, r3, #1 | b .L477 cmp r3, #0 | .L478: beq .L549 < .L550: < mvn r3, #0 < str r3, [r1, #60] < b .L550 < .L551: < 412 %IF TYPE&BMASK = 0 %START 412 %IF TYPE&BMASK = 0 %START ldr r1, [r4, #12] | ldr x2, [x19] ldr r3, [r1, #68] | ldr w0, [x2, 68] tst r3, #256 | tbz x0, 8, .L478 beq .L551 | .LDL113: .LDL116: < 413 OP = LOAD 413 OP = LOAD ldr r3, .L559+8 | .LVL427: mov r2, #412 | mov w0, 2063 str r2, [r3] < .LVL421: < ldrne r0, .L559+28 < .L554: < .LVL424: < 414 OP = ADD %AND TYPE = 0 %IF TYPE!!XMASK = R # 0 414 OP = ADD %AND TYPE = 0 %IF TYPE!!XMASK = R # 0 eor r3, r3, #16 | eor w1, w0, 16 clz r2, r5 | cmp w20, 0 lsr r2, r2, #5 | ccmp w1, w20, 0, ne cmp r3, r5 | beq .L487 orrne r2, r2, #1 | .LVL428: cmp r2, #0 | .L481: .LVL422: | str wzr, [x2, 68] moveq r3, #0 | mov w0, 2575 streq r3, [r1, #68] | b .L481 ldreq r0, .L559+24 | .LFE226: .LVL423: | .align 2 > LOADTEMP.22: > .LFB228: 415 CREG = R; CTYPE = 0; CVAL = 0 415 CREG = R; CTYPE = 0; CVAL = 0 ldr r3, [r4, #12] | ldr x1, [x19] str r5, [r3, #56] | str w20, [x1, 56] ldr r2, [r4, #12] | ldr x1, [x19] mov r3, #0 | str wzr, [x1, 36] str r3, [r2, #36] | ldr x1, [x19] ldr r2, [r4, #12] | str wzr, [x1, 32] str r3, [r2, #32] < 416 %finish %ELSE %START 416 %finish %ELSE %START .LVL425: | .L479: .L552: | .LVL429: > .L482: 417 OP = LB 417 OP = LB .LVL418: | .LVL425: ldrne r0, .L559+20 | mov w0, 37635 .LVL419: | mov w0, 37635 ldreq r0, .L559+20 | b .L482 b .L552 | .LVL426: .LVL420: | .L476: .L549: < 418 CREG = -1 %IF CREG = R 418 CREG = -1 %IF CREG = R ldr r3, [r1, #56] | ldr w1, [x2, 56] cmp r5, r3 | cmp w20, w1 mvneq r3, #0 | bne .L482 streq r3, [r1, #56] | mov w0, -1 > str w0, [x2, 56] 419 %FINISH 419 %FINISH 420 PLANT INST(R<<4+OP) 420 PLANT INST(R<<4+OP) mov ip, r4 | mov x18, x19 add r0, r0, r5, lsl #4 | add w0, w0, w20, lsl 4 .LVL426: | .LVL430: bl PLANTINST.25 bl PLANTINST.25 .LVL427: | .LVL431: 421 TYPE = REG; VAL = R 421 TYPE = REG; VAL = R ldr r6, .L559+8 | ldr x0, [x19] mov r3, #420 | mov w1, 128 str r3, [r6] | str w1, [x0, 68] ldr r3, [r4, #12] | ldr x0, [x19] mov r2, #128 | str w20, [x0, 64] str r2, [r3, #68] < ldr r3, [r4, #12] < str r5, [r3, #64] < 422 %END 422 %END ldr r3, .L559 < ldr r2, .L559+4 < str r2, [r3] < 423 423 ldr r3, .L559+32 | .LVL432: str r3, [r6] | .L471: 424 %ROUTINE RELEASE 424 %ROUTINE RELEASE @ Nested: function declared i | ldp x19, x20, [sp, 16] @ args = 0, pretend = 0, fram | .LVL433: @ frame_needed = 0, uses_anon | ldp x29, x30, [sp], 32 @ link register save eliminat | ret pop {r4, r5, r6, pc} | .LVL434: .L560: | .L487: .align 2 < .L559: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 406 < .word 410 < .word 37635 < .word 2575 < .word 2063 < .word 422 < .LFE226: < .align 2 < LOADTEMP.22: < .LFB228: < 425 %INTEGER I 425 %INTEGER I ldr r3, .L86+8 < ldr r2, .L86+12 < str r2, [r3] < 426 %RETURN %IF TYPE®XMASK = 0 426 %RETURN %IF TYPE®XMASK = 0 ldr r2, [ip, #12] | ldr x1, [x18] ldr r3, [r2, #68] | ldr w0, [x1, 68] tst r3, #144 | mov w2, 144 bxeq lr | tst w0, w2 .LDL6: | bne .L45 > .L39: > .L43: > .L38: > .LDL3: 427 I = TYPE&15; I = VAL %IF I = 0 427 I = TYPE&15; I = VAL %IF I = 0 ldr r3, .L86 | .LVL39: ldr r2, .L86+4 | ands w0, w0, 15 str r2, [r3] | .LVL40: .LVL60: | bne .L40 ands r3, r3, #15 | ldr w0, [x1, 64] .LVL61: | .LVL41: ldreq r3, [r2, #64] | .L40: .LVL62: < .L81: < 428 %IF I = DREG %START 428 %IF I = DREG %START ldr r1, [r2, #28] | ldr w2, [x1, 28] cmp r3, r1 | cmp w0, w2 beq .L82 | beq .L41 .LDL7: | .LDL4: 429 DUSE = DUSE-1 429 DUSE = DUSE-1 ldr r3, [r2, #24] | ldr w0, [x1, 24] .LVL67: | .LVL45: sub r3, r3, #1 | sub w0, w0, #1 str r3, [r2, #24] | str w0, [x1, 24] 430 %finish %ELSE %START 430 %finish %ELSE %START b .L83 | b .L38 .L87: < .align 2 < .L86: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 426 < .word .LANCHOR1 < .word 434 < .LFE227: .LFE227: .align 2 .align 2 SWOP.23: SWOP.23: .LFB229: .LFB229: 431 I = 1<= ZQUERY %AND DUSE = 0 %START 439 %IF DREG >= ZQUERY %AND DUSE = 0 %START ldr r4, .L571 | adrp x0, .LANCHOR0+304 ldr r6, .L571+4 | ldr w2, [x0, #:lo12:.LANC str r6, [r4] | ldr x18, [x20] ldr r7, .L571+8 | ldr w1, [x18, 28] ldr r3, .L571+12 | cmp w2, w1 str r3, [r7] | bgt .L489 ldr r3, .L571+20 | ldr w0, [x18, 24] ldr r3, [r3, #300] | cbnz w0, .L489 ldr ip, [r5, #12] < ldr r2, [ip, #28] < cmp r3, r2 < bgt .L562 < ldr r1, [ip, #24] < cmp r1, #0 < 440 I = DREG; DUSE = 1 440 I = DREG; DUSE = 1 ldr r3, .L571+16 | .LVL436: str r3, [r7] | mov w0, 1 str r6, [r4] | str w0, [x18, 24] .LVL429: | mov w0, w1 moveq r3, #1 < streq r3, [ip, #24] < moveq r0, r2 < 441 %finish %ELSE %START 441 %finish %ELSE %START beq .L563 | b .L490 .LVL430: | .LVL437: .L562: | .L489: 442 J = 1+ZQUERY 442 J = 1+ZQUERY add r4, r3, #1 | add w19, w2, 1 .LVL431: | .LVL438: 443 %CYCLE I = ZQUERY,1,15 443 %CYCLE I = ZQUERY,1,15 sub r0, r3, #1 | sub w0, w2, #1 .LVL432: | .LVL439: 444 ->OK %IF FREE&J # 0 %AND I # DREG 444 ->OK %IF FREE&J # 0 %AND I # DREG ldrne r1, [r5, #8] | ldr w2, [x20, 16] and r3, r1, r4 | .L495: cmp r3, #0 | tst w2, w19 cmpne r2, r0 | ccmp w1, w0, 4, ne bne .L565 | bne .L492 .L566: | .L493: 445 J = J<<1 445 J = J<<1 lsl r4, r4, #1 | lsl w19, w19, 1 .LVL434: | .LVL441: 446 %REPEAT 446 %REPEAT cmp r3, #16 | cmp w2, 16 beq .L567 | beq .L494 .L568: | .LDL114: .LDL117: | cmp w0, 15 cmp r0, #15 | bne .L495 bne .L568 | .L494: .L567: | .LDL115: .LDL118: < 447 FAULT('R') 447 FAULT('R') add r0, r0, #1 | add w0, w0, 1 .LVL433: | .LVL440: mov r0, #82 | mov w0, 82 .LVL435: | .LVL442: bl FAULT.45 bl FAULT.45 .LVL436: | .LVL443: mov r0, #15 | mov w0, 15 .LVL437: | .LVL444: .L565: | .L492: 448 OK: FREE = FREE-J 448 OK: FREE = FREE-J ldr r3, [r5, #8] | ldr w1, [x20, 16] sub r3, r3, r4 | sub w1, w1, w19 str r3, [r5, #8] | str w1, [x20, 16] > .LVL445: > .L490: 449 %FINISH 449 %FINISH 450 LOAD REG(I) 450 LOAD REG(I) .LVL438: | mov x18, x20 .L563: < mov ip, r5 < bl LOADREG.24 bl LOADREG.24 .LVL439: | .LVL446: 451 %END 451 %END ldr r7, .L571+8 < ldr r3, .L571+24 < str r3, [r7] < ldr r4, .L571 < ldr r6, .L571+4 < str r6, [r4] < 452 452 ldr r3, .L571+28 < str r3, [r7] < str r6, [r4] < 453 %ROUTINE SWOP 453 %ROUTINE SWOP @ Nested: function declared i | ldp x19, x20, [sp, 16] @ args = 0, pretend = 0, fram | ldp x29, x30, [sp], 32 @ frame_needed = 0, uses_anon | ret push {r4, lr} < pop {r4, r5, r6, r7, r8, < .L572: < .align 2 < .L571: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 438 < .word 439 < .word .LANCHOR0 < .word 450 < .word 451 < .LFE228: .LFE228: .section .rodata.str1. | .section .rodata.str1. .align 2 | .align 3 > .LC6: > .string "regression-compile-t > > > > > .align 3 .LC7: .LC7: .ascii "%%SWITCH index ASS(% | .string "%%SWITCH index ASS(% .ascii "\012\000" | .align 3 .align 2 < .LC8: .LC8: .ascii "%%SWITCH LABEL NOT S | .string "%%SWITCH LABEL NOT S .ascii "\000" < .align 2 .align 2 ASSEMBLE.18: ASSEMBLE.18: .LFB221: .LFB221: 454 %INTEGER K 454 %INTEGER K 455 K = TYPE1; TYPE1 = TYPE; TYPE = K 455 K = TYPE1; TYPE1 = TYPE; TYPE = K ldr r2, [ip, #4] | ldr w1, [x18, 12] .LVL68: | .LVL46: ldr r3, [ip, #12] | ldr x0, [x18] ldr lr, [r3, #68] | ldr w2, [x0, 68] str lr, [ip, #4] | str w2, [x18, 12] str r2, [r3, #68] | str w1, [x0, 68] 456 K = VAL1; VAL1 = VAL; VAL = K 456 K = VAL1; VAL1 = VAL; VAL = K ldr r1, .L90 | ldr w1, [x18, 8] ldr r0, .L90+4 | .LVL47: str r0, [r1] | ldr x0, [x18] ldr lr, [ip] | ldr w2, [x0, 64] .LVL70: | str w2, [x18, 8] ldr r2, [ip, #12] | str w1, [x0, 64] ldr r4, [r2, #64] < str r4, [ip] < str r0, [r1] < str lr, [r2, #64] < 457 %END 457 %END ldr r3, .L90+8 < mov r2, #456 < .LVL69: < str r2, [r3] < 458 458 ldr r2, .L90+12 < str r2, [r3] < 459 %ROUTINE PROGREF 459 %ROUTINE PROGREF pop {r4, pc} | ret .L91: < .align 2 < .L90: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 457 < .LFE229: .LFE229: .align 2 .align 2 PROGREF.27: PROGREF.27: .LFB230: .LFB230: @ Nested: function declared i < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 460 %IF TYPE&RELUXMASK = XMASK %AND VAL = 0 %START 460 %IF TYPE&RELUXMASK = XMASK %AND VAL = 0 %START ldr r2, [ip, #12] | ldr x2, [x18] ldr r3, [r2, #68] | ldr w1, [x2, 68] and r1, r3, #560 | mov w0, 560 cmp r1, #16 | and w0, w1, w0 bne .L93 | cmp w0, 16 ldr r1, [r2, #64] | bne .L48 cmp r1, #0 | ldr w0, [x2, 64] > cbnz w0, .L48 461 VAL = TYPE&15; TYPE = REG 461 VAL = TYPE&15; TYPE = REG andeq r3, r3, #15 | and w1, w1, 15 streq r3, [r2, #64] | str w1, [x2, 64] ldreq r3, [ip, #12] | ldr x0, [x18] moveq r2, #128 | mov w1, 128 streq r2, [r3, #68] | str w1, [x0, 68] > .L48: 462 %FINISH 462 %FINISH ldr r3, .L95 < mov r2, #460 < str r2, [r3] < ldr r3, .L95+4 < ldr r2, .L95+8 < str r2, [r3] < 463 TYPE = TYPE!MEMMASK %IF TYPE # REG 463 TYPE = TYPE!MEMMASK %IF TYPE # REG .L93: | ldr x1, [x18] ldr r2, [ip, #12] | ldr w0, [x1, 68] ldr r3, [r2, #68] | cmp w0, 128 cmp r3, #128 | beq .L47 orrne r3, r3, #64 | orr w0, w0, 64 strne r3, [r2, #68] | str w0, [x1, 68] .L94: < 464 %END 464 %END 465 465 ldr r3, .L95 | .L49: mov r2, #464 | .L47: str r2, [r3] < 466 Q = QSTART 466 Q = QSTART bx lr | ret .L96: < .align 2 < .L95: < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .LFE230: .LFE230: .align 2 .align 2 TEMP.19: TEMP.19: .LFB231: .LFB231: ldr r3, .L707 | adrp x0, .LANCHOR0+308 ldr r3, [r3, #304] | ldr w21, [x0, #:lo12:.LAN str r3, [sp, #12] < .LVL440: < 467 NEW:NQ = QSTART; FREE = TEMPS 467 NEW:NQ = QSTART; FREE = TEMPS ldr r9, .L707 | adrp x25, .LANCHOR0 ldr r7, [r9, #304] | add x25, x25, :lo12:.LANC .LVL442: | ldr w24, [x25, 308] ldr r3, .L707+16 | .LVL448: ldr r3, [r3] | adrp x0, .LANCHOR1 str r3, [sp, #44] | ldr w0, [x0, #:lo12:.LANC > str w0, [sp, 128] 468 TYPE = INTEGER(Q); Q = Q+1 468 TYPE = INTEGER(Q); Q = Q+1 ldr fp, .L707+4 | mov w0, w21 ldr r8, .L707+8 < str r8, [fp] < ldr r4, [sp, #12] < mov r0, r4 < bl INTEGER.39 bl INTEGER.39 .LVL443: | .LVL449: str r0, [r5, #68] | str w0, [x20, 68] .LVL444: | .LVL450: 469 VAL = INTEGER(Q); Q = Q+1 469 VAL = INTEGER(Q); Q = Q+1 ldr r6, .L707+12 | add w0, w21, 1 .LVL441: | .LVL451: .L574: < .LDL119: < .LDL120: < mov r3, #468 < str r3, [r6] < str r8, [fp] < add r0, r4, #1 < .LVL445: < bl INTEGER.39 bl INTEGER.39 .LVL446: | .LVL452: str r0, [r5, #64] | str w0, [x20, 64] add r10, r4, #2 | add w27, w21, 2 .LVL447: | .LVL453: 470 470 .LBB65: .LBB65: eor r2, r3, r3, asr #31 | cmp w0, 0 sub r2, r2, r3, asr #31 | csneg w1, w0, w0, ge .LBE65: .LBE65: .LBE64: .LBE64: .LBB146: | cmp w1, 15 eor r2, r3, r3, asr #31 | bgt .L24 sub r2, r2, r3, asr #31 | tbz x20, 3, .L24 .LBE146: | .LBB162: .LBE145: | cmp w0, 0 .LBB148: | csneg w1, w0, w0, ge .L525: | .LBE162: .LBE148: | .LBE161: .LBE147: | .LBB164: .LBB149: | cmp w0, 0 eor r2, r3, r3, asr #31 | csneg w2, w0, w0, ge sub r2, r2, r3, asr #31 | .LBE164: .LBE149: | .LBE163: .LBE150: | .LBB165: ldr r3, .L707+20 | .LBE165: str r3, [r6] | .LBE166: 471 GET:%CYCLE 471 GET:%CYCLE 472 %RETURN %IF Q = QLIM 472 %RETURN %IF Q = QLIM .L575: | ldr w0, [x25, 244] ldr r3, [r9, #240] | cmp w27, w0 cmp r10, r3 | bne .L499 beq .L573 | b .L497 .L578: | .LVL454: .LDL121: | .L645: ldr r3, [r9, #240] | ldr w0, [x25, 244] cmp r3, r10 | cmp w0, w27 bne .L578 | beq .L497 .LVL456: | .L499: .L573: | .LDL119: 473 K = INTEGER(Q); Q = Q+1 473 K = INTEGER(Q); Q = Q+1 mov r3, #472 | mov w27, w21 str r3, [r6] | .LVL472: str r8, [fp] | .L502: mov r0, r10 | mov w0, w27 bl INTEGER.39 bl INTEGER.39 .LVL448: | .LVL473: add r3, r10, #1 | mov w19, w0 str r3, [sp, #12] | .LVL474: .LVL449: | add w21, w27, 1 mov r3, #472 | .LVL475: str r3, [r6] | mov w27, w21 str r8, [fp] | mov w27, w21 ldr r10, [sp, #12] < ldr r10, [sp, #12] < ldr r10, [sp, #12] < 474 ->ASS(K) %IF K < 0 474 ->ASS(K) %IF K < 0 ldr r3, .L707+24 | adrp x26, .LANCHOR3 str r3, [r6] | add x26, x26, :lo12:.LANC str r8, [fp] | .L498: subs r4, r0, #0 | .LDL116: blt .L577 | .LDL117: .LDL122: | .LVL447: adds r2, r4, #30 | .LDL118: ldrcs r3, .L707+16 | tbz w0, #31, .L645 .LVL458: | cmn w0, #30 addcs r3, r3, r2, lsl #2 | bcc .L503 ldrcs pc, [r3, #20] @ ind | add x0, x26, w0, sxtw 3 .LVL459: | .LVL476: .L579: | ldr x0, [x0, 240] > br x0 > .LVL477: > .L619: 475 !! INTEGER(NQ) = TYPE1; INTEGER(NQ+1) = VAL1 475 !! INTEGER(NQ) = TYPE1; INTEGER(NQ+1) = VAL1 ldr r2, .L707+28 < str r2, [r6] < 476 set INTEGER(NQ, TYPE1); set INTEGER(NQ+1, VAL1) 476 set INTEGER(NQ, TYPE1); set INTEGER(NQ+1, VAL1) ldr r1, [sp, #16] | mov w1, w22 mov r0, r7 | mov w0, w24 .LVL450: | .LVL455: bl SETINTEGER.8 bl SETINTEGER.8 .LVL451: | .LVL456: ldr r1, [sp, #20] | mov w1, w23 add r0, r7, #1 | add w0, w24, 1 bl SETINTEGER.8 bl SETINTEGER.8 .LVL452: | .LVL457: ldr r3, .L707+28 | adrp x0, .LC6 .LVL460: | add x0, x0, :lo12:.LC6 str r3, [sp] | cmp x3, 0 ldr r3, .L707+8 | csel x3, x0, x3, eq mov r2, r4 | cmp w0, 0 ldr r1, .L707+36 | mov w4, 478 ldr r0, .L707+272 | csel w4, w0, w4, ne .LVL461: | mov w2, w19 ldr r0, [r0] | adrp x1, .LC7 > add x1, x1, :lo12:.LC7 > adrp x0, :got:stderr;ldr > > ldr x0, [x0] bl fprintf bl fprintf .LVL462: | .LVL463: 477 NQ = NQ+2 477 NQ = NQ+2 add r7, r7, #2 | add w24, w24, 2 .LVL453: | .LVL458: > adrp x0, :got:_imp_current > > .LVL462: > ldr x3, [x0] 478 TYPE1 = TYPE; VAL1 = VAL 478 TYPE1 = TYPE; VAL1 = VAL str r8, [fp] | ldp w23, w22, [x20, 64] ldr r2, [r5, #68] | adrp x0, :got:_imp_current str r2, [sp, #16] | ldr r2, [r5, #64] | ldr w0, [x0] str r2, [sp, #20] < 479 TYPE = K; VAL = INTEGER(Q); Q = Q+1 479 TYPE = K; VAL = INTEGER(Q); Q = Q+1 str r4, [r5, #68] | str w19, [x20, 68] ldr r0, [sp, #12] | mov w0, w21 bl INTEGER.39 bl INTEGER.39 .LVL454: | .LVL459: str r0, [r5, #64] | str w0, [x20, 64] add r10, r10, #2 | add w27, w27, 2 .LVL455: | .LVL460: mov r0, #1 | mov w0, 1 bl exit bl exit .LVL463: | .LVL464: .L679: | .L626: 480 %REPEAT 480 %REPEAT ldr r3, .L707+32 | b .L502 str r3, [r6] | .LVL461: .LDL123: | .L503: 481 481 482 %PREDICATE TEMP 482 %PREDICATE TEMP @ Nested: function declared i < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 483 %FALSE %IF TYPE1 # REG 483 %FALSE %IF TYPE1 # REG ldr r3, [ip, #4] | ldr w1, [x18, 12] cmp r3, #128 | mov w0, 0 beq .L103 | .L51: mov r0, #0 | cmp w1, 128 bx lr | beq .L54 .L103: | .L50: .LDL8: | .LDL5: ldr r3, .L104 < mov r2, #484 < str r2, [r3] < 484 %IF VAL1 = DREG %START 484 %IF VAL1 = DREG %START ldr r3, [ip, #12] | ldr w1, [x18, 8] ldr r1, [ip] | ldr x0, [x18] ldr r2, [r3, #28] | ldr w2, [x0, 28] cmp r1, r2 | cmp w1, w2 beq .L99 | beq .L52 .LDL9: | .LDL6: 485 %FALSE %IF DUSE # 1 485 %FALSE %IF DUSE # 1 ldr r3, .L104 | ldr w0, [x0, 24] ldr r2, .L104+4 | cmp w0, 1 str r2, [r3] | cset w0, eq ldr r3, .L104+8 | b .L50 ldr r2, .L104+12 | .LFE231: str r2, [r3] | .align 2 ldr r3, [r3, #24] | GETSYM.7: cmp r3, #1 | .LFB234: beq .L100 < mov r0, #0 < 486 %finish %ELSE %START 486 %finish %ELSE %START ldr r2, .L104 < ldr r1, .L104+28 < str r1, [r2] < 487 %FALSE %IF 1< mov w19, 0 > .LVL512: 493 BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START 493 BOP:%IF MODE <= 0 %OR (TYPE = 0 %AND TYPE1 = 0) %START ldr r3, [r5, #20] | ldr w27, [x20, 68] cmp r3, #0 | ldr w0, [x20, 20] ble .L581 | cmp w0, 0 ldr r3, [r5, #68] | ble .L507 cmp r3, #0 | ldr w27, [x20, 68] bne .L582 | cbnz w27, .L508 ldr r3, [sp, #16] | .LVL500: cmp r3, #0 | .L623: beq .L583 | cbz w22, .L510 .L582: | .L500: > ldr w0, [x20, 20] > cmp w0, 0 > ble .L621 > ldr w27, [x20, 68] > .LVL595: > .L508: > ldr w0, [x20, 20] > mov w19, 0 > cmp w0, 0 > bgt .L623 > b .L510 > .LVL600: > .L628: 494 FAULT('A') %IF TYPE # 0 494 FAULT('A') %IF TYPE # 0 ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #0 | cbz w0, .L510 beq .L583 < mov ip, r5 < mov r0, #65 < bl FAULT.45 < .LVL466: .LVL466: .L583: | .L621: ldr r3, .L707+4 | mov x18, x20 ldr r2, .L707+8 | mov w0, 65 str r2, [r3] | bl FAULT.45 > .LVL467: > .L510: 495 TYPE = TYPE1; VAL = LITVAL 495 TYPE = TYPE1; VAL = LITVAL ldr r3, [sp, #16] | ldr w0, [sp, 108] str r3, [r5, #68] | stp w0, w22, [x20, 64] ldr r3, [sp, #28] < str r3, [r5, #64] < 496 %finish %ELSE %START 496 %finish %ELSE %START .LVL467: | .L511: .L584: | .L522: > .LVL468: > .L523: 497 %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND D 497 %IF %NOT TEMP %OR (TYPE=REG %AND VAL=DREG %AND D ldr r3, [sp, #20] | .LDL120: str r3, [sp, #36] | stp w23, w22, [sp, 120] ldr r3, [sp, #16] | add x18, sp, 112 str r3, [sp, #40] < add ip, sp, #36 < bl TEMP.19 bl TEMP.19 .LVL484: | .LVL501: cmp r0, #0 | cbnz w0, .L619 bne .L585 | stp w23, w22, [sp, 120] ldr r3, [r5, #68] | add x18, sp, 112 cmp r3, #128 | bl TEMP.19 bne .L586 | .LVL596: ldr r2, [r5, #64] | cbnz w0, .L619 ldr r3, [r5, #28] | cmp w27, 128 cmp r2, r3 | bne .L517 bne .L586 | ldr w1, [x20, 64] ldr r3, [r5, #24] | ldr w0, [x20, 28] clz r4, r4 | cmp w1, w0 .LVL485: | bne .L516 lsr r4, r4, #5 | ldr w0, [x20, 24] cmp r3, #1 | cmp w19, 0 orrne r4, r4, #1 | ccmp w0, 1, 0, ne cmp r4, #0 | bne .L516 bne .L586 < 498 SWOP 498 SWOP add ip, sp, #36 | add x18, sp, 112 bl SWOP.23 bl SWOP.23 .LVL472: | .LVL478: ldr r1, [sp, #36] | ldr w23, [sp, 120] str r1, [sp, #20] | ldr w22, [sp, 124] ldr r1, [sp, #40] | add x18, sp, 112 str r1, [sp, #16] < ldr r3, .L707+12 < ldr r2, .L707+72 < str r2, [r3] < add ip, sp, #36 < bl SWOP.23 bl SWOP.23 .LVL486: | .LVL597: ldr r2, [sp, #36] | ldr w23, [sp, 120] str r2, [sp, #20] | ldr w22, [sp, 124] ldr r2, [sp, #40] < str r2, [sp, #16] < 499 %IF K = 0 %OR %NOT TEMP %START 499 %IF K = 0 %OR %NOT TEMP %START ldr r3, .L707+48 | cbz w19, .L513 ldr r2, .L707+12 | .L514: str r3, [r2] | stp w23, w22, [sp, 120] ldr r10, .L707+4 | add x18, sp, 112 ldr r3, .L707+8 < str r3, [r10] < cmp r4, #0 < bne .L677 < .LVL473: < .L588: < ldr r10, .L707+12 < ldr r3, .L707+48 < str r3, [r10] < ldr r4, .L707+4 < ldr r3, .L707+8 < str r3, [r4] < .L677: < add ip, sp, #36 < bl TEMP.19 bl TEMP.19 .LVL487: | .LVL479: cmp r0, #0 | cbnz w0, .L517 beq .L588 | .L513: b .L586 | b .L514 .LVL488: | .LVL598: .L601: | .L627: 500 LOAD TEMP; SWOP 500 LOAD TEMP; SWOP .LBB76: .LBB76: mov r0, r8 | mov x0, x21 bl _imp_readsymbol bl _imp_readsymbol .LVL265: | .LVL246: .LBE76: .LBE76: .LBE75: .LBE75: .LBB78: .LBB78: mov r0, r8 | mov x0, x21 bl _imp_readsymbol bl _imp_readsymbol .LVL270: | .LVL250: .LBE78: .LBE78: .LBE77: .LBE77: .LBB80: .LBB80: mov r0, r8 | mov x0, x21 bl _imp_readsymbol bl _imp_readsymbol .LVL275: | .LVL259: .LBE80: .LBE80: .LBE79: .LBE79: ldr r3, .L707+52 | stp w23, w22, [sp, 120] ldr r2, .L707+12 | add x19, sp, 112 str r3, [r2] | .LVL480: ldr r3, .L707+8 | mov x18, x19 str r3, [r10] < add r4, sp, #36 < mov ip, r4 < bl LOADTEMP.22 bl LOADTEMP.22 .LVL474: | .LVL481: mov ip, r4 | mov x18, x19 bl SWOP.23 bl SWOP.23 .LVL475: | .LVL482: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] | .L515: str r3, [sp, #16] | .LVL483: ldr r3, .L707+52 | .L517: str r3, [r10] < ldr r3, .L707+8 < str r3, [r4] < 501 %FINISH 501 %FINISH ldr r3, .L707+12 < mov r2, #500 < str r2, [r3] < ldr r10, .L707+4 < ldr r1, .L707+8 < str r1, [r10] < ldr r3, .L707+12 < mov r2, #500 < str r2, [r3] < ldr r1, .L707+8 < str r1, [r10] < 502 %FINISH 502 %FINISH .L586: < 503 LOAD TEMP %IF TYPE&BMASK # 0 %OR (OP&MEM=0 %AND 503 LOAD TEMP %IF TYPE&BMASK # 0 %OR (OP&MEM=0 %AND ldr r3, [r5, #68] | ldr w27, [x20, 68] tst r3, #256 | tbz x27, 8, .L516 bne .L589 | .L518: ldr r2, [sp, #24] | stp w23, w22, [sp, 120] tst r2, #2 | add x18, sp, 112 bne .L590 < tst r3, #64 < beq .L590 < .L589: < ldr r3, [sp, #20] < str r3, [sp, #36] < ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < bl LOADTEMP.22 bl LOADTEMP.22 .LVL476: | .LVL484: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] | .L519: str r3, [sp, #16] | ldr w27, [x20, 68] .L590: | .LVL502: > .L516: > tbnz x28, 1, .L519 > tbnz x27, 6, .L518 > b .L519 > .LVL503: > .L533: 504 RELEASE 504 RELEASE ldr r3, .L707+12 | stp w23, w22, [sp, 120] ldr r2, .L707+56 | add x22, sp, 112 str r2, [r3] | mov x18, x22 ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < ldr r0, [sp, #20] < str r0, [sp, #36] < ldr r0, [sp, #16] < str r0, [sp, #40] < add r4, sp, #36 < mov ip, r4 < bl RELEASE.20 bl RELEASE.20 .LVL477: | .LVL485: ldr r10, [sp, #36] | ldr w19, [sp, 120] 505 PLANT INST(VAL1<<4+OP) 505 PLANT INST(VAL1<<4+OP) .LBB88: | .LBB86: .LBE88: | .LBE86: .LBE87: | .LBE85: ldrb r0, [r3, #80] @ zer | ldrb w0, [x0, 80] bl _imp_printsymbol bl _imp_printsymbol .LVL309: | .LVL291: .LBE89: | .LBE87: .LBE90: | .LBE88: .LBB94: | .LBB92: uxtb r0, r0 < bl _imp_printsymbol bl _imp_printsymbol .LVL314: | .LVL296: .LBE94: | .LBE92: .LBE93: | .LBE91: > mov w25, 124 > .LBE98: > .LBE97: .LBB100: .LBB100: mov r0, #124 | .LBB101: bl _imp_printsymbol | mov w24, 39 .LVL325: | b .L379 b .L459 | .LVL305: .LVL326: | .L390: .L461: | .LBE101: .LBE100: .LBE100: > .LBB99: > mov w0, w25 > bl _imp_printsymbol > .LVL306: > b .L380 > .L381: > .LVL307: .LBE99: .LBE99: > .LBE103: > .LBB105: > and w0, w19, 127 > bl _imp_printsymbol > .LVL310: > .LBE105: > .LBE104: .LBB102: .LBB102: and r0, r6, #127 | mov w0, w24 bl _imp_printsymbol bl _imp_printsymbol .LVL328: | .LVL317: > b .L382 > .L386: > ldp x23, x24, [sp, 48] > ldr x25, [sp, 64] > b .L373 .LBE102: .LBE102: .LBE101: | .LBE106: .LBB104: < mov r0, #39 < bl _imp_printsymbol < .LVL335: < b .L461 < .L467: < .align 2 < .L466: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word .LANCHOR0 < .LBE104: < .LBE103: < .LFE212: .LFE212: .align 2 .align 2 OUTPUTRECORD.43: OUTPUTRECORD.43: .LFB216: .LFB216: mov r3, #504 | mov x18, x22 ldr r2, .L707+12 | add w0, w28, w19, lsl 4 str r3, [r2] < ldr r3, .L707+4 < ldr r1, .L707+8 < str r1, [r3] < mov ip, r4 < ldr r3, [sp, #24] < add r0, r3, r10, lsl #4 < bl PLANTINST.25 bl PLANTINST.25 .LVL478: | .LVL486: 506 TYPE = REG; VAL = VAL1 506 TYPE = REG; VAL = VAL1 .LBB82: .LBB82: > ubfx x0, x19, 8, 8 > .LVL283: > bl _imp_printch > .LVL284: .LBE82: .LBE82: .LBE81: .LBE81: uxtb r0, r0 | .LBB84: > mov w0, w19 bl _imp_printch bl _imp_printch .LVL303: | .LVL285: .LBE83: < .LBE84: .LBE84: .LBB86: | .LBE83: uxtb r0, r4 | .LBB120: bl _imp_printch | mov w0, 0 .LVL305: < .LBE86: < .LBE85: < mov r5, #0 < .LVL339: < .L470: < .LDL105: < .LBE118: < .LBE117: < .LBB119: < mov r0, r5 < bl _imp_printch bl _imp_printch .LVL341: | .LVL322: .LBE119: < .LBE120: .LBE120: > .LBE119: .LBB122: .LBB122: mov r0, #240 | mov w0, -16 bl _imp_printch bl _imp_printch .LVL345: | .LVL325: .LBE122: .LBE122: .LBE121: .LBE121: ldr r3, .L707+60 | mov w0, 128 ldr r2, .L707+12 | stp w19, w0, [x20, 64] str r3, [r2] < ldr r3, .L707+4 < ldr r1, .L707+8 < str r1, [r3] < mov r3, #128 < str r3, [r5, #68] < str r10, [r5, #64] < 507 CREG = VAL; CTYPE = 0; CVAL = 0 507 CREG = VAL; CTYPE = 0; CVAL = 0 .LBB72: .LBB72: mov r2, #240 | add x0, sp, 32 add r1, sp, #512 | .LVL105: mov r0, sp | str q16, [sp, 32] bl memcpy | stp q18, q17, [x0, 16] .LVL133: | stp q20, q19, [x0, 48] ldm r5, {r0, r1, r2, r3} | stp q22, q21, [x0, 80] > stp q24, q23, [x0, 112] > stp q26, q25, [x0, 144] > stp q28, q27, [x0, 176] > stp q30, q29, [x0, 208] > str q31, [x0, 240] bl _imp_printstring bl _imp_printstring .LVL134: | .LVL106: .LBE72: .LBE72: .LBE71: .LBE71: str r10, [r5, #56] | str w19, [x20, 56] mov r3, #0 | stp wzr, wzr, [x20, 32] str r3, [r5, #36] < str r3, [r5, #32] < 508 ATYPE = -1 %IF ACC = VAL %OR ATYPE&15 = VAL # 0 508 ATYPE = -1 %IF ACC = VAL %OR ATYPE&15 = VAL # 0 ldr r3, [r5, #40] | ldr w0, [x20, 40] cmp r3, r10 | cmp w0, w19 beq .L591 | beq .L520 ldr r2, [r5, #60] | ldr w0, [x20, 60] and r1, r2, #15 | and w1, w0, 15 clz r3, r10 | cmp w19, 0 lsr r3, r3, #5 | ccmp w1, w19, 0, ne cmp r1, r10 | beq .L520 orrne r3, r3, #1 | .L521: cmp r3, #0 | mov w0, -1 beq .L591 | str w0, [x20, 60] .L592: < mvn r3, #0 < str r3, [r5, #60] < 509 ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL 509 ATYPE = -1 %IF ATYPE = REG %AND AVAL = VAL cmp r2, #128 | cmp w0, 128 bne .L584 | bne .L523 ldr r3, [r5, #44] | ldr w0, [x20, 44] cmp r3, r10 | cmp w0, w19 mvneq r3, #0 | bne .L523 streq r3, [r5, #60] | mov w0, -1 b .L584 | str w0, [x20, 60] .L591: | b .L523 b .L584 | .L520: .LVL479: | b .L523 .L594: | .LVL487: > .L524: 510 %FINISH 510 %FINISH 511 511 512 POP:NQ = NQ-2 512 POP:NQ = NQ-2 sub r1, r7, #2 | sub w19, w24, #2 .LVL468: < ldr r7, [sp, #24] < 513 TYPE1 = INTEGER(NQ); VAL1 = INTEGER(NQ+1) < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < str r1, [sp, #24] < mov r0, r1 < bl INTEGER.39 < .LVL469: .LVL469: str r0, [sp, #16] | mov w24, w19 sub r0, r7, #1 | 513 TYPE1 = INTEGER(NQ); VAL1 = INTEGER(NQ+1) > mov w0, w19 bl INTEGER.39 bl INTEGER.39 .LVL470: .LVL470: str r0, [sp, #20] | mov w22, w0 514 ->GET | sub w0, w24, #1 ldr r4, .L707+12 | bl INTEGER.39 ldr r10, .L707+44 < str r10, [r4] < str r10, [r4] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < b .L575 < .LVL471: .LVL471: .L585: | mov w23, w0 > 514 ->GET 515 515 516 ASS(-2): 516 ASS(-2): 517 OP = SUB 517 OP = SUB ldr r3, .L707+64 | mov w28, 2831 str r3, [sp, #24] | b .L508 b .L580 | .LVL489: .LVL480: | .L525: .L600: < 518 ->NOP %IF MODE > 0 %AND TYPE # 0 518 ->NOP %IF MODE > 0 %AND TYPE # 0 ldr r3, [r5, #20] | ldr w0, [x20, 20] cmp r3, #0 | cmp w0, 0 ble .L595 | ble .L525 ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #0 | cbz w0, .L526 beq .L596 | .LVL488: 519 TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = 519 TYPE1 = 0 %AND TYPE = 0 %IF MODE <= 0 %AND TYPE1 = ldr r3, [r5, #68] | ldr w0, [x20, 68] ldr r2, [sp, #16] | cmp w0, w22 cmp r3, r2 | bne .L526 moveq r3, #0 | str wzr, [x20, 68] streq r3, [r5, #68] | mov w22, 0 streq r3, [sp, #16] | .L526: .L596: < 520 VAL = -VAL 520 VAL = -VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] rsb r3, r3, #0 | neg w0, w0 str r3, [r5, #64] | str w0, [x20, 64] > .LVL490: > .L528: 521 ASS(-1): 521 ASS(-1): 522 OP = ADD; LITVAL = VAL1+VAL 522 OP = ADD; LITVAL = VAL1+VAL ldr r3, .L707+40 | mov w28, 2575 str r3, [sp, #24] | b .L506 b .L580 < .LVL464: < .L680: < ldr r3, .L707+40 < str r3, [sp, #24] < b .L580 < .LVL465: .LVL465: .L581: | .L507: .LVL613: | add w1, w23, w1 .L597: | str w1, [sp, 108] ldr r3, [r5, #64] | .LVL491: ldr r1, [sp, #20] | mov w28, 2575 add r3, r1, r3 | .LVL594: str r3, [sp, #28] | .L529: .LVL614: < 523 ->BOP %UNLESS TYPE = 0 523 ->BOP %UNLESS TYPE = 0 ldr r3, [r5, #68] | ldp w1, w0, [x20, 64] cmp r3, #0 | cbnz w0, .L625 bne .L679 | .LDL121: .LDL138: < 524 %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START 524 %IF TYPE1&MEMMASK # 0 %AND MODE > 0 %START ldr r3, .L707+292 | tbz x22, 6, .L530 .LVL615: | ldr w0, [x20, 20] ldr r2, .L707+276 | cmp w0, 0 str r2, [r3] | ble .L530 ldr r2, [sp, #16] < tst r2, #64 < beq .L598 < ldr r3, [r5, #20] < cmp r3, #0 < ble .L598 < 525 SWOP; LOAD TEMP; SWOP 525 SWOP; LOAD TEMP; SWOP str r1, [sp, #36] | stp w23, w22, [sp, 120] str r2, [sp, #40] | add x22, sp, 112 add ip, sp, #36 | mov x18, x22 bl SWOP.23 bl SWOP.23 .LVL616: | .LVL492: add ip, sp, #36 | mov x18, x22 bl LOADTEMP.22 bl LOADTEMP.22 .LVL617: | .LVL493: add ip, sp, #36 | mov x18, x22 bl SWOP.23 bl SWOP.23 .LVL618: | .LVL494: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] | .L530: str r3, [sp, #16] < 526 %FINISH 526 %FINISH ldr r10, .L707+292 < ldr r3, .L707+280 < str r3, [r10] < ldr r3, .L707+280 < str r3, [r10] < ldr r2, .L707+284 < ldr r1, .L707+288 < str r1, [r2] < ldr r3, .L707+280 < str r3, [r10] < ldr r3, .L707+284 < ldr r1, .L707+288 < str r1, [r3] < 527 %IF TYPE1 = REG %START 527 %IF TYPE1 = REG %START .L598: | cmp w22, 128 ldr r3, [sp, #16] | bne .L531 cmp r3, #128 < bne .L599 < 528 ->BOP %IF VAL1 = 0 528 ->BOP %IF VAL1 = 0 ldr r3, .L707+284 | cbz w23, .L626 ldr r2, .L707+288 | .LDL122: str r2, [r3] < ldr r3, [sp, #20] < cmp r3, #0 < beq .L680 < .LDL139: < 529 TYPE1 = XMASK+VAL1; LITVAL = VAL 529 TYPE1 = XMASK+VAL1; LITVAL = VAL ldr r3, .L707+292 | add w22, w23, 16 mov r2, #528 | .LVL495: str r2, [r3] | ldr w0, [x20, 64] add r3, r3, #16 | str w0, [sp, 108] str r3, [sp, #16] | .LVL496: ldr r3, [r5, #64] | .L531: str r3, [sp, #28] < .LVL619: < 530 %FINISH 530 %FINISH 531 TYPE = TYPE1; VAL = LITVAL 531 TYPE = TYPE1; VAL = LITVAL .L599: | ldr w0, [sp, 108] ldr r3, [sp, #16] | stp w0, w22, [x20, 64] str r3, [r5, #68] < ldr r3, [sp, #28] < str r3, [r5, #64] < 532 ->POP 532 ->POP .LBB136: | .LBB152: ldr r0, .L492+20 | adrp x0, .LANCHOR2 > add x0, x0, :lo12:.LANCHO > add x0, x0, 304 bl check_outstream bl check_outstream .LVL354: | .LVL358: ldr r3, .L492+24 | adrp x0, :got:_imp_OutStre .LBE136: | .LBE135: | .LBE152: b .L584 | .LBE151: .LFE221: | b .L523 .align 2 | .LVL497: CONDIT.11: | .L532: .LVL620: < .LFB243: < 533 ASS(-3): 533 ASS(-3): 534 OP = AND; LITVAL = VAL1&VAL 534 OP = AND; LITVAL = VAL1&VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] ldr r2, [sp, #20] | and w0, w23, w0 and r3, r2, r3 | str w0, [sp, 108] str r3, [sp, #28] | .LVL498: .LVL481: | mov w28, 1031 ldr r3, .L707+68 | .LVL499: .LVL482: | .L506: str r3, [sp, #24] < .LVL483: < .L580: < 535 ->BOP 535 ->BOP 536 ASS(-4): 536 ASS(-4): 537 OP = OR; LITVAL = VAL1!VAL 537 OP = OR; LITVAL = VAL1!VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] ldr r2, [sp, #20] | orr w0, w23, w0 orr r3, r2, r3 | str w0, [sp, 108] str r3, [sp, #28] | .LVL504: .LVL489: | mov w28, 1543 ldr r3, .L707+76 < .LVL490: < str r3, [sp, #24] < 538 ->BOP 538 ->BOP b .L580 | b .L506 .LVL491: | .LVL505: .L602: | .L534: 539 ASS(-5): 539 ASS(-5): @ args = 0, pretend = 0, fram | tbnz w0, #31, .L368 @ frame_needed = 0, uses_anon | stp x29, x30, [sp, -16]! cmp r0, #0 | mov x29, sp bxlt lr | adrp x1, :got:_imp_InStrea push {r4, lr} | ldr r3, .L446 | str w0, [x1] str r0, [r3] | sbfiz x1, x0, 3, 32 add r3, r0, r0, lsl #4 | add x0, x1, w0, sxtw add r0, r0, r3, lsl #2 | .LVL278: .LVL298: | adrp x1, :got:_imp_infile; ldr r3, .L446+4 | add r3, r3, r0, lsl #2 | add x0, x1, x0, lsl 5 ldr r2, [r3, #4] | ldr x1, [x0, 8] ldr r3, .L446+8 | adrp x0, :got:_imp_INFILE; str r2, [r3] | ldr r0, .L446+12 | str x1, [x0] > adrp x0, .LANCHOR2 > add x0, x0, :lo12:.LANCHO > add x0, x0, 256 bl check_instream bl check_instream .LVL299: | .LVL279: pop {r4, pc} | ldp x29, x30, [sp], 16 .L447: | ret .align 2 | .LVL280: .L446: | .L368: .word _imp_InStream | ret .word _imp_infile < .word _imp_INFILE < .word .LANCHOR2+256 < .LFE105: .LFE105: .align 2 .align 2 OUTPUTWORD.44: OUTPUTWORD.44: .LVL300: | .LVL281: .LFB217: .LFB217: 540 OP = XOR; LITVAL = VAL1!!VAL 540 OP = XOR; LITVAL = VAL1!!VAL .LBB114: | .LBB116: ldr r3, .L478+16 | adrp x0, :got:_imp_OutStre mov r2, #1 | str r2, [r3] | mov w1, 1 ldr r3, .L478+20 | str w1, [x0] ldr r2, [r3, #280] | adrp x0, :got:_imp_outfile ldr r3, .L478+24 | str r2, [r3] | ldr x1, [x0, 296] ldr r0, .L478+28 | adrp x0, :got:_imp_OUTFILE > > str x1, [x0] > adrp x0, .LANCHOR2 > add x0, x0, :lo12:.LANCHO > add x0, x0, 280 bl check_outstream bl check_outstream .LVL338: | .LVL320: .LBE114: < .LBE113: < mov r4, #10 < .LBE115: < .LBE116: .LBE116: > .LBE115: > mov w19, 10 > .LVL321: > .L393: > .LDL99: > .LBE117: > .LBE118: .LBB124: .LBB124: ldr r3, .L478+16 | adrp x0, :got:_imp_OutStre mov r2, #2 | str r2, [r3] | mov w1, 2 ldr r3, .L478+20 | str w1, [x0] ldr r2, [r3, #556] | adrp x0, :got:_imp_outfile ldr r3, .L478+24 | str r2, [r3] | ldr x1, [x0, 584] ldr r0, .L478+28 | adrp x0, :got:_imp_OUTFILE > > str x1, [x0] > adrp x0, .LANCHOR2 > add x0, x0, :lo12:.LANCHO > add x0, x0, 280 bl check_outstream bl check_outstream .LVL351: | .LVL332: .LBE124: .LBE124: .LBE123: .LBE123: .LBB138: | .LBB154: ldr r3, .L492+24 | adrp x0, :got:_imp_OutStre mov r2, #0 | str r2, [r3] | str wzr, [x0] ldr r3, .L492+28 | adrp x0, :got:_imp_outfile ldr r2, [r3, #4] | ldr r3, .L492+32 | ldr x1, [x0, 8] str r2, [r3] | adrp x0, :got:_imp_OUTFILE ldr r0, .L492+36 | bl check_outstream | str x1, [x0] .LVL356: | adrp x0, .LANCHOR2 .LBE138: | add x0, x0, :lo12:.LANCHO .LBE137: | add x0, x0, 280 .LBB142: < ldr r3, .L492+24 < mov r2, #2 < str r2, [r3] < ldr r3, .L492+28 < ldr r2, [r3, #556] < ldr r3, .L492+32 < str r2, [r3] < ldr r0, .L492+36 < bl check_outstream bl check_outstream .LVL360: .LVL360: .LBE142: | .LBE154: .LBE141: | .LBE153: ldr r3, [r5, #64] | .LBB158: ldr r2, [sp, #20] | adrp x0, :got:_imp_OutStre eor r3, r2, r3 | str r3, [sp, #28] | mov w1, 2 .LVL492: | str w1, [x0] ldr r3, .L707+80 | adrp x0, :got:_imp_outfile .LVL493: | str r3, [sp, #24] | ldr x1, [x0, 584] .LBB166: | adrp x0, :got:_imp_OUTFILE ldr r3, .L962+12 | mov r1, #2 | str x1, [x0] str r1, [r3] | adrp x0, .LANCHOR2 ldr r1, .L962+16 | add x0, x0, :lo12:.LANCHO ldr r3, [r1, #556] | add x0, x0, 280 ldr r0, .L962+20 < str r3, [r0] < ldr r9, .L962+24 < add r0, r9, #276 < bl check_outstream bl check_outstream .LVL651: | .LVL363: .LBE166: | .L413: .LBE165: | .LBE158: .LBB176: | .LBE157: mov r3, #0 | ldr w0, [x20, 64] ldr r2, .L962+12 | eor w0, w23, w0 str r3, [r2] | str w0, [sp, 108] ldr r1, .L962+16 | .LVL506: ldr r3, [r1, #4] | mov w28, 1799 ldr r0, .L962+20 | .LBB182: str r3, [r0] | adrp x22, :got:_imp_OutStr add r0, r9, #276 | > mov w23, 2 > str w23, [x22] > adrp x26, :got:_imp_OUTFIL > > adrp x27, :got:_imp_outfil > > ldr x0, [x27, 584] > str x0, [x26] > adrp x21, .LANCHOR2 > add x21, x21, :lo12:.LANC > add x25, x21, 280 > mov x0, x25 bl check_outstream bl check_outstream .LVL669: | .LVL633: .LBE176: | .LBE182: .LBE175: | .LBE181: > .LBB192: > str wzr, [x22] > ldr x0, [x27, 8] > str x0, [x26] > mov x0, x25 > bl check_outstream > .LVL642: > .LBE192: > .LBE191: 541 ->BOP 541 ->BOP b .L580 | b .L506 .LVL494: | .LVL507: .L603: | .L535: .LBB168: | .LBB184: add fp, sp, #1392 | add x19, sp, 112 add fp, fp, #4 | str q16, [sp, 112] mov r2, #244 | stp q18, q17, [x19, 16] mov r1, fp | stp q20, q19, [x19, 48] mov r0, sp | stp q22, q21, [x19, 80] bl memcpy | stp q24, q23, [x19, 112] .LVL654: | stp q26, q25, [x19, 144] ldm r4, {r1, r2, r3} | stp q28, q27, [x19, 176] mov r0, #1 | stp q30, q29, [x19, 208] > str q31, [x19, 240] > mov x1, x19 > mov w0, 1 bl _imp_openinput bl _imp_openinput .LVL655: | .LVL635: .LBE168: | .LBE184: .LBE167: | .LBE183: .LBB170: | .LBB186: mov r2, #244 | str q16, [sp, 112] mov r1, fp | stp q18, q17, [x19, 16] mov r0, sp | stp q20, q19, [x19, 48] bl memcpy | stp q22, q21, [x19, 80] .LVL658: | stp q24, q23, [x19, 112] ldm r4, {r1, r2, r3} | stp q26, q25, [x19, 144] mov r0, #2 | stp q28, q27, [x19, 176] > stp q30, q29, [x19, 208] > str q31, [x19, 240] > mov x1, x19 > mov w0, w23 bl _imp_openinput bl _imp_openinput .LVL659: | .LVL637: .LBE170: | .LBE186: .LBE169: | .LBE185: 542 ASS(-6): 542 ASS(-6): .LBB172: | .LBB188: mov r2, #244 | str q16, [sp, 112] mov r1, fp | stp q18, q17, [x19, 16] mov r0, sp | stp q20, q19, [x19, 48] bl memcpy | stp q22, q21, [x19, 80] .LVL662: | stp q24, q23, [x19, 112] ldm r4, {r1, r2, r3} | stp q26, q25, [x19, 144] mov r0, #1 | stp q28, q27, [x19, 176] > stp q30, q29, [x19, 208] > str q31, [x19, 240] > mov x1, x19 > mov w0, 1 bl _imp_openoutput bl _imp_openoutput .LVL663: | .LVL639: .LBE172: | .LBE188: .LBE171: | .LBE187: .LBB174: | .LBB190: mov r2, #244 | str q16, [sp, 112] mov r1, fp | stp q18, q17, [x19, 16] mov r0, sp | stp q20, q19, [x19, 48] bl memcpy | stp q22, q21, [x19, 80] .LVL666: | stp q24, q23, [x19, 112] ldm r4, {r1, r2, r3} | stp q26, q25, [x19, 144] mov r0, #2 | stp q28, q27, [x19, 176] > stp q30, q29, [x19, 208] > str q31, [x19, 240] > mov x1, x19 > mov w0, w23 bl _imp_openoutput bl _imp_openoutput .LVL667: | .LVL641: .LBE174: | .LBE190: .LBE173: | .LBE189: 543 OP = SLLS; LITVAL = VAL1<NOP 545 ->NOP 546 ASS(-7): 546 ASS(-7): 547 OP = SRLS; LITVAL = VAL1>>VAL 547 OP = SRLS; LITVAL = VAL1>>VAL ldr r3, [r5, #64] | lsr w1, w23, w1 ldr r2, [sp, #20] | str w1, [sp, 108] lsr r3, r2, r3 | .LVL511: str r3, [sp, #28] | mov w28, 29704 .LVL498: | b .L536 ldreq r3, .L707+92 | .LFE221: .LVL499: | .align 2 streq r3, [sp, #24] | CONDIT.11: > .LVL601: > .LFB243: 548 OP = SRHL %IF TYPE # 0 548 OP = SRHL %IF TYPE # 0 ldr r4, [r5, #68] | ldp w1, w0, [x20, 64] cmp r4, #0 | cbz w0, .L628 ldrne r3, .L707+96 | mov w28, 3076 strne r3, [sp, #24] | b .L529 b .L580 | .LVL513: .LVL500: | .L538: .L605: < 549 ->NOP 549 ->NOP 550 550 .LBB178: | .LBB194: bl _imp_closeinput bl _imp_closeinput .LVL697: | .LVL872: .LBE178: | .LBE194: .LBE177: | .LBE193: str fp, [r6] | mov w0, 1 str r5, [r4] | bl _imp_SELECTINPUT > .LVL873: 551 ASS(-8): !TYPE_VAL 551 ASS(-8): !TYPE_VAL 552 TYPE = VAL1 552 TYPE = VAL1 553 TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY 553 TYPE = 0 %IF TYPE&OPMASK = MACRO; !SAFETY ldr r2, [sp, #20] | and w0, w23, 61440 and r3, r2, #61440 | cmp w0, 40960 cmp r3, #40960 | beq .L539 moveq r3, #0 | .LDL123: streq r3, [r5, #68] < beq .L584 < .LDL124: < 554 TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK 554 TYPE = 0 %IF TYPE&(OPMASK+FMASK) = FMASK and r3, r2, #63488 | and w0, w23, 63488 cmp r3, #2048 | cmp w0, 2048 movne r3, r2 | bne .L646 moveq r3, #0 | str wzr, [x20, 68] str r3, [r5, #68] | b .L523 .LVL501: | .L646: b .L584 | str w23, [x20, 68] .LVL502: | b .L523 .L608: | .L541: > b .L523 > .LVL593: > .L625: 555 ->POP 555 ->POP 556 556 557 ASS(-11): !COMPARE 557 ASS(-11): !COMPARE 558 K = INTEGER(Q); Q = Q+1 558 K = INTEGER(Q); Q = Q+1 ldr r0, [sp, #12] | mov w0, w21 .LVL503: < bl INTEGER.39 bl INTEGER.39 .LVL504: | .LVL514: mov r4, r0 | mov w19, w0 .LVL505: | .LVL515: add r10, r10, #2 | add w27, w27, 2 .LVL506: | .LVL516: 559 %IF MODE <= 0 %START 559 %IF MODE <= 0 %START ldr r3, .L707+100 | ldr w0, [x20, 20] ldr r2, .L707+12 | .LVL517: str r3, [r2] | cmp w0, 0 ldr r3, .L707+4 | ble .L542 ldr r2, .L707+8 | .LDL124: str r2, [r3] < ldr r3, [r5, #20] < cmp r3, #0 < ble .L609 < .LDL125: < 560 VAL1 = TYPE1 %AND VAL = TYPE %IF TYPE1 # TYPE 560 VAL1 = TYPE1 %AND VAL = TYPE %IF TYPE1 # TYPE ldr r3, .L707+104 | ldr w0, [x20, 68] ldr r2, .L707+12 | cmp w0, w22 str r3, [r2] | beq .L545 ldr r3, [r5, #68] | str w0, [x20, 64] ldr r2, [sp, #16] | mov w23, w22 cmp r3, r2 | .L545: strne r3, [r5, #64] < strne r2, [sp, #20] < .L612: < 561 LITVAL = \3 561 LITVAL = \3 .LVL514: | .LVL524: 562 LITVAL = 1 %IF VAL1 < VAL 562 LITVAL = 1 %IF VAL1 < VAL ldr r3, [r5, #64] | ldr w1, [x20, 64] ldr r2, [sp, #20] | mov w0, 1 cmp r3, r2 | cmp w23, w1 movgt r3, #1 | bge .L648 strgt r3, [sp, #28] | .L546: ble .L698 | .LVL525: .L613: < .LVL515: < 563 LITVAL = 2 %IF VAL1 > VAL 563 LITVAL = 2 %IF VAL1 > VAL mvneq r3, #3 | beq .L630 movne r3, #2 | mov w0, 2 str r3, [sp, #28] | b .L546 b .L613 | .L630: .LVL517: | mov w0, -4 .L697: | b .L546 > .LVL528: > .L647: 564 K = K&LITVAL; K = \0 %IF K # 0 564 K = K&LITVAL; K = \0 %IF K # 0 ldr r3, [sp, #28] | tst w0, w19 tst r3, r4 | csetm w19, ne mvnne r4, #0 | .LVL526: moveq r4, #0 | b .L558 b .L622 | .LVL527: .LVL516: | .L648: .L698: | .L547: .L614: < 565 %finish %ELSE %UNLESS CREG=16 %AND TYPE1=CTYPE %AND 565 %finish %ELSE %UNLESS CREG=16 %AND TYPE1=CTYPE %AND ldr r3, [r5, #56] | ldr w0, [x20, 56] cmp r3, #16 | cmp w0, 16 bne .L610 | bne .L543 ldr r3, [r5, #36] | ldr w0, [x20, 36] ldr r2, [sp, #16] | cmp w0, w22 cmp r3, r2 | bne .L543 bne .L610 | ldr w0, [x20, 32] ldr r3, [r5, #32] | cmp w23, w0 ldr r2, [sp, #20] | bne .L543 cmp r3, r2 | ldp w0, w1, [x20, 64] bne .L610 | cmp w0, 0 ldr r2, [r5, #64] | ccmp w1, w0, 0, ne ldr r1, [r5, #68] | bne .L558 clz r3, r2 | .L543: lsr r3, r3, #5 < cmp r1, r2 < orrne r3, r3, #1 < cmp r3, #0 < bne .L622 < .L610: < 566 %IF TYPE1 # REG %START 566 %IF TYPE1 # REG %START ldr r1, [sp, #16] | cmp w22, 128 cmp r1, #128 | beq .L552 beq .L616 < 567 SWOP 567 SWOP ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 str r1, [sp, #40] < add ip, sp, #36 < bl SWOP.23 bl SWOP.23 .LVL507: | .LVL518: ldr r3, [sp, #36] | ldr w22, [sp, 124] str r3, [sp, #20] | ldr w23, [sp, 120] ldr r3, [sp, #40] < mov r1, r3 < str r3, [sp, #16] < 568 %IF TYPE1 # REG %START 568 %IF TYPE1 # REG %START ldr r3, .L707+12 | cmp w22, 128 ldr r2, .L707+108 | bne .L647 str r2, [r3] | .LDL125: cmp r1, #128 < bne .L697 < .LDL126: < 569 LOAD TEMP; SWOP 569 LOAD TEMP; SWOP .LBB92: | .LBB90: bl _imp_space bl _imp_space .LVL310: | .LVL292: .LBE92: | .LBE90: .LBE91: | .LBE89: ldr r3, .L707+4 | add x21, sp, 112 ldr r2, .L707+8 | mov x18, x21 str r2, [r3] < add ip, sp, #36 < bl LOADTEMP.22 bl LOADTEMP.22 .LVL518: | .LVL529: add ip, sp, #36 | mov x18, x21 bl SWOP.23 bl SWOP.23 .LVL519: | .LVL530: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] < str r3, [sp, #16] < 570 %finish %ELSE %START 570 %finish %ELSE %START .LBB96: | .LBB94: .LBE96: | .LBE94: .LBE95: | .LBE93: rsb r0, r0, #17 | mov w1, 17 .LVL318: | sub w0, w1, w0 bl _imp_spaces bl _imp_spaces .LVL319: | .LVL303: .LBE97: | .LBE95: .LBE98: | .LBE96: ldr r3, .L707+12 | b .L552 ldr r2, .L707+124 | .L554: str r2, [r3] < ldr r3, .L707+12 < ldr r2, .L707+124 < str r2, [r3] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < b .L616 < .L619: < 571 K = K!!3 %UNLESS K = 3 %OR K = \3 571 K = K!!3 %UNLESS K = 3 %OR K = \3 cmn r4, #4 | cmp w19, 3 cmpne r4, #3 | eor w0, w19, 3 eorne r4, r4, #3 | ccmn w19, #4, 4, ne .LVL508: | csel w19, w0, w19, ne .L616: | .LVL519: > .L549: > .L551: > .L552: 572 %FINISH 572 %FINISH .LBB68: .LBB68: bl _imp_newline bl _imp_newline .LVL124: | .LVL99: .LBE68: .LBE68: .LBE67: .LBE67: .LBB74: .LBB74: bl _imp_newline bl _imp_newline .LVL136: | .LVL108: .LBE74: .LBE74: .LBE73: .LBE73: .LBB140: | .LBB156: bl _imp_newline bl _imp_newline .LVL358: | .LVL362: .LBE140: | .LBE156: .LBE139: | .LBE155: 573 %FINISH 573 %FINISH .LBB70: .LBB70: mov r0, #2 | mov w0, 2 bl _imp_newlines bl _imp_newlines .LVL126: | .LVL101: .LBE70: .LBE70: .LBE69: .LBE69: 574 %UNLESS CREG = VAL1 %AND CTYPE = TYPE %AND CVAL 574 %UNLESS CREG = VAL1 %AND CTYPE = TYPE %AND CVAL ldr r3, [r5, #56] | ldr w0, [x20, 56] ldr r2, [sp, #20] | cmp w23, w0 cmp r3, r2 | bne .L553 bne .L618 | ldr w1, [x20, 36] ldr r2, [r5, #36] | ldr w0, [x20, 68] ldr r3, [r5, #68] | cmp w1, w0 cmp r2, r3 | bne .L553 bne .L618 | ldr w1, [x20, 32] ldr r2, [r5, #32] | ldr w0, [x20, 64] ldr r3, [r5, #64] | cmp w1, w0 cmp r2, r3 | beq .L558 beq .L622 | .L553: .L618: < 575 CREG = VAL1; CTYPE = TYPE; CVAL = VAL 575 CREG = VAL1; CTYPE = TYPE; CVAL = VAL ldr r3, .L707+12 | str w23, [x20, 56] ldr r2, .L707+112 | ldp w0, w1, [x20, 64] str r2, [r3] | stp w0, w1, [x20, 32] ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < ldr r0, [sp, #20] < str r0, [r5, #56] < ldr r3, [r5, #68] < str r3, [r5, #36] < ldr r2, [r5, #64] < str r2, [r5, #32] < 576 %UNLESS TYPE = VAL = 0 %START 576 %UNLESS TYPE = VAL = 0 %START subs r1, r3, r2 | cmp w0, 0 movne r1, #1 | ccmp w1, w0, 0, ne cmp r2, #0 | beq .L554 orreq r1, r1, #1 | .LDL126: cmp r1, #0 < beq .L619 < .LDL127: < 577 OP = COMP 577 OP = COMP .LVL520: | .LVL531: ldr r0, .L707+132 | mov w0, 2311 b .L620 | b .L555 .L621: | .L556: ldr r0, .L707+132 | mov w0, 2311 b .L620 | b .L555 .LVL524: | .LVL535: .L623: | .L559: 578 %IF TYPE = ATYPE %AND VAL = AVAL %START 578 %IF TYPE = ATYPE %AND VAL = AVAL %START ldr r1, [r5, #60] | ldr w2, [x20, 60] cmp r3, r1 | cmp w1, w2 bne .L621 | bne .L556 ldr r1, [r5, #44] | ldr w2, [x20, 44] cmp r2, r1 | cmp w0, w2 bne .L621 | bne .L556 579 TYPE = REG; VAL = ACC 579 TYPE = REG; VAL = ACC ldr r1, .L707+12 | ldr w0, [x20, 40] ldr r0, .L707+128 | mov w1, 128 str r0, [r1] | stp w0, w1, [x20, 64] mov r3, #128 < str r3, [r5, #68] < ldr r3, [r5, #40] < str r3, [r5, #64] < 580 %FINISH 580 %FINISH 581 %IF TYPE&BMASK # 0 %START 581 %IF TYPE&BMASK # 0 %START tst r3, #256 | tbz x1, 8, .L631 beq .L685 < 582 OP = CLB 582 OP = CLB .LVL521: | .LVL532: ldreq r0, .L707+136 | mov w0, 37890 ldr r0, .L707+136 | mov w0, 37890 b .L620 | b .L555 .LVL523: | .LVL534: .L685: | .L631: 583 FAULT('I') %UNLESS K = 3 %OR K = \3 583 FAULT('I') %UNLESS K = 3 %OR K = \3 cmn r4, #4 | cmp w19, 3 cmpne r4, #3 | ccmn w19, #4, 4, ne beq .L620 | beq .L555 mov ip, r5 | mov x18, x20 mov r0, #73 | mov w0, 73 bl FAULT.45 bl FAULT.45 .LVL522: | .LVL533: 584 %FINISH 584 %FINISH 585 %finish %ELSE %START 585 %finish %ELSE %START 586 OP = LOAD 586 OP = LOAD .LVL509: | .LVL520: ldr r0, .L707+116 | mov w0, 2063 .LVL510: | .LVL521: .L620: | .L555: 587 TYPE = REG; VAL = VAL1 587 TYPE = REG; VAL = VAL1 mov r3, #128 | mov w0, 128 str r3, [r5, #68] | stp w23, w0, [x20, 64] str r0, [r5, #64] < 588 %FINISH 588 %FINISH 589 PLANT INST(VAL1<<4+OP) 589 PLANT INST(VAL1<<4+OP) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r2, [sp, #16] | add w0, w0, w23, lsl 4 str r2, [sp, #40] | .LVL522: add ip, sp, #36 < add r0, r0, r3, lsl #4 < .LVL511: < bl PLANTINST.25 bl PLANTINST.25 .LVL512: | .LVL523: > .L548: > .L557: > .L558: 590 %FINISH 590 %FINISH ldr r3, .L707+12 < ldr r2, .L707+120 < str r2, [r3] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 591 %FINISH 591 %FINISH .L615: < .L622: < 592 COND = K 592 COND = K str r4, [r5, #48] | str w19, [x20, 48] 593 ->GET 593 ->GET b .L575 | b .L502 .LVL513: | .L542: .L609: < 594 594 595 ASS(-12): !TEST CC 595 ASS(-12): !TEST CC 596 COND = \VAL 596 COND = \VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] mvn r3, r3 | mvn w0, w0 str r3, [r5, #48] | str w0, [x20, 48] 597 ->GET 597 ->GET b .L575 | b .L502 .L624: | .L560: 598 598 599 ASS(-13): !AND,WHILE 599 ASS(-13): !AND,WHILE 600 %IF MODE > 0 %START 600 %IF MODE > 0 %START ldr r3, [r5, #20] | ldr w0, [x20, 20] cmp r3, #0 | cmp w0, 0 bgt .L625 | bgt .L561 .LDL128: | .LDL127: 601 SET JUMP(16_1000) 601 SET JUMP(16_1000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 4096 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #4096 < .LVL527: < bl SETJUMP.26 bl SETJUMP.26 .LVL528: | .LVL536: 602 %finish %ELSE %START 602 %finish %ELSE %START ldr r3, .L707+12 | b .L562 ldr r2, .L707+148 | .L564: str r2, [r3] < b .L626 < .LVL529: < .L628: < 603 %RETURN %IF COND # 0; !CONDITION FALSE 603 %RETURN %IF COND # 0; !CONDITION FALSE ldr r3, [r5, #48] | ldr w0, [x20, 48] cmp r3, #0 | cbnz w0, .L497 bne .L573 | .L562: .LVL525: | .LDL128: .L626: < .LDL129: < 604 %FINISH 604 %FINISH ldr r3, .L707+12 < ldr r2, .L707+140 < str r2, [r3] < 605 %RETURN %IF Q = QLIM 605 %RETURN %IF Q = QLIM ldr r3, .L707 | adrp x0, .LANCHOR0+244 ldr r3, [r3, #240] | ldr w0, [x0, #:lo12:.LANC ldr r2, [sp, #12] | cmp w0, w21 cmp r3, r2 | bne .L498 bne .L574 | b .L497 b .L573 | .L561: .LVL526: < .L625: < 606 ->NEW 606 ->NEW ldr r3, .L707+12 < ldr r2, .L707+144 < str r2, [r3] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 607 607 608 ASS(-14): !OR 608 ASS(-14): !OR 609 %IF MODE > 0 %START 609 %IF MODE > 0 %START ldr r3, [r5, #20] | ldr w0, [x20, 20] cmp r3, #0 | cmp w0, 0 bgt .L629 | bgt .L565 .LDL130: | .LDL129: 610 COND = \COND 610 COND = \COND ldr r3, [r5, #48] | ldr w0, [x20, 48] mvn r3, r3 | mvn w0, w0 str r3, [r5, #48] | str w0, [x20, 48] 611 SET JUMP(16_3000) 611 SET JUMP(16_3000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 12288 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #12288 < .LVL530: < bl SETJUMP.26 bl SETJUMP.26 .LVL531: | .LVL537: 612 %finish %ELSE %START 612 %finish %ELSE %START ldr r3, .L707+12 | b .L498 ldr r2, .L707+156 | .L566: str r2, [r3] < b .L574 < .LVL532: < .L630: < 613 %RETURN %IF COND = 0; !CONDITION TRUE 613 %RETURN %IF COND = 0; !CONDITION TRUE ldr r3, [r5, #48] | ldr w0, [x20, 48] cmp r3, #0 | cbnz w0, .L498 bne .L574 | b .L497 b .L573 | .L565: .L629: < 614 %FINISH 614 %FINISH ldr r3, .L707+12 < ldr r2, .L707+152 < str r2, [r3] < 615 ->NEW 615 ->NEW 616 616 617 ASS(-15): !IF 617 ASS(-15): !IF 618 SET JUMP(16_2000) 618 SET JUMP(16_2000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 8192 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #8192 < .LVL533: < bl SETJUMP.26 bl SETJUMP.26 .LVL534: | .LVL538: 619 %RETURN 619 %RETURN ldr r4, .L707+12 | .L497: ldr r3, .L707+160 < str r3, [r4] < b .L573 < .LVL535: < .L631: < 620 620 ldr r3, .L707+164 < str r3, [r4] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 621 ASS(-16): !ELSE 621 ASS(-16): !ELSE 622 COND = \0 622 COND = \0 mvn r3, #0 | mov w0, -1 str r3, [r5, #48] | str w0, [x20, 48] 623 SET JUMP(16_4000) 623 SET JUMP(16_4000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 16384 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #16384 < .LVL536: < bl SETJUMP.26 bl SETJUMP.26 .LVL537: | .LVL541: 624 %RETURN 624 %RETURN ldr r4, .L707+12 | b .L497 add r3, r3, #624 | .L568: str r3, [r4] < b .L573 < .LVL538: < .L632: < 625 625 mov r3, #624 < str r3, [r4] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 626 ASS(-17): !IF AFTER ELSE 626 ASS(-17): !IF AFTER ELSE 627 SET JUMP(16_6000) 627 SET JUMP(16_6000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 24576 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #24576 < .LVL539: < bl SETJUMP.26 bl SETJUMP.26 .LVL540: | .LVL542: 628 %RETURN 628 %RETURN ldr r4, .L707+12 | b .L497 ldr r3, .L707+168 | .L569: str r3, [r4] < b .L573 < .LVL541: < .L633: < 629 629 mov r3, #628 < str r3, [r4] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 630 ASS(-18): !MACCALL IF 630 ASS(-18): !MACCALL IF 631 SET JUMP(16_8000) 631 SET JUMP(16_8000) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 32768 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #32768 < .LVL542: < bl SETJUMP.26 bl SETJUMP.26 .LVL543: .LVL543: 632 %RETURN 632 %RETURN ldr r4, .L707+12 | b .L497 ldr r3, .L707+172 | .L570: str r3, [r4] < b .L573 < .LVL544: < .L634: < 633 633 mov r3, #632 < str r3, [r4] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 634 ASS(-20): !HASH 634 ASS(-20): !HASH 635 TYPE = TYPE&(UMASK+63) 635 TYPE = TYPE&(UMASK+63) ldr r2, [r5, #68] | ldr w0, [x20, 68] ldr r3, .L707+176 | mov w1, 575 and r3, r3, r2 | and w0, w0, w1 str r3, [r5, #68] | str w0, [x20, 68] 636 ->GET 636 ->GET b .L575 | b .L502 .L635: | .L571: 637 637 638 ASS(-21): !INDEX 638 ASS(-21): !INDEX 639 FAULT('I') %IF TYPE1®XMASK # 0 639 FAULT('I') %IF TYPE1®XMASK # 0 ldr r3, [sp, #16] | mov w0, 144 tst r3, #144 | tst w22, w0 bne .L699 | bne .L649 .LVL545: | .L572: .L636: | mov x18, x20 mov ip, r5 | mov w0, 73 mov r0, #73 < .LVL549: < bl FAULT.45 bl FAULT.45 .LVL550: | .LVL547: b .L636 | b .L572 .L700: | .L650: 640 %IF TYPE&MEMMASK # 0 %START 640 %IF TYPE&MEMMASK # 0 %START ldr r3, [r5, #68] | ldr w0, [x20, 68] tst r3, #64 | tbz x0, 6, .L576 beq .L637 < 641 %IF MODE > 0 %START 641 %IF MODE > 0 %START ldr r3, .L707+4 | ldr w0, [x20, 20] ldr r2, .L707+8 | cmp w0, 0 str r2, [r3] | ble .L650 ldr r3, [r5, #20] | .LDL130: cmp r3, #0 < ble .L700 < .LDL131: < 642 ZQUERY = 1 642 ZQUERY = 1 ldr r3, .L707+12 | adrp x19, .LANCHOR0 ldr r2, .L707+180 | .LVL544: str r2, [r3] | add x19, x19, :lo12:.LANC ldr r4, .L707 | mov w0, 1 .LVL546: | str w0, [x19, 304] mov r3, #1 < str r3, [r4, #300] < 643 LOAD TEMP 643 LOAD TEMP ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < bl LOADTEMP.22 bl LOADTEMP.22 .LVL547: | .LVL545: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] < str r3, [sp, #16] < 644 ZQUERY = 0 644 ZQUERY = 0 ldr r3, .L707+12 | str wzr, [x19, 304] ldr r2, .L707+184 < str r2, [r3] < mov r3, #0 < str r3, [r4, #300] < 645 %finish %ELSE FAULT('A') 645 %finish %ELSE FAULT('A') .L637: | .L573: mov ip, r5 | .L576: mov r0, #65 | mov x18, x20 > mov w0, 65 bl FAULT.45 bl FAULT.45 .LVL551: | .LVL548: b .L637 < .LVL552: < .L701: < 646 %FINISH 646 %FINISH 647 %IF TYPE = REG %START 647 %IF TYPE = REG %START ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #128 | cmp w0, 128 > bne .L575 > b .L575 > .LVL549: > .L651: 648 TYPE = XMASK+VAL; VAL = 0 648 TYPE = XMASK+VAL; VAL = 0 ldr r3, .L707+12 | ldr w0, [x20, 64] ldr r2, .L707+188 | add w0, w0, 16 str r2, [r3] | stp wzr, w0, [x20, 64] ldr r3, .L707+4 | .L575: ldr r2, .L707+8 < str r2, [r3] < ldreq r3, [r5, #64] < addeq r3, r3, #16 < streq r3, [r5, #68] < moveq r3, #0 < streq r3, [r5, #64] < 649 %FINISH 649 %FINISH 650 ZQUERY = 0 650 ZQUERY = 0 .L639: | adrp x0, .LANCHOR0+304 ldr r3, .L707 | str wzr, [x0, #:lo12:.LAN mov r2, #0 < str r2, [r3, #300] < 651 FAULT('I') %IF TYPE1&TYPE&RELMASK # 0 651 FAULT('I') %IF TYPE1&TYPE&RELMASK # 0 ldr r3, [r5, #68] | ldr w19, [x20, 68] ldr r2, [sp, #16] | and w0, w19, w22 and r3, r3, r2 | tbnz x0, 5, .L651 tst r3, #32 | .L577: bne .L701 | mov x18, x20 .L640: | mov w0, 73 mov ip, r5 < mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL553: | .LVL550: b .L640 | b .L577 .LVL554: | .LVL551: .L641: | .L578: 652 TYPE = TYPE1!TYPE!MEMMASK; VAL = VAL1+VAL 652 TYPE = TYPE1!TYPE!MEMMASK; VAL = VAL1+VAL ldr r3, [r5, #68] | orr w0, w19, w22 ldr r2, [sp, #16] | orr w0, w0, 64 orr r3, r2, r3 | ldr w1, [x20, 64] orr r3, r3, #64 | add w1, w1, w23 str r3, [r5, #68] | stp w1, w0, [x20, 64] ldr r3, [r5, #64] < ldr r2, [sp, #20] < add r3, r3, r2 < str r3, [r5, #64] < 653 ->POP 653 ->POP b .L584 | b .L523 .LVL548: | .LVL546: .L699: | .L649: 654 654 655 ASS(-22): !MINST SEPARATOR 655 ASS(-22): !MINST SEPARATOR 656 %IF TYPE1&OPMASK = 16_7000 %START 656 %IF TYPE1&OPMASK = 16_7000 %START ldr r3, [sp, #16] | and w0, w22, 61440 and r3, r3, #61440 | cmp w0, 28672 cmp r3, #28672 | beq .L579 beq .L642 | .LDL131: .LDL132: < 657 %IF TYPE1&16_10 = 0 %START; !REG-TYPE INST 657 %IF TYPE1&16_10 = 0 %START; !REG-TYPE INST ldr r3, .L707+12 | tbz x22, 4, .L582 mov r2, #656 | .LDL132: str r2, [r3] < ldr r3, [sp, #16] < tst r3, #16 < beq .L645 < .LDL133: < 658 FAULT('I') %IF TYPE # REG 658 FAULT('I') %IF TYPE # REG ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #128 | cmp w0, 128 beq .L648 | beq .L587 mov ip, r5 | mov x18, x20 mov r0, #73 | mov w0, 73 .LVL561: < bl FAULT.45 bl FAULT.45 .LVL562: | .LVL554: b .L648 | b .L587 .LVL563: | .L652: .L702: < 659 %finish %ELSE %START 659 %finish %ELSE %START 660 VAL = \VAL %AND VAL1 = VAL1!!16_0100 %IF VAL 660 VAL = \VAL %AND VAL1 = VAL1!!16_0100 %IF VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] cmp r3, #0 | tbz w0, #31, .L583 bge .L646 | mvn w0, w0 mvn r3, r3 | str w0, [x20, 64] str r3, [r5, #64] | eor w23, w23, 256 ldr r3, [sp, #20] | .L583: eor r3, r3, #256 < str r3, [sp, #20] < .L646: < 661 FAULT('I') %IF TYPE # 0 %OR VAL > 15 661 FAULT('I') %IF TYPE # 0 %OR VAL > 15 ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #0 | cbnz w0, .L586 bne .L649 | ldr w0, [x20, 64] ldr r3, [r5, #64] | cmp w0, 15 cmp r3, #15 | ble .L587 ble .L648 | .L586: .L649: | mov x18, x20 mov ip, r5 | mov w0, 73 mov r0, #73 < .LVL558: < bl FAULT.45 bl FAULT.45 .LVL559: | .LVL553: .L648: | .L585: > .L587: 662 %FINISH 662 %FINISH 663 TYPE = TYPE1+16_8000; VAL = VAL1&16_FF0F+VAL<<4 663 TYPE = TYPE1+16_8000; VAL = VAL1&16_FF0F+VAL<<4 ldr r3, [sp, #16] | add w22, w22, 32768 add r3, r3, #32768 | ldr w0, [x20, 64] str r3, [r5, #68] | mov w1, 65295 ldr r2, [r5, #64] | and w1, w23, w1 ldr r3, .L707+204 | add w0, w1, w0, lsl 4 ldr r1, [sp, #20] | stp w0, w22, [x20, 64] and r1, r1, r3 < add r3, r1, r2, lsl #4 < str r3, [r5, #64] < 664 %finish %ELSE %IF TYPE1&OPMASK = 16_F000 %START 664 %finish %ELSE %IF TYPE1&OPMASK = 16_F000 %START cmp r3, #61440 | cmp w0, 61440 bne .L702 | bne .L652 b .L584 | b .L523 .LVL560: | .L582: .L645: | .LDL133: .LDL134: < 665 PROGREF %IF VAL1&16_FC0F = 16_0003; !BAL,BTC,BFC 665 PROGREF %IF VAL1&16_FC0F = 16_0003; !BAL,BTC,BFC ldr r3, .L707+196 | mov w0, 64527 ldr r2, [sp, #20] | and w0, w23, w0 and r3, r3, r2 | cmp w0, 3 cmp r3, #3 | beq .L653 beq .L703 | .L588: .LVL555: | stp w23, w22, [sp, 120] .L650: | add x18, sp, 112 str r2, [sp, #36] < ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < bl PROGREF.27 bl PROGREF.27 .LVL567: | .LVL556: b .L650 | b .L588 .LVL568: | .L589: .L651: < 666 FORM INST(VAL1) 666 FORM INST(VAL1) ldr r3, .L707+12 | stp w23, w22, [sp, 120] ldr r2, .L707+192 | add x18, sp, 112 str r2, [r3] | mov w0, w23 ldr r0, [sp, #20] < str r0, [sp, #36] < ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < bl FORMINST.21 bl FORMINST.21 .LVL556: | .LVL552: 667 %finish %ELSE FAULT('I') 667 %finish %ELSE FAULT('I') ldr r3, .L707+12 | b .L523 ldr r2, .L707+200 | .L579: str r2, [r3] | mov x18, x20 ldr r3, .L707+4 | mov w0, 73 ldr r2, .L707+8 < str r2, [r3] < b .L584 < .LVL557: < .L642: < mov ip, r5 < mov r0, #73 < .LVL564: < bl FAULT.45 bl FAULT.45 .LVL565: | .LVL555: b .L584 | b .L523 .LVL566: | .L653: .L703: < 668 ->POP 668 ->POP 669 669 670 ASS(-23): !MACHINE INST 670 ASS(-23): !MACHINE INST 671 SET JUMP(16_1000) %IF COND # 0 671 SET JUMP(16_1000) %IF COND # 0 ldr r3, [r5, #48] | ldr w0, [x20, 48] cmp r3, #0 | cbnz w0, .L654 bne .L704 | .L590: .LVL569: | stp w23, w22, [sp, 120] .L652: | add x18, sp, 112 ldr r3, [sp, #20] | mov w0, 4096 str r3, [sp, #36] < ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < mov r0, #4096 < .LVL574: < bl SETJUMP.26 bl SETJUMP.26 .LVL575: | .LVL558: b .L652 | b .L590 .LVL576: | .L591: .L653: < 672 PLANT VAL 672 PLANT VAL ldr r3, .L707+12 | mov x18, x20 ldr r2, .L707+208 < str r2, [r3] < mov ip, r5 < bl PLANTVAL.1 bl PLANTVAL.1 .LVL572: | .LVL557: 673 CREG = -1; ATYPE = -1 673 CREG = -1; ATYPE = -1 ldr r4, .L707+12 | mov w0, -1 .LVL570: | stp w0, w0, [x20, 56] mov r3, #672 < str r3, [r4] < ldr r6, .L707+4 < ldr r7, .L707+8 < .LVL571: < str r7, [r6] < mvn r3, #0 < str r3, [r5, #56] < str r3, [r5, #60] < 674 %RETURN 674 %RETURN str r7, [r6] | b .L497 b .L573 | .L654: .LVL573: < .L704: < 675 675 ldr r3, .L707+212 < str r3, [r4] < 676 ASS(-24): !LOAD 676 ASS(-24): !LOAD 677 LOAD TEMP %IF TYPE # REG 677 LOAD TEMP %IF TYPE # REG ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #128 | cmp w0, 128 beq .L654 | beq .L592 ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] < str r3, [sp, #40] < add ip, sp, #36 < bl LOADTEMP.22 bl LOADTEMP.22 .LVL577: | .LVL559: ldr r3, [sp, #36] | ldr w23, [sp, 120] str r3, [sp, #20] | ldr w22, [sp, 124] ldr r3, [sp, #40] | .L592: str r3, [sp, #16] < .L654: < 678 Q = QBASE 678 Q = QBASE ldr r3, .L707+12 | adrp x0, .LANCHOR0+292 ldr r2, .L707+216 | ldr w27, [x0, #:lo12:.LAN str r2, [r3] | .LVL560: ldr r3, .L707 < ldr r10, [r3, #288] < .LVL578: < 679 ->GET 679 ->GET b .L575 | b .L502 .LVL579: | .LVL561: .L655: | .L593: 680 680 681 ASS(-25): !STORE (TYPE1,VAL 681 ASS(-25): !STORE (TYPE1,VAL 682 %IF TYPE = REG %START 682 %IF TYPE = REG %START ldr r3, [r5, #68] | ldr w0, [x20, 68] cmp r3, #128 | cmp w0, 128 beq .L656 | beq .L594 .LDL135: | .LDL134: 683 SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL 683 SWOP %AND LOAD REG(VAL1) %IF VAL1 # VAL ldr r3, [r5, #64] | ldr w0, [x20, 64] ldr r2, [sp, #20] | cmp w0, w23 cmp r2, r3 | beq .L497 beq .L659 | stp w23, w22, [sp, 120] str r2, [sp, #36] | add x19, sp, 112 ldr r3, [sp, #16] | .LVL567: str r3, [sp, #40] | mov x18, x19 add r4, sp, #36 < mov ip, r4 < bl SWOP.23 bl SWOP.23 .LVL585: | .LVL568: mov ip, r4 | mov x18, x19 ldr r0, [sp, #36] | ldr w0, [sp, 120] bl LOADREG.24 bl LOADREG.24 .LVL586: | .LVL569: b .L659 | b .L497 .LVL587: | .LVL570: .L660: | .L597: 684 %finish %ELSE %START 684 %finish %ELSE %START ldr r3, .L707+12 < ldr r2, .L707+232 < str r2, [r3] < 685 ATYPE = -1 %IF ATYPE&MEMMASK # 0 685 ATYPE = -1 %IF ATYPE&MEMMASK # 0 ldr r2, [r5, #60] | ldr w1, [x20, 60] tst r2, #64 | tbz x1, 6, .L595 mvnne r2, #0 | mov w1, -1 strne r2, [r5, #60] | str w1, [x20, 60] .L657: | .L595: 686 %IF FLAG = 0 %START 686 %IF FLAG = 0 %START ldr r2, [r5, #52] | ldr w1, [x20, 52] cmp r2, #0 | cbz w1, .L597 beq .L660 | .LDL135: .LDL136: < 687 %IF VAL1 = ACC %AND ATYPE < 0 %START 687 %IF VAL1 = ACC %AND ATYPE < 0 %START ldr r2, .L707+12 | ldr w1, [x20, 40] ldr r1, .L707+220 | cmp w1, w23 str r1, [r2] | bne .L601 ldr r2, [r5, #40] | ldr w1, [x20, 60] ldr r1, [sp, #20] | tbz w1, #31, .L601 cmp r1, r2 < bne .L662 < ldr r2, [r5, #60] < cmp r2, #0 < bge .L662 < 688 K = TYPE&15 688 K = TYPE&15 .LVL588: | .LVL571: 689 ATYPE = TYPE %AND AVAL = VAL %IF K = 0 %OR 689 ATYPE = TYPE %AND AVAL = VAL %IF K = 0 %OR ands r1, r3, #15 | ands w2, w0, 15 .LVL589: | .LVL572: beq .L663 | beq .L600 ldr r2, .L707+16 | adrp x1, .LANCHOR1 ldr r2, [r2] | ldr w1, [x1, #:lo12:.LANC asr r2, r2, r1 | asr w1, w1, w2 tst r2, #1 | tbnz x1, 0, .L601 bne .L662 | .L600: .L663: | str w0, [x20, 60] str r3, [r5, #60] | ldr w1, [x20, 64] ldr r2, [r5, #64] | str w1, [x20, 44] str r2, [r5, #44] | .L599: .LVL590: | .LVL573: .L662: | .L601: 690 %FINISH 690 %FINISH ldr r2, .L707+12 < ldr r1, .L707+236 < str r1, [r2] < 691 OP = STORE; OP = STB %IF TYPE&BMASK # 0 691 OP = STORE; OP = STB %IF TYPE&BMASK # 0 tst r3, #256 | tst x0, 256 ldr r0, .L707+240 | mov w0, 37378 moveq r0, #2 | mov w1, 2 b .L661 | csel w0, w0, w1, ne .LVL591: | b .L598 .L664: | .LVL574: > .L602: 692 %finish %ELSE %START 692 %finish %ELSE %START 693 CREG = 16; CTYPE = TYPE; CVAL = VAL 693 CREG = 16; CTYPE = TYPE; CVAL = VAL mov r2, #16 | mov w1, 16 str r2, [r5, #56] | str w1, [x20, 56] str r3, [r5, #36] | ldr w1, [x20, 64] ldr r3, [r5, #64] | stp w1, w0, [x20, 32] str r3, [r5, #32] < 694 OP = AHM 694 OP = AHM .LVL580: | .LVL562: ldr r0, .L707+224 | mov w0, 8450 .LVL581: | .LVL563: .L661: | .L598: 695 %FINISH 695 %FINISH 696 PLANT INST(VAL1<<4+OP) 696 PLANT INST(VAL1<<4+OP) ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r2, [sp, #16] | add w0, w0, w23, lsl 4 str r2, [sp, #40] | .LVL564: add ip, sp, #36 < add r0, r0, r3, lsl #4 < .LVL582: < bl PLANTINST.25 bl PLANTINST.25 .LVL583: | .LVL565: > b .L497 > .LVL566: > .L594: 697 %FINISH 697 %FINISH ldr r3, .L707+12 < mov r2, #696 < str r2, [r3] < 698 %RETURN 698 %RETURN .L659: < b .L573 < .LVL584: < .L656: < 699 699 ldr r3, .L707+12 < ldr r2, .L707+228 < str r2, [r3] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < 700 ASS(-26): !JUMP 700 ASS(-26): !JUMP 701 SET JUMP(16_1000) %IF INTEGER(NP)&16_F000 = 16_3000 701 SET JUMP(16_1000) %IF INTEGER(NP)&16_F000 = 16_3000 ldr r3, .L707 | adrp x0, .LANCHOR0+236 ldr r0, [r3, #232] | ldr w0, [x0, #:lo12:.LANC .LVL592: < bl INTEGER.39 bl INTEGER.39 .LVL593: | .LVL575: and r3, r0, #61440 | and w0, w0, 61440 cmp r3, #12288 | cmp w0, 12288 beq .L705 | beq .L655 .L665: | .L603: ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x18, sp, 112 ldr r3, [sp, #16] | mov w0, 4096 str r3, [sp, #40] < add ip, sp, #36 < mov r0, #4096 < bl SETJUMP.26 bl SETJUMP.26 .LVL602: | .LVL584: b .L665 | b .L603 .L708: | .LVL585: .align 2 | .L656: .L707: < .word .LANCHOR0 < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word .LANCHOR1 < .word 469 < .word 473 < .word 474 < .word 479 < .word .LC7 < .word 2575 < .word 513 < .word 498 < .word 499 < .word 503 < .word 505 < .word 2831 < .word 1031 < .word 497 < .word 1543 < .word 1799 < .word 29960 < .word 3332 < .word 29704 < .word 3076 < .word 558 < .word 559 < .word 567 < .word 574 < .word 2063 < .word 589 < .word 569 < .word 578 < .word 2311 < .word 37890 < .word 603 < .word 605 < .word 601 < .word 613 < .word 611 < .word 618 < .word 619 < .word 627 < .word 631 < .word 575 < .word 641 < .word 643 < .word 647 < .word 665 < .word 64527 < .word 666 < .word 65295 < .word 671 < .word 674 < .word 677 < .word 686 < .word 8450 < .word 698 < .word 683 < .word 689 < .word 37378 < .word 701 < .word 702 < .word 706 < .word 713 < .word 714 < .word 474 < .word .LC8 < .word stderr < .word 523 < .word 525 < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .LVL603: < .L706: < 702 %IF FLAG < 0 %START; !REPEAT 702 %IF FLAG < 0 %START; !REPEAT ldr r3, .L707+12 | ldr w0, [x20, 52] ldr r2, .L707+244 | tbz w0, #31, .L609 str r2, [r3] < ldr r3, [r5, #52] < cmp r3, #0 < bge .L666 < 703 FLAG = 0 703 FLAG = 0 ldr r3, .L707+12 | str wzr, [x20, 52] ldr r2, .L707+248 < str r2, [r3] < ldr r3, .L707+4 < ldr r2, .L707+8 < str r2, [r3] < mov r3, #0 < str r3, [r5, #52] < 704 %IF PASS = 0 %START 704 %IF PASS = 0 %START ldr r3, .L707+16 | adrp x0, .LANCHOR1+8 ldr r3, [r3, #8] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cbnz w0, .L609 bne .L666 < 705 K = NP; LITVAL = LOC 705 K = NP; LITVAL = LOC ldr r3, .L707 | adrp x0, .LANCHOR0+236 ldr r10, [r3, #232] | ldr w0, [x0, #:lo12:.LANC .LVL594: | .LVL576: ldr r6, [r5, #76] | ldr w21, [x20, 76] .LVL595: | .LVL577: mov r4, r6 | mov w19, w21 ldr r3, .L707+252 | add w21, w21, w0 > .LVL578: > .L605: 706 %WHILE INTEGER(K)&16_1000 # 0 %CYCLE 706 %WHILE INTEGER(K)&16_1000 # 0 %CYCLE sub r0, r0, r4 | sub w0, w21, w19 > .LVL579: bl INTEGER.39 bl INTEGER.39 .LVL598: | .LVL580: tst r0, #4096 | tbz x0, 12, .L656 beq .L706 | .LDL136: .LDL137: < 707 K = K+2; LITVAL = LITVAL-2 707 K = K+2; LITVAL = LITVAL-2 ldr r9, .L707+12 | .LVL581: str r3, [r9] | sub w19, w19, #2 .LVL597: | .LVL582: .LVL599: < sub r4, r4, #2 < .LVL600: < 708 %REPEAT 708 %REPEAT ldr r8, .L707+4 | b .L605 mov r7, r2 | .LVL583: .LVL596: | .L655: .L667: < add r0, r6, r10 < str r7, [r8] < mov r3, #708 < b .L667 < .LVL601: < .L705: < 709 FLAG = 1 %IF LITVAL-VAL < 32 709 FLAG = 1 %IF LITVAL-VAL < 32 ldr r3, [r5, #64] | ldr w0, [x20, 64] sub r4, r4, r3 | sub w19, w19, w0 .LVL604: | .LVL586: cmp r4, #31 | cmp w19, 31 movle r3, #1 | bgt .L609 strle r3, [r5, #52] | mov w0, 1 .LVL605: | str w0, [x20, 52] .L666: | .L604: > .L608: > .LVL587: > .L609: 710 %FINISH 710 %FINISH 711 %FINISH 711 %FINISH 712 PROGREF 712 PROGREF ldr r3, [sp, #20] | stp w23, w22, [sp, 120] str r3, [sp, #36] | add x19, sp, 112 ldr r3, [sp, #16] | mov x18, x19 str r3, [sp, #40] < add r7, sp, #36 < mov ip, r7 < bl PROGREF.27 bl PROGREF.27 .LVL606: | .LVL588: 713 PLANT JUMP 713 PLANT JUMP ldr r6, .L707+292 | mov x18, x19 mov r3, #712 < str r3, [r6] < ldr r4, .L707+284 < ldr r5, .L707+288 < str r5, [r4] < mov ip, r7 < bl PLANTJUMP.28 bl PLANTJUMP.28 .LVL607: | .LVL589: 714 %RETURN 714 %RETURN ldr r3, .L707+256 | b .L497 str r3, [r6] | .LVL590: str r5, [r4] | .L610: b .L573 | .L616: .LVL608: < .L670: < b .L676 < .L671: < .L676: < 715 715 ldr r3, .L707+260 < str r3, [r6] < str r5, [r4] < 716 %END; !ASSEMBLE 716 %END; !ASSEMBLE 717 717 718 %ROUTINE LOOKUP(%INTEGER CONTROL) 718 %ROUTINE LOOKUP(%INTEGER CONTROL) @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | str x21, [sp, 32] mov r9, r0 | mov w21, w0 mov r8, ip | mov x20, x18 719 !ALL DICT OPERATIONS LOCALISED HERE 719 !ALL DICT OPERATIONS LOCALISED HERE 720 !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK), 720 !CONTROL = 0 (LOOKUP ONLY), 1 (FORWARD OK), 721 ! 2 (REDEF), 3 (DEF), 721 ! 2 (REDEF), 3 (DEF), 722 ! 4 (MACPARM), 7 (LABEL) 722 ! 4 (MACPARM), 7 (LABEL) 723 %INTEGER DP 723 %INTEGER DP 724 DP = DEFMIN; DP = MP+5 %IF CONTROL = 4 724 DP = DEFMIN; DP = MP+5 %IF CONTROL = 4 .LVL158: | .LVL130: cmp r0, #4 | cmp w0, 4 ldr r3, .L254+8 | beq .L157 ldrne r4, [r3, #252] | adrp x0, .LANCHOR0+256 ldreq r4, [r3, #268] | .LVL131: addeq r4, r4, #5 | ldr w19, [x0, #:lo12:.LAN .L231: | b .L165 .LVL159: | .LVL132: ldr r3, .L254+12 | .L157: > adrp x0, .LANCHOR0+272 > .LVL133: > ldr w19, [x0, #:lo12:.LAN > add w19, w19, 5 > b .L165 > .LVL134: > .L179: 725 725 ldr r3, .L254 | adrp x0, :got:_imp_current ldr r2, .L254+4 | str r2, [r3] | ldr x3, [x0] ldr r3, .L707+264 | adrp x0, .LC6 str r3, [sp] | add x0, x0, :lo12:.LC6 ldr r3, .L707+288 | cmp x3, 0 mov r2, r4 | csel x3, x0, x3, eq ldr r1, .L707+268 | adrp x0, :got:_imp_current ldr r0, .L707+272 | .LVL609: | ldr w0, [x0] ldr r0, [r0] | cmp w0, 0 > mov w4, 725 > csel w4, w0, w4, ne > mov w2, w19 > adrp x1, .LC8 > add x1, x1, :lo12:.LC8 > adrp x0, :got:stderr;ldr > > ldr x0, [x0] bl fprintf bl fprintf .LVL610: | .LVL591: 726 {} %WHILE INTEGER(DP) # 0 %CYCLE 726 {} %WHILE INTEGER(DP) # 0 %CYCLE .LDL38: | .LDL32: mov r0, r4 | mov w0, w19 bl INTEGER.39 bl INTEGER.39 .LVL168: | .LVL139: cmp r0, #0 | cbz w0, .L179 beq .L251 | mov w0, 1 mov r0, #1 < bl exit bl exit .LVL611: | .LVL592: .L672: | .L611: b .L676 | b .L616 .L673: | .L612: b .L676 | b .L616 .L674: | .L613: b .L676 | b .L616 .L675: | .L614: b .L676 | b .L616 .LVL612: | .L615: .L595: | b .L616 > .L539: > str wzr, [x20, 68] 727 {} ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1 727 {} ->YES %IF INTEGER(DP) = TAG1 %AND INTEGER(DP+1 ldr r5, .L254+16 | mov w0, w19 str r3, [r5] < mov r0, r4 < bl INTEGER.39 bl INTEGER.39 .LVL169: | .LVL140: ldr r3, [r8, #16] | ldr w1, [x20, 16] cmp r0, r3 | cmp w0, w1 bne .L236 | bne .L162 add r0, r4, #1 | add w0, w19, 1 bl INTEGER.39 bl INTEGER.39 .LVL170: | .LVL141: ldr r3, [r8, #12] | ldr w1, [x20, 12] cmp r0, r3 | cmp w0, w1 bne .L236 | bne .L162 .LDL40: | .LDL33: 728 {} DP = DP+4 728 {} DP = DP+4 ldr r7, .L254 | add w19, w19, 4 ldr r6, .L254+4 | .LVL138: b .L232 | ldp x19, x20, [sp, 16] .LVL160: | ldp x21, x22, [sp, 32] .L251: | ldp x23, x24, [sp, 48] add r4, r4, #4 | .LVL539: .LVL167: | ldp x25, x26, [sp, 64] ldr r3, .L254+24 | ldp x27, x28, [sp, 80] str r3, [r5] | ldp x29, x30, [sp], 144 str r6, [r7] | ret add sp, sp, #60 | .LVL540: @ sp needed | .L567: pop {r4, r5, r6, r7, r8, < .LVL457: < .L577: < 729 {} %REPEAT 729 {} %REPEAT str r6, [r7] | .L165: ldr r3, .L254+20 < .L232: < 730 730 731 !!%OWNINTEGER P 731 !!%OWNINTEGER P 732 !! DP = DP-4 732 !! DP = DP-4 733 !!REP:DP = DP+4 733 !!REP:DP = DP+4 734 !! %LAC* DP; %OPR 640;!SNA; %JMP NO 734 !! %LAC* DP; %OPR 640;!SNA; %JMP NO 735 !! %SAD TAG1; %OPR 512; %JMP REP 735 !! %SAD TAG1; %OPR 512; %JMP REP 736 !! %LAC DP; %TAD #1; %DAC P 736 !! %LAC DP; %TAD #1; %DAC P 737 !! %LAC* P; %SAD TAG2; %JMP YES 737 !! %LAC* P; %SAD TAG2; %JMP YES 738 !! ->REP 738 !! ->REP 739 !!NO: 739 !!NO: 740 %RETURN %IF CONTROL&1 = 0; !NO CREATION 740 %RETURN %IF CONTROL&1 = 0; !NO CREATION tst r9, #1 | tbnz x21, 0, .L160 popeq {r4, r5, r6, r7, r8, | .LVL135: .L234: | .L156: .LDL39: < 741 NEW:DEFMIN = DEFMIN-4; DP = DEFMIN 741 NEW:DEFMIN = DEFMIN-4; DP = DEFMIN ldr r3, .L254+16 | adrp x0, .LANCHOR0 mov r2, #740 | add x0, x0, :lo12:.LANCHO str r2, [r3] | ldr w21, [x0, 256] ldr r3, .L254 | .LVL148: ldr r2, .L254+4 | sub w19, w21, #4 str r2, [r3] | .LVL149: ldr r3, .L254+8 | str w19, [x0, 256] ldr r5, [r3, #252] | .LVL150: sub r4, r5, #4 < .LVL161: < str r4, [r3, #252] < .LVL162: < 742 !! %MONITOR 21 %IF DP-QLIM <= 0 742 !! %MONITOR 21 %IF DP-QLIM <= 0 743 !{}%signal 2,1 %IF DP-QLIM <= 0 743 !{}%signal 2,1 %IF DP-QLIM <= 0 744 !! INTEGER(DP) = TAG1; INTEGER(DP+1) = TAG2 744 !! INTEGER(DP) = TAG1; INTEGER(DP+1) = TAG2 745 set INTEGER(DP, TAG1); set INTEGER(DP+1, TAG2) 745 set INTEGER(DP, TAG1); set INTEGER(DP+1, TAG2) ldr r1, [r8, #16] | ldr w1, [x20, 16] mov r0, r4 | mov w0, w19 bl SETINTEGER.8 bl SETINTEGER.8 .LVL163: | .LVL151: ldr r1, [r8, #12] | ldr w1, [x20, 12] sub r0, r5, #3 | sub w0, w21, #3 bl SETINTEGER.8 bl SETINTEGER.8 .LVL164: | .LVL152: > .L166: 746 !!SET:INTEGER(DP+2) = TYPE; INTEGER(DP+3) = VAL 746 !!SET:INTEGER(DP+2) = TYPE; INTEGER(DP+3) = VAL 747 SET:set INTEGER(DP+2, TYPE); set INTEGER(DP+3, VAL) 747 SET:set INTEGER(DP+2, TYPE); set INTEGER(DP+3, VAL) ldr r1, [r8, #68] | ldr w1, [x20, 68] add r0, r4, #2 | add w0, w19, 2 bl SETINTEGER.8 bl SETINTEGER.8 .LVL165: | .LVL153: ldr r1, [r8, #64] | ldr w1, [x20, 64] add r0, r4, #3 | add w0, w19, 3 bl SETINTEGER.8 bl SETINTEGER.8 .LVL166: | .LVL154: 748 %RETURN 748 %RETURN .L239: | b .L156 pop {r4, r5, r6, r7, r8, | .LVL155: .L236: | .L182: 749 YES:%IF CONTROL&2 = 0 %START; !NOT DEF CLASS 749 YES:%IF CONTROL&2 = 0 %START; !NOT DEF CLASS ldr r3, .L254+16 | tbz x21, 1, .L180 mov r2, #748 | .LDL34: str r2, [r3] < ldr r3, .L254 < ldr r2, .L254+4 < str r2, [r3] < tst r9, #2 < beq .L252 < .LDL41: < 750 TYPE = INTEGER(DP+2); VAL = INTEGER(DP+3) 750 TYPE = INTEGER(DP+2); VAL = INTEGER(DP+3) ldr r3, .L254 | add w0, w19, 2 ldr r2, .L254+4 < str r2, [r3] < add r0, r4, #2 < bl INTEGER.39 bl INTEGER.39 .LVL174: | .LVL145: str r0, [r8, #68] | str w0, [x20, 68] add r0, r4, #3 | add w0, w19, 3 bl INTEGER.39 bl INTEGER.39 .LVL175: | .LVL146: str r0, [r8, #64] | str w0, [x20, 64] 751 %RETURN 751 %RETURN ldr r5, .L254+16 | b .L156 ldr r6, .L254+32 | .L181: str r6, [r5] < str r6, [r5] < ldr r6, .L254 < ldr r7, .L254+4 < str r7, [r6] < 752 %FINISH 752 %FINISH ldr r3, .L254+36 < str r3, [r5] < str r7, [r6] < 753 %IF CONTROL = 3 %START 753 %IF CONTROL = 3 %START cmp r9, #3 | cmp w21, 3 beq .L253 | beq .L181 .L240: | .L167: 754 ->NEW %IF DP-INTEGER(BP) >= 0; !GLOBAL 754 ->NEW %IF DP-INTEGER(BP) >= 0; !GLOBAL ldr r3, .L254+8 | adrp x0, .LANCHOR0+248 ldr r0, [r3, #244] | ldr w0, [x0, #:lo12:.LANC bl INTEGER.39 bl INTEGER.39 .LVL176: | .LVL147: cmp r4, r0 | cmp w19, w0 bge .L234 | blt .L182 .LDL45: | .L160: > .LDL38: > .LDL39: 755 FAULT('D') 755 FAULT('D') ldr r3, .L254+16 | mov x18, x20 ldr r2, .L254+40 | mov w0, 68 str r2, [r3] < mov ip, r8 < mov r0, #68 < bl FAULT.45 bl FAULT.45 .LVL177: | .LVL156: 756 %FINISH 756 %FINISH 757 ->SET %IF CONTROL # 7 757 ->SET %IF CONTROL # 7 cmp r9, #7 | cmp w21, 7 bne .L239 | bne .L166 .LDL42: | .LDL35: b .L239 | b .L166 .L242: | .L169: 758 %IF INTEGER(DP+2)&OPFMASK = FMASK %START 758 %IF INTEGER(DP+2)&OPFMASK = FMASK %START add r0, r4, #2 | add w0, w19, 2 bl INTEGER.39 bl INTEGER.39 .LVL171: | .LVL142: and r3, r0, #63488 | and w0, w0, 63488 cmp r3, #2048 | cmp w0, 2048 beq .L242 | beq .L169 .LDL43: | .LDL36: 759 VAL = INTEGER(DP+3) 759 VAL = INTEGER(DP+3) ldr r3, .L254+16 | add w0, w19, 3 ldr r2, .L254+28 < str r2, [r3] < add r0, r4, #3 < bl INTEGER.39 bl INTEGER.39 .LVL178: | .LVL157: str r0, [r8, #64] | str w0, [x20, 64] 760 %IF PASS = 0 %START 760 %IF PASS = 0 %START ldr r3, .L254+16 | adrp x1, .LANCHOR1+8 ldr r2, .L254+44 | ldr w1, [x1, #:lo12:.LANC str r2, [r3] | cbz w1, .L171 ldr r5, .L254 | .LDL40: ldr r6, .L254+4 < str r6, [r5] < ldr r3, .L254+48 < ldr r3, [r3, #8] < cmp r3, #0 < beq .L244 < .LDL46: < 761 !! INTEGER(VAL) = LOC 761 !! INTEGER(VAL) = LOC str r6, [r5] < 762 set INTEGER(VAL, LOC) 762 set INTEGER(VAL, LOC) ldr r1, [r8, #76] | ldr w1, [x20, 76] bl SETINTEGER.8 bl SETINTEGER.8 .LVL182: | .LVL161: 763 %finish %ELSE %START 763 %finish %ELSE %START .L245: | .L172: > .L174: 764 FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER( 764 FAULT('P') %AND LOC=INTEGER(VAL) %IF INTEGER( bl INTEGER.39 bl INTEGER.39 .LVL179: | .LVL158: ldr r3, [r8, #76] | ldr w1, [x20, 76] cmp r0, r3 | cmp w0, w1 beq .L245 | beq .L174 mov ip, r8 | mov x18, x20 mov r0, #80 | mov w0, 80 bl FAULT.45 bl FAULT.45 .LVL180: | .LVL159: ldr r0, [r8, #64] | ldr w0, [x20, 64] bl INTEGER.39 bl INTEGER.39 .LVL181: | .LVL160: str r0, [r8, #76] | str w0, [x20, 76] b .L245 | b .L174 .L244: | .L171: 765 %FINISH 765 %FINISH ldr r3, .L254+16 < mov r2, #764 < str r2, [r3] < 766 VAL = LOC 766 VAL = LOC ldr r3, [r8, #76] | ldr w0, [x20, 76] str r3, [r8, #64] | str w0, [x20, 64] 767 %finish %ELSE %START 767 %finish %ELSE %START b .L239 | b .L166 .L255: < .align 2 < .L254: < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word 726 < .word _imp_current_line < .word 729 < .word 727 < .word 758 < .word 750 < .word 751 < .word 754 < .word 759 < .word .LANCHOR1 < .LFE232: .LFE232: .align 2 .align 2 TAG.34: TAG.34: .LFB237: .LFB237: 768 ->NEW %IF DP-INTEGER(BP) >= 0 768 ->NEW %IF DP-INTEGER(BP) >= 0 ldr r3, .L254+8 | adrp x0, .LANCHOR0+248 ldr r0, [r3, #244] | ldr w0, [x0, #:lo12:.LANC bl INTEGER.39 bl INTEGER.39 .LVL172: | .LVL143: cmp r4, r0 | cmp w19, w0 bge .L234 | bge .L160 .LDL44: | .LDL37: 769 FAULT('D') 769 FAULT('D') ldr r3, .L254+16 | mov x18, x20 mov r2, #768 | mov w0, 68 str r2, [r3] < ldr r3, .L254 < ldr r2, .L254+4 < str r2, [r3] < mov ip, r8 < mov r0, #68 < bl FAULT.45 bl FAULT.45 .LVL173: | .LVL144: > b .L166 > .L180: 770 %FINISH 770 %FINISH 771 ->SET 771 ->SET b .L239 < .L252: < 772 %END 772 %END 773 773 774 %ROUTINE TAGREF 774 %ROUTINE TAGREF pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .L253: | .LVL136: @ Nested: function declared i | ldr x21, [sp, 32] @ args = 0, pretend = 0, fram | ldp x29, x30, [sp], 48 @ frame_needed = 0, uses_anon | ret push {r4, r5, r6, lr} | .LVL137: mov r4, ip | .L162: > stp x29, x30, [sp, -32]! > mov x29, sp > str x19, [sp, 16] > mov x19, x18 775 %OWNINTEGER B=2184, W=24717 775 %OWNINTEGER B=2184, W=24717 776 %IF TERM = '(' %START 776 %IF TERM = '(' %START ldr r3, [ip, #8] | ldr w0, [x18, 8] cmp r3, #40 | cmp w0, 40 bne .L284 | bne .L211 777 TYPE = 0; VAL = 0 777 TYPE = 0; VAL = 0 ldr r3, .L291 | stp wzr, wzr, [x18, 64] ldr r2, .L291+4 < str r2, [r3] < ldr r3, .L291+8 < mov r2, #776 < str r2, [r3] < mov r3, #0 < str r3, [ip, #68] < str r3, [ip, #64] < 778 %RETURN %IF TAG1 = W 778 %RETURN %IF TAG1 = W ldr r3, [ip, #16] | ldr w0, [x18, 16] ldr r2, .L291+12 | mov w1, 24717 cmp r3, r2 | cmp w0, w1 popeq {r4, r5, r6, pc} | beq .L210 .LDL52: | .LDL46: 779 TYPE = BMASK 779 TYPE = BMASK ldr r3, .L291+8 | mov w1, 256 add r2, r2, #2 | str w1, [x18, 68] str r2, [r3] < mov r2, #256 < str r2, [ip, #68] < 780 %RETURN %IF TAG1 = B 780 %RETURN %IF TAG1 = B ldr r2, .L291+16 | cmp w0, 2184 cmp r3, r2 | beq .L210 popeq {r4, r5, r6, pc} | .L211: .L284: | .LDL47: .LDL53: < 781 %FINISH 781 %FINISH ldr r2, .L291+8 < mov r1, #780 < str r1, [r2] < 782 TYPE = LOCTYPE+FMASK+UMASK; VAL = LABMIN-1 782 TYPE = LOCTYPE+FMASK+UMASK; VAL = LABMIN-1 ldr r3, [r4, #72] | ldr w1, [x19, 72] add r3, r3, #2560 | add w1, w1, 2560 str r3, [r4, #68] | adrp x0, .LANCHOR0+276 ldr r3, .L291+20 | ldr w0, [x0, #:lo12:.LANC ldr r3, [r3, #272] | sub w0, w0, #1 sub r3, r3, #1 | stp w0, w1, [x19, 64] str r3, [r4, #64] < 783 LOOKUP(1) 783 LOOKUP(1) mov ip, r4 | mov x18, x19 mov r0, #1 | mov w0, 1 bl LOOKUP.32 bl LOOKUP.32 .LVL191: | .LVL170: 784 %IF TYPE&OPFMASK = FMASK %START 784 %IF TYPE&OPFMASK = FMASK %START ldr r5, .L291+8 | ldr w0, [x19, 68] ldr r3, .L291+24 | and w0, w0, 63488 str r3, [r5] | cmp w0, 2048 ldr r3, [r4, #68] | bne .L210 and r3, r3, #63488 < cmp r3, #2048 < bne .L286 < 785 %IF VAL = LABMIN-1 %START 785 %IF VAL = LABMIN-1 %START mov r3, #784 | ldr w0, [x19, 64] str r3, [r5] | adrp x1, .LANCHOR0+276 ldr r3, .L291 | ldr w1, [x1, #:lo12:.LANC ldr r2, .L291+4 | sub w1, w1, #1 str r2, [r3] | cmp w1, w0 ldr r0, [r4, #64] | bne .L213 ldr r3, .L291+20 < ldr r3, [r3, #272] < sub r3, r3, #1 < cmp r3, r0 < 786 !! LABMIN = VAL; %MONITOR 22 %IF LABMIN = ALM 786 !! LABMIN = VAL; %MONITOR 22 %IF LABMIN = ALM 787 LABMIN = VAL; !{}%signal 2,2 %IF LABMIN = AL 787 LABMIN = VAL; !{}%signal 2,2 %IF LABMIN = AL ldreq r3, .L291+20 | adrp x1, .LANCHOR0+276 streq r0, [r3, #272] | str w0, [x1, #:lo12:.LANC > .L213: 788 %FINISH 788 %FINISH 789 %IF PASS > 0 %START 789 %IF PASS > 0 %START .L287: | adrp x1, .LANCHOR1+8 ldr r3, .L291+28 | ldr w1, [x1, #:lo12:.LANC ldr r3, [r3, #8] | cmp w1, 0 cmp r3, #0 | ble .L215 ble .L288 < 790 VAL = INTEGER(VAL) 790 VAL = INTEGER(VAL) bl INTEGER.39 bl INTEGER.39 .LVL192: | .LVL171: str r0, [r4, #64] | str w0, [x19, 64] 791 FAULT('U') %IF VAL = 0 791 FAULT('U') %IF VAL = 0 ldr r3, .L291+8 | cbz w0, .L217 ldr r2, .L291+32 | .L214: str r2, [r3] | .L215: cmp r0, #0 | mov x18, x19 beq .L290 | mov w0, 85 .L288: < mov ip, r4 < mov r0, #85 < bl FAULT.45 bl FAULT.45 .LVL193: | .LVL172: b .L288 | b .L215 .L292: < .align 2 < .L291: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 24717 < .word 2184 < .word .LANCHOR0 < .word 783 < .word .LANCHOR1 < .word 790 < .word 795 < .LFE233: .LFE233: .align 2 .align 2 GETEXP.16: GETEXP.16: .LFB242: .LFB242: 792 %FINISH 792 %FINISH 793 TYPE = TYPE-FMASK 793 TYPE = TYPE-FMASK ldr r3, [r4, #68] | ldr w0, [x19, 68] sub r3, r3, #2048 | sub w0, w0, #2048 str r3, [r4, #68] | str w0, [x19, 68] 794 %FINISH 794 %FINISH 795 %END 795 %END .L286: < 796 796 ldr r3, .L291+8 | .L212: ldr r2, .L291+36 | .L210: str r2, [r3] < ldr r3, .L291 < ldr r2, .L291+4 < str r2, [r3] < 797 %ROUTINE GET SYM 797 %ROUTINE GET SYM @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | str x21, [sp, 32] mov r9, ip | mov x21, x18 pop {r4, r5, r6, pc} | ldr x19, [sp, 16] .L290: | ldp x29, x30, [sp], 32 > ret > .L217: 798 %CYCLE 798 %CYCLE str r10, [r8] | ldr w19, [x20, 240] str r6, [r7] | mov w0, w19 799 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 < ldr r5, .L111+16 < .L107: < .LDL12: < ldr r4, [r5, #236] < mov r0, r4 < bl CHAR.6 bl CHAR.6 .LVL71: | .LVL48: str r0, [r9, #4] | str w0, [x21, 4] str r6, [r7] | add w19, w19, 1 add r4, r4, #1 | str w19, [x20, 240] str r4, [r5, #236] | 799 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 > adrp x20, .LANCHOR0 > add x20, x20, :lo12:.LANC > .L56: > .LDL7: 800 %RETURN %IF SYM # ' ' 800 %RETURN %IF SYM # ' ' ldr r8, .L111 | cmp w0, 32 ldr r10, .L111+4 | beq .L56 ldr r7, .L111+8 < ldr r6, .L111+12 < cmp r0, #32 < beq .L107 < pop {r4, r5, r6, r7, r8, < .L112: < .align 2 < .L111: < .word _imp_current_line < .word 799 < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .LFE234: < .align 2 < S.33: < .LVL72: < .LFB235: < 801 %REPEAT 801 %REPEAT mov r3, #800 < str r3, [r8] < 802 %END 802 %END 803 803 804 %PREDICATE S(%INTEGER K) 804 %PREDICATE S(%INTEGER K) @ Nested: function declared i | ldp x19, x20, [sp, 16] @ args = 0, pretend = 0, fram | ldr x21, [sp, 32] @ frame_needed = 0, uses_anon | ldp x29, x30, [sp], 48 push {r4, lr} | ret > .LFE234: > .align 2 > S.33: > .LVL49: > .LFB235: > stp x29, x30, [sp, -16]! > mov x29, sp 805 %FALSE %UNLESS K = SYM 805 %FALSE %UNLESS K = SYM ldr r3, [ip, #4] | ldr w1, [x18, 4] cmp r3, r0 | cmp w1, w0 beq .L120 | beq .L66 mov r0, #0 | mov w0, 0 .LVL73: | .LVL50: .LDL13: | .LDL8: 806 GET SYM 806 GET SYM bl GETSYM.7 bl GETSYM.7 .LVL75: | .LVL52: 807 %TRUE 807 %TRUE ldr r3, .L121 | mov w0, 1 ldr r2, .L121+4 | ldp x29, x30, [sp], 16 str r2, [r3] | ret ldr r3, .L121+8 < ldr r2, .L121+12 < str r2, [r3] < ldr r4, .L121 < ldr r3, .L121+16 < str r3, [r4] < mov r0, #1 < pop {r4, pc} < .L122: < .align 2 < .L121: < .word _imp_current_line < .word 805 < .word _imp_current_file < .word .LC6 < .word 806 < .word 807 < .LFE235: .LFE235: .align 2 .align 2 SS.17: SS.17: .LVL76: | .LVL53: .LFB236: .LFB236: 808 %END 808 %END ldr r3, .L121+20 < str r3, [r4] < ldr r3, .L121+8 < ldr r2, .L121+12 < str r2, [r3] < 809 809 bx lr | ret .LVL74: | .LVL51: .L120: | .L66: 810 %PREDICATE SS(%INTEGER K) 810 %PREDICATE SS(%INTEGER K) @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | stp x21, x22, [sp, 32] mov r5, r0 | mov w20, w0 mov r4, ip | mov x19, x18 811 %FALSE %UNLESS K = SYM = CHAR(GETPOS) 811 %FALSE %UNLESS K = SYM = CHAR(GETPOS) .LBB66: .LBB66: .LVL77: | .LVL54: ldr r6, [ip, #4] | ldr w21, [x18, 4] .LVL78: | .LVL55: ldr r3, .L128+16 | adrp x0, .LANCHOR0+240 ldr r7, [r3, #236] | .LVL56: mov r0, r7 | ldr w22, [x0, #:lo12:.LAN .LVL79: | mov w0, w22 bl CHAR.6 bl CHAR.6 .LVL80: | .LVL57: cmp r6, r0 | cmp w20, w21 movne r3, #0 < moveq r3, #1 < .LBE66: .LBE66: cmp r5, r6 | ccmp w21, w0, 4, eq orrne r3, r3, #1 | mov w0, 0 cmp r3, #0 | .LVL58: bne .L127 | .L68: mov r0, #0 | beq .L71 .LVL81: | .L67: .L124: | .LDL9: .LDL14: < 812 GETPOS = GETPOS+1 812 GETPOS = GETPOS+1 add r7, r7, #1 | add w22, w22, 1 ldr r3, .L128+16 | adrp x0, .LANCHOR0+240 str r7, [r3, #236] | str w22, [x0, #:lo12:.LAN 813 GET SYM 813 GET SYM ldr r3, .L128 | mov x18, x19 ldr r2, .L128+4 < str r2, [r3] < ldr r3, .L128+8 < ldr r2, .L128+12 < str r2, [r3] < ldr r5, .L128+8 < .LVL83: < ldr r6, .L128+12 < .LVL84: < str r6, [r5] < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL85: | .LVL62: 814 %TRUE 814 %TRUE ldr r7, .L128 | mov w0, 1 ldr r3, .L128+20 | b .L67 str r3, [r7] < mov r0, #1 < pop {r4, r5, r6, r7, r8, < .L129: < .align 2 < .L128: < .word _imp_current_line < .word 811 < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word 813 < .word 814 < .LFE236: .LFE236: .align 2 .align 2 CODESYM.36: CODESYM.36: .LFB238: .LFB238: 815 %END 815 %END ldr r3, .L128+24 < str r3, [r7] < str r6, [r5] < 816 816 pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .LVL82: | .LVL59: .L127: | ldp x21, x22, [sp, 32] > .LVL60: > ldp x29, x30, [sp], 48 > ret > .LVL61: > .L71: 817 %PREDICATE TAG 817 %PREDICATE TAG @ Nested: function declared i | stp x29, x30, [sp, -112]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | add x0, sp, 112 push {r4, r5, r6, r7, r8, | str x0, [sp, 104] sub sp, sp, #20 | str x18, [sp, 88] add r3, sp, #56 < str r3, [sp, #12] < str ip, [sp, #8] < 818 %INTEGER J,K 818 %INTEGER J,K 819 %ROUTINE CODE SYM 819 %ROUTINE CODE SYM @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | str x21, [sp, 32] mov r4, ip | mov x19, x18 820 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 820 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 ldr r6, .L140+12 | adrp x20, .LANCHOR0 ldr r5, [r6, #236] | add x20, x20, :lo12:.LANC mov r0, r5 | ldr w21, [x20, 240] > mov w0, w21 bl CHAR.6 bl CHAR.6 .LVL86: | .LVL63: ldr r3, [r4, #8] | ldr x1, [x19] str r0, [r3, #4] | str w0, [x1, 4] add r5, r5, #1 | add w21, w21, 1 str r5, [r6, #236] | str w21, [x20, 240] ldr r3, .L281 < ldr r2, .L281+4 < str r2, [r3] < 821 K = SYM-'0' 821 K = SYM-'0' str r8, [r7] | ldr x1, [x19] ldr r2, [r4, #8] | ldr w0, [x1, 4] ldr r3, [r2, #4] | sub w0, w0, #48 sub r3, r3, #48 | str w0, [x19, 12] str r3, [r4, #4] < 822 %IF K >= 0 %START 822 %IF K >= 0 %START ldr r3, .L140 | tbnz w0, #31, .L77 mov r2, #820 < str r2, [r3] < ldr r7, .L140+4 < ldr r8, .L140+8 < str r8, [r7] < cmp r3, #0 < blt .L135 < 823 TERM = -1 %AND %RETURN %IF K < 10 823 TERM = -1 %AND %RETURN %IF K < 10 cmp r3, #9 | cmp w0, 9 bgt .L138 | bgt .L80 mvn r3, #0 | mov w0, -1 str r3, [r2, #8] | str w0, [x1, 8] pop {r4, r5, r6, r7, r8, | .L72: .L138: | .LDL10: .LDL15: < 824 K = SYM-'A' 824 K = SYM-'A' ldr r1, .L140 | ldr w0, [x1, 4] ldr r0, .L140+16 | sub w0, w0, #65 str r0, [r1] | str w0, [x19, 12] ldr r3, [r2, #4] < sub r3, r3, #65 < str r3, [r4, #4] < 825 %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0 825 %RETURN %IF K >= 0 %AND K < 26 %AND TERM = 0 cmp r3, #25 | cmp w0, 25 bls .L139 | bls .L81 .L131: | .L73: .L135: | .L77: ldr r3, [r2, #8] | ldr w0, [x1, 8] cmp r3, #0 | cbz w0, .L72 popeq {r4, r5, r6, r7, r8, | b .L77 b .L135 < .L141: < .align 2 < .L140: < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word 823 < .LFE238: .LFE238: .align 2 .align 2 PACKTRIPLE.35: PACKTRIPLE.35: .LFB239: .LFB239: 826 %FINISH 826 %FINISH add r0, r0, #2 < str r0, [r1] < 827 TERM = SYM 827 TERM = SYM ldr r3, [r2, #4] | ldr w0, [x1, 4] str r3, [r2, #8] | str w0, [x1, 8] 828 %END 828 %END > b .L72 > .L81: 829 %ROUTINE PACK TRIPLE 829 %ROUTINE PACK TRIPLE ldr r3, .L140 | stp x29, x30, [sp, -32]! mov r2, #828 | mov x29, sp str r2, [r3] | str x19, [sp, 16] @ Nested: function declared i | mov x19, x18 @ args = 0, pretend = 0, fram | ldr x0, [x18] @ frame_needed = 0, uses_anon | ldr w0, [x0, 8] push {r4, r5, r6, r7, r8, | tbnz w0, #31, .L83 mov r4, ip | .LDL11: 830 ->T1 %IF TERM < 0 830 ->T1 %IF TERM < 0 pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .L139: | ldr x21, [sp, 32] ldr r3, [ip, #8] | ldp x29, x30, [sp], 48 ldr r3, [r3, #8] | ret cmp r3, #0 | .L80: blt .L143 | .LDL14: .LDL16: < .LDL19: < 831 J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111 831 J = ((K<<5+K)<<1+K)<<4+K+1111; !K*1073+1111 ldr r3, [ip, #4] | ldr w1, [x18, 12] add r2, r3, r3, lsl #5 | add w0, w1, w1, lsl 5 add r2, r3, r2, lsl #1 | add w0, w1, w0, lsl 1 add r3, r3, r2, lsl #4 | add w0, w1, w0, lsl 4 add r3, r3, #1104 | add w0, w0, 1111 add r3, r3, #7 | str w0, [x18, 8] str r3, [ip] < 832 CODE SYM 832 CODE SYM ldr r3, .L150 < ldr r2, .L150+4 < str r2, [r3] < ldr r3, .L150+8 < ldr r2, .L150+12 < str r2, [r3] < bl CODESYM.36 bl CODESYM.36 .LVL87: | .LVL64: 833 ->T2 %IF TERM # 0 833 ->T2 %IF TERM # 0 ldr r3, .L150 | ldr x0, [x19] mov r2, #832 | ldr w0, [x0, 8] str r2, [r3] | cbnz w0, .L85 ldr r5, .L150+8 | .LDL12: ldr r6, .L150+12 < str r6, [r5] < ldr r3, [r4, #8] < ldr r3, [r3, #8] < cmp r3, #0 < bne .L145 < .LDL17: < 834 J = (K<<3+K)<<2+K+111+J; !J+K*37+111 834 J = (K<<3+K)<<2+K+111+J; !J+K*37+111 str r6, [r5] | ldp w1, w2, [x19, 8] ldr r3, [r4, #4] | add w0, w2, w2, lsl 3 add r2, r3, r3, lsl #3 | add w0, w2, w0, lsl 2 add r3, r3, r2, lsl #2 | add w0, w0, 111 add r3, r3, #111 | add w0, w1, w0 ldr r2, [r4] | str w0, [x19, 8] add r3, r2, r3 < str r3, [r4] < 835 CODE SYM 835 CODE SYM ldr r1, .L150 | mov x18, x19 ldr r3, .L150+16 < str r3, [r1] < mov ip, r4 < bl CODESYM.36 bl CODESYM.36 .LVL88: | .LVL65: 836 ->T3 %IF TERM # 0 836 ->T3 %IF TERM # 0 ldr r3, .L150+20 | ldr x0, [x19] str r3, [r1] | ldr w0, [x0, 8] ldr r5, .L150+8 | cbz w0, .L89 ldr r6, .L150+12 | .L86: str r6, [r5] | .LDL15: ldr r3, [r4, #8] < ldr r3, [r3, #8] < cmp r3, #0 < beq .L149 < .L146: < .LDL21: < 837 J = J+K+11 837 J = J+K+11 str r6, [r5] | ldp w0, w1, [x19, 8] ldr r3, [r4] | add w0, w0, w1 ldr r2, [r4, #4] | add w0, w0, 11 add r3, r3, r2 | str w0, [x19, 8] add r3, r3, #11 < str r3, [r4] < 838 CODE SYM 838 CODE SYM ldr r5, .L150 | mov x18, x19 ldr r3, .L150+48 < str r3, [r5] < mov ip, r4 < bl CODESYM.36 bl CODESYM.36 .LVL92: | .LVL68: 839 %RETURN 839 %RETURN ldr r3, .L150+52 | b .L82 str r3, [r5] | .L90: ldr r6, .L150+8 < ldr r7, .L150+12 < str r7, [r6] < pop {r4, r5, r6, r7, r8, < .L151: < .align 2 < .L150: < .word _imp_current_line < .word 830 < .word _imp_current_file < .word .LC6 < .word 834 < .word 835 < .word 845 < .word 846 < .word 847 < .word 841 < .word 842 < .word 843 < .word 837 < .word 838 < .word 839 < .LFE239: < .align 2 < TAGIF.12: < .LFB240: < 840 T1: J = ((K<<1+K)<<1+K)<<4-K+1; !K*111+1 840 T1: J = ((K<<1+K)<<1+K)<<4-K+1; !K*111+1 ldr r3, [ip, #4] | ldr w1, [x18, 12] add r2, r3, r3, lsl #1 | add w0, w1, w1, lsl 1 add r2, r3, r2, lsl #1 | add w0, w1, w0, lsl 1 rsb r3, r3, r2, lsl #4 | lsl w0, w0, 4 add r3, r3, #1 | sub w0, w0, w1 str r3, [ip] | add w0, w0, 1 ldr r3, .L150+56 | str w0, [x18, 8] str r3, [r5] < str r7, [r6] < 841 CODE SYM 841 CODE SYM bl CODESYM.36 bl CODESYM.36 .LVL90: | .LVL67: > .L85: 842 T2: %RETURN %IF TERM > 0 842 T2: %RETURN %IF TERM > 0 ldr r3, .L150 | ldr x0, [x19] ldr r2, .L150+36 | ldr w0, [x0, 8] str r2, [r3] | cmp w0, 0 ldr r3, .L150+8 | ble .L90 ldr r2, .L150+12 | .L82: str r2, [r3] | .LDL16: ldr r3, [r4, #8] < ldr r3, [r3, #8] < cmp r3, #0 < popgt {r4, r5, r6, r7, r8, < .LDL20: < 843 J = (K<<2+K)<<1+K+1+J; !J+K*11+1 843 J = (K<<2+K)<<1+K+1+J; !J+K*11+1 .L145: | ldp w1, w2, [x19, 8] ldr r3, .L150 | add w0, w2, w2, lsl 2 ldr r2, .L150+40 | add w0, w2, w0, lsl 1 str r2, [r3] | add w0, w0, 1 ldr r3, .L150+8 | add w0, w1, w0 ldr r2, .L150+12 | str w0, [x19, 8] str r2, [r3] < ldr r3, [r4, #4] < add r2, r3, r3, lsl #2 < add r3, r3, r2, lsl #1 < add r3, r3, #1 < ldr r2, [r4] < add r3, r2, r3 < str r3, [r4] < 844 CODE SYM 844 CODE SYM ldr r1, .L150 | mov x18, x19 ldr r3, .L150+44 < str r3, [r1] < mov ip, r4 < bl CODESYM.36 bl CODESYM.36 .LVL91: | .LVL69: > b .L86 > .LFE239: > .align 2 > TAGIF.12: > .LFB240: 845 T3: %RETURN %IF TERM > 0 845 T3: %RETURN %IF TERM > 0 ldr r3, [r4, #8] | ldr x0, [x19] ldr r3, [r3, #8] | ldr w0, [x0, 8] cmp r3, #0 | cmp w0, 0 popgt {r4, r5, r6, r7, r8, | bgt .L82 .LDL18: | .LDL13: mov r3, #844 < str r3, [r1] < ldr r3, .L150+8 < ldr r2, .L150+12 < str r2, [r3] < 846 J = J+K+1 846 J = J+K+1 ldr r3, .L150 | ldp w0, w1, [x19, 8] ldr r2, .L150+24 | add w0, w0, w1 str r2, [r3] | add w0, w0, 1 ldr r3, .L150+8 | str w0, [x19, 8] ldr r2, .L150+12 < str r2, [r3] < ldr r3, [r4] < ldr r2, [r4, #4] < add r3, r3, r2 < add r3, r3, #1 < str r3, [r4] < b .L146 < .L149: < 847 CODE SYM 847 CODE SYM ldr r5, .L150 | mov x18, x19 ldr r3, .L150+28 < str r3, [r5] < mov ip, r4 < bl CODESYM.36 bl CODESYM.36 .LVL89: | .LVL66: 848 %END 848 %END ldr r3, .L150+32 | b .L82 str r3, [r5] | .L83: ldr r6, .L150+8 < ldr r7, .L150+12 < str r7, [r6] < 849 K = SYM-'A' 849 K = SYM-'A' mov r3, #848 | ldr w2, [x18, 4] str r3, [r5] | sub w1, w2, #65 str r7, [r6] | str w1, [sp, 100] ldr r2, [ip, #4] < sub r3, r2, #65 < str r3, [sp, #4] < 850 %FALSE %UNLESS K >= 0 %AND K < 26 850 %FALSE %UNLESS K >= 0 %AND K < 26 pop {r4, r5, r6, r7, r8, | ldr x19, [sp, 16] .L143: | ldp x29, x30, [sp], 32 cmp r3, #25 | ret bls .L257 | .L89: mov r0, #0 | mov w0, 0 .L256: | cmp w1, 25 .LDL47: | bls .L206 > .L183: > .LDL41: 851 %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0 851 %FALSE %IF SYM = 'X' %AND CHAR(GETPOS)&128 # 0 ldr r3, .L281+8 | cmp w2, 88 ldr r2, .L281+12 | bne .L185 str r2, [r3] | adrp x0, .LANCHOR0+240 cmp r2, #88 | ldr w0, [x0, #:lo12:.LANC beq .L277 < .L259: < ldr r3, .L281+32 < ldr r0, [r3, #236] < bl CHAR.6 bl CHAR.6 .LVL184: | .LVL162: tst r0, #128 | mov w1, w0 movne r0, #0 | mov w0, 0 .L258: | tbz x1, 7, .L185 bne .L256 | ldp x19, x20, [sp, 16] b .L259 | b .L183 .L279: | .L185: > stp x21, x22, [sp, 32] > stp x23, x24, [sp, 48] > str x25, [sp, 64] 852 TERM = 0 852 TERM = 0 ldr r3, .L281+8 | str wzr, [x19, 8] ldr r1, .L281+16 < str r1, [r3] < mov r3, #0 < str r3, [r4, #8] < 853 PACK TRIPLE 853 PACK TRIPLE ldr r3, .L281 | str wzr, [sp, 96] ldr r2, .L281+4 | add x18, sp, 88 str r2, [r3] < mov r3, #0 < str r3, [sp] < mov ip, sp < bl PACKTRIPLE.35 bl PACKTRIPLE.35 .LVL183: | .LVL163: 854 TAG1 = J 854 TAG1 = J ldr r3, .L281+8 | ldr w0, [sp, 96] ldr r2, .L281+20 | str w0, [x19, 16] str r2, [r3] < ldr r3, [sp] < str r3, [r4, #16] < 855 %CYCLE 855 %CYCLE 856 J = 0 856 J = 0 movgt r5, #0 | mov w22, 0 > mov w20, w22 857 PACK TRIPLE %IF TERM <= 0 857 PACK TRIPLE %IF TERM <= 0 ldr r8, .L281 | add x21, sp, 88 ldr r7, .L281+4 | str w22, [sp, 96] mov r3, #0 | mov x18, x21 str r3, [sp] < mov ip, sp < bl PACKTRIPLE.35 bl PACKTRIPLE.35 .LVL185: | .LVL164: ldr r5, [sp] | ldr w20, [sp, 96] b .L261 | b .L187 .L280: | .L209: str r7, [r8] | ldr w0, [x19, 8] ldr r3, [r4, #8] | cmp w0, 0 cmp r3, #0 | ble .L208 ble .L279 | .L187: .L261: < 858 TAG2 = J 858 TAG2 = J ldr r9, .L281+8 | str w20, [x19, 12] ldr fp, .L281+24 < str fp, [r9] < str r5, [r4, #12] < 859 CODE SYM %WHILE TERM <= 0 859 CODE SYM %WHILE TERM <= 0 str r7, [r8] | ldr w1, [x19, 8] ldr r3, [r4, #8] | cmp w1, 0 cmp r3, #0 | bgt .L191 bgt .L265 | .L188: mov r6, sp | str w20, [sp, 96] .L262: | mov x18, x21 str r5, [sp] < mov ip, r6 < bl CODESYM.36 bl CODESYM.36 .LVL187: | .LVL166: ldr r5, [sp] | ldr w20, [sp, 96] .LDL49: | .LDL43: ldr r3, [r4, #8] | ldr w1, [x19, 8] cmp r3, #0 | cmp w1, 0 ble .L262 | ble .L188 .L265: | .L191: .LDL50: | .LDL44: 860 %EXIT %UNLESS TERM = QQ 860 %EXIT %UNLESS TERM = QQ ldr r10, .L281+28 | adrp x23, .LANCHOR1 b .L260 | add x23, x23, :lo12:.LANC .L277: | .LDL42: .LDL48: | ldr w0, [x23, 12] ldr r3, .L281+44 | cmp w0, w1 str r3, [r9] | bne .L209 ldr r2, [r10, #12] | .LDL45: cmp r2, r3 < bne .L280 < .LDL51: < 861 TYPE = 1; LOOKUP(0) 861 TYPE = 1; LOOKUP(0) str r7, [r8] | mov w24, 1 mov r3, #1 | str w24, [x19, 68] str r3, [r4, #68] | mov x18, x19 mov ip, r4 | mov w0, w22 mov r0, #0 < bl LOOKUP.32 bl LOOKUP.32 .LVL188: | .LVL167: 862 FAULT('U') %IF TYPE # 0 862 FAULT('U') %IF TYPE # 0 ldr r3, .L281+48 | mov w25, 85 str r3, [r9] | b .L186 ldr r3, [r4, #68] | .L208: cmp r3, #0 | ldr w0, [x19, 68] beq .L266 | cbz w0, .L192 mov ip, r4 | mov x18, x19 mov r0, #85 | mov w0, w25 bl FAULT.45 bl FAULT.45 .LVL189: | .LVL168: b .L266 | b .L192 .L278: | .L207: 863 TAG1 = VAL 863 TAG1 = VAL ldr r3, [r4, #64] | ldr w0, [x19, 64] str r3, [r4, #16] | str w0, [x19, 16] 864 TERM = 0; CODE SYM 864 TERM = 0; CODE SYM str r7, [r8] | str wzr, [x19, 8] mov r3, #0 | str w20, [sp, 96] str r3, [r4, #8] | mov x18, x21 str r5, [sp] < mov ip, sp < bl CODESYM.36 bl CODESYM.36 .LVL186: | .LVL165: 865 %REPEAT 865 %REPEAT mov r3, #864 | .L186: str r3, [r9] < .L260: < 866 GET SYM %IF TERM = ' ' 866 GET SYM %IF TERM = ' ' cmp r3, #32 | cmp w1, 32 beq .L278 | beq .L207 .L268: | ldp x19, x20, [sp, 16] mov ip, r4 | ldp x21, x22, [sp, 32] > ldp x23, x24, [sp, 48] > ldr x25, [sp, 64] > b .L183 > .L192: > mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL190: | .LVL169: b .L268 | 867 %TRUE .L282: | mov w0, 1 .align 2 | .L184: .L281: | mov w0, 1 .word _imp_current_file | ldp x19, x20, [sp, 16] .word .LC6 | ldp x21, x22, [sp, 32] .word _imp_current_line | ldp x23, x24, [sp, 48] .word 850 | ldr x25, [sp, 64] .word 851 | b .L183 .word 853 < .word 857 < .word .LANCHOR1 < .word .LANCHOR0 < .word 866 < .word 867 < .word 859 < .word 861 < .LFE237: .LFE237: .align 2 .align 2 TAGREF.13: TAGREF.13: .LFB233: .LFB233: 867 %TRUE < ldr r2, .L281+8 < ldr r1, .L281+36 < str r1, [r2] < mov r0, #1 < b .L256 < .L266: < 868 %END 868 %END ldr r3, .L281+8 < ldr r2, .L281+40 < str r2, [r3] < ldr r3, .L281 < ldr r2, .L281+4 < str r2, [r3] < 869 869 add sp, sp, #20 | ldp x29, x30, [sp], 112 @ sp needed | ret pop {r4, r5, r6, r7, r8, | .L206: .L257: | stp x19, x20, [sp, 16] mov r4, ip | mov x19, x18 870 %PREDICATE TAGIF 870 %PREDICATE TAGIF @ Nested: function declared i | stp x29, x30, [sp, -32]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | mov x19, x18 mov r4, ip | adrp x0, .LANCHOR0+240 871 %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND C | ldr w20, [x0, #:lo12:.LAN ldr r3, [ip, #4] | mov w0, w20 cmp r3, #73 < beq .L161 < mov r0, #0 < ldr r3, .L164+16 < ldr r5, [r3, #236] < mov r0, r5 < bl CHAR.6 bl CHAR.6 .LVL93: | .LVL70: cmp r0, #70 | mov w1, w0 beq .L162 | mov w0, 0 mov r0, #0 | cmp w1, 70 pop {r4, r5, r6, r7, r8, | bne .L91 .L162: | add w0, w20, 1 add r0, r5, #1 < bl CHAR.6 bl CHAR.6 .LVL94: | .LVL71: cmp r0, #32 | mov w1, w0 beq .L163 | mov w0, 0 mov r0, #0 | cmp w1, 32 pop {r4, r5, r6, r7, r8, | beq .L100 .L163: | .L91: .LDL22: | 871 %FALSE %UNLESS SYM='I' %AND CHAR(GETPOS)='F' %AND C > ldr w1, [x18, 4] > mov w0, 0 > cmp w1, 73 > bne .L97 > .LDL17: 872 GETPOS = GETPOS+2 872 GETPOS = GETPOS+2 add r5, r5, #2 | add w20, w20, 2 ldr r3, .L164+16 | adrp x0, .LANCHOR0+240 str r5, [r3, #236] | str w20, [x0, #:lo12:.LAN 873 GET SYM 873 GET SYM ldr r3, .L164 | mov x18, x19 ldr r2, .L164+4 < str r2, [r3] < ldr r3, .L164+8 < ldr r2, .L164+12 < str r2, [r3] < ldr r6, .L164+8 < ldr r7, .L164+12 < str r7, [r6] < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL95: | .LVL72: 874 %TRUE 874 %TRUE ldr r5, .L164 | mov w0, 1 ldr r3, .L164+20 | b .L91 str r3, [r5] | .L97: mov r0, #1 | ret pop {r4, r5, r6, r7, r8, < .L165: < .align 2 < .L164: < .word _imp_current_line < .word 871 < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word 873 < .word 874 < .LFE240: .LFE240: .align 2 .align 2 QUEUE.9: QUEUE.9: .LVL96: | .LVL73: .LFB241: .LFB241: 875 %END 875 %END ldr r3, .L164+24 < str r3, [r5] < str r7, [r6] < 876 876 bx lr | ldp x19, x20, [sp, 16] .L161: | ldp x29, x30, [sp], 32 > ret > .L100: 877 %ROUTINE QUEUE(%INTEGER K) 877 %ROUTINE QUEUE(%INTEGER K) @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -32]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, lr} | stp x19, x20, [sp, 16] mov r1, r0 < 878 !! INTEGER(QLIM) = K 878 !! INTEGER(QLIM) = K 879 set INTEGER(QLIM, K) 879 set INTEGER(QLIM, K) ldr r5, .L168 | adrp x19, .LANCHOR0 ldr r4, [r5, #240] | add x19, x19, :lo12:.LANC mov r0, r4 | ldr w20, [x19, 244] .LVL97: | mov w1, w0 > mov w0, w20 > .LVL74: bl SETINTEGER.8 bl SETINTEGER.8 .LVL98: | .LVL75: 880 !! QLIM = QLIM+1; %MONITOR 21 %IF QLIM = DEFMIN 880 !! QLIM = QLIM+1; %MONITOR 21 %IF QLIM = DEFMIN 881 QLIM = QLIM+1; !{}%signal 2,1 %IF QLIM = DEFMIN 881 QLIM = QLIM+1; !{}%signal 2,1 %IF QLIM = DEFMIN add r4, r4, #1 | add w20, w20, 1 str r4, [r5, #240] | str w20, [x19, 244] 882 %END 882 %END ldr r3, .L168+4 < ldr r2, .L168+8 < str r2, [r3] < 883 883 ldr r3, .L168+12 < ldr r2, .L168+16 < str r2, [r3] < 884 %ROUTINE GET EXP 884 %ROUTINE GET EXP pop {r4, r5, r6, pc} | ldp x19, x20, [sp, 16] .L169: | ldp x29, x30, [sp], 32 .align 2 | ret .L168: < .word .LANCHOR0 < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 882 < .LFE241: .LFE241: .align 2 .align 2 SCANARG.31: SCANARG.31: .LFB246: .LFB246: @ Nested: function declared i | stp x29, x30, [sp, -64]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r3, r4, r5, r6, r7, | stp x21, x22, [sp, 32] mov r4, ip | mov x19, x18 885 %INTEGER I,NBASE 885 %INTEGER I,NBASE 886 886 887 NBASE = NP 887 NBASE = NP ldr r3, .L389 | adrp x0, .LANCHOR0+236 ldr r2, .L389+4 | ldr w21, [x0, #:lo12:.LAN str r2, [r3] | .LVL173: ldr r3, .L389+8 < ldr r5, [r3, #232] < .LVL194: < 888 ->E3 %IF PEND # 0 888 ->E3 %IF PEND # 0 ldr r3, [ip] | ldr w0, [x18] cmp r3, #0 | cbz w0, .L219 bne .L294 | .L220: .L295: < .L296: < .LDL54: < 889 E1: NEST(0) %WHILE S('(') 889 E1: NEST(0) %WHILE S('(') ldr r3, .L389+12 | .LDL49: mov r2, #888 | mov w20, 40 str r2, [r3] | .L224: mov r6, #40 | .LDL74: mov r7, #0 | mov x18, x19 .L297: | mov w0, w20 mov ip, r4 < mov r0, r6 < bl S.33 bl S.33 .LVL195: | .LVL222: cmp r0, #0 | cbnz w0, .L316 bne .L374 | mov w0, 0 mov r0, r7 < bl NEST.0 bl NEST.0 .LVL196: | .LVL223: b .L297 | b .L224 .L374: | .LVL224: .LDL55: | .L308: 890 NEST(-20) %IF S('#') 890 NEST(-20) %IF S('#') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+16 | mov w0, 35 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #35 < bl S.33 bl S.33 .LVL197: | .LVL178: cmp r0, #0 | cbz w0, .L303 beq .L375 | .L222: .L299: | mov w0, -20 mvn r0, #19 < bl NEST.0 bl NEST.0 .LVL207: | .LVL181: b .L299 | b .L222 .L376: | .L231: 891 %IF TAG %START 891 %IF TAG %START ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+20 < str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < bl TAG.34 bl TAG.34 .LVL198: | .LVL179: cmp r0, #0 | cbz w0, .L220 bne .L376 | .LDL50: .L294: < .LDL57: < 892 E3: TAGREF %IF PEND >= 0 892 E3: TAGREF %IF PEND >= 0 ldr r3, .L389+12 | ldr w0, [x19] ldr r2, .L389+24 | tbnz w0, #31, .L227 str r2, [r3] | mov x18, x19 ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < ldr r3, [r4] < cmp r3, #0 < blt .L303 < mov ip, r4 < bl TAGREF.13 bl TAGREF.13 .LVL199: | .LVL174: .L303: | .L227: 893 PEND = 0 893 PEND = 0 ldr r3, .L389+12 | str wzr, [x19] mov r2, #892 < str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov r3, #0 < str r3, [r4] < 894 %IF TYPE = REG %AND TERM = '(' %START 894 %IF TYPE = REG %AND TERM = '(' %START ldr r3, [r4, #68] | ldr w0, [x19, 68] cmp r3, #128 | cmp w0, 128 bne .L304 | bne .L228 ldr r3, [r4, #8] | ldr w0, [x19, 8] cmp r3, #40 | cmp w0, 40 bne .L304 | bne .L229 895 TYPE = 0 %IF SAVE&1 = 0; VAL = VAL+VAL+SAVE 895 TYPE = 0 %IF SAVE&1 = 0; VAL = VAL+VAL+SAVE ldr r3, .L389+12 | adrp x0, .LANCHOR1+4 ldr r2, .L389+28 | ldr w1, [x0, #:lo12:.LANC str r2, [r3] | tbnz x1, 0, .L230 ldr r3, .L389 | str wzr, [x19, 68] ldr r2, .L389+4 | .L230: str r2, [r3] | ldr w0, [x19, 64] ldr r3, .L389+32 | add w0, w1, w0, lsl 1 ldr r3, [r3, #4] | str w0, [x19, 64] tst r3, #1 | .L228: moveq r2, #0 < streq r2, [r4, #68] < .L305: < ldr r2, [r4, #64] < add r3, r3, r2, lsl #1 < str r3, [r4, #64] < 896 %FINISH 896 %FINISH 897 FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0 897 FAULT('I') %AND TYPE=0 %IF TYPE&OPMASK # 0 .L304: | ldr w0, [x19, 68] ldr r3, [r4, #68] | tst w0, 61440 tst r3, #61440 | beq .L231 bne .L377 | mov x18, x19 .L306: | mov w0, 73 mov ip, r4 < mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL209: | .LVL175: mov r3, #0 | str wzr, [x19, 68] str r3, [r4, #68] < b .L306 < .L378: < 898 %IF MODE # 0 %START 898 %IF MODE # 0 %START ldr r3, .L389+12 | ldr w0, [x19, 20] ldr r2, .L389+36 | cbz w0, .L235 str r2, [r3] | .L281: ldr r3, [r4, #20] | ldr w0, [x19, 20] cmp r3, #0 | cbnz w0, .L281 beq .L307 | b .L236 > .LFE242: > .align 2 > GETINST.14: > .LFB244: 899 %IF TYPE®XMASK # 0 %START 899 %IF TYPE®XMASK # 0 %START ldr r3, .L389 | .L232: ldr r2, .L389+4 | .L234: str r2, [r3] | .L235: ldr r3, [r4, #68] | ldr w0, [x19, 68] tst r3, #144 | mov w1, 144 beq .L307 | tst w0, w1 > beq .L235 900 I = TYPE&15; I = VAL %IF I = 0 900 I = TYPE&15; I = VAL %IF I = 0 .LVL200: | .LVL182: ands r3, r3, #15 | ands w0, w0, 15 .LVL201: | .LVL183: ldreq r3, [r4, #64] | bne .L233 .LVL202: | ldr w0, [x19, 64] .L308: | .LVL184: > .L233: 901 DUSE = DUSE+1 %IF I = DREG 901 DUSE = DUSE+1 %IF I = DREG ldr r2, [r4, #28] | ldr w1, [x19, 28] cmp r3, r2 | cmp w0, w1 ldreq r3, [r4, #24] | bne .L235 .LVL203: | ldr w0, [x19, 24] addeq r3, r3, #1 | .LVL185: streq r3, [r4, #24] | add w0, w0, 1 .LVL204: | str w0, [x19, 24] .L307: | b .L235 > .LVL186: > .L302: 902 %FINISH 902 %FINISH 903 %FINISH 903 %FINISH 904 %IF TERM = '(' %START 904 %IF TERM = '(' %START ldr r3, [r4, #8] | ldr w0, [x19, 8] cmp r3, #40 | cmp w0, 40 beq .L378 | beq .L302 .L309: | .L236: .LDL56: | .LDL48: 905 GET SYM 905 GET SYM mov ip, r4 | mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL210: | .LVL187: 906 I = TYPE&31 906 I = TYPE&31 ldr r8, .L389+12 | ldr w20, [x19, 68] ldr r3, .L389+48 | and w22, w20, 31 str r3, [r8] | .LVL188: ldr r9, [r4, #68] < and fp, r9, #31 < .LVL211: < 907 QUEUE(TYPE-I); QUEUE(VAL) 907 QUEUE(TYPE-I); QUEUE(VAL) ldr r6, .L389 | and w0, w20, -32 ldr r7, .L389+4 < str r7, [r6] < bic r0, r9, #31 < bl QUEUE.9 bl QUEUE.9 .LVL212: | .LVL189: ldr r0, [r4, #64] | ldr w0, [x19, 64] bl QUEUE.9 bl QUEUE.9 .LVL213: | .LVL190: 908 NEST(-21); NEST(0) 908 NEST(-21); NEST(0) ldr r10, .L389+52 | mov w0, -21 str r10, [r8] < str r10, [r8] < str r7, [r6] < mvn r0, #20 < bl NEST.0 bl NEST.0 .LVL214: | .LVL191: mov r0, #0 | mov w0, 0 bl NEST.0 bl NEST.0 .LVL215: | .LVL192: 909 %IF I # 0 %START 909 %IF I # 0 %START mov r10, #908 | cbz w22, .L219 str r10, [r8] < str r7, [r6] < str r10, [r8] < str r7, [r6] < cmp fp, #0 < beq .L295 < 910 QUEUE(REG); QUEUE(I&15) 910 QUEUE(REG); QUEUE(I&15) str r7, [r6] | mov w0, 128 mov r0, #128 < bl QUEUE.9 bl QUEUE.9 .LVL216: | .LVL193: and r0, r9, #15 | and w0, w20, 15 bl QUEUE.9 bl QUEUE.9 .LVL217: | .LVL194: 911 NEST(-1) 911 NEST(-1) mov r6, r8 | mov w0, -1 ldr r7, .L389+56 < str r7, [r8] < str r7, [r8] < ldr r7, .L389 < ldr r8, .L389+4 < str r8, [r7] < mvn r0, #0 < bl NEST.0 bl NEST.0 .LVL218: | .LVL195: > b .L219 > .LVL196: > .L225: 912 %FINISH 912 %FINISH ldr r3, .L389+60 < str r3, [r6] < str r8, [r7] < 913 ->E1 913 ->E1 b .L295 < .LVL219: < .L301: < 914 %FINISH 914 %FINISH 915 %finish %ELSE %IF '0' <= SYM <= '9' %START 915 %finish %ELSE %IF '0' <= SYM <= '9' %START ldr r3, [r4, #4] | ldr w0, [x19, 4] sub r2, r3, #48 | sub w1, w0, #48 cmp r2, #9 | cmp w1, 9 bhi .L301 | bhi .L225 .LDL59: | .LDL52: 916 TYPE = 0; VAL = SYM-'0' 916 TYPE = 0; VAL = SYM-'0' mov r2, #0 | sub w0, w0, #48 str r2, [r4, #68] | stp w0, wzr, [x19, 64] sub r3, r3, #48 < str r3, [r4, #64] < 917 %CYCLE 917 %CYCLE 918 SYM = CHAR(GETPOS)-'0' 918 SYM = CHAR(GETPOS)-'0' ldr r9, .L389+8 | adrp x22, .LANCHOR0 .L312: | add x22, x22, :lo12:.LANC ldr r6, [r9, #236] | .L239: mov r0, r6 | ldr w20, [x22, 240] > mov w0, w20 bl CHAR.6 bl CHAR.6 .LVL208: | .LVL180: sub r0, r0, #48 | sub w0, w0, #48 str r0, [r4, #4] | str w0, [x19, 4] 919 %EXIT %UNLESS 0 <= SYM <= 9 919 %EXIT %UNLESS 0 <= SYM <= 9 ldr fp, .L389+12 | cmp w0, 9 ldr r10, .L389+44 | bgt .L240 ldr r8, .L389 | .LDL51: ldr r7, .L389+4 | .LDL54: str r10, [fp] < str r7, [r8] < cmp r0, #9 < bgt .L313 < .LDL58: < .LDL61: < 920 VAL = (VAL<<2+VAL)<<1+SYM 920 VAL = (VAL<<2+VAL)<<1+SYM str r7, [r8] | ldr w1, [x19, 64] ldr r3, [r4, #64] | add w1, w1, w1, lsl 2 add r3, r3, r3, lsl #2 | add w1, w0, w1, lsl 1 add r0, r0, r3, lsl #1 | str w1, [x19, 64] str r0, [r4, #64] < 921 GETPOS = GETPOS+1 921 GETPOS = GETPOS+1 add r6, r6, #1 | add w20, w20, 1 str r6, [r9, #236] | str w20, [x22, 240] 922 %REPEAT 922 %REPEAT b .L312 | b .L239 .L377: | .L303: 923 GET SYM 923 GET SYM mov ip, r4 | mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL222: | .LVL199: 924 %finish %ELSE %IF SYM = 'X' %START 924 %finish %ELSE %IF SYM = 'X' %START cmp r3, #88 | cmp w0, 88 beq .L379 | beq .L304 .LDL60: | .LDL53: ldr r3, .L389+12 | b .L236 ldr r2, .L389+72 | .L304: str r2, [r3] | str x23, [sp, 48] b .L309 < .L379: < 925 TYPE = 0; VAL = 0 925 TYPE = 0; VAL = 0 mov r3, #0 | stp wzr, wzr, [x19, 64] str r3, [r4, #68] < str r3, [r4, #64] < 926 %CYCLE 926 %CYCLE 927 SYM = CHAR(GETPOS)-128 927 SYM = CHAR(GETPOS)-128 ldr r9, .L389+8 | adrp x22, .LANCHOR0 b .L316 | add x22, x22, :lo12:.LANC .L317: | ldr w20, [x22, 240] ldr r6, [r9, #236] | mov w0, w20 mov r0, r6 < bl CHAR.6 bl CHAR.6 .LVL253: | .LVL234: sub r3, r0, #128 | sub w1, w0, #128 str r3, [r4, #4] | str w1, [x19, 4] 928 %EXIT %IF SYM < 0 928 %EXIT %IF SYM < 0 ldr r10, .L389+12 | .LDL55: ldr fp, .L389+76 | tbnz w1, #31, .L244 ldr r8, .L389 | .LDL77: ldr r7, .L389+4 < .LDL62: < str fp, [r10] < str r7, [r8] < cmp r3, #0 < blt .L317 < .LDL83: < 929 SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CAS 929 SYM = SYM-32 %IF SYM >= 96; !ENSURE UPPER-CAS str r7, [r8] | cmp w1, 95 cmp r3, #95 | ble .L317 subgt r0, r0, #160 | sub w1, w0, #160 strgt r0, [r4, #4] | str w1, [x19, 4] .L318: < 930 %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' % 930 %IF '0' <= SYM <= '9' %OR 'A' <= SYM <= 'F' % ldr r3, [r4, #4] | cmp w1, 57 cmp r3, #57 | bgt .L247 ble .L320 | .L247: .L321: | sub w0, w1, #65 sub r2, r3, #65 | cmp w0, 5 cmp r2, #5 | bls .L249 bls .L322 | .LDL78: .LDL84: < 931 VAL = VAL<<4+SYM-'0' 931 VAL = VAL<<4+SYM-'0' ldr r2, [r4, #64] | ldr w0, [x19, 64] add r3, r3, r2, lsl #4 | add w0, w1, w0, lsl 4 ldr r3, .L389+116 | sub w0, w0, #48 str r3, [r10] | str w0, [x19, 64] ldr r2, [r4, #64] | ldr w0, [x19, 64] add r3, r3, r2, lsl #4 | add w0, w1, w0, lsl 4 sub r3, r3, #48 < str r3, [r4, #64] < 932 VAL = VAL-7 %IF SYM >= 'A' 932 VAL = VAL-7 %IF SYM >= 'A' sub r3, r3, #55 | b .L250 str r3, [r4, #64] | .L241: .L323: | sub w0, w0, #55 b .L323 | str w0, [x19, 64] .L390: | .L250: .align 2 < .L389: < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word _imp_current_line < .word 889 < .word 890 < .word 891 < .word 894 < .word .LANCHOR1 < .word 897 < .word 959 < .word 918 < .word 905 < .word 907 < .word 910 < .word 911 < .word 939 < .word 941 < .word 923 < .word 927 < .word 949 < .word 962 < .word 969 < .word 970 < .word 971 < .word 973 < .word 974 < .word 975 < .word 982 < .word 930 < .LFE242: < .align 2 < GETINST.14: < .LFB244: < 933 %finish %ELSE FAULT('H') 933 %finish %ELSE FAULT('H') mov ip, r4 | mov w23, 72 mov r0, #72 | b .L243 > .L244: > mov x18, x19 > mov w0, w23 bl FAULT.45 bl FAULT.45 .LVL254: | .LVL235: b .L323 | b .L250 .L320: | .L229: 934 GETPOS = GETPOS+1 934 GETPOS = GETPOS+1 add r6, r6, #1 | add w20, w20, 1 str r6, [r9, #236] | str w20, [x22, 240] 935 %REPEAT 935 %REPEAT .L316: | .L243: 936 GET SYM 936 GET SYM mov ip, r4 | mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL223: | .LVL200: 937 %finish %ELSE %IF SYM&128 # 0 %START 937 %finish %ELSE %IF SYM&128 # 0 %START tst r3, #128 | tbz x0, 7, .L241 beq .L314 | ldr x23, [sp, 48] ldr r3, .L389+12 | b .L236 mov r2, #936 | .L317: str r2, [r3] | .L245: b .L309 | .LDL56: .L314: < .LDL63: < 938 TYPE = 0; VAL = SYM-128 938 TYPE = 0; VAL = SYM-128 mov r2, #0 | sub w0, w0, #128 str r2, [r4, #68] | stp w0, wzr, [x19, 64] sub r3, r3, #128 < str r3, [r4, #64] < 939 GET SYM 939 GET SYM ldr r6, .L389 | mov x18, x19 ldr r7, .L389+4 < str r7, [r6] < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL220: | .LVL197: 940 %IF MODE >= 0 %AND SYM&128 # 0 %START 940 %IF MODE >= 0 %AND SYM&128 # 0 %START ldr r3, .L389+12 | ldr w0, [x19, 20] ldr r2, .L389+64 | tbnz w0, #31, .L236 str r2, [r3] | ldr w1, [x19, 4] ldr r3, [r4, #20] | tbz x1, 7, .L236 cmp r3, #0 < blt .L309 < ldr r3, [r4, #4] < tst r3, #128 < beq .L309 < 941 VAL = VAL<<8+SYM-128; GET SYM 941 VAL = VAL<<8+SYM-128; GET SYM str r7, [r6] | ldr w0, [x19, 64] ldr r2, [r4, #64] | add w0, w1, w0, lsl 8 add r3, r3, r2, lsl #8 | sub w0, w0, #128 sub r3, r3, #128 | str w0, [x19, 64] str r3, [r4, #64] | mov x18, x19 mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL221: | .LVL198: > b .L236 > .L240: 942 %FINISH 942 %FINISH ldr r2, .L389+12 < ldr r1, .L389+68 < str r1, [r2] < 943 %finish %ELSE %IF S('.') %START 943 %finish %ELSE %IF S('.') %START b .L309 | mov x18, x19 .L313: | mov w0, 46 mov ip, r4 < mov r0, #46 < bl S.33 bl S.33 .LVL224: | .LVL201: cmp r0, #0 | cbnz w0, .L305 bne .L380 | .LDL58: .LDL65: < 944 ->ERR %IF %NOT TAG 944 ->ERR %IF %NOT TAG mov ip, r4 | mov x18, x19 bl TAG.34 bl TAG.34 .LVL225: | .LVL202: cmp r0, #0 | cbz w0, .L255 beq .L328 | .LDL57: .LDL64: < 945 TYPE = 0; VAL = TAG1 945 TYPE = 0; VAL = TAG1 ldr r3, .L389+12 | ldr w0, [x19, 16] mov r2, #944 | stp w0, wzr, [x19, 64] str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov r3, #0 < str r3, [r4, #68] < ldr r3, [r4, #16] < str r3, [r4, #64] < 946 %finish %ELSE %IF S('*') %START 946 %finish %ELSE %IF S('*') %START b .L309 | b .L236 .L380: | .L305: mov ip, r4 | mov x18, x19 mov r0, #42 | mov w0, 42 bl S.33 bl S.33 .LVL226: | .LVL203: cmp r0, #0 | cbnz w0, .L253 bne .L326 | .LDL59: .LDL66: < 947 TYPE = LOCTYPE&63; VAL = LOC 947 TYPE = LOCTYPE&63; VAL = LOC ldr r3, [r4, #72] | ldp w0, w1, [x19, 72] and r3, r3, #63 | and w0, w0, 63 str r3, [r4, #68] | stp w1, w0, [x19, 64] ldr r3, [r4, #76] < str r3, [r4, #64] < 948 %IF SYM = 'L' %START; !FOR NOW 948 %IF SYM = 'L' %START; !FOR NOW ldr r3, .L389 | ldr w0, [x19, 4] ldr r2, .L389+4 | cmp w0, 76 str r2, [r3] | bne .L236 ldr r3, [r4, #4] < cmp r3, #76 < bne .L309 < 949 TYPE = 0; VAL = LIST %IF TAG 949 TYPE = 0; VAL = LIST %IF TAG mov r3, #0 | str wzr, [x19, 68] str r3, [r4, #68] | mov x18, x19 mov ip, r4 < bl TAG.34 bl TAG.34 .LVL227: | .LVL204: cmp r0, #0 | cbnz w0, .L236 ldreq r3, .L389+32 | adrp x0, .LANCHOR1+16 ldreq r3, [r3, #16] | ldr w0, [x0, #:lo12:.LANC streq r3, [r4, #64] | str w0, [x19, 64] b .L309 | b .L236 .L326: | .L253: 950 %FINISH 950 %FINISH ldr r3, .L389+12 < ldr r2, .L389+80 < str r2, [r3] < 951 %finish %ELSE %IF SYM = '-' %START 951 %finish %ELSE %IF SYM = '-' %START ldr r3, [r4, #4] | ldr w0, [x19, 4] cmp r3, #45 | cmp w0, 45 beq .L381 | beq .L306 .LDL67: | .LDL60: 952 TYPE = 0; VAL = 0 952 TYPE = 0; VAL = 0 mov r3, #0 | stp wzr, wzr, [x19, 64] str r3, [r4, #68] < str r3, [r4, #64] < 953 %finish %ELSE %IF SYM = '\' %START 953 %finish %ELSE %IF SYM = '\' %START cmp r3, #92 | cmp w0, 92 bne .L328 | beq .L307 b .L309 | .L255: .L333: | .LDL61: > .LDL62: > b .L236 > .L307: 954 TYPE = 0; VAL = \0 954 TYPE = 0; VAL = \0 mov r3, #0 | mov w0, -1 str r3, [r4, #68] | stp w0, wzr, [x19, 64] mvn r3, #0 < str r3, [r4, #64] < 955 %finish %ELSE ->ERR 955 %finish %ELSE ->ERR b .L309 | b .L236 .L381: | .L260: 956 QUEUE(TYPE); QUEUE(VAL) 956 QUEUE(TYPE); QUEUE(VAL) ldr r0, [r4, #68] | ldr w0, [x19, 68] bl QUEUE.9 bl QUEUE.9 .LVL205: | .LVL176: ldr r0, [r4, #64] | ldr w0, [x19, 64] bl QUEUE.9 bl QUEUE.9 .LVL206: | .LVL177: 957 957 ldr r8, .L389+12 < mov r9, #956 < str r9, [r8] < ldr r6, .L389 < ldr r7, .L389+4 < str r7, [r6] < str r9, [r8] < str r7, [r6] < 958 %WHILE NP # NBASE %CYCLE 958 %WHILE NP # NBASE %CYCLE ldr r3, .L389+8 | adrp x0, .LANCHOR0+236 ldr r0, [r3, #232] | ldr w0, [x0, #:lo12:.LANC cmp r0, r5 | cmp w0, w21 beq .L332 | beq .L259 cmp r0, r5 | cmp w0, w21 beq .L332 | beq .L259 .L335: | .L262: 959 %IF INTEGER(NP) < 0 %START 959 %IF INTEGER(NP) < 0 %START bl INTEGER.39 bl INTEGER.39 .LVL230: | .LVL207: cmp r0, #0 | tbnz w0, #31, .L260 blt .L333 | .LDL65: .LDL70: < 960 QUEUE(INTEGER(NP)) 960 QUEUE(INTEGER(NP)) mov r9, r8 | adrp x20, .LANCHOR0 ldr r10, .L389+40 | add x20, x20, :lo12:.LANC mov r8, r6 | ldr w0, [x20, 236] mov r6, r3 < b .L335 < .L375: < ldr r0, [r6, #232] < bl INTEGER.39 bl INTEGER.39 .LVL228: | .LVL205: bl QUEUE.9 bl QUEUE.9 .LVL229: | .LVL206: str r10, [r9] < str r7, [r8] < 961 %finish %ELSE %START 961 %finish %ELSE %START mov r3, #960 | .L261: str r3, [r9] | .LDL63: str r7, [r8] < .L334: < .LDL68: < 962 %EXIT %IF %NOT S(')') 962 %EXIT %IF %NOT S(')') mov ip, r4 | mov w22, 41 mov r0, #41 | b .L262 > .L316: > mov x18, x19 > mov w0, w22 bl S.33 bl S.33 .LVL231: | .LVL208: cmp r0, #0 | cbnz w0, .L261 bne .L334 | .L259: .L332: < 963 %FINISH 963 %FINISH ldr r3, .L389+84 < str r3, [r9] < str r7, [r8] < 964 NP = NP+1 964 NP = NP+1 ldr r0, [r6, #232] | ldr w0, [x20, 236] add r0, r0, #1 | add w0, w0, 1 str r0, [r6, #232] | str w0, [x20, 236] 965 %REPEAT 965 %REPEAT .LDL69: | .LDL64: 966 966 967 I = 1 967 I = 1 .LVL232: | .LVL209: mov r6, #1 | mov w20, 1 mov r6, #1 | mov w20, 1 mov r6, #1 | mov w20, 1 mov r6, #1 | mov w20, 1 mov r6, #1 | mov w20, 1 mov r6, #1 | mov w20, 1 968 NEST(-1) %AND ->E8 %IF S('+') 968 NEST(-1) %AND ->E8 %IF S('+') ldr r3, .L389 | mov x18, x19 ldr r2, .L389+4 | mov w0, 43 str r2, [r3] < mov ip, r4 < mov r0, #43 < bl S.33 bl S.33 .LVL233: | .LVL210: subs r6, r0, #0 | mov w20, w0 beq .L336 | cbz w0, .L263 .LDL71: | .LDL66: mvn r0, #0 | mov w0, -1 bl NEST.0 bl NEST.0 .LVL243: | .LVL220: .L339: | .L266: 969 NEST(-2) %AND ->E8 %IF S('-') 969 NEST(-2) %AND ->E8 %IF S('-') ldr r3, .L389+12 | mov x18, x19 mov r2, #968 | mov w0, 45 str r2, [r3] < mov ip, r4 < mov r0, #45 < bl S.33 bl S.33 .LVL234: | .LVL211: subs r6, r0, #0 | mov w20, w0 beq .L382 | cbz w0, .L308 .LDL72: | .LDL67: mvn r0, #1 | mov w0, -2 bl NEST.0 bl NEST.0 .LVL245: | .LVL225: b .L339 | b .L266 .L383: | .L309: 970 NEST(-3) %AND ->E9 %IF S('&') 970 NEST(-3) %AND ->E9 %IF S('&') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+88 | mov w0, 38 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #38 < bl S.33 bl S.33 .LVL235: | .LVL212: cmp r0, #0 | cbz w0, .L309 beq .L383 | .LDL68: .LDL73: | mov w0, -3 mvn r0, #2 < bl NEST.0 bl NEST.0 .LVL246: | .LVL226: b .L339 | b .L266 .L384: | .L310: 971 NEST(-4) %AND ->E9 %IF S('!') 971 NEST(-4) %AND ->E9 %IF S('!') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+92 | mov w0, 33 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #33 < bl S.33 bl S.33 .LVL236: | .LVL213: cmp r0, #0 | cbz w0, .L310 beq .L384 | .LDL69: .LDL74: | mov w0, -4 mvn r0, #3 < bl NEST.0 bl NEST.0 .LVL247: | .LVL227: b .L339 | b .L266 .L385: | .L311: 972 NEST(-5) %AND ->E9 %IF S('\') 972 NEST(-5) %AND ->E9 %IF S('\') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+96 | mov w0, 92 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #92 < bl S.33 bl S.33 .LVL237: | .LVL214: cmp r0, #0 | cbz w0, .L311 beq .L385 | .LDL70: .LDL75: | mov w0, -5 mvn r0, #4 < bl NEST.0 bl NEST.0 .LVL248: | .LVL228: b .L339 | b .L266 .L386: | .L312: 973 NEST(-6) %AND ->E9 %IF SS('<') 973 NEST(-6) %AND ->E9 %IF SS('<') ldr r3, .L389+12 | mov x18, x19 mov r2, #972 | mov w0, 60 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #60 < bl SS.17 bl SS.17 .LVL238: | .LVL215: cmp r0, #0 | cbz w0, .L312 beq .L386 | .LDL71: .LDL76: | mov w0, -6 mvn r0, #5 < bl NEST.0 bl NEST.0 .LVL249: | .LVL229: b .L339 | b .L266 .L387: | .L313: 974 NEST(-7) %AND ->E9 %IF SS('>') 974 NEST(-7) %AND ->E9 %IF SS('>') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+100 | mov w0, 62 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #62 < bl SS.17 bl SS.17 .LVL239: | .LVL216: cmp r0, #0 | cbz w0, .L313 beq .L387 | .LDL72: .LDL77: | mov w0, -7 mvn r0, #6 < bl NEST.0 bl NEST.0 .LVL250: | .LVL230: b .L339 | b .L266 .L388: | .L314: 975 NEST(-8) %AND ->E9 %IF S('_') 975 NEST(-8) %AND ->E9 %IF S('_') ldr r3, .L389+12 | mov x18, x19 ldr r2, .L389+104 | mov w0, 95 str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < mov ip, r4 < mov r0, #95 < bl S.33 bl S.33 .LVL240: | .LVL217: cmp r0, #0 | cbz w0, .L314 beq .L388 | .LDL73: .LDL78: | mov w0, -8 mvn r0, #7 < bl NEST.0 bl NEST.0 .LVL251: | .LVL231: b .L339 | b .L266 .LVL252: | .LVL232: .L322: | .L315: 976 %RETURN %IF NP = NBASE 976 %RETURN %IF NP = NBASE ldr r3, .L389+12 | adrp x0, .LANCHOR0+236 ldr r2, .L389+108 | ldr w0, [x0, #:lo12:.LANC str r2, [r3] | cmp w0, w21 ldr r3, .L389 | bne .L255 ldr r2, .L389+4 < str r2, [r3] < ldr r3, .L389+8 < ldr r3, [r3, #232] < cmp r3, r5 < popeq {r3, r4, r5, r6, r7, < .LVL241: < .L328: < .LDL79: < .LDL80: < 977 ERR:NP = NBASE 977 ERR:NP = NBASE ldr r3, .L389+12 | adrp x0, .LANCHOR0+236 mov r2, #976 | str w21, [x0, #:lo12:.LAN str r2, [r3] < ldr r3, .L389 < ldr r2, .L389+4 < str r2, [r3] < ldr r3, .L389+8 < str r5, [r3, #232] < 978 !! %MONITOR 19 978 !! %MONITOR 19 979 979 980 E8: I = 0 980 E8: I = 0 mov r6, #0 | mov w20, 0 b .L339 | b .L266 .LVL242: | .L306: .L336: < 981 E9: ->E1 %UNLESS MODE = 2 %AND NP+1 = NBASE 981 E9: ->E1 %UNLESS MODE = 2 %AND NP+1 = NBASE ldr r3, [r4, #20] | ldr w0, [x19, 20] cmp r3, #2 | cmp w0, 2 bne .L295 | bne .L219 ldr r3, .L389+8 | adrp x0, .LANCHOR0+236 ldr r3, [r3, #232] | ldr w0, [x0, #:lo12:.LANC add r3, r3, #1 | add w0, w0, 1 cmp r3, r5 | cmp w0, w21 bne .L295 | beq .L315 .LDL81: | .LVL221: > .L219: > .LDL75: 982 %IF FLAG = I %THEN FLAG = QLIM %ELSE FLAG = -1 982 %IF FLAG = I %THEN FLAG = QLIM %ELSE FLAG = -1 ldr r3, .L389 | ldr w0, [x19, 52] ldr r2, .L389+4 | cmp w20, w0 str r2, [r3] | beq .L280 ldr r3, [r4, #52] | .LDL76: cmp r6, r3 | mov w0, -1 .LDL82: | str w0, [x19, 52] mvnne r3, #0 | b .L219 ldreq r3, .L389+8 | .L280: ldreq r3, [r3, #240] | adrp x0, .LANCHOR0+244 str r3, [r4, #52] | ldr w0, [x0, #:lo12:.LANC b .L295 | str w0, [x19, 52] .LVL244: | b .L219 .L382: | .LVL233: > .L249: 983 ->E1 983 ->E1 ldr r3, .L389+12 < ldr r2, .L389+112 < str r2, [r3] < 984 %END 984 %END 985 985 986 %ROUTINE CONDIT(%INTEGER QVAL) 986 %ROUTINE CONDIT(%INTEGER QVAL) @ Nested: function declared i | ldp x19, x20, [sp, 16] @ args = 0, pretend = 0, fram | ldp x21, x22, [sp, 32] @ frame_needed = 0, uses_anon | .LVL218: push {r4, r5, r6, r7, r8, | ldp x29, x30, [sp], 64 sub sp, sp, #12 | ret str r0, [sp, #4] | .LVL219: mov r7, ip | .L263: > stp x29, x30, [sp, -96]! > mov x29, sp > stp x19, x20, [sp, 16] > stp x21, x22, [sp, 32] > stp x23, x24, [sp, 48] > stp x25, x26, [sp, 64] > str x27, [sp, 80] > mov w25, w0 > mov x19, x18 987 %OWNINTEGER AND=1717, OR=16873 987 %OWNINTEGER AND=1717, OR=16873 988 %INTEGER J,K 988 %INTEGER J,K 989 TRANSF = QSTART; QSTART = QLIM 989 TRANSF = QSTART; QSTART = QLIM ldr r3, .L733 | adrp x0, .LANCHOR0 ldr r2, [r3, #304] | .LVL602: str r2, [r3, #308] | add x0, x0, :lo12:.LANCHO ldr r2, [r3, #240] | ldr w1, [x0, 308] str r2, [r3, #304] | str w1, [x0, 312] > ldr w1, [x0, 244] > str w1, [x0, 308] 990 J = 0 990 J = 0 .LVL621: | .LVL603: mov r3, #0 | mov w23, 0 str r3, [sp] < 991 %CYCLE 991 %CYCLE 992 GET EXP 992 GET EXP mov ip, r7 | mov x18, x19 bl GETEXP.16 bl GETEXP.16 .LVL637: | .LVL620: 993 %IF S('=') %START 993 %IF S('=') %START ldr r6, .L733+4 | mov w22, 61 mov fp, #992 | .LDL137: ldr r5, .L733+8 | mov x18, x19 ldr r4, .L733+12 | mov w0, w22 .LDL140: < str fp, [r6] < str r4, [r5] < mov ip, r7 < mov r0, #61 < bl S.33 bl S.33 .LVL638: | .LVL621: cmp r0, #0 | cbnz w0, .L680 bne .L732 | .L659: .L711: < .LVL639: < 994 K = 3 < ldr r10, .L733+16 < b .L710 < .LVL622: .LVL622: .L732: | 994 K = 3 str r10, [r6] | mov w21, 3 str r4, [r5] | mov w20, w21 moveq r9, #3 < 995 %finish %ELSE %IF S('#') %START 995 %finish %ELSE %IF S('#') %START mov ip, r7 | mov w27, 35 mov r0, #35 | mov x18, x19 > mov w0, w27 bl S.33 bl S.33 .LVL623: | .LVL605: cmp r0, #0 | cbz w0, .L659 beq .L711 | .LDL138: .LDL141: < 996 K = \3 996 K = \3 mvneq r9, #3 | mov w26, -4 > b .L658 > .LVL604: > .L680: > mov w20, w26 997 %finish %ELSE %IF S('<') %START 997 %finish %ELSE %IF S('<') %START mov ip, r7 | mov x18, x19 mov r0, #60 | mov w0, 60 bl S.33 bl S.33 .LVL624: | .LVL606: cmp r0, #0 | cbz w0, .L660 beq .L712 | .LDL139: .LDL142: < 998 K = \1; K = 2 %IF S('=') 998 K = \1; K = 2 %IF S('=') .LVL629: | mov x18, x19 mov ip, r7 | mov w0, 61 mov r0, #61 < bl S.33 bl S.33 .LVL630: | .LVL611: cmp r0, #0 | mov w20, 2 mvnne r9, #1 | cmp w0, 0 moveq r9, #2 | csneg w20, w20, w20, eq b .L711 | b .L659 .LVL631: | .LVL612: .L713: | .L661: 999 %finish %ELSE %IF S('>') %START 999 %finish %ELSE %IF S('>') %START mov ip, r7 | mov x18, x19 mov r0, #62 | mov w0, 62 bl S.33 bl S.33 .LVL625: | .LVL607: cmp r0, #0 | cbnz w0, .L661 bne .L713 | .LDL140: ldr r3, .L733+4 < ldr r2, .L733+20 < str r2, [r3] < ldr r3, .L733+8 < ldr r2, .L733+12 < str r2, [r3] < .LDL143: < 1000 K = \2; K = 1 %IF S('=') 1000 K = \2; K = 1 %IF S('=') .LVL626: | .LVL608: mov ip, r7 | mov x18, x19 mov r0, #61 | mov w0, 61 bl S.33 bl S.33 .LVL627: | .LVL609: cmp r0, #0 | cmp w0, 0 mvnne r9, #2 | mov w20, -3 moveq r9, #1 | csinc w20, w20, wzr, ne b .L711 | b .L659 .LVL628: | .LVL610: .L712: | .L660: 1001 %finish %ELSE %START 1001 %finish %ELSE %START ldr r3, .L733+4 < mov r2, #1000 < str r2, [r3] < ldr r3, .L733+8 < ldr r2, .L733+12 < str r2, [r3] < 1002 QUEUE(-12) 1002 QUEUE(-12) mvn r0, #11 | mov w0, -12 bl QUEUE.9 bl QUEUE.9 .LVL632: | .LVL613: 1003 ->ANDOR 1003 ->ANDOR ldr r3, .L733+4 | b .L663 ldr r2, .L733+24 | .L664: str r2, [r3] < ldr r3, .L733+8 < ldr r2, .L733+12 < str r2, [r3] < b .L715 < .L716: < 1004 %FINISH 1004 %FINISH 1005 GET EXP 1005 GET EXP mov ip, r7 | mov x18, x19 bl GETEXP.16 bl GETEXP.16 .LVL640: | .LVL623: 1006 QUEUE(-11); QUEUE(K) 1006 QUEUE(-11); QUEUE(K) ldr r3, .L733+40 | mov w24, -11 str r3, [r6] | mov w0, w24 str r4, [r5] < mvn r0, #10 < bl QUEUE.9 bl QUEUE.9 .LVL641: | .LVL624: mov r0, r9 | mov w0, w20 bl QUEUE.9 bl QUEUE.9 .LVL642: | .LVL625: > .L663: 1007 ANDOR: 1007 ANDOR: ldr r8, .L733+44 < str r8, [r6] < str r4, [r5] < str r8, [r6] < str r4, [r5] < 1008 %EXIT %IF %NOT TAG 1008 %EXIT %IF %NOT TAG .LDL144: | .LDL141: .L715: | mov x18, x19 mov ip, r7 < bl TAG.34 bl TAG.34 .LVL643: | .LVL626: cmp r0, #0 | cbz w0, .L664 beq .L716 | .LDL142: .LDL145: < 1009 %IF TAG1 = AND %AND TAG2 = 0 %START 1009 %IF TAG1 = AND %AND TAG2 = 0 %START mov r3, #1008 | ldr w0, [x19, 16] str r3, [r6] | cmp w0, 1717 str r4, [r5] | bne .L665 ldr r2, [r7, #16] | ldr w0, [x19, 12] ldr r3, .L733+48 | cbnz w0, .L665 cmp r2, r3 < bne .L717 < ldr r3, [r7, #12] < cmp r3, #0 < bne .L717 < 1010 !! %MONITOR 19 %IF J < 0 1010 !! %MONITOR 19 %IF J < 0 str r4, [r5] < 1011 J = 1; QUEUE(-13) 1011 J = 1; QUEUE(-13) .LVL644: | .LVL627: mvn r0, #12 | mov w0, -13 bl QUEUE.9 bl QUEUE.9 .LVL645: | .LVL628: mov r3, #1 | mov w23, 1 str r3, [sp] < 1012 %finish %ELSE %START 1012 %finish %ELSE %START ldr r3, .L733+52 | b .L658 str r3, [r6] | .LVL629: b .L710 | .L679: .LVL646: < .L731: < 1013 !! %MONITOR 19 %IF TAG1 # OR %OR J > 0 1013 !! %MONITOR 19 %IF TAG1 # OR %OR J > 0 1014 J = -1; QUEUE(-14) 1014 J = -1; QUEUE(-14) .LVL634: | mov w0, -14 mvn r0, #13 < bl QUEUE.9 bl QUEUE.9 .LVL635: | .LVL618: mvn r3, #0 | mov w23, -1 str r3, [sp] | .LVL619: .LVL636: | .L658: .L710: < 1015 %FINISH 1015 %FINISH ldr r3, .L733+36 < str r3, [r6] < 1016 %REPEAT 1016 %REPEAT 1017 QUEUE(QVAL) %IF QVAL # 0 1017 QUEUE(QVAL) %IF QVAL # 0 ldr r3, [sp, #4] | cbnz w25, .L679 cmp r3, #0 | .L667: bne .L731 | mov w0, w25 .L719: < ldr r0, [sp, #4] < bl QUEUE.9 bl QUEUE.9 .LVL647: | .LVL630: b .L719 | b .L667 .L734: < .align 2 < .L733: < .word .LANCHOR0 < .word _imp_current_line < .word _imp_current_file < .word .LC6 < .word 993 < .word 998 < .word 1002 < .word 1017 < .word 1018 < .word 1014 < .word 1005 < .word 1006 < .word 1717 < .word 1011 < .LFE243: .LFE243: .align 2 .align 2 .global main .global main main: main: .LVL648: | .LVL631: .LFB199: .LFB199: 1018 ASSEMBLE 1018 ASSEMBLE ldr r3, .L733+4 | mov x18, x19 ldr r2, .L733+28 < str r2, [r3] < ldr r3, .L733+8 < ldr r2, .L733+12 < str r2, [r3] < mov ip, r7 < bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL633: | .LVL614: 1019 ATYPE=-1 %AND CREG=-1 %IF J < 0 1019 ATYPE=-1 %AND CREG=-1 %IF J < 0 ldr r3, .L733+4 | tbz w23, #31, .L657 ldr r2, .L733+32 | mov w0, -1 str r2, [r3] | stp w0, w0, [x19, 56] ldr r4, .L733+8 < ldr r5, .L733+12 < str r5, [r4] < ldr r3, [sp] < cmp r3, #0 < mvnlt r3, #0 < strlt r3, [r7, #60] < strlt r3, [r7, #56] < .L722: < 1020 %END 1020 %END str r5, [r4] < ?OR unused ?OR unused 1021 1021 ldr r3, .L733+4 | .L670: mov r2, #1020 | .L657: str r2, [r3] < 1022 %ROUTINE GET INST 1022 %ROUTINE GET INST @ Nested: function declared i | stp x29, x30, [sp, -48]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | mov x19, x18 mov r4, ip | ldp x19, x20, [sp, 16] add sp, sp, #12 | ldp x21, x22, [sp, 32] @ sp needed | ldp x23, x24, [sp, 48] pop {r4, r5, r6, r7, r8, | .LVL615: .L717: | ldp x25, x26, [sp, 64] > .LVL616: > ldr x27, [sp, 80] > ldp x29, x30, [sp], 96 > ret > .LVL617: > .L665: 1023 %INTEGER I 1023 %INTEGER I 1024 !OPMASK VALUES 1024 !OPMASK VALUES 1025 ! 0100,0110,1100,1101,1110: DOUBLE WORD INSTRUCTIONS 1025 ! 0100,0110,1100,1101,1110: DOUBLE WORD INSTRUCTIONS ldr r5, .L396 < ldr r6, .L396+4 < str r6, [r5] < 1026 ! 1011,1001,0011,0010,0001: AS ABOVE BUT RELOCATABLE 1026 ! 1011,1001,0011,0010,0001: AS ABOVE BUT RELOCATABLE 1027 ! 0101: SINGLE WORD INSTRUCTION 1027 ! 0101: SINGLE WORD INSTRUCTION 1028 ! 0111: 2 OPERANDS TO COME 1028 ! 0111: 2 OPERANDS TO COME 1029 ! 1111: 1 OPERAND TO COME 1029 ! 1111: 1 OPERAND TO COME 1030 ! 1010: MACRO 1030 ! 1010: MACRO 1031 QUEUE(TYPE); QUEUE(VAL) 1031 QUEUE(TYPE); QUEUE(VAL) ldr r0, [ip, #68] | ldr w0, [x18, 68] bl QUEUE.9 bl QUEUE.9 .LVL255: | .LVL236: ldr r0, [r4, #64] | ldr w0, [x19, 64] bl QUEUE.9 bl QUEUE.9 .LVL256: | .LVL237: 1032 %RETURN %IF TYPE&16_7000 # 16_7000 1032 %RETURN %IF TYPE&16_7000 # 16_7000 ldr r7, .L396+8 | ldr w0, [x19, 68] ldr r8, .L396+12 | and w0, w0, 28672 str r8, [r7] | cmp w0, 28672 str r8, [r7] | beq .L323 str r6, [r5] | .L318: ldr r3, [r4, #68] | .LDL79: and r3, r3, #28672 < cmp r3, #28672 < popne {r4, r5, r6, r7, r8, < .LDL85: < 1033 %RETURN %IF TERM # ' '; !NO OPERAND FOLLO 1033 %RETURN %IF TERM # ' '; !NO OPERAND FOLLO ldr r3, .L396+16 | ldr w0, [x19, 8] str r3, [r7] | cmp w0, 32 str r6, [r5] | bne .L318 ldr r3, [r4, #8] | str x21, [sp, 32] cmp r3, #32 < popne {r4, r5, r6, r7, r8, < 1034 %CYCLE 1034 %CYCLE ldr r2, .L396+20 < str r2, [r7] < 1035 GET EXP 1035 GET EXP mov ip, r4 | mov x18, x19 bl GETEXP.16 bl GETEXP.16 .LVL257: | .LVL238: 1036 QUEUE(-22) 1036 QUEUE(-22) ldr r9, .L396+24 | mov w21, -22 mov r6, r5 | mov w0, w21 ldr r5, .L396+4 < str r9, [r7] < str r5, [r6] < mvn r0, #21 < bl QUEUE.9 bl QUEUE.9 .LVL258: | .LVL239: 1037 %RETURN %IF %NOT S(',') 1037 %RETURN %IF %NOT S(',') add r8, r8, #5 | mov w20, 44 .L393: | .L320: .LDL86: | .LDL80: .LDL87: | .LDL81: str r8, [r7] | mov x18, x19 str r5, [r6] | mov w0, w20 mov ip, r4 < mov r0, #44 < bl S.33 bl S.33 .LVL259: | .LVL240: cmp r0, #0 | cbnz w0, .L320 bne .L393 | ldr x21, [sp, 32] pop {r4, r5, r6, r7, r8, | b .L318 .L397: < .align 2 < .L396: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 1031 < .word 1032 < .word 1033 < .word 1035 < .word 1037 < .LFE244: .LFE244: .align 2 .align 2 READLINE.38: READLINE.38: .LFB245: .LFB245: 1038 %REPEAT 1038 %REPEAT ldr r3, .L396+28 < str r3, [r7] < str r5, [r6] < 1039 %END 1039 %END ?I unused ?I unused 1040 1040 1041 %ROUTINE READ LINE 1041 %ROUTINE READ LINE @ Nested: function declared i | ldp x19, x20, [sp, 16] @ args = 0, pretend = 0, fram | ldp x29, x30, [sp], 48 @ frame_needed = 0, uses_anon | ret push {r3, r4, r5, r6, r7, | .L323: mov r4, ip | stp x29, x30, [sp, -64]! > mov x29, sp > stp x19, x20, [sp, 16] > mov x19, x18 1042 %INTEGER Q 1042 %INTEGER Q 1043 PUTPOS = STARTPOS 1043 PUTPOS = STARTPOS ldr r3, .L438+8 | adrp x1, .LANCHOR0 ldr r2, [r3, #276] | add x0, x1, :lo12:.LANCHO str r2, [r3] | ldr w2, [x0, 280] > str w2, [x1, #:lo12:.LANC 1044 %IF MP = 0 %START 1044 %IF MP = 0 %START ldr r3, .L438 | ldr w20, [x0, 272] ldr r2, .L438+4 | cbnz w20, .L360 str r2, [r3] | stp x21, x22, [sp, 32] ldr r9, [r3, #268] | .LDL82: cmp r9, #0 < bne .L431 < .LDL88: < 1045 Q = 0; PSEUDOLIM = 0 1045 Q = 0; PSEUDOLIM = 0 .LVL260: | .LVL241: ldr r3, .L438+8 | adrp x0, .LANCHOR0+284 mov r2, #0 | str wzr, [x0, #:lo12:.LAN str r2, [r3, #280] < 1046 %CYCLE 1046 %CYCLE 1047 READ SYMBOL(SYM) 1047 READ SYMBOL(SYM) add r8, r4, #4 | add x21, x18, 4 .LVL269: < .LBB77: .LBB77: .LBI77: .LBI77: 1048 READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = '''' 1048 READ SYMBOL(SYM) %AND Q=Q!!128 %IF SYM = '''' ldr r5, .L438+12 < ldr fp, .L438+16 < ldr r7, .L438 < ldr r6, .L438+4 < .LBB75: .LBB75: .LBI75: .LBI75: eor r9, r9, #128 | eor w20, w20, 128 .LVL266: | .LVL247: b .L403 | b .L329 .LVL267: | .LVL248: .L406: | .L332: str fp, [r5] | ldr w0, [x19, 4] str r6, [r7] | cmp w0, 39 ldr r3, [r4, #4] | beq .L362 cmp r3, #39 | .LVL251: beq .L433 | .L329: .LVL271: < .L403: < 1049 %EXIT %IF SYM = NL 1049 %EXIT %IF SYM = NL ldr r3, .L438+36 | ldr w0, [x19, 4] str r3, [r5] | cmp w0, 10 str r6, [r7] | beq .L330 ldr r3, [r4, #4] | .LDL85: cmp r3, #10 < beq .L404 < .LDL91: < 1050 SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> 1050 SYM = SYM-32 %IF SYM-Q >= 96; !LOWER-CASE -> ldr r3, .L438+40 | sub w1, w0, w20 str r3, [r5] | cmp w1, 95 str r6, [r7] | ble .L331 sub r2, r3, r9 | sub w0, w0, #32 cmp r2, #95 | str w0, [x19, 4] subgt r3, r3, #32 | .L331: strgt r3, [r4, #4] < .L405: < 1051 SYM = SYM+Q 1051 SYM = SYM+Q ldr r0, [r4, #4] | ldr w0, [x19, 4] add r0, r9, r0 | add w0, w20, w0 str r0, [r4, #4] | str w0, [x19, 4] 1052 %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0 1052 %EXIT %IF SYM = '/' %AND PSEUDOLIM # 0 cmp r0, #47 | cmp w0, 47 bne .L406 | bne .L332 ldr r3, [r10, #280] | ldr w1, [x22, 284] cmp r3, #0 | cbz w1, .L333 beq .L407 < .L404: < 1053 %IF SYM = ' ' %START 1053 %IF SYM = ' ' %START cmp r0, #32 | cmp w0, 32 bne .L407 | bne .L333 .LDL90: | .LDL84: 1054 PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0 1054 PSEUDOLIM = PUTPOS %IF PSEUDOLIM = 0 ldr r3, [r10, #280] | ldr w1, [x22, 284] cmp r3, #0 | cbnz w1, .L336 ldreq r3, [r10] | ldr w1, [x22] streq r3, [r10, #280] | str w1, [x22, 284] b .L409 | b .L336 .L407: | .L333: 1055 %finish %ELSE PSEUDOLIM = 0 1055 %finish %ELSE PSEUDOLIM = 0 mov r10, r3 | adrp x22, .LANCHOR0 b .L402 | add x22, x22, :lo12:.LANC .LVL261: | b .L328 .L431: | .LVL242: mov r3, #0 | .L360: str r3, [r10, #280] | str wzr, [x22, 284] .L409: | .L336: 1056 PUT CHAR(SYM) 1056 PUT CHAR(SYM) bl PUTCHAR.37 bl PUTCHAR.37 .LVL268: | .LVL249: 1057 %REPEAT 1057 %REPEAT mov r3, #1056 | .L328: str r3, [r5] < .L402: < 1058 %IF PSEUDOLIM # 0 %START 1058 %IF PSEUDOLIM # 0 %START ldr r3, .L438+8 | adrp x0, .LANCHOR0+284 ldr r3, [r3, #280] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | .L353: bne .L434 | adrp x0, .LANCHOR0+284 .LVL272: | ldr w0, [x0, #:lo12:.LANC .L410: | cbnz w0, .L353 > .LVL256: > .L339: 1059 Q = PUTPOS; PUTPOS = PSEUDOLIM 1059 Q = PUTPOS; PUTPOS = PSEUDOLIM ldr r5, .L438+8 | adrp x20, .LANCHOR0 ldr r6, [r5] | .LVL252: .LVL277: | ldr w22, [x20, #:lo12:.LA str r3, [r5] | .LVL253: > str w0, [x20, #:lo12:.LAN 1060 PUT CHAR(NL) 1060 PUT CHAR(NL) mov r0, #10 | mov w0, 10 bl PUTCHAR.37 bl PUTCHAR.37 .LVL278: | .LVL254: 1061 PUTPOS = Q 1061 PUTPOS = Q ldr r3, .L438+12 | str w22, [x20, #:lo12:.LA ldr r2, .L438+52 | b .L339 str r2, [r3] | .LVL255: str r6, [r5] | .L330: 1062 %FINISH 1062 %FINISH 1063 %CYCLE 1063 %CYCLE b .L410 < .LVL279: < .L411: < 1064 PUT CHAR(SYM) 1064 PUT CHAR(SYM) ldr r0, [r4, #4] | ldr w0, [x19, 4] bl PUTCHAR.37 bl PUTCHAR.37 .LVL273: | .LVL257: 1065 %EXIT %IF SYM = NL 1065 %EXIT %IF SYM = NL ldr r7, .L438+12 | ldr w0, [x19, 4] ldr r9, .L438+44 | cmp w0, 10 ldr r6, .L438 | beq .L338 ldr r5, .L438+4 | .LDL86: str r9, [r7] | .LDL87: str r5, [r6] < ldr r3, [r4, #4] < cmp r3, #10 < beq .L411 < .LDL92: < .LDL93: < 1066 READ SYMBOL(SYM) 1066 READ SYMBOL(SYM) str r5, [r6] | .LVL258: .LVL274: < .LBB79: .LBB79: .LBI79: .LBI79: 1067 %REPEAT 1067 %REPEAT ldr r10, .L438+48 | b .L339 .L412: | .L338: str r10, [r7] < b .L412 < .LVL276: < .L434: < 1068 PRINTPOS = STARTPOS 1068 PRINTPOS = STARTPOS ldr r3, .L438+8 | adrp x0, .LANCHOR0 ldr r2, [r3, #276] | add x0, x0, :lo12:.LANCHO str r2, [r3, #284] | ldr w1, [x0, 280] > str w1, [x0, 288] 1069 %finish %ELSE %START 1069 %finish %ELSE %START .L413: | .L340: 1070 GETPOS = INTEGER(MP) 1070 GETPOS = INTEGER(MP) mov r0, r9 | mov w0, w20 bl INTEGER.39 bl INTEGER.39 .LVL262: | .LVL243: ldr r3, .L438+8 | adrp x1, .LANCHOR0+240 str r0, [r3, #236] | str w0, [x1, #:lo12:.LANC 1071 %IF CHAR(GETPOS) = 0 %START 1071 %IF CHAR(GETPOS) = 0 %START ldr r5, .L438+12 < ldr r3, .L438+20 < str r3, [r5] < bl CHAR.6 bl CHAR.6 .LVL263: | .LVL244: cmp r0, #0 | cbz w0, .L361 beq .L432 | stp x21, x22, [sp, 32] .LDL89: | str x23, [sp, 48] > .LDL83: 1072 QBASE = MP 1072 QBASE = MP ldr r3, .L438+24 | adrp x20, .LANCHOR0 str r3, [r5] | add x20, x20, :lo12:.LANC ldr r3, .L438 | ldr w0, [x20, 272] ldr r2, .L438+4 | str w0, [x20, 292] str r2, [r3] < ldr r5, .L438+8 < ldr r0, [r5, #268] < str r0, [r5, #288] < 1073 GETPOS = INTEGER(MP+2) 1073 GETPOS = INTEGER(MP+2) ldr r6, .L438 | add w0, w0, 2 ldr r7, .L438+4 < str r7, [r6] < add r0, r0, #2 < bl INTEGER.39 bl INTEGER.39 .LVL281: | .LVL261: str r0, [r5, #236] | str w0, [x20, 240] 1074 STARTPOS = INTEGER(MP+3) 1074 STARTPOS = INTEGER(MP+3) ldr r8, .L438+12 | ldr w0, [x20, 272] ldr r3, .L438+64 | add w0, w0, 3 str r3, [r8] < ldr r0, [r5, #268] < add r0, r0, #3 < bl INTEGER.39 bl INTEGER.39 .LVL282: | .LVL262: str r0, [r5, #276] | str w0, [x20, 280] 1075 MP = INTEGER(MP+4) 1075 MP = INTEGER(MP+4) ldr r3, .L438+68 | ldr w0, [x20, 272] str r3, [r8] | add w0, w0, 4 str r7, [r6] < ldr r0, [r5, #268] < add r0, r0, #4 < bl INTEGER.39 bl INTEGER.39 .LVL283: | .LVL263: str r0, [r5, #268] | adrp x1, .LANCHOR0+272 > str w0, [x1, #:lo12:.LANC > .L346: 1076 %IF MP < 0 %START 1076 %IF MP < 0 %START ldr r3, .L438+72 | tbnz w0, #31, .L363 str r3, [r8] < str r7, [r6] < cmp r0, #0 < blt .L435 < .L416: < 1077 MP = MP-8_700000 1077 MP = MP-8_700000 str r7, [r6] | sub w0, w0, #229376 sub r0, r0, #229376 | adrp x1, .LANCHOR0+272 str r0, [r5, #268] | str w0, [x1, #:lo12:.LANC ldr r3, .L438+88 < 1078 %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE 1078 %WHILE INTEGER(NP)&16_8000 = 0 %CYCLE ldr r0, [r5, #232] | adrp x20, .LANCHOR0 > add x20, x20, :lo12:.LANC > ldr w0, [x20, 236] bl INTEGER.39 bl INTEGER.39 .LVL286: | .LVL267: tst r0, #32768 | tbz x0, 15, .L345 beq .L418 | .LDL88: .LDL94: < 1079 FAULT('C'); NP = NP+2 1079 FAULT('C'); NP = NP+2 mov r6, r8 | mov w21, 67 mov r10, #67 | b .L344 mov ip, r4 | .L345: mov r0, r10 | mov x18, x19 > mov w0, w21 bl FAULT.45 bl FAULT.45 .LVL285: | .LVL266: ldr r3, [r5, #232] | ldr w0, [x20, 236] add r3, r3, #2 | add w0, w0, 2 str r3, [r5, #232] | str w0, [x20, 236] str r3, [r6] < 1080 %REPEAT 1080 %REPEAT ldr r9, .L438 | .L344: mov r8, r7 < ldr r7, .L438+92 < b .L417 < .L418: < str r8, [r9] < mov r3, r7 < .L417: < 1081 SET LAB(LOC) 1081 SET LAB(LOC) mov ip, r4 | mov x18, x19 ldr r0, [r4, #76] | ldr w0, [x19, 76] bl SETLAB.10 bl SETLAB.10 .LVL287: | .LVL268: > ldp x21, x22, [sp, 32] > b .L346 > .L351: 1082 %FINISH 1082 %FINISH ldr r3, .L438+12 < ldr r2, .L438+96 < str r2, [r3] < ldr r3, .L438 < ldr r2, .L438+4 < str r2, [r3] < 1083 PRINTPOS = 0 %IF LIST&2 # 0 1083 PRINTPOS = 0 %IF LIST&2 # 0 ldr r3, .L438+28 | adrp x0, .LANCHOR1+16 ldr r3, [r3, #16] | ldr w0, [x0, #:lo12:.LANC tst r3, #2 | tbz x0, 1, .L347 ldrne r3, .L438+8 | adrp x0, .LANCHOR0+288 movne r2, #0 | str wzr, [x0, #:lo12:.LAN strne r2, [r3, #284] | .L347: .L419: < b .L416 < .L436: < 1084 GET SYM; !TERMINATOR 1084 GET SYM; !TERMINATOR ldr r3, .L438 | mov x18, x19 ldr r2, .L438+4 < str r2, [r3] < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL284: | .LVL264: 1085 GET SYM %IF SYM = ';' 1085 GET SYM %IF SYM = ';' ldr r5, .L438+12 | ldr w0, [x19, 4] ldr r3, .L438+76 | cmp w0, 59 str r3, [r5] | bne .L324 ldr r3, [r4, #4] | mov x18, x19 cmp r3, #59 < beq .L436 < .L420: < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL288: | .LVL265: b .L420 | b .L324 .L423: | .L363: .LDL95: | stp x21, x22, [sp, 32] 1086 %RETURN 1086 %RETURN ldr r3, .L438+80 < str r3, [r5] < ldr r3, .L438 < ldr r2, .L438+4 < str r2, [r3] < ldr r2, .L438+84 < b .L421 < .L435: < 1087 %FINISH 1087 %FINISH ldr r3, .L438+12 < str r2, [r3] < ldr r3, .L438 < ldr r2, .L438+4 < str r2, [r3] < 1088 PRINTPOS = STARTPOS %IF LIST&2 # 0 1088 PRINTPOS = STARTPOS %IF LIST&2 # 0 ldr r3, .L438+28 | adrp x0, .LANCHOR1+16 ldr r3, [r3, #16] | ldr w0, [x0, #:lo12:.LANC tst r3, #2 | tbz x0, 1, .L341 ldrne r3, .L438+8 | adrp x0, .LANCHOR0 ldrne r2, [r3, #276] | add x0, x0, :lo12:.LANCHO strne r2, [r3, #284] | ldr w1, [x0, 280] .L414: | str w1, [x0, 288] > .L341: 1089 QQ = 0 1089 QQ = 0 ldr r3, .L438+28 | adrp x0, .LANCHOR1+12 mov r2, #0 | str wzr, [x0, #:lo12:.LAN str r2, [r3, #12] < 1090 %CYCLE 1090 %CYCLE 1091 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 1091 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 ldr r8, .L438+8 | adrp x20, .LANCHOR0 b .L422 | add x20, x20, :lo12:.LANC .LVL264: | ldr w21, [x20, 240] .L433: | mov w0, w21 ldr r9, [r8, #236] < mov r0, r9 < bl CHAR.6 bl CHAR.6 .LVL291: | .LVL275: str r0, [r4, #4] | str w0, [x19, 4] add r9, r9, #1 | add w21, w21, 1 str r9, [r8, #236] | str w21, [x20, 240] 1092 %IF TAG %START 1092 %IF TAG %START ldr r7, .L438+12 | mov x18, x19 ldr r10, .L438+32 < ldr r6, .L438 < ldr r5, .L438+4 < str r10, [r7] < str r5, [r6] < str r5, [r6] < mov ip, r4 < bl TAG.34 bl TAG.34 .LVL292: | .LVL276: cmp r0, #0 | cbnz w0, .L350 bne .L423 < 1093 SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' 1093 SYM=TERM %AND GETPOS=GETPOS-1 %IF TERM = ' ldr r3, .L438+104 | mov w23, 32 str r3, [r7] | b .L349 ldr r3, [r4, #8] | .LVL245: cmp r3, #32 | .L362: streq r3, [r4, #4] | ldr w0, [x19, 8] ldreq r3, [r8, #236] | cmp w0, 32 subeq r3, r3, #1 | bne .L351 streq r3, [r8, #236] | str w23, [x19, 4] .L424: | ldr w0, [x20, 240] > sub w0, w0, #1 > str w0, [x20, 240] > b .L351 > .L364: 1094 TYPE = INTEGER(MP); VAL = GETPOS-1 1094 TYPE = INTEGER(MP); VAL = GETPOS-1 ldr r3, .L438+108 | ldr w0, [x20, 272] str r3, [r7] < str r5, [r6] < ldr r0, [r8, #268] < bl INTEGER.39 bl INTEGER.39 .LVL293: | .LVL269: str r0, [r4, #68] | ldr w1, [x20, 240] ldr r3, [r8, #236] | sub w1, w1, #1 sub r3, r3, #1 | stp w1, w0, [x19, 64] str r3, [r4, #64] < 1095 LOOKUP(4) 1095 LOOKUP(4) ldr r3, .L438+112 | mov w22, 4 str r3, [r7] | mov x18, x19 str r5, [r6] | mov w0, w22 mov ip, r4 < mov r0, #4 < bl LOOKUP.32 bl LOOKUP.32 .LVL294: | .LVL270: 1096 %WHILE TYPE # VAL %CYCLE 1096 %WHILE TYPE # VAL %CYCLE ldr r3, .L438+116 | ldp w1, w0, [x19, 64] str r3, [r7] | cmp w0, w1 ldr r0, [r4, #68] | beq .L350 ldr r3, [r4, #64] | .L352: cmp r0, r3 | ldp w1, w0, [x19, 64] beq .L423 | cmp w1, w0 ldr r3, [r4, #64] | bne .L352 cmp r3, r0 | .L350: bne .L425 | .LDL90: b .L423 < .L437: < 1097 PUT CHAR(CHAR(TYPE)) 1097 PUT CHAR(CHAR(TYPE)) str r5, [r6] < bl CHAR.6 bl CHAR.6 .LVL295: | .LVL271: bl PUTCHAR.37 bl PUTCHAR.37 .LVL296: | .LVL272: 1098 TYPE = TYPE+1 1098 TYPE = TYPE+1 ldr r9, .L438+120 | add w0, w0, 1 .L425: | str w0, [x19, 68] str r9, [r7] < str r5, [r6] < ldr r0, [r4, #68] < add r0, r0, #1 < str r0, [r4, #68] < 1099 %REPEAT 1099 %REPEAT str r5, [r6] | .LDL89: .LDL97: < 1100 %FINISH 1100 %FINISH 1101 PUT CHAR(SYM) 1101 PUT CHAR(SYM) ldr r0, [r4, #4] | ldr w0, [x19, 4] bl PUTCHAR.37 bl PUTCHAR.37 .LVL289: | .LVL273: 1102 !! INTEGER(MP) = GETPOS 1102 !! INTEGER(MP) = GETPOS ldr r3, .L438+100 < str r3, [r7] < str r5, [r6] < 1103 set INTEGER(MP, GETPOS) 1103 set INTEGER(MP, GETPOS) ldr r1, [r8, #236] | ldr w1, [x20, 240] ldr r0, [r8, #268] | ldr w0, [x20, 272] bl SETINTEGER.8 bl SETINTEGER.8 .LVL290: | .LVL274: 1104 %EXIT %IF SYM = NL 1104 %EXIT %IF SYM = NL ldr r3, [r4, #4] | ldr w0, [x19, 4] cmp r3, #10 | cmp w0, 10 beq .L437 | beq .L364 .L422: | .L349: .LDL96: | .LDL91: .LDL98: | .LDL92: 1105 %REPEAT 1105 %REPEAT mov r3, #1104 < str r3, [r7] < str r5, [r6] < 1106 QQ = '?' 1106 QQ = '?' ldr r3, .L438+28 | adrp x0, .LANCHOR1+12 mov r2, #63 | mov w1, 63 str r2, [r3, #12] | str w1, [x0, #:lo12:.LANC 1107 %FINISH | ldr x23, [sp, 48] 1108 QBASE = (PUTPOS+1)>>1 | b .L340 ldr r2, .L438+8 < ldr r3, [r2] < add r3, r3, #1 < asr r3, r3, #1 < str r3, [r2, #288] < b .L413 < .L439: < .align 2 < .L438: < .word _imp_current_file < .word .LC6 < .word .LANCHOR0 < .word _imp_current_line < .word 1047 < .word 1070 < .word 1071 < .word .LANCHOR1 < .word 1091 < .word 1048 < .word 1049 < .word 1064 < .word 1066 < .word 1060 < .word 1109 < .word 1110 < .word 1073 < .word 1074 < .word 1075 < .word 1084 < .word 1085 < .word 1086 < .word 1078 < .word 1080 < .word 1081 < .word 1101 < .word 1092 < .word 1093 < .word 1094 < .word 1095 < .word 1097 < .LFE245: .LFE245: .align 2 .align 2 _imp_SELECTINPUT: _imp_SELECTINPUT: .LVL297: | .LVL277: .LFB105: .LFB105: > 1107 %FINISH > 1108 QBASE = (PUTPOS+1)>>1 > adrp x0, .LANCHOR0 > add x1, x0, :lo12:.LANCHO > ldr w0, [x0, #:lo12:.LANC > add w0, w0, 1 > asr w0, w0, 1 > str w0, [x1, 292] 1109 GETPOS = STARTPOS; GET SYM 1109 GETPOS = STARTPOS; GET SYM ldr r3, .L438 | ldr w0, [x1, 280] ldr r2, .L438+4 | str w0, [x1, 240] str r2, [r3] | mov x18, x19 ldr r3, [r2, #276] < str r3, [r2, #236] < mov ip, r4 < bl GETSYM.7 bl GETSYM.7 .LVL280: | .LVL260: 1110 %END 1110 %END ldr r3, .L438+12 | .L348: ldr r1, .L438+56 | ldp x21, x22, [sp, 32] str r1, [r3] | .L324: ldr r2, .L438+60 < .L421: < 1111 1111 1112 %ROUTINE SCAN ARG 1112 %ROUTINE SCAN ARG @ Nested: function declared i | stp x29, x30, [sp, -80]! @ args = 0, pretend = 0, fram | mov x29, sp @ frame_needed = 0, uses_anon | stp x19, x20, [sp, 16] push {r4, r5, r6, r7, r8, | stp x23, x24, [sp, 48] sub sp, sp, #12 | str x25, [sp, 64] mov r7, ip | mov x23, x18 mov r5, #0 | mov w21, 0 pop {r3, r4, r5, r6, r7, | ldp x19, x20, [sp, 16] .L432: | ldp x29, x30, [sp], 64 > ret > .L361: 1113 ! SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL 1113 ! SET TYPE,VAL TO START,LIM OF ARG IF NOT NULL 1114 %INTEGER I,J 1114 %INTEGER I,J ldr r3, .L189+8 < ldr r2, .L189+12 < str r2, [r3] < 1115 %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR 1115 %RETURN %IF SYM='I' %AND CHAR(GETPOS)='F' %AND CHAR ldr r3, [ip, #4] | ldr w19, [x18, 4] cmp r3, #73 | cmp w19, 73 beq .L188 | bne .L104 .L171: | adrp x0, .LANCHOR0+240 ldr r3, .L189+16 | ldr w25, [x0, #:lo12:.LAN ldr r4, [r3, #236] | mov w0, w25 mov r0, r4 < bl CHAR.6 bl CHAR.6 .LVL104: | .LVL76: cmp r0, #70 | cmp w0, 70 bne .L171 | bne .L105 add r0, r4, #1 | add w0, w25, 1 bl CHAR.6 bl CHAR.6 .LVL105: | .LVL77: cmp r0, #32 | cmp w0, 32 beq .L170 | beq .L103 b .L171 | .L105: .LVL106: | stp x21, x22, [sp, 32] .L175: < 1116 I = GETPOS-1; I = GETPOS %IF SYM = '[' 1116 I = GETPOS-1; I = GETPOS %IF SYM = '[' ldr r3, .L189 | sub w25, w25, #1 ldr r2, .L189+4 | .LVL78: str r2, [r3] | .L117: ldr r3, .L189+16 | adrp x0, .LANCHOR0+240 ldr r3, [r3, #236] | ldr w25, [x0, #:lo12:.LAN str r3, [sp, #4] | .LVL79: .LVL99: | cmp w19, 91 ldr r0, [r7, #4] | bne .L122 cmp r0, #91 | stp x21, x22, [sp, 32] beq .L173 | b .L117 sub r3, r3, #1 | .L122: .LVL100: | sub w25, w25, #1 str r3, [sp, #4] | .LVL80: .LDL23: < 1117 J = 0 1117 J = 0 .LVL101: < 1118 %CYCLE 1118 %CYCLE 1119 %EXIT %IF SYM = NL 1119 %EXIT %IF SYM = NL cmp r0, #10 | cmp w19, 10 beq .L174 | beq .L103 .L185: | stp x21, x22, [sp, 32] cmp r0, #10 | b .L117 beq .L178 | .LVL81: .LVL109: | .L108: .L181: | cmp w0, 10 .LDL26: | beq .L111 b .L185 | .LVL84: .L190: | .L114: .align 2 | .LDL20: .L189: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word 1115 < .word .LANCHOR0 < .word 1125 < .word 1130 < .word 1131 < .LFE246: < .align 2 < SETACC.40: < .LFB247: < 1120 %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND 1120 %EXIT %IF (SYM=' ' %OR SYM=',' %OR SYM=';') %AND ldr r3, .L189 | mov w24, 32 .LVL102: | cmp w19, 44 ldr r2, .L189+4 | ccmp w19, w24, 4, ne str r2, [r3] | cset w0, ne ldr r9, .L189 | cmp w19, 59 ldr r8, .L189+4 | cset w1, ne b .L181 | tst w1, w0 .LVL103: | bne .L108 .L188: | .L109: str r8, [r9] | cmp w21, 0 cmp r0, #32 | bgt .L110 cmpne r0, #44 | .L111: moveq r3, #1 < movne r3, #0 < eor r3, r3, #1 < cmp r0, #59 < moveq r3, #0 < andne r3, r3, #1 < cmp r3, #0 < bne .L175 < .L176: < cmp r5, #0 < bgt .L177 < .L178: < ldr r3, .L189 < ldr r2, .L189+4 < str r2, [r3] < 1121 J = J+1 %IF SYM = '[' 1121 J = J+1 %IF SYM = '[' ldr fp, .L189+8 | cmp w19, 91 cmp r0, #91 | bne .L112 bne .L179 | add w21, w21, 1 add r5, r5, #1 | .LVL82: .LVL107: < 1122 %IF SYM = ']' %START 1122 %IF SYM = ']' %START .L177: | .L110: .LDL24: | .LDL18: cmp r0, #93 | cmp w19, 93 bne .L177 | bne .L110 1123 J = J-1; %EXIT %IF J = 0 1123 J = J-1; %EXIT %IF J = 0 .LVL113: | .LVL87: subs r5, r5, #1 | subs w21, w21, #1 .LVL114: | .LVL88: bne .L177 | bne .L110 1124 %FINISH 1124 %FINISH str r10, [fp] | ldr w20, [x22, 240] 1125 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 | mov w0, w20 ldr r6, .L189+16 < ldr r4, [r6, #236] < mov r0, r4 < bl CHAR.6 bl CHAR.6 .LVL108: | .LVL83: str r0, [r7, #4] | mov w19, w0 add r4, r4, #1 | str w0, [x23, 4] str r4, [r6, #236] | add w20, w20, 1 > str w20, [x22, 240] > 1125 SYM = CHAR(GETPOS); GETPOS = GETPOS+1 > adrp x22, .LANCHOR0 > add x22, x22, :lo12:.LANC > b .L114 > .L104: 1126 %REPEAT 1126 %REPEAT ldr r10, .L189+20 | .LDL19: .LDL25: < 1127 %IF GETPOS-1 # I %START 1127 %IF GETPOS-1 # I %START ldr r3, .L189+16 | adrp x0, .LANCHOR0+240 ldr r3, [r3, #236] | ldr w0, [x0, #:lo12:.LANC sub r3, r3, #1 | sub w0, w0, #1 ldr r2, [sp, #4] | cmp w0, w25 cmp r3, r2 | beq .L123 beq .L174 | .L116: .L184: | adrp x0, .LANCHOR0+240 ldr r3, .L189+16 | ldr w0, [x0, #:lo12:.LANC ldr r3, [r3, #236] | sub w0, w0, #1 sub r3, r3, #1 | cmp w0, w25 ldr r2, [sp, #4] | bne .L116 cmp r3, r2 | .L115: bne .L184 < 1128 TYPE = I; VAL = GETPOS-1 1128 TYPE = I; VAL = GETPOS-1 ldr r2, [sp, #4] | stp w0, w25, [x23, 64] str r2, [r7, #68] | .LDL21: str r3, [r7, #64] < 1129 %FINISH 1129 %FINISH 1130 GET SYM %IF SYM = ']' 1130 GET SYM %IF SYM = ']' .LDL27: | cmp w19, 93 cmp r0, #93 | beq .L115 beq .L182 | ldp x21, x22, [sp, 32] .LVL110: | .LVL85: .L174: | .L103: .L182: | mov x18, x23 mov ip, r7 < bl GETSYM.7 bl GETSYM.7 .LVL115: | .LVL89: b .L174 | .L106: .LVL116: < .L173: < 1131 %END 1131 %END ldr r3, .L189+8 < ldr r2, .L189+24 < str r2, [r3] < .LVL111: < .L170: < ldr r3, .L189+8 < ldr r2, .L189+24 < str r2, [r3] < 1132 1132 ldr r3, .L189+8 | ldp x21, x22, [sp, 32] ldr r2, .L189+28 | .LVL90: str r2, [r3] | b .L103 ldr r3, .L189 | .LVL91: ldr r2, .L189+4 | .L123: str r2, [r3] | ldp x21, x22, [sp, 32] > .LVL92: > b .L103 > .LFE246: > .align 2 > SETACC.40: > .LFB247: 1133 1133 add sp, sp, #12 | ldp x19, x20, [sp, 16] @ sp needed | ldp x23, x24, [sp, 48] pop {r4, r5, r6, r7, r8, | ldr x25, [sp, 64] .LVL112: | ldp x29, x30, [sp], 80 .L179: | ret > .LVL86: > .L112: 1134 %ROUTINE SET ACC 1134 %ROUTINE SET ACC @ Nested: function declared i < @ args = 0, pretend = 0, fram < @ frame_needed = 0, uses_anon < @ link register save eliminat < 1135 %INTEGER I 1135 %INTEGER I 1136 ACC = -1; ATYPE = -1; CREG = -1 1136 ACC = -1; ATYPE = -1; CREG = -1 mvn r3, #0 | mov w0, -1 str r3, [ip, #40] | str w0, [x18, 40] str r3, [ip, #60] | stp w0, w0, [x18, 56] str r3, [ip, #56] < 1137 I = TEMPS 1137 I = TEMPS ldr r3, .L195 | adrp x0, .LANCHOR1 ldr r2, .L195+4 | ldr w0, [x0, #:lo12:.LANC str r2, [r3] | .LVL93: ldr r3, .L195+8 < ldr r3, [r3] < .LVL117: < 1138 %RETURN %IF I = 0 1138 %RETURN %IF I = 0 cmp r3, #0 | cbnz w0, .L129 bxeq lr | .L124: 1139 %CYCLE 1139 %CYCLE ldr r2, .L195+12 < ldr r1, .L195+16 < str r1, [r2] < 1140 ACC = ACC+1 1140 ACC = ACC+1 mov r2, #0 | add w1, w1, 1 str r2, [ip, #40] | str wzr, [x18, 40] add r2, r2, #1 | b .L124 > .LFE247: > .align 2 > BNEST.41: > .LFB248: 1141 %RETURN %IF I&1 # 0 1141 %RETURN %IF I&1 # 0 ands r2, r3, #1 | and w1, w0, 1 bxne lr | tbnz x0, 0, .L130 .L193: | .L126: .LDL28: | .LDL22: .LDL29: | .LDL23: tst r3, #1 | tbz x0, 0, .L126 beq .L193 | str w1, [x18, 40] ldr r3, .L195 < .LVL119: < ldr r1, .L195+4 < str r1, [r3] < str r2, [ip, #40] < ldr r3, .L195+12 < ldr r2, .L195+20 < str r2, [r3] < 1142 I = I>>1 1142 I = I>>1 ldr r2, .L195+12 | lsr w0, w0, 1 ldr r1, .L195+20 | .LVL94: str r1, [r2] < lsr r3, r3, #1 < .LVL118: < 1143 %REPEAT 1143 %REPEAT .LDL30: | .LDL24: 1144 %END 1144 %END 1145 1145 > b .L124 > .L130: 1146 !MAIN PROGRAM 1146 !MAIN PROGRAM bx lr | ret .L196: | .L129: .align 2 < .L195: < .word _imp_current_file < .word .LC6 < .word .LANCHOR1 < .word _imp_current_line < .word 1138 < .word 1141 < .LFE247: < .align 2 < BNEST.41: < .LFB248: < 1147 1147 1148 !RADIX 36 CONSTANTS 1148 !RADIX 36 CONSTANTS 1149 %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907 1149 %OWNINTEGER B=2184, IF=9991, ELS=5950, E=5403, FIN=6907 1150 %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END 1150 %OWNINTEGER JUM=11642, P=17206, PS=17983, DEF=4605, END 1151 1151 1152 %INTEGER I,J,K 1152 %INTEGER I,J,K 1153 !!%FAULT 19 ->ERR; !RECOGNITION ER 1153 !!%FAULT 19 ->ERR; !RECOGNITION ER 1154 !!%FAULT 9 ->BEND; !INPUT ENDED 1154 !!%FAULT 9 ->BEND; !INPUT ENDED 1155 1155 1156 %on %event 9,1 %start 1156 %on %event 9,1 %start .LDL146: | .LDL143: 1157 ->err %if event_event = 9 1157 ->err %if event_event = 9 1158 ->bend %if event_event = 1 %and event_sub = 9 1158 ->bend %if event_event = 1 %and event_sub = 9 1159 %stop 1159 %stop 1160 %finish 1160 %finish 1161 1161 1162 open input(MAIN, "interdata/test.hal") 1162 open input(MAIN, "interdata/test.hal") add r10, sp, #360 | add x0, x21, 320 mov r5, #256 | ldr q16, [x21, 320] mov r2, r5 | ldp q18, q17, [x0, 16] add r1, r9, #308 | ldp q20, q19, [x0, 48] mov r0, r10 | ldp q22, q21, [x0, 80] bl memcpy | ldp q24, q23, [x0, 112] .LVL652: | ldp q26, q25, [x0, 144] add r4, sp, #1376 | ldp q28, q27, [x0, 176] add r4, r4, #8 | ldp q30, q29, [x0, 208] mov r2, r5 | ldr q31, [x0, 240] mov r1, r10 | .LVL634: mov r0, r4 | add x20, sp, 1488 bl memcpy | str q16, [sp, 1488] .LVL653: | stp q18, q17, [x20, 16] .LBB167: | stp q20, q19, [x20, 48] .LBI167: | stp q22, q21, [x20, 80] > stp q24, q23, [x20, 112] > stp q26, q25, [x20, 144] > stp q28, q27, [x20, 176] > stp q30, q29, [x20, 208] > str q31, [x20, 240] > .LBB183: > .LBI183: 1163 open input(PRE, "interdata/hal70.def") 1163 open input(PRE, "interdata/hal70.def") ldr r3, .L962+28 | add x0, x21, 576 str r3, [r8] | ldr q16, [x21, 576] add r10, sp, #616 | ldp q18, q17, [x0, 16] mov r2, r5 | ldp q20, q19, [x0, 48] add r1, r9, #564 | ldp q22, q21, [x0, 80] mov r0, r10 | ldp q24, q23, [x0, 112] bl memcpy | ldp q26, q25, [x0, 144] .LVL656: | ldp q28, q27, [x0, 176] mov r2, r5 | ldp q30, q29, [x0, 208] mov r1, r10 | ldr q31, [x0, 240] mov r0, r4 | .LVL636: bl memcpy | str q16, [sp, 1488] .LVL657: | stp q18, q17, [x20, 16] .LBB169: | stp q20, q19, [x20, 48] .LBI169: | stp q22, q21, [x20, 80] > stp q24, q23, [x20, 112] > stp q26, q25, [x20, 144] > stp q28, q27, [x20, 176] > stp q30, q29, [x20, 208] > str q31, [x20, 240] > .LBB185: > .LBI185: 1164 open output(BIN, "interdata/test.bin") 1164 open output(BIN, "interdata/test.bin") ldr r3, .L962+32 | add x0, x21, 832 str r3, [r8] | ldr q16, [x21, 832] str r7, [r6] | ldp q18, q17, [x0, 16] add r10, sp, #872 | ldp q20, q19, [x0, 48] mov r2, r5 | ldp q22, q21, [x0, 80] add r1, r9, #820 | ldp q24, q23, [x0, 112] mov r0, r10 | ldp q26, q25, [x0, 144] bl memcpy | ldp q28, q27, [x0, 176] .LVL660: | ldp q30, q29, [x0, 208] mov r2, r5 | ldr q31, [x0, 240] mov r1, r10 | .LVL638: mov r0, r4 | str q16, [sp, 1488] bl memcpy | stp q18, q17, [x20, 16] .LVL661: | stp q20, q19, [x20, 48] .LBB171: | stp q22, q21, [x20, 80] .LBI171: | stp q24, q23, [x20, 112] > stp q26, q25, [x20, 144] > stp q28, q27, [x20, 176] > stp q30, q29, [x20, 208] > str q31, [x20, 240] > .LBB187: > .LBI187: 1165 open output(LIS, "interdata/test.lis") 1165 open output(LIS, "interdata/test.lis") ldr r3, .L962+36 | add x0, x21, 1088 str r3, [r8] | ldr q16, [x21, 1088] str r7, [r6] | ldp q18, q17, [x0, 16] add r10, sp, #1120 | ldp q20, q19, [x0, 48] add r10, r10, #8 | ldp q22, q21, [x0, 80] mov r2, r5 | ldp q24, q23, [x0, 112] add r1, r9, #1072 | ldp q26, q25, [x0, 144] add r1, r1, #4 | ldp q28, q27, [x0, 176] mov r0, r10 | ldp q30, q29, [x0, 208] bl memcpy | ldr q31, [x0, 240] .LVL664: | .LVL640: mov r2, r5 | str q16, [sp, 1488] mov r1, r10 | stp q18, q17, [x20, 16] mov r0, r4 | stp q20, q19, [x20, 48] bl memcpy | stp q22, q21, [x20, 80] .LVL665: | stp q24, q23, [x20, 112] .LBB173: | stp q26, q25, [x20, 144] .LBI173: | stp q28, q27, [x20, 176] > stp q30, q29, [x20, 208] > str q31, [x20, 240] > .LBB189: > .LBI189: 1166 select output(0) 1166 select output(0) ldr r3, .L962+40 | .LBB191: str r3, [r8] | .LBI191: str r7, [r6] < .LVL668: < .LBB175: < .LBI175: < 1167 1167 ldr r3, .L962+44 < str r3, [r8] < str r7, [r6] < 1168 %CYCLE I = 1,1,SBOUND 1168 %CYCLE I = 1,1,SBOUND 1169 STORE(I) = 0 1169 STORE(I) = 0 mov r2, #0 | str wzr, [x0], 4 .LVL670: | .LVL644: .L736: < .LDL147: < str r2, [r3, #4]! < 1170 %REPEAT 1170 %REPEAT 1171 !! CODEPOS = ADDR(STORE(1)) 1171 !! CODEPOS = ADDR(STORE(1)) ldr r3, .L962+48 | adrp x0, STORE.133 add r1, r3, #130048 | add x0, x0, :lo12:STORE.1 cmp r3, r1 | add x1, x0, 126976 bne .L736 | add x1, x1, 3072 .LDL148: | .LVL643: > .L682: > .LDL144: > cmp x0, x1 > bne .L682 > .LDL145: 1172 {} CODEPOS = 1 1172 {} CODEPOS = 1 ldr r3, .L962+444 | adrp x2, .LANCHOR0 mov r2, #1 | add x2, x2, :lo12:.LANCHO str r2, [r3, #8] | mov w0, 1 > .LVL645: > str w0, [x2, 8] 1173 MACLIM = (CODEPOS+20)<<1 1173 MACLIM = (CODEPOS+20)<<1 mov r2, #42 | mov w0, 42 str r2, [r3, #248] | str w0, [x2, 252] 1174 !! STORELIM = ADDR(STORE(SBOUND)) 1174 !! STORELIM = ADDR(STORE(SBOUND)) 1175 {} STORELIM = sbound 1175 {} STORELIM = sbound mov r2, #32512 | mov w0, 32512 str r2, [r3, #312] | str w0, [x2, 316] 1176 NP = STORELIM 1176 NP = STORELIM str r2, [r3, #232] | str w0, [x2, 236] 1177 LABLIM = NP-60 1177 LABLIM = NP-60 ldr r0, .L962+52 | mov w0, 32452 str r0, [r3, #316] | str w0, [x2, 320] 1178 BP = LABLIM 1178 BP = LABLIM str r0, [r3, #244] | str w0, [x2, 248] 1179 DEFLIM = BP-(SBOUND>>2) 1179 DEFLIM = BP-(SBOUND>>2) ldr r1, .L962+56 | mov w1, 24324 str r1, [r3, #260] | str w1, [x2, 264] 1180 DEFMIN = DEFLIM 1180 DEFMIN = DEFLIM str r1, [r3, #252] | str w1, [x2, 256] 1181 !! INTEGER(BP) = DEFLIM 1181 !! INTEGER(BP) = DEFLIM 1182 set INTEGER(BP, DEFLIM) 1182 set INTEGER(BP, DEFLIM) bl SETINTEGER.8 bl SETINTEGER.8 .LVL671: | .LVL646: 1183 SELECT INPUT(PRE) 1183 SELECT INPUT(PRE) mov r0, #2 | mov w0, 2 bl _imp_SELECTINPUT bl _imp_SELECTINPUT .LVL672: | .LVL647: 1184 DO PASS: 1184 DO PASS: ldr r3, .L962+8 < ldr r2, .L962+60 < str r2, [r3] < ldr r3, .L962 < ldr r2, .L962+4 < str r2, [r3] < 1185 STARTPOS = MACLIM 1185 STARTPOS = MACLIM ldr r9, .L962+444 | adrp x23, .LANCHOR0 ldr r3, [r9, #248] | add x23, x23, :lo12:.LANC str r3, [r9, #276] | ldr w0, [x23, 252] > str w0, [x23, 280] 1186 MP = 0 1186 MP = 0 ldr r7, .L962 | str wzr, [x23, 272] ldr r8, .L962+4 < str r8, [r7] < mov r4, #0 < str r4, [r9, #268] < 1187 ALMAX = DEFLIM 1187 ALMAX = DEFLIM ldr r3, [r9, #260] | ldr w0, [x23, 264] str r3, [r9, #264] | str w0, [x23, 268] 1188 LABMIN = LABLIM 1188 LABMIN = LABLIM ldr r3, [r9, #316] | ldr w0, [x23, 320] str r3, [r9, #272] | str w0, [x23, 276] 1189 ASSCOND = 1; SKIP = 0 1189 ASSCOND = 1; SKIP = 0 .LVL674: | .LVL649: str r4, [sp, #252] | mov w28, 0 mov r3, #1 | mov w0, 1 str r3, [sp, #264] | str w0, [sp, 108] 1190 LOCTYPE = MEMMASK+RELMASK; LOC = 0 1190 LOCTYPE = MEMMASK+RELMASK; LOC = 0 mov r3, #96 | mov w0, 96 str r3, [sp, #344] | str w0, [sp, 440] str r4, [sp, #348] | str wzr, [sp, 444] 1191 SET ACC 1191 SET ACC add ip, sp, #272 | add x20, sp, 368 > .LVL648: > .L683: > mov x18, x20 bl SETACC.40 bl SETACC.40 .LVL675: | .LVL650: 1192 READ: FSYM = ' '; FAULTPOS = 0 1192 READ: FSYM = ' '; FAULTPOS = 0 ldr r10, .L962+8 | mov w0, 32 .LVL673: | str w0, [sp, 448] .L737: | str wzr, [x23, 296] ldr r3, .L962+64 < str r3, [r10] < mov r3, #32 < str r3, [sp, #352] < mov r3, #0 < str r3, [r9, #292] < 1193 READ LINE 1193 READ LINE add r6, sp, #272 | mov x18, x20 b .L739 < .LVL676: < .L935: < str r8, [r7] < mov ip, r6 < bl READLINE.38 bl READLINE.38 .LVL857: | .LVL816: > b .L686 > .L860: 1194 NEXT: 1194 NEXT: ldr r3, .L962+524 < str r3, [r10] < 1195 DREG = -1 1195 DREG = -1 mvn r3, #0 | mov w0, -1 str r3, [sp, #300] | str w0, [sp, 396] 1196 MODE = 0 1196 MODE = 0 str r8, [r7] | str wzr, [sp, 388] mov r2, #0 < str r2, [sp, #292] < 1197 PEND = 0; COND = 0 1197 PEND = 0; COND = 0 str r2, [sp, #272] | str wzr, [sp, 368] str r2, [sp, #320] | str wzr, [sp, 416] 1198 QSTART = QBASE; QLIM = QSTART 1198 QSTART = QBASE; QLIM = QSTART ldr r3, [r9, #288] | ldr w0, [x23, 292] str r3, [r9, #304] | str w0, [x23, 308] str r3, [r9, #240] | str w0, [x23, 244] 1199 FLAG = 0 1199 FLAG = 0 str r2, [sp, #324] | str wzr, [sp, 420] 1200 %IF S('$') %START 1200 %IF S('$') %START .LDL149: | .LDL146: mov ip, r6 | mov x18, x20 mov r0, #36 | mov w0, 36 bl S.33 bl S.33 .LVL734: | .LVL703: subs r4, r0, #0 | mov w21, w0 bne .L935 | cbnz w0, .L870 1201 ->NEWPAGE %IF SYM = '/' 1201 ->NEWPAGE %IF SYM = '/' mov r3, #1200 | ldr w0, [sp, 372] str r3, [r10] | cmp w0, 47 ldr r3, [sp, #276] | beq .L871 cmp r3, #47 | .LDL176: beq .L744 < .LDL181: < 1202 ->ERR %IF %NOT TAG 1202 ->ERR %IF %NOT TAG str r8, [r7] | mov x18, x20 mov ip, r6 < bl TAG.34 bl TAG.34 .LVL735: | .LVL704: cmp r0, #0 | cbz w0, .L693 beq .L745 | .LDL177: .LDL182: < 1203 ->ASSIF %IF TAG1 = IF 1203 ->ASSIF %IF TAG1 = IF .LDL154: .LDL154: ldr r3, .L962+236 | ldr w19, [sp, 384] str r3, [r10] | mov w0, 9991 ldr r3, [sp, #288] | cmp w19, w0 ldr r2, .L962+240 | beq .L694 cmp r3, r2 | .LDL178: beq .L746 < .LDL183: < 1204 ->ASSELSE %IF TAG1 = ELS 1204 ->ASSELSE %IF TAG1 = ELS .LDL155: < str r8, [r7] < ldr r2, .L962+244 < cmp r3, r2 < beq .L936 < .LDL184: < 1205 ->ASSFIN %IF TAG1 = FIN < .LDL156: .LDL156: ldr r2, .L962+248 | mov w0, 5950 cmp r3, r2 | cmp w19, w0 beq .L937 | beq .L872 .LDL185: | .LDL179: > 1205 ->ASSFIN %IF TAG1 = FIN > .LDL159: > mov w0, 6907 > cmp w19, w0 > beq .L873 > .LDL180: 1206 ->LEND %IF SKIP # 0 1206 ->LEND %IF SKIP # 0 ldr r2, [sp, #252] | cbnz w28, .L698 cmp r2, #0 | .LDL181: bne .L742 < .LDL186: < 1207 ->DEFINE %IF TAG1 = DEF 1207 ->DEFINE %IF TAG1 = DEF ldr r2, .L962+252 | .LDL182: str r2, [r10] < ldr r2, .L962+556 < cmp r3, r2 < beq .L758 < .LDL187: < 1208 ->DEFINE %IF TAG1 = 19625; !RED 1208 ->DEFINE %IF TAG1 = 19625; !RED ldr r2, .L962+256 | mov w0, 4605 cmp r3, r2 | cmp w19, w0 beq .L758 | mov w0, 19625 .LDL188: | ccmp w19, w0, 4, ne > beq .L706 > .LDL183: 1209 ->LISTC %IF TAG1 = 13350; !LIS 1209 ->LISTC %IF TAG1 = 13350; !LIS .LDL158: | .LDL161: ldr r2, .L962+260 | mov w0, 13350 cmp r3, r2 | cmp w19, w0 beq .L759 | beq .L707 .LDL189: | .LDL184: 1210 ->TEMP %IF TAG1 = 21780; !TEM 1210 ->TEMP %IF TAG1 = 21780; !TEM .LDL159: | .LDL162: ldr r2, .L962+264 | mov w0, 21780 cmp r3, r2 | cmp w19, w0 beq .L938 | beq .L874 .LDL190: | .LDL185: 1211 ->LOCC %IF TAG1 = 13556; !LOC 1211 ->LOCC %IF TAG1 = 13556; !LOC ldr r2, .L962+268 | .LDL186: cmp r3, r2 < beq .L939 < .LDL191: < 1212 ->LOCC %IF TAG1 = 1917; !ASS 1212 ->LOCC %IF TAG1 = 1917; !ASS ldr r2, .L962+272 | cmp w19, 1917 cmp r3, r2 | mov w0, 13556 beq .L767 | ccmp w19, w0, 4, ne .LDL192: | beq .L713 > .LDL187: 1213 ->SAVC %IF TAG1 = 20568; !SAV 1213 ->SAVC %IF TAG1 = 20568; !SAV .LDL161: | .LDL164: ldr r2, .L962+276 | mov w0, 20568 cmp r3, r2 | cmp w19, w0 bne .L940 | bne .L875 .LDL193: | .LDL188: 1214 ->MACDEF %IF TAG1 = 14111; !MAC 1214 ->MACDEF %IF TAG1 = 14111; !MAC ldr r2, .L962+112 | mov w0, 14111 cmp r3, r2 | cmp w19, w0 beq .L927 | beq .L862 .LDL162: | .LDL165: .LDL167: | .LDL168: 1215 ->BEGIN %IF TAG1 = 2460; !BEG 1215 ->BEGIN %IF TAG1 = 2460; !BEG ldr r2, .L962+116 | cmp w19, 2460 cmp r3, r2 | beq .L863 beq .L928 | .LDL166: .LDL163: | .LDL169: .LDL174: < 1216 ->BEND %IF TAG1 = END 1216 ->BEND %IF TAG1 = END ldr r2, .L962+592 | mov w0, 6009 cmp r3, r2 | cmp w19, w0 bne .L929 | bne .L864 .LDL164: | .LDL167: .LDL175: | .LDL170: 1217 FAULT('U') 1217 FAULT('U') mov r2, #1216 | add x18, sp, 368 str r2, [r10] | mov w0, 85 add ip, sp, #272 < mov r0, #85 < bl FAULT.45 bl FAULT.45 .LVL720: | .LVL689: 1218 ->LEND 1218 ->LEND b .L776 | b .L722 .L782: | .L728: 1219 %FINISH 1219 %FINISH 1220 ->LEND %IF SKIP # 0 %OR SYM = '/' 1220 ->LEND %IF SKIP # 0 %OR SYM = '/' ldr r3, [sp, #252] | cbnz w28, .L698 cmp r3, #0 | ldr w0, [sp, 372] bne .L742 | .LDL147: ldr r3, [sp, #276] < .LDL150: < 1221 ->LEND %IF SYM = NL 1221 ->LEND %IF SYM = NL str r8, [r7] | cmp w0, 47 cmp r3, #47 | ccmp w0, 10, 4, ne cmpne r3, #10 | beq .L726 beq .L780 | .LDL148: .LDL151: < 1222 %IF TAG %START 1222 %IF TAG %START mov ip, r6 | mov x18, x20 bl TAG.34 bl TAG.34 .LVL677: | .LVL652: cmp r0, #0 | cbnz w0, .L727 bne .L781 < 1223 ->LABDEF %IF TERM = ':' 1223 ->LABDEF %IF TERM = ':' ldr r3, .L962+68 | ldr w0, [sp, 376] str r3, [r10] | cmp w0, 58 ldr r3, [sp, #280] | beq .L728 cmp r3, #58 | .LDL149: beq .L782 | .LDL171: .LDL152: < .LDL176: < 1224 MODE = 1 1224 MODE = 1 str r8, [r7] | mov w1, 1 mov r2, #1 | str w1, [sp, 388] str r2, [sp, #292] < 1225 ->ASSIGN %IF TERM = '(' %OR SYM = '=' 1225 ->ASSIGN %IF TERM = '(' %OR SYM = '=' cmp r3, #40 | cmp w0, 40 beq .L783 | beq .L729 ldr r3, [sp, #276] | ldr w0, [sp, 372] cmp r3, #61 | cmp w0, 61 beq .L783 | beq .L729 .LDL153: | .LDL150: .LDL177: | .LDL172: 1226 ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS) 1226 ->JUMP %IF TAG1 = JUM %AND (TAG2=P %OR TAG2=PS) ldr r3, [sp, #288] | ldr w0, [sp, 384] ldr r2, .L962+72 | mov w1, 11642 cmp r3, r2 | cmp w0, w1 bne .L787 | bne .L733 ldr r2, [sp, #284] | ldr w1, [sp, 380] ldr r0, .L962+76 | mov w2, 17983 ldr r1, .L962+80 | cmp w1, w2 cmp r2, r0 | mov w2, 17206 cmpne r2, r1 | ccmp w1, w2, 4, ne beq .L923 | beq .L858 .L790: | .L737: .LDL194: | .LDL189: 1227 ->IFC %IF TAG1 = IF 1227 ->IFC %IF TAG1 = IF ldr r2, .L962+240 | mov w1, 9991 cmp r3, r2 | cmp w0, w1 beq .L793 | beq .L740 .LDL195: | .LDL190: .LDL199: | .LDL194: 1228 ->ELSE %IF TAG1 = ELS %AND TAG2 = E 1228 ->ELSE %IF TAG1 = ELS %AND TAG2 = E ldr r2, .L962+244 | mov w1, 5950 cmp r3, r2 | cmp w0, w1 bne .L941 | bne .L876 ldr r2, .L962+292 | ldr w2, [sp, 380] ldr r1, [sp, #284] | mov w1, 5403 cmp r1, r2 | cmp w2, w1 beq .L942 | beq .L877 .L800: | .L743: .LDL200: | .LDL195: 1229 ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH 1229 ->FINISH %IF TAG1 = FIN %AND TAG2 = ISH ldr r2, .L962+248 | mov w1, 6907 cmp r3, r2 | cmp w0, w1 bne .L790 | bne .L737 ldr r2, .L962+332 | ldr w2, [sp, 380] ldr r1, [sp, #284] | mov w1, 10490 cmp r1, r2 | cmp w2, w1 beq .L945 | beq .L880 .L802: | .L745: .LDL204: | .LDL199: 1230 ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173 1230 ->WHILE %IF TAG1 = 25106 %AND TAG2 = 13173 ldr r2, .L962+84 | mov w1, 25106 cmp r3, r2 | cmp w0, w1 bne .L800 | bne .L743 ldr r2, .L962+88 | ldr w2, [sp, 380] ldr r1, [sp, #284] | mov w1, 13173 cmp r1, r2 | cmp w2, w1 beq .L924 | beq .L859 .L801: | .L747: .LDL206: | .LDL201: 1231 ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173 1231 ->CYCLE %IF TAG1 = 4269 %AND TAG2 = 13173 ldr r2, .L962+296 | mov w1, 4269 cmp r3, r2 | cmp w0, w1 bne .L802 | bne .L745 ldr r3, .L962+88 | ldr w1, [sp, 380] ldr r2, [sp, #284] | mov w0, 13173 cmp r2, r3 | cmp w1, w0 beq .L943 | beq .L878 .L803: | .L748: .LDL207: < 1232 ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544 < ldr r2, .L962+336 < cmp r3, r2 < bne .L801 < ldr r3, .L962+340 < ldr r2, [sp, #284] < cmp r2, r3 < bne .L803 < .LDL202: .LDL202: > 1232 ->REPEAT %IF TAG1 = 19637 %AND TAG2 = 5544 > mov w1, 19637 > cmp w0, w1 > bne .L747 > ldr w1, [sp, 380] > mov w0, 5544 > cmp w1, w0 > bne .L748 > .LDL197: 1233 MODE=-2 %AND ->DATA %IF TAG1 = B 1233 MODE=-2 %AND ->DATA %IF TAG1 = B ldr r2, .L962+92 | mov w1, -2 cmp r3, r2 | cmp w0, 2184 mvneq r3, #1 | beq .L750 beq .L805 | b .L748 b .L803 | .L871: .L746: | .LDL191: .LDL196: | str w1, [sp, 388] str r3, [sp, #292] < 1234 TYPE = UMASK; LOOKUP(0) 1234 TYPE = UMASK; LOOKUP(0) mov r3, #512 | mov w0, 512 str r3, [sp, #340] | str w0, [sp, 436] mov ip, r6 | mov x18, x20 mov r0, #0 | mov w0, 0 bl LOOKUP.32 bl LOOKUP.32 .LVL740: | .LVL709: 1235 ->MACCALL %IF TYPE&OPMASK = MACRO 1235 ->MACCALL %IF TYPE&OPMASK = MACRO ldr r3, .L962+300 | ldr w1, [sp, 436] str r3, [r10] | and w0, w1, 61440 ldr r2, [sp, #340] | cmp w0, 40960 and r3, r2, #61440 | beq .L751 cmp r3, #40960 | .LDL192: beq .L806 | .LDL203: .LDL197: < .LDL208: < 1236 ->MINST %IF TYPE&OPMASK # 0 1236 ->MINST %IF TYPE&OPMASK # 0 str r8, [r7] | cbz w0, .L879 cmp r3, #0 | .LDL193: beq .L944 | .LDL204: .LDL198: < .LDL209: < 1237 FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0 1237 FAULT('U') %AND ->LEND %IF TYPE&UMASK # 0 tst r2, #512 | tbnz x1, 9, .L881 bne .L946 | .LDL205: .LDL210: | add x18, sp, 368 add ip, sp, #272 | mov w0, 85 mov r0, #85 < bl FAULT.45 bl FAULT.45 .LVL773: | .LVL739: b .L776 | b .L722 .LVL774: | .L884: .L949: < 1238 PEND = -1 1238 PEND = -1 ldr r3, .L962+396 | mov w0, -1 str r3, [r10] | str w0, [sp, 368] mvn r3, #0 | .L727: str r3, [sp, #272] < 1239 %FINISH 1239 %FINISH mvn r3, #0 | mov w1, -1 .L805: | .L750: 1240 MODE = -1 1240 MODE = -1 .L781: < 1241 DATA: 1241 DATA: 1242 %CYCLE 1242 %CYCLE 1243 GET EXP; ASSEMBLE 1243 GET EXP; ASSEMBLE mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL779: | .LVL744: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL780: | .LVL745: 1244 FAULT('I') %IF TYPE®XMASK # 0 1244 FAULT('I') %IF TYPE®XMASK # 0 ldr fp, [sp, #260] | mov x18, x20 b .L826 | mov w0, 73 .L946: < mov ip, r6 < mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL775: | .LVL740: b .L812 | b .L757 .LVL776: | .LVL741: .L821: | .L766: ldr r3, .L962+404 | ldr w1, [sp, 436] mov r4, r3 | mov w0, 144 str r3, [r10] | tst w1, w0 str r8, [r7] | bne .L884 str r4, [r10] | .L757: str r8, [r7] < ldr r3, [sp, #340] < tst r3, #144 < bne .L949 < .L812: < 1245 I = 1 1245 I = 1 .LVL781: | .LVL746: cmp r4, #1000 | cmp w19, 1000 movge r4, #1 | csinc w19, w19, wzr, lt .L814: | .L759: .LVL783: | .LVL748: mov r4, #1 | mov w19, 1 b .L822 | b .L758 .LVL787: | .LVL753: .L950: | .L885: 1246 %IF S('$') %START 1246 %IF S('$') %START str r8, [r7] | mov x18, x20 mov ip, r6 | mov w0, 36 mov r0, #36 < bl S.33 bl S.33 .LVL782: | .LVL747: cmp r0, #0 | cbnz w0, .L827 bne .L886 < 1247 I = VAL %IF VAL < 1000 1247 I = VAL %IF VAL < 1000 ldr r3, .L962+408 | ldr w19, [sp, 432] str r3, [r10] < ldr r4, [sp, #336] < 1248 QLIM = QSTART 1248 QLIM = QSTART str r8, [r7] | ldr w0, [x23, 308] ldr r3, [r9, #304] | str w0, [x23, 244] str r3, [r9, #240] < 1249 GET EXP; ASSEMBLE 1249 GET EXP; ASSEMBLE mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL784: | .LVL749: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL785: | .LVL750: 1250 %FINISH 1250 %FINISH ldr r3, .L962+412 < str r3, [r10] < ldr r3, .L962+412 < str r3, [r10] < str r8, [r7] < 1251 %WHILE I > 0 %CYCLE 1251 %WHILE I > 0 %CYCLE .LDL211: | .LDL206: cmp r4, #0 | cmp w19, 0 bgt .L822 | ble .L766 b .L821 | .LVL751: .LVL786: | .L758: .L886: | subs w19, w19, #1 subs r4, r4, #1 | .LVL758: .LVL792: | beq .L766 beq .L821 | .LVL759: .LVL793: | .L767: .L822: < 1252 %IF MODE # -1 %START 1252 %IF MODE # -1 %START .LDL212: | .LDL207: ldr r3, [sp, #292] | ldr w22, [sp, 388] cmn r3, #1 | cmn w22, #1 beq .L950 | beq .L885 1253 FAULT('T') %IF VAL&16_FF00 # 0 1253 FAULT('T') %IF VAL&16_FF00 # 0 mov ip, r6 | mov w25, 84 mov r0, #84 | b .L767 > .LVL752: > .L827: > mov x18, x20 > mov w0, w25 bl FAULT.45 bl FAULT.45 .LVL789: | .LVL755: b .L819 | b .L764 .L952: | .L887: str r8, [r7] | ldr w21, [sp, 432] ldr r3, [sp, #336] | tst w21, 65280 tst r3, #65280 | bne .L886 bne .L951 | .L764: .L819: < 1254 %IF MODE = -2 %START 1254 %IF MODE = -2 %START .LDL213: | .LDL208: ldr r3, [sp, #292] | cmn w22, #2 cmn r3, #2 | bne .L887 bne .L952 < 1255 J = VAL<<8; MODE = -3 1255 J = VAL<<8; MODE = -3 str r5, [r10] | mov w26, -3 str r8, [r7] | lsl w24, w21, 8 ldr fp, [sp, #336] | .LVL760: .LVL794: | str w26, [sp, 388] lsl fp, fp, #8 < .LVL795: < mvn r3, #2 < str r3, [sp, #292] < ldr r5, .L962+528 < b .L740 < .LVL858: < .L920: < str fp, [sp, #260] < b .L745 < .LVL859: < .L959: < ldr r3, [sp, #264] < str r3, [sp, #252] < .LVL860: < .L883: < 1256 %finish %ELSE %START 1256 %finish %ELSE %START b .L818 | b .L763 .L963: | .L883: .align 2 < .L962: < .word _imp_current_file < .word .LC6 < .word _imp_current_line < .word _imp_OutStream < .word _imp_outfile < .word _imp_OUTFILE < .word .LANCHOR2 < .word 1162 < .word 1163 < .word 1164 < .word 1165 < .word 1166 < .word STORE.133-4 < .word 32452 < .word 24324 < .word 1183 < .word 1191 < .word 1222 < .word 11642 < .word 17206 < .word 17983 < .word 25106 < .word 13173 < .word 2184 < .word 1452 < .word 1463 < .word 1495 < .word 1510 < .word 14111 < .word 2460 < .word 1577 < .word 1578 < .word 1579 < .word 1580 < .word 1585 < .word 1590 < .word 1591 < .word 1592 < .word 1594 < .word 1596 < .word 1533 < .word 1538 < .word 1539 < .word 1540 < .word 1546 < .word 1569 < .word 1277 < .word 1278 < .word 1285 < .word 1286 < .word 1287 < .word 1288 < .word 1293 < .word 1295 < .word 1310 < .word 1313 < .word 1319 < .word 1428 < .word 1430 < .word 1202 < .word 9991 < .word 5950 < .word 6907 < .word 1206 < .word 19625 < .word 13350 < .word 21780 < .word 13556 < .word 1917 < .word 20568 < .word 1527 < .word 1324 < .word 1325 < .word 5403 < .word 4269 < .word 1234 < .word 1330 < .word 1331 < .word 1377 < .word 1381 < .word 1382 < .word 1385 < .word 1386 < .word 10490 < .word 19637 < .word 5544 < .word 1416 < .word 1417 < .word 1419 < .word 1391 < .word 1393 < .word 1406 < .word 1407 < .word 1411 < .word 1335 < .word 1336 < .word 1337 < .word 1338 < .word 1339 < .word 1237 < .word 1265 < .word 1243 < .word 1246 < .word 1249 < .word 1261 < .word 1258 < .word 1272 < .word 1267 < .word 1289 < .word 1298 < .word 1300 < .word .LANCHOR0 < .word 1315 < .word 1357 < .word 1358 < .word 1364 < .word 1353 < .word 1342 < .word 1347 < .word 1348 < .word 1350 < .word 1351 < .word 1352 < .word 1359 < .word 1401 < .word 1395 < .word 1400 < .word 1394 < .word 1397 < .word .LANCHOR1 < .word 1439 < .word 1193 < .word 1254 < .word 1457 < .word 1445 < .word 1475 < .word 1479 < .word 1482 < .word 1484 < .word 4605 < .word 1485 < .word 1474 < .word 1477 < .word 1491 < .word 1506 < .word 1503 < .word 1548 < .word 1549 < .word 6009 < .word _imp_current_line < .word 1554 < .word .LANCHOR0 < .word 1518 < .word 1519 < .word 1515 < .word 1516 < .word 65408 < .word 1447 < .word _imp_current_file < .word .LC6 < .L948: < 1257 VAL = VAL+J; MODE = -2 1257 VAL = VAL+J; MODE = -2 ldr r3, [sp, #336] | mov w27, -2 add r3, r3, fp | b .L771 str r3, [sp, #336] | .L881: mvn r3, #1 | add w21, w24, w21 str r3, [sp, #292] | str w21, [sp, 432] > str w27, [sp, 388] 1258 PLANT VAL; VAL = VAL&255 1258 PLANT VAL; VAL = VAL&255 mov ip, r6 | mov x18, x20 bl PLANTVAL.1 bl PLANTVAL.1 .LVL790: | .LVL756: ldrb r3, [sp, #336] @ zer | ldrb w0, [sp, 432] str r3, [sp, #336] | str w0, [sp, 432] > .L763: 1259 %FINISH 1259 %FINISH ldr r3, .L962+420 < str r3, [r10] < 1260 %finish %ELSE %START 1260 %finish %ELSE %START .L818: < 1261 PLANT VAL 1261 PLANT VAL mov ip, r6 | mov x18, x20 bl PLANTVAL.1 bl PLANTVAL.1 .LVL788: | .LVL754: > b .L763 > .L886: 1262 %FINISH 1262 %FINISH ldr r3, .L962+416 < str r3, [r10] < 1263 I = I-1 1263 I = I-1 b .L818 | .LVL757: .L951: < .LVL791: < 1264 %REPEAT 1264 %REPEAT 1265 %EXIT %UNLESS S(',') %OR SYM&128 # 0 1265 %EXIT %UNLESS S(',') %OR SYM&128 # 0 mov ip, r6 | mov x18, x20 mov r0, #44 | mov w0, 44 bl S.33 bl S.33 .LVL777: | .LVL742: cmp r0, #0 | cbnz w0, .L882 bne .L947 | ldr w0, [sp, 372] ldr r3, [sp, #276] | tbz x0, 7, .L883 tst r3, #128 | .L768: beq .L948 | .LDL209: .L823: < .LDL214: < 1266 %IF SYM = NL %START 1266 %IF SYM = NL %START ldr r3, .L962+400 | ldr w0, [sp, 372] str r3, [r10] | cmp w0, 10 str r8, [r7] | bne .L768 ldr r3, [sp, #276] < cmp r3, #10 < bne .L823 < 1267 PRINT LINE %IF PRINTPOS # 0; READ LINE 1267 PRINT LINE %IF PRINTPOS # 0; READ LINE str r8, [r7] | ldr w0, [x23, 288] ldr r3, [r9, #284] | cbnz w0, .L888 cmp r3, #0 | .L770: bne .L953 | mov x18, x20 .L825: < mov ip, r6 < bl READLINE.38 bl READLINE.38 .LVL797: | .LVL762: mov ip, r6 | mov x18, x20 bl PRINTLINE.47 bl PRINTLINE.47 .LVL798: | .LVL763: b .L825 | b .L770 .LVL799: | .LVL764: .L931: | .L866: 1268 QSTART = QBASE 1268 QSTART = QBASE ldr r3, .L962+428 | ldr w0, [x23, 292] str r3, [r10] | str w0, [x23, 308] ldr r3, .L962+428 | b .L768 str r3, [r10] | .L888: str r8, [r7] < ldr r3, [r9, #288] < str r3, [r9, #304] < 1269 %FINISH 1269 %FINISH 1270 QLIM = QSTART 1270 QLIM = QSTART ldr r3, [r9, #304] | ldr w0, [x23, 308] str r3, [r9, #240] | str w0, [x23, 244] b .L823 < .L953: < 1271 %REPEAT 1271 %REPEAT .LVL778: | .LVL743: .L826: | .L771: 1272 VAL=J %AND PLANT VAL %IF MODE = -3 1272 VAL=J %AND PLANT VAL %IF MODE = -3 ldr r3, [sp, #292] | ldr w0, [sp, 388] cmn r3, #3 | cmn w0, #3 bne .L762 | bne .L710 ldr r3, [sp, #260] | str w24, [sp, 432] str r3, [sp, #336] | mov x18, x20 mov ip, r6 < bl PLANTVAL.1 bl PLANTVAL.1 .LVL796: | .LVL761: b .L762 | b .L710 .L947: | .L882: .L815: | .L760: 1273 ->SEND 1273 ->SEND str fp, [sp, #260] < ldr r3, .L962+424 < str r3, [r10] < str r8, [r7] < 1274 1274 1275 LABDEF: 1275 LABDEF: 1276 CREG = -1; ATYPE = -1 1276 CREG = -1; ATYPE = -1 mvn r3, #0 | mov w0, -1 str r3, [sp, #328] | str w0, [sp, 424] str r3, [sp, #332] | str w0, [sp, 428] 1277 GET SYM 1277 GET SYM mov ip, r6 | mov x18, x20 bl GETSYM.7 bl GETSYM.7 .LVL721: | .LVL690: 1278 FAULT('C') %AND NP=STORELIM %IF NP # STORELIM 1278 FAULT('C') %AND NP=STORELIM %IF NP # STORELIM ldr r3, .L962+184 | ldr w19, [x23, 316] str r3, [r10] | ldr w0, [x23, 236] ldr r4, [r9, #312] | cmp w0, w19 ldr r3, [r9, #232] | beq .L731 cmp r3, r4 | mov x18, x20 beq .L785 | mov w0, 67 mov ip, r6 < mov r0, #67 < bl FAULT.45 bl FAULT.45 .LVL722: | .LVL691: str r4, [r9, #232] | str w19, [x23, 236] .L785: | .L731: 1279 TYPE = LOCTYPE; VAL = LOC 1279 TYPE = LOCTYPE; VAL = LOC ldr r3, .L962+188 | ldr w0, [sp, 440] str r3, [r10] | str w0, [sp, 436] str r8, [r7] | ldr w0, [sp, 444] ldr r3, [sp, #344] | str w0, [sp, 432] str r3, [sp, #340] < ldr r3, [sp, #348] < str r3, [sp, #336] < 1280 LOOKUP(7) 1280 LOOKUP(7) str r8, [r7] | mov x18, x20 mov ip, r6 | mov w0, 7 mov r0, #7 < bl LOOKUP.32 bl LOOKUP.32 .LVL723: | .LVL692: 1281 ->NEXT 1281 ->NEXT mov r3, #1280 | b .L686 str r3, [r10] | .L729: b .L740 < .L783: < 1282 1282 1283 ASSIGN: 1283 ASSIGN: 1284 PEND = 1 1284 PEND = 1 mov r3, #1 | mov w0, 1 str r3, [sp, #272] | str w0, [sp, 368] 1285 GET EXP 1285 GET EXP mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL724: | .LVL693: 1286 ->ERR %IF %NOT S('=') 1286 ->ERR %IF %NOT S('=') ldr r3, .L962+192 | mov x18, x20 str r3, [r10] | mov w0, 61 mov ip, r6 < mov r0, #61 < bl S.33 bl S.33 .LVL725: | .LVL694: cmp r0, #0 | cbz w0, .L736 beq .L745 | .LDL173: .LDL178: < 1287 QUEUE(-25); !'STORE' 1287 QUEUE(-25); !'STORE' ldr r3, .L962+196 | mov w0, -25 str r3, [r10] < str r8, [r7] < mvn r0, #24 < bl QUEUE.9 bl QUEUE.9 .LVL726: | .LVL695: 1288 %IF INTEGER(QBASE) = REG %START 1288 %IF INTEGER(QBASE) = REG %START ldr r3, .L962+200 | ldr w0, [x23, 292] str r3, [r10] < str r8, [r7] < ldr r0, [r9, #288] < bl INTEGER.39 bl INTEGER.39 .LVL727: | .LVL696: cmp r0, #128 | cmp w0, 128 beq .L931 | beq .L866 .L828: | .L773: 1289 DREG = INTEGER(QBASE+1) 1289 DREG = INTEGER(QBASE+1) ldr r3, .L962+204 | ldr w0, [x23, 292] str r3, [r10] | add w0, w0, 1 str r8, [r7] < ldr r0, [r9, #288] < add r0, r0, #1 < bl INTEGER.39 bl INTEGER.39 .LVL800: | .LVL765: str r0, [sp, #300] | str w0, [sp, 396] 1290 DUSE = 0 1290 DUSE = 0 ldr r3, .L962+432 | str wzr, [sp, 392] str r3, [r10] | b .L773 str r8, [r7] | .L867: mov r3, #0 < str r3, [sp, #296] < 1291 %FINISH 1291 %FINISH 1292 QSTART = QLIM; MODE = 2 1292 QSTART = QLIM; MODE = 2 ldr r3, [r9, #240] | ldr w0, [x23, 244] str r3, [r9, #304] | str w0, [x23, 308] mov r3, #2 | mov w0, 2 str r3, [sp, #292] | str w0, [sp, 388] b .L828 < .L932: < 1293 GET EXP 1293 GET EXP str r8, [r7] | mov x18, x20 mov ip, r6 < bl GETEXP.16 bl GETEXP.16 .LVL728: | .LVL697: 1294 %IF FLAG # 0 %START 1294 %IF FLAG # 0 %START ldr r3, .L962+208 | ldr w1, [sp, 420] str r3, [r10] | cbz w1, .L781 ldr r3, [sp, #324] < cmp r3, #0 < beq .L829 < 1295 %IF DREG<0 %AND FLAG-QSTART=QSTART-QBASE-1 %C 1295 %IF DREG<0 %AND FLAG-QSTART=QSTART-QBASE-1 %C str r8, [r7] | ldr w0, [sp, 396] ldr r2, [sp, #300] | tbz w0, #31, .L775 cmp r2, #0 | ldr w2, [x23, 308] bge .L830 | ldr w0, [x23, 292] ldr r2, [r9, #304] | sub w1, w1, w2 ldr r0, [r9, #288] | sub w2, w2, w0 sub r3, r3, r2 | sub w2, w2, #1 sub r2, r2, r0 | cmp w1, w2 sub r2, r2, #1 | beq .L867 cmp r3, r2 | .L775: beq .L932 < .L830: < bl INTEGER.39 bl INTEGER.39 .LVL801: | .LVL766: tst r0, #256 | tbnz x0, 8, .L775 bne .L830 < 1296 %AND INTEGER(QBASE)&BMASK=0 %START 1296 %AND INTEGER(QBASE)&BMASK=0 %START ldr r2, .L962+212 < str r2, [r10] < 1297 I = QBASE; J = QSTART 1297 I = QBASE; J = QSTART ldr r2, [r9, #288] | ldr w21, [x23, 292] .LVL802: | .LVL767: ldr r3, [r9, #304] | ldr w0, [x23, 308] .LVL803: | .LVL768: mov fp, r3 | mov w24, w0 sub r4, r2, r3 | sub w21, w21, w0 .LVL804: | .LVL769: .L831: | .L776: 1298 I = I+1 %AND J=J+1 %WHILE INTEGER(I) = INTEGER(J 1298 I = I+1 %AND J=J+1 %WHILE INTEGER(I) = INTEGER(J str r8, [r7] | add w0, w21, w24 add r0, r4, fp | .LVL770: .LVL805: < bl INTEGER.39 bl INTEGER.39 .LVL806: | .LVL771: str r0, [sp, #256] | mov w19, w0 mov r0, fp | mov w0, w24 bl INTEGER.39 bl INTEGER.39 .LVL807: | .LVL772: ldr r3, [sp, #256] | cmp w19, w0 cmp r3, r0 | bne .L889 .LVL808: | .LVL773: addeq fp, fp, #1 | add w24, w24, 1 .LVL809: | .LVL774: beq .L831 | b .L776 .LVL810: | .LVL775: .L954: | .L889: .LDL215: | .LDL210: 1299 %IF J = FLAG %START 1299 %IF J = FLAG %START ldr r1, .L962+436 | ldr w0, [sp, 420] str r1, [r10] | cmp w24, w0 ldr r3, [sp, #324] | beq .L890 cmp fp, r3 | .LDL211: bne .L829 < 1300 %IF INTEGER(QLIM-1) = -2 %START; !MINUS 1300 %IF INTEGER(QLIM-1) = -2 %START; !MINUS str fp, [sp, #260] | adrp x0, .LANCHOR0+244 str r8, [r7] | ldr w0, [x0, #:lo12:.LANC ldr r3, .L962+444 | sub w0, w0, #1 ldr r0, [r3, #240] < sub r0, r0, #1 < bl INTEGER.39 bl INTEGER.39 .LVL811: | .LVL776: cmn r0, #2 | cmn w0, #2 beq .L835 | beq .L780 .LDL216: | .LDL212: 1301 QSTART = J-2 1301 QSTART = J-2 ldr r3, .L962+596 | sub w0, w24, #2 ldr r2, .L962+440 | adrp x1, .LANCHOR0+308 str r2, [r3] | str w0, [x1, #:lo12:.LANC ldr r4, [sp, #260] < .LVL812: < sub r0, r4, #2 < ldr r3, .L962+444 < str r0, [r3, #304] < 1302 !! INTEGER(QSTART) = 0; INTEGER(QSTART+1) 1302 !! INTEGER(QSTART) = 0; INTEGER(QSTART+1) 1303 set INTEGER(QSTART, 0); set INTEGER(QSTAR 1303 set INTEGER(QSTART, 0); set INTEGER(QSTAR mov r1, #0 | mov w1, 0 bl SETINTEGER.8 bl SETINTEGER.8 .LVL813: | .LVL777: mov r1, #0 | mov w1, 0 sub r0, r4, #1 | sub w0, w24, #1 bl SETINTEGER.8 bl SETINTEGER.8 .LVL814: | .LVL778: 1304 %ELSE 1304 %ELSE b .L829 | b .L781 .LVL815: | .LVL779: .L933: | .L868: 1305 QSTART = J; QLIM = QLIM-1 1305 QSTART = J; QLIM = QLIM-1 ldr r3, .L962+444 | adrp x0, .LANCHOR0 ldr r2, [sp, #260] | add x0, x0, :lo12:.LANCHO str r2, [r3, #304] | str w24, [x0, 308] ldr r2, [r3, #240] | ldr w1, [x0, 244] sub r2, r2, #1 | sub w1, w1, #1 str r2, [r3, #240] | str w1, [x0, 244] > b .L781 > .L780: 1306 %FINISH 1306 %FINISH 1307 %finish %ELSE FLAG = 0 1307 %finish %ELSE FLAG = 0 movne r3, #0 | str wzr, [sp, 420] strne r3, [sp, #324] | b .L781 b .L829 | .L890: .L835: < 1308 %finish %ELSE FLAG = 0 1308 %finish %ELSE FLAG = 0 mov r3, #0 | str wzr, [sp, 420] str r3, [sp, #324] | .L774: .L829: | .L781: 1309 %FINISH 1309 %FINISH 1310 QUEUE(-24); !'LOAD' 1310 QUEUE(-24); !'LOAD' mvn r0, #23 | mov w0, -24 bl QUEUE.9 bl QUEUE.9 .LVL729: | .LVL698: > .L739: 1311 1311 ldr r3, .L962+216 < str r3, [r10] < str r8, [r7] < 1312 CONDQ: 1312 CONDQ: 1313 %IF TAGIF %START 1313 %IF TAGIF %START .L792: | mov x18, x20 mov ip, r6 < bl TAGIF.12 bl TAGIF.12 .LVL730: | .LVL699: cmp r0, #0 | cbz w0, .L868 beq .L933 | .L782: .L836: < 1314 MODE = MODE+4; DREG = DREG-16; !SCARIFY 1314 MODE = MODE+4; DREG = DREG-16; !SCARIFY ldr r3, .L962+220 | ldr w0, [sp, 388] str r3, [r10] | add w0, w0, 4 str r8, [r7] | str w0, [sp, 388] ldr r3, [sp, #292] | ldr w0, [sp, 396] add r3, r3, #4 | sub w0, w0, #16 str r3, [sp, #292] | str w0, [sp, 396] ldr r3, [sp, #300] < sub r3, r3, #16 < str r3, [sp, #300] < 1315 CONDIT(0) 1315 CONDIT(0) str r8, [r7] | mov x18, x20 mov ip, r6 | mov w0, 0 bl CONDIT.11 bl CONDIT.11 .LVL816: | .LVL780: 1316 MODE = MODE-4; DREG = DREG+16; !RESTORE 1316 MODE = MODE-4; DREG = DREG+16; !RESTORE ldr r3, .L962+448 | ldr w0, [sp, 388] str r3, [r10] | sub w0, w0, #4 ldr r3, [sp, #292] | str w0, [sp, 388] sub r3, r3, #4 | ldr w0, [sp, 396] str r3, [sp, #292] | add w0, w0, 16 ldr r3, [sp, #300] | str w0, [sp, 396] add r3, r3, #16 < str r3, [sp, #300] < 1317 QLIM = QSTART; QSTART = TRANSF 1317 QLIM = QSTART; QSTART = TRANSF ldr r3, [r9, #304] | ldr w0, [x23, 308] str r3, [r9, #240] | str w0, [x23, 244] ldr r3, [r9, #308] | ldr w0, [x23, 312] str r3, [r9, #304] | str w0, [x23, 308] > b .L782 > .L783: 1318 %FINISH 1318 %FINISH 1319 ASSEMBLE 1319 ASSEMBLE mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL731: | .LVL700: b .L836 < .L837: < 1320 ->SEND 1320 ->SEND ldr r3, .L962+224 | .L710: str r3, [r10] | .LDL174: str r8, [r7] < .L762: < .LDL179: < 1321 1321 1322 JUMP: 1322 JUMP: 1323 FLAG = TAG2-P; !POSITIVE IF SHOR 1323 FLAG = TAG2-P; !POSITIVE IF SHOR sub r2, r2, #17152 | sub w1, w1, #16384 sub r2, r2, #54 | sub w1, w1, #822 str r2, [sp, #324] | str w1, [sp, 420] 1324 GET EXP 1324 GET EXP mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL738: | .LVL707: 1325 QUEUE(-26); !'JUMP' 1325 QUEUE(-26); !'JUMP' ldr r3, .L962+284 | mov w0, -26 str r3, [r10] < mvn r0, #25 < bl QUEUE.9 bl QUEUE.9 .LVL739: | .LVL708: 1326 ->CONDQ 1326 ->CONDQ ldr r3, .L962+288 | b .L739 str r3, [r10] | .L733: str r8, [r7] < b .L792 < .L787: < 1327 1327 1328 MINST: 1328 MINST: 1329 MODE = -1 1329 MODE = -1 mvn r3, #0 | mov w0, -1 str r3, [sp, #292] | str w0, [sp, 388] 1330 GET INST 1330 GET INST mov ip, r6 | mov x18, x20 bl GETINST.14 bl GETINST.14 .LVL741: | .LVL710: 1331 QUEUE(-23); !'PLANT' 1331 QUEUE(-23); !'PLANT' ldr r3, .L962+304 | mov w0, -23 str r3, [r10] < mvn r0, #22 < bl QUEUE.9 bl QUEUE.9 .LVL742: | .LVL711: 1332 ->CONDQ 1332 ->CONDQ ldr r3, .L962+308 | b .L739 str r3, [r10] | .L740: str r8, [r7] < b .L792 < .L793: < 1333 1333 1334 MACCALL: 1334 MACCALL: 1335 QUEUE(0); !(DEFPOS) 1335 QUEUE(0); !(DEFPOS) mov r0, #0 | mov w0, 0 bl QUEUE.9 bl QUEUE.9 .LVL766: | .LVL733: 1336 QUEUE(0); !SPARE 1336 QUEUE(0); !SPARE ldr r4, .L962+8 | mov w0, 0 ldr r3, .L962+376 < str r3, [r4] < mov r0, #0 < bl QUEUE.9 bl QUEUE.9 .LVL767: | .LVL734: 1337 QUEUE(0); !(CALLPOS) 1337 QUEUE(0); !(CALLPOS) ldr r3, .L962+380 | mov w0, 0 str r3, [r4] < ldr fp, .L962 < ldr r5, .L962+4 < str r5, [fp] < mov r0, #0 < bl QUEUE.9 bl QUEUE.9 .LVL768: | .LVL735: 1338 QUEUE(STARTPOS) 1338 QUEUE(STARTPOS) ldr r3, .L962+384 | adrp x19, .LANCHOR0 str r3, [r4] | add x19, x19, :lo12:.LANC str r5, [fp] | ldr w0, [x19, 280] ldr r3, .L962+444 < ldr r0, [r3, #276] < bl QUEUE.9 bl QUEUE.9 .LVL769: | .LVL736: 1339 QUEUE(MP) 1339 QUEUE(MP) ldr r3, .L962+388 | ldr w0, [x19, 272] str r3, [r4] < str r5, [fp] < ldr r3, .L962+444 < ldr r0, [r3, #268] < bl QUEUE.9 bl QUEUE.9 .LVL770: | .LVL737: 1340 J = VAL; QQ = 0 1340 J = VAL; QQ = 0 ldr r3, .L962+392 | ldr w24, [sp, 432] str r3, [r4] | .LVL738: str r5, [fp] < ldr r3, [sp, #336] < str r3, [sp, #260] < .LVL771: < ldr r3, .L962+516 < .LVL772: < mov r2, #0 < str r2, [r3, #12] < 1341 %CYCLE 1341 %CYCLE 1342 %EXIT %IF CHAR(J) = NL; !END OF MAC DEF 1342 %EXIT %IF CHAR(J) = NL; !END OF MAC DEF b .L809 | .LDL213: .L944: | mov w0, w24 .LDL217: < ldr r0, [sp, #260] < bl CHAR.6 bl CHAR.6 .LVL828: | .LVL791: cmp r0, #10 | cmp w0, 10 beq .L837 | beq .L783 .LDL218: | .LDL214: 1343 I = GETPOS-1; !SAVE CALLPOS 1343 I = GETPOS-1; !SAVE CALLPOS ldr r3, .L962+468 | mov x21, x19 str r3, [r4] | ldr w22, [x21, 240] ldr fp, .L962+632 | sub w22, w22, #1 str r5, [fp] | .LVL792: ldr r2, .L962+604 < ldr fp, [r2, #236] < sub fp, fp, #1 < .LVL829: < 1344 GETPOS = J; GET SYM 1344 GETPOS = J; GET SYM str r5, [fp] | add x19, sp, 368 ldr r1, [sp, #260] | b .L754 str r1, [r2, #236] | .L879: mov ip, r6 | str w24, [x21, 240] > mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL830: | .LVL793: 1345 !! %MONITOR 24 %IF %NOT TAG 1345 !! %MONITOR 24 %IF %NOT TAG mov r3, #1344 < str r3, [r4] < 1346 TYPE = 0; VAL = 0 1346 TYPE = 0; VAL = 0 mov r2, #0 | str wzr, [sp, 436] str r2, [sp, #340] | str wzr, [sp, 432] str r2, [sp, #336] < 1347 SCAN ARG 1347 SCAN ARG ldr r3, .L962+632 | mov x18, x19 str r5, [r3] < mov ip, r6 < bl SCANARG.31 bl SCANARG.31 .LVL831: | .LVL794: 1348 GET SYM %IF SYM = ',' 1348 GET SYM %IF SYM = ',' add ip, sp, #272 | mov x18, x19 bl GETSYM.7 bl GETSYM.7 .LVL822: | .LVL786: b .L838 | b .L784 .LVL823: | .L788: .L842: | ldr w0, [sp, 372] ldr r3, .L962+472 | cmp w0, 44 str r3, [r4] | beq .L893 ldr r3, [sp, #276] | .L784: cmp r3, #44 < beq .L957 < .L838: < 1349 J = GETPOS-1; !SAVE DEFPOS 1349 J = GETPOS-1; !SAVE DEFPOS ldr r3, .L962+476 | ldr w24, [x21, 240] str r3, [r4] | .LVL795: ldr r3, .L962+632 | sub w24, w24, #1 str r5, [r3] | .LVL796: ldr r2, .L962+604 < ldr r3, [r2, #236] < sub r1, r3, #1 < str r1, [sp, #260] < .LVL832: < 1350 GETPOS = I; GET SYM; !RESTORE CALLPOS 1350 GETPOS = I; GET SYM; !RESTORE CALLPOS ldr r3, .L962+632 | str w22, [x21, 240] str r5, [r3] | mov x18, x19 str fp, [r2, #236] < mov ip, r6 < bl GETSYM.7 bl GETSYM.7 .LVL833: | .LVL797: 1351 SCAN ARG 1351 SCAN ARG ldr r3, .L962+480 | mov x18, x19 str r3, [r4] < mov ip, r6 < bl SCANARG.31 bl SCANARG.31 .LVL835: | .LVL798: 1352 GET SYM %IF SYM = ',' 1352 GET SYM %IF SYM = ',' ldr r3, .L962+484 | ldr w0, [sp, 372] str r3, [r4] | cmp w0, 44 ldr r3, .L962+632 | bne .L788 mov fp, r3 | mov x18, x19 .LVL834: < str r5, [r3] < ldr r3, [sp, #276] < cmp r3, #44 < bne .L842 < add ip, sp, #272 < bl GETSYM.7 bl GETSYM.7 .LVL836: | .LVL799: b .L842 | b .L788 .LVL837: | .LVL800: .L955: | .L891: 1353 QUEUE(TAG1); QUEUE(TAG2) 1353 QUEUE(TAG1); QUEUE(TAG2) ldr r0, [sp, #288] | ldr w0, [sp, 384] bl QUEUE.9 bl QUEUE.9 .LVL824: | .LVL787: ldr r0, [sp, #284] | ldr w0, [sp, 380] bl QUEUE.9 bl QUEUE.9 .LVL825: | .LVL788: ldr r3, .L962+488 < str r3, [r4] < str r5, [fp] < 1354 QUEUE(TYPE); QUEUE(VAL) 1354 QUEUE(TYPE); QUEUE(VAL) ldr fp, .L962+464 | ldr w0, [sp, 436] str fp, [r4] < ldr r3, .L962+632 < str r5, [r3] < str fp, [r4] < ldr r3, .L962+632 < str r5, [r3] < ldr r0, [sp, #340] < bl QUEUE.9 bl QUEUE.9 .LVL826: | .LVL789: ldr r0, [sp, #336] | ldr w0, [sp, 432] bl QUEUE.9 bl QUEUE.9 .LVL827: | .LVL790: 1355 %REPEAT 1355 %REPEAT add fp, fp, #1 | .L754: str fp, [r4] < ldr r3, .L962+632 < str r5, [r3] < str fp, [r4] < ldr r3, .L962+632 < str r5, [r3] < .L809: < 1356 QQ = '?' 1356 QQ = '?' ldr r3, .L962+516 | adrp x0, .LANCHOR1+12 mov r2, #63 | mov w1, 63 str r2, [r3, #12] | str w1, [x0, #:lo12:.LANC 1357 GET SYM %IF SYM = ' ' 1357 GET SYM %IF SYM = ' ' ldr r3, .L962+632 | ldr w0, [sp, 372] ldr r2, .L962+636 | cmp w0, 32 str r2, [r3] | beq .L891 ldr r3, [sp, #276] | .L786: cmp r3, #32 | add x18, sp, 368 beq .L955 < .L840: < add ip, sp, #272 < bl GETSYM.7 bl GETSYM.7 .LVL838: | .LVL801: b .L840 | b .L786 .L956: | .L892: 1358 %IF TAGIF %START 1358 %IF TAGIF %START ldr r3, .L962+596 | add x18, sp, 368 ldr r2, .L962+452 < str r2, [r3] < add ip, sp, #272 < bl TAGIF.12 bl TAGIF.12 .LVL817: | .LVL781: cmp r0, #0 | cbz w0, .L892 beq .L956 | .L789: .L843: < 1359 CONDIT(-18) 1359 CONDIT(-18) ldr r3, .L962+596 | add x18, sp, 368 ldr r2, .L962+456 | mov w0, -18 str r2, [r3] < ldr r3, .L962+632 < ldr r2, .L962+636 < str r2, [r3] < add ip, sp, #272 < mvn r0, #17 < bl CONDIT.11 bl CONDIT.11 .LVL839: | .LVL802: 1360 QLIM = QSTART 1360 QLIM = QSTART ldr r3, .L962+596 | adrp x0, .LANCHOR0 ldr r2, .L962+492 | add x0, x0, :lo12:.LANCHO str r2, [r3] | ldr w1, [x0, 308] ldr r3, .L962+632 | str w1, [x0, 244] ldr r2, .L962+636 < str r2, [r3] < ldr r3, .L962+604 < ldr r2, [r3, #304] < str r2, [r3, #240] < 1361 !! INTEGER(QBASE+4) = MP+8_700000 1361 !! INTEGER(QBASE+4) = MP+8_700000 1362 set INTEGER(QBASE+4, MP+8_700000) 1362 set INTEGER(QBASE+4, MP+8_700000) ldr r1, [r3, #268] | ldr w1, [x0, 272] ldr r0, [r3, #288] | ldr w0, [x0, 292] add r1, r1, #229376 | add w1, w1, 229376 add r0, r0, #4 | add w0, w0, 4 bl SETINTEGER.8 bl SETINTEGER.8 .LVL840: | .LVL803: > b .L789 > .LVL804: > .L894: 1363 %FINISH 1363 %FINISH 1364 QUEUE(0) 1364 QUEUE(0) mov r0, #0 | mov w0, 0 bl QUEUE.9 bl QUEUE.9 .LVL818: | .LVL782: b .L843 < .LVL841: < .L958: < 1365 STARTPOS = QLIM<<1 1365 STARTPOS = QLIM<<1 ldr r3, .L962+596 | adrp x19, .LANCHOR0 ldr r2, .L962+460 | add x19, x19, :lo12:.LANC str r2, [r3] | ldr w0, [x19, 244] ldr r3, .L962+632 | lsl w0, w0, 1 ldr r2, .L962+636 | str w0, [x19, 280] str r2, [r3] < ldr r4, .L962+604 < ldr r3, [r4, #240] < lsl r3, r3, #1 < str r3, [r4, #276] < 1366 MP = QBASE 1366 MP = QBASE ldr r5, [r4, #288] | ldr w21, [x19, 292] str r5, [r4, #268] | str w21, [x19, 272] 1367 !! INTEGER(MP) = J+1; !START OF BODY 1367 !! INTEGER(MP) = J+1; !START OF BODY 1368 set INTEGER(MP, J+1); !START OF BODY 1368 set INTEGER(MP, J+1); !START OF BODY ldr r3, [sp, #260] | add w1, w24, 1 add r1, r3, #1 | mov w0, w21 mov r0, r5 < bl SETINTEGER.8 bl SETINTEGER.8 .LVL819: | .LVL783: 1369 !! INTEGER(MP+2) = GETPOS-1 1369 !! INTEGER(MP+2) = GETPOS-1 1370 set INTEGER(MP+2, GETPOS-1) 1370 set INTEGER(MP+2, GETPOS-1) ldr r1, [r4, #236] | ldr w1, [x19, 240] sub r1, r1, #1 | sub w1, w1, #1 add r0, r5, #2 | add w0, w21, 2 bl SETINTEGER.8 bl SETINTEGER.8 .LVL820: | .LVL784: 1371 ->LEND 1371 ->LEND b .L776 | b .L722 .LVL821: | .LVL785: .L957: | .L893: 1372 1372 1373 !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF) 1373 !CODING OF JUMPS: 1000 (SINGLE INST), 2000 (MAIN IF) 1374 ! 4000 (ELSE), 6000 (IF AFTER ELSE) 1374 ! 4000 (ELSE), 6000 (IF AFTER ELSE) 1375 1375 1376 IFC: 1376 IFC: 1377 CONDIT(-15) 1377 CONDIT(-15) mov ip, r6 | mov x18, x20 mvn r0, #14 | mov w0, -15 bl CONDIT.11 bl CONDIT.11 .LVL743: | .LVL712: 1378 ->SEND 1378 ->SEND ldr r3, .L962+312 | b .L710 str r3, [r10] | .L877: b .L762 < .L942: < 1379 1379 1380 ELSE: 1380 ELSE: 1381 ->CERR %IF INTEGER(NP)&16_2000 = 0 1381 ->CERR %IF INTEGER(NP)&16_2000 = 0 ldr r0, [r9, #232] | ldr w0, [x23, 236] bl INTEGER.39 bl INTEGER.39 .LVL744: | .LVL713: tst r0, #8192 | tbz x0, 13, .L705 beq .L757 | .LDL196: .LDL201: < 1382 QUEUE(0); QUEUE(0) 1382 QUEUE(0); QUEUE(0) ldr r3, .L962+316 | mov w0, 0 str r3, [r10] < mov r0, #0 < bl QUEUE.9 bl QUEUE.9 .LVL745: | .LVL714: mov r0, #0 | mov w0, 0 bl QUEUE.9 bl QUEUE.9 .LVL746: | .LVL715: 1383 QUEUE(-16); ASSEMBLE 1383 QUEUE(-16); ASSEMBLE ldr r4, .L962+320 | mov w0, -16 str r4, [r10] < str r8, [r7] < str r4, [r10] < str r8, [r7] < mvn r0, #15 < bl QUEUE.9 bl QUEUE.9 .LVL747: | .LVL716: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL748: | .LVL717: 1384 ATYPE = -1; CREG = -1 1384 ATYPE = -1; CREG = -1 add r4, r4, #1 | mov w0, -1 str r4, [r10] | str w0, [sp, 428] str r8, [r7] | str w0, [sp, 424] str r4, [r10] < str r8, [r7] < mvn r3, #0 < str r3, [sp, #332] < str r3, [sp, #328] < 1385 %IF TAGIF %START 1385 %IF TAGIF %START str r8, [r7] | mov x18, x20 mov ip, r6 < bl TAGIF.12 bl TAGIF.12 .LVL749: | .LVL718: cmp r0, #0 | cbnz w0, .L710 bne .L762 < 1386 CONDIT(-17) 1386 CONDIT(-17) ldr r3, .L962+324 | mov x18, x20 str r3, [r10] | mov w0, -17 mov ip, r6 < mvn r0, #16 < bl CONDIT.11 bl CONDIT.11 .LVL750: | .LVL719: > b .L710 > .L876: > .L741: 1387 %FINISH 1387 %FINISH ldr r3, .L962+328 < str r3, [r10] < str r8, [r7] < 1388 ->SEND 1388 ->SEND b .L762 < .L941: < .L794: < 1389 1389 1390 FINISH: 1390 FINISH: 1391 ->CERR %IF INTEGER(NP)&16_6000 = 0 1391 ->CERR %IF INTEGER(NP)&16_6000 = 0 ldr r0, [r9, #232] | ldr w0, [x23, 236] bl INTEGER.39 bl INTEGER.39 .LVL756: | .LVL725: tst r0, #24576 | tst w0, 24576 beq .L757 | beq .L705 .LDL205: | .LDL200: 1392 I = LOC 1392 I = LOC ldr r3, .L962+356 | ldr w19, [sp, 444] str r3, [r10] | b .L790 ldr r4, [sp, #348] | .L859: .LVL757: < 1393 %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE 1393 %WHILE INTEGER(NP)&16_4000 # 0 %CYCLE str r8, [r7] | .LDL215: .LDL219: | ldr w0, [x23, 236] ldr r0, [r9, #232] < bl INTEGER.39 bl INTEGER.39 .LVL844: | .LVL807: tst r0, #16384 | tbz x0, 14, .L894 beq .L958 < 1394 %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER EL 1394 %IF INTEGER(NP)&16_2000 # 0 %START; !IF AFTER EL ldr r3, .L962+360 | ldr w0, [x23, 236] str r3, [r10] < b .L844 < .LVL758: < .L924: < ldr r0, [r9, #232] < bl INTEGER.39 bl INTEGER.39 .LVL845: | .LVL808: tst r0, #8192 | tbnz x0, 13, .L792 bne .L846 | .LDL216: .LDL220: < 1395 SET LAB(I) 1395 SET LAB(I) mov ip, r6 | mov x18, x20 mov r0, r4 | mov w0, w19 bl SETLAB.10 bl SETLAB.10 .LVL843: | .LVL806: ldr r3, .L962+508 < str r3, [r10] < str r8, [r7] < 1396 %finish %ELSE %START 1396 %finish %ELSE %START ldr r3, .L962+500 | .L790: str r3, [r10] < str r8, [r7] < .L847: < 1397 SET LAB(LOC) 1397 SET LAB(LOC) mov ip, r6 | mov x18, x20 ldr r0, [sp, #348] | ldr w0, [sp, 444] bl SETLAB.10 bl SETLAB.10 .LVL846: | .LVL809: 1398 I = VAL+4 1398 I = VAL+4 ldr r3, .L962+512 | ldr w19, [sp, 432] str r3, [r10] | .LVL810: str r8, [r7] | add w19, w19, 4 ldr r4, [sp, #336] | .LVL811: .LVL847: | b .L790 add r4, r4, #4 | .LVL812: .LVL848: | .L869: 1399 %FINISH 1399 %FINISH 1400 %REPEAT 1400 %REPEAT .L844: < b .L847 < .LVL849: < .L921: < str fp, [sp, #260] < b .L762 < .LVL850: < .L934: < 1401 SET LAB(I) 1401 SET LAB(I) mov ip, r6 | mov x18, x20 mov r0, r4 | mov w0, w19 bl SETLAB.10 bl SETLAB.10 .LVL842: | .LVL805: ldr r3, .L962+504 < str r3, [r10] < str r8, [r7] < 1402 ->SEND 1402 ->SEND ldr r3, .L962+496 | b .L710 str r3, [r10] | .L792: str r8, [r7] < b .L762 < .L846: < 1403 1403 1404 WHILE: 1404 WHILE: 1405 I = LOC; ATYPE = -1; CREG = -1 1405 I = LOC; ATYPE = -1; CREG = -1 ldr fp, [sp, #348] | ldr w19, [sp, 444] .LVL759: | .LVL726: mvn r3, #0 | mov w0, -1 str r3, [sp, #332] | str w0, [sp, 428] str r3, [sp, #328] | str w0, [sp, 424] 1406 CONDIT(-13) 1406 CONDIT(-13) mov ip, r6 | mov x18, x20 mvn r0, #12 | mov w0, -13 bl CONDIT.11 bl CONDIT.11 .LVL760: | .LVL727: 1407 NEST(I); NEST(1) 1407 NEST(I); NEST(1) ldr r3, .L962+364 | mov w0, w19 str r3, [r10] < mov r0, fp < bl NEST.0 bl NEST.0 .LVL761: | .LVL728: mov r0, #1 | mov w0, 1 bl NEST.0 bl NEST.0 .LVL762: | .LVL729: 1408 ->SEND 1408 ->SEND ldr r4, .L962+368 | b .L710 str r4, [r10] | .LVL730: str r8, [r7] | .L878: str r4, [r10] < str r8, [r7] < b .L762 < .LVL763: < .L943: < 1409 1409 1410 CYCLE: 1410 CYCLE: 1411 NEST(LOC); NEST(1) 1411 NEST(LOC); NEST(1) ldr r0, [sp, #348] | ldr w0, [sp, 444] bl NEST.0 bl NEST.0 .LVL764: | .LVL731: mov r0, #1 | mov w0, 1 bl NEST.0 bl NEST.0 .LVL765: | .LVL732: 1412 ATYPE = -1; CREG = -1 1412 ATYPE = -1; CREG = -1 ldr r4, .L962+372 | mov w0, -1 str r4, [r10] | str w0, [sp, 428] str r4, [r10] | str w0, [sp, 424] str r8, [r7] < mvn r3, #0 < str r3, [sp, #332] < str r3, [sp, #328] < 1413 ->SEND 1413 ->SEND b .L762 | b .L710 .L806: | .L751: 1414 1414 1415 REPEAT: 1415 REPEAT: 1416 ->CERR %IF INTEGER(NP) # 1 1416 ->CERR %IF INTEGER(NP) # 1 ldr r0, [r9, #232] | ldr w0, [x23, 236] bl INTEGER.39 bl INTEGER.39 .LVL751: | .LVL720: cmp r0, #1 | cmp w0, 1 bne .L757 | bne .L705 .LDL203: | .LDL198: 1417 QUEUE(LOCTYPE); QUEUE(INTEGER(NP+1)) 1417 QUEUE(LOCTYPE); QUEUE(INTEGER(NP+1)) ldr r3, .L962+344 | ldr w0, [sp, 440] str r3, [r10] < ldr r0, [sp, #344] < bl QUEUE.9 bl QUEUE.9 .LVL752: | .LVL721: ldr r0, [r9, #232] | ldr w0, [x23, 236] add r0, r0, #1 | add w0, w0, 1 bl INTEGER.39 bl INTEGER.39 .LVL753: | .LVL722: bl QUEUE.9 bl QUEUE.9 .LVL754: | .LVL723: 1418 NP = NP+2 1418 NP = NP+2 ldr r4, .L962+348 | ldr w0, [x23, 236] str r4, [r10] | add w0, w0, 2 str r8, [r7] | str w0, [x23, 236] str r4, [r10] < str r8, [r7] < ldr r3, [r9, #232] < add r3, r3, #2 < str r3, [r9, #232] < 1419 QUEUE(-26); !'JUMP' 1419 QUEUE(-26); !'JUMP' str r8, [r7] | mov w0, -26 mvn r0, #25 < bl QUEUE.9 bl QUEUE.9 .LVL755: | .LVL724: 1420 FLAG = -1 1420 FLAG = -1 ldr r3, .L962+352 | mov w0, -1 str r3, [r10] | str w0, [sp, 420] mvn r3, #0 < str r3, [sp, #324] < 1421 ->CONDQ 1421 ->CONDQ b .L792 | b .L739 .L945: | .L880: 1422 1422 1423 CERR: 1423 CERR: 1424 FAULT('C') 1424 FAULT('C') mov ip, r6 | mov x18, x20 mov r0, #67 | mov w0, 67 bl FAULT.45 bl FAULT.45 .LVL680: | .LVL685: 1425 ->LEND 1425 ->LEND b .L850 | b .L797 .L937: | .L863: 1426 1426 1427 SEND: 1427 SEND: 1428 SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0 1428 SET LAB(LOC) %IF INTEGER(NP)&16_1000 # 0 ldr r0, [r9, #232] | ldr w0, [x23, 236] bl INTEGER.39 bl INTEGER.39 .LVL732: | .LVL701: tst r0, #4096 | tbnz x0, 12, .L869 bne .L934 | .L794: .L849: | mov x18, x20 mov ip, r6 | ldr w0, [sp, 444] ldr r0, [sp, #348] < bl SETLAB.10 bl SETLAB.10 .LVL851: | .LVL813: b .L849 | b .L794 .LVL852: | .L693: .L919: | .LDL217: str fp, [sp, #260] < .LVL853: < .L745: < .LDL221: < 1429 ->LEND %IF SYM = NL 1429 ->LEND %IF SYM = NL ldr r3, .L962+228 | ldr w0, [sp, 372] str r3, [r10] | cmp w0, 10 str r8, [r7] | beq .L797 ldr r3, [sp, #276] | .LDL175: cmp r3, #10 < beq .L850 < .LDL180: < 1430 ->NEXT %IF S(';') 1430 ->NEXT %IF S(';') str r8, [r7] | mov x18, x20 mov ip, r6 | mov w0, 59 mov r0, #59 < bl S.33 bl S.33 .LVL733: | .LVL702: cmp r0, #0 | cbnz w0, .L693 bne .L745 | .L686: .L740: < 1431 1431 ldr r3, .L962+232 < str r3, [r10] < 1432 ERR:FSYM = 'F'; FAULTPOS = GETPOS-1 1432 ERR:FSYM = 'F'; FAULTPOS = GETPOS-1 mov r3, #70 | mov w0, 70 str r3, [sp, #352] | str w0, [sp, 448] ldr r3, [r9, #236] | ldr w0, [x23, 240] sub r3, r3, #1 | sub w0, w0, #1 str r3, [r9, #292] | str w0, [x23, 296] > mov w0, 70 > str w0, [sp, 448] > ldr w0, [x23, 240] > sub w0, w0, #1 > str w0, [x23, 296] 1433 PRINTPOS = STARTPOS 1433 PRINTPOS = STARTPOS ldr r3, [r9, #276] | ldr w0, [x23, 280] str r3, [r9, #284] | str w0, [x23, 288] > ldr w0, [x23, 280] > str w0, [x23, 288] > mov w28, 0 > b .L795 > .LVL861: > .L815: 1434 1434 1435 LEND: 1435 LEND: 1436 ->READ %IF SKIP # 0 %AND LIST&4 = 0 1436 ->READ %IF SKIP # 0 %AND LIST&4 = 0 b .L878 | cbz w28, .L726 .L936: | .L698: .L848: | .LVL655: .LVL854: | ldr x0, [sp, 96] .L850: | ldr w0, [x0, 16] .LDL222: | tbz x0, 2, .L685 .LDL223: | .L726: ldr r3, [sp, #252] | cbz w28, .L795 cmp r3, #0 | .LVL814: beq .L851 | ldr x0, [sp, 96] .L878: | ldr w0, [x0, 16] ldr r3, .L962+516 | tbz x0, 2, .L685 ldr r3, [r3, #16] | .L795: tst r3, #4 | .LVL860: beq .L739 | 1437 ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C .LVL855: | ldr w0, [sp, 448] .L851: | cmp w0, 32 b .L878 | bne .L795 .L780: | ldr w0, [x23, 4] .LVL919: | cbnz w0, .L795 b .L851 | ldr w0, [x23, 288] > cbz w0, .L685 > ldr w0, [x23, 272] > cbz w0, .L795 > ldr x0, [sp, 96] > ldr w0, [x0, 16] > tbz x0, 1, .L685 > b .L795 > .LVL656: > .L694: > 1438 (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0)) > 1439 PRINT LINE > mov x18, x20 > bl PRINTLINE.47 > .LVL815: > 1440 ->READ > .L685: > 1441 > 1442 ASSIF: > 1443 ASSCOND = ASSCOND<<1 > ldr w0, [sp, 108] > lsl w0, w0, 1 > str w0, [sp, 108] > .LVL657: > 1444 ->LEND %IF SKIP # 0 > cbnz w28, .L698 > .LVL658: > .L697: > .LDL155: > 1445 A1: CONDIT(0) > mov x18, x20 > mov w0, 0 > bl CONDIT.11 > .LVL659: > 1446 SKIP = ASSCOND %IF COND # 0 > ldr w0, [sp, 416] > cbz w0, .L799 > .L800: > .LVL660: > 1447 PRINT LINE %IF PRINTPOS # 0 > ldr w0, [x23, 288] > ldr w1, [sp, 108] > mov w28, w1 > cbz w0, .L797 > .LVL661: > .L824: > mov x18, x20 > bl PRINTLINE.47 > .LVL662: > b .L797 > .LVL663: > .L872: > ldr w28, [x23, 288] > cbz w28, .L726 > mov w28, w0 > b .L824 .LFE199: .LFE199: .section .rodata .section .rodata .align 2 | .align 3 .set .LANCHOR2,. + 0 .set .LANCHOR2,. + 0 .LC5: .LC5: .byte 33 .byte 33 .ascii "Integer fetch was no | .string "Integer fetch was no .space 221 | .zero 221 __PRETTY_FUNCTION__.53: __PRETTY_FUNCTION__.53: .ascii "_imp_SELECTINPUT\000 | .string "_imp_SELECTINPUT" .space 3 | .zero 7 __PRETTY_FUNCTION__.85: __PRETTY_FUNCTION__.85: .ascii "_imp_SELECTOUTPUT\00 | .string "_imp_SELECTOUTPUT" .space 2 | .zero 6 __PRETTY_FUNCTION__.50: __PRETTY_FUNCTION__.50: .ascii "_imp_OUTDEV\000" | .string "_imp_OUTDEV" > .zero 4 .LC0: .LC0: .byte 18 .byte 18 .ascii "interdata/test.hal\0 | .string "interdata/test.hal" .space 236 | .zero 236 .LC1: .LC1: .byte 19 .byte 19 .ascii "interdata/hal70.def\ | .string "interdata/hal70.def" .space 235 | .zero 235 .LC2: .LC2: .byte 18 .byte 18 .ascii "interdata/test.bin\0 | .string "interdata/test.bin" .space 236 | .zero 236 .LC3: .LC3: .byte 18 .byte 18 .ascii "interdata/test.lis\0 | .string "interdata/test.lis" .space 236 | .zero 236 .data .data .align 2 .align 2 .set .LANCHOR1,. + 0 .set .LANCHOR1,. + 0 TEMPS.97: TEMPS.97: .word 12 .word 12 SAVE.117: SAVE.117: .word 1 .word 1 PASS.93: PASS.93: .word -1 .word -1 QQ.106: QQ.106: .word 63 .word 63 LIST.118: LIST.118: .word -1 .word -1 sw1_ASS.80: < .word .L670 < .word .L671 < .word .L672 < .word .L673 < .word .L664 < .word .L655 < .word .L653 < .word .L651 < .word .L641 < .word .L635 < .word .L634 < .word .L674 < .word .L633 < .word .L632 < .word .L631 < .word .L630 < .word .L628 < .word .L624 < .word .L623 < .word .L608 < .word .L675 < .word .L676 < .word .L605 < .word .L604 < .word .L603 < .word .L602 < .word .L601 < .word .L600 < .word .L594 < .word .L597 < .bss .bss .align 2 | .align 3 .set .LANCHOR0,. + 0 .set .LANCHOR0,. + 0 PUTPOS.95: PUTPOS.95: .space 4 | .zero 4 CHARS.99: CHARS.99: .space 4 | .zero 4 CODEPOS.141: CODEPOS.141: .space 4 | .zero 4 HOLD.52: HOLD.52: .space 4 | .zero 4 BINCOUNT.96: BINCOUNT.96: .space 4 | .zero 4 > .zero 4 BREC.92: BREC.92: .space 208 | .zero 208 CHECK.91: CHECK.91: .space 4 | .zero 4 NP.138: NP.138: .space 4 | .zero 4 GETPOS.100: GETPOS.100: .space 4 | .zero 4 QLIM.123: QLIM.123: .space 4 | .zero 4 BP.136: BP.136: .space 4 | .zero 4 MACLIM.140: MACLIM.140: .space 4 | .zero 4 DEFMIN.134: DEFMIN.134: .space 4 | .zero 4 LINES.98: LINES.98: .space 4 | .zero 4 DEFLIM.135: DEFLIM.135: .space 4 | .zero 4 ALMAX.130: ALMAX.130: .space 4 | .zero 4 MP.131: MP.131: .space 4 | .zero 4 LABMIN.129: LABMIN.129: .space 4 | .zero 4 STARTPOS.132: STARTPOS.132: .space 4 | .zero 4 PSEUDOLIM.94: PSEUDOLIM.94: .space 4 | .zero 4 PRINTPOS.104: PRINTPOS.104: .space 4 | .zero 4 QBASE.125: QBASE.125: .space 4 | .zero 4 FAULTPOS.126: FAULTPOS.126: .space 4 | .zero 4 SEQ.51: SEQ.51: .space 4 | .zero 4 ZQUERY.66: ZQUERY.66: .space 4 | .zero 4 QSTART.124: QSTART.124: .space 4 | .zero 4 TRANSF.101: TRANSF.101: .space 4 | .zero 4 STORELIM.139: STORELIM.139: .space 4 | .zero 4 LABLIM.137: LABLIM.137: .space 4 | .zero 4 > .zero 4 STORE.133: STORE.133: .space 130048 | .zero 130048 > > > > > .section .data.rel.loc > .align 3 > .set .LANCHOR3,. + 0 > sw1_ASS.80: > .xword .L610 > > .xword .L611 > > .xword .L612 > > .xword .L613 > > .xword .L602 > > .xword .L593 > > .xword .L591 > > .xword .L589 > > .xword .L578 > > .xword .L571 > > .xword .L570 > > .xword .L614 > > .xword .L569 > > .xword .L568 > .xword .L567 > .xword .L566 > .xword .L564 > > .xword .L560 > > .xword .L559 > > .xword .L541 > > .xword .L615 > > .xword .L616 > > .xword .L538 > > .xword .L537 > > .xword .L535 > > .xword .L534 > > .xword .L533 > > .xword .L532 > > .xword .L524 > > .xword .L528 .Letext0: .Letext0: 1437 ->READ %IF FSYM = ' ' %AND CHARS = 0 %AND %C < str r8, [r7] < str r8, [r7] < mov r3, #0 < str r3, [sp, #252] < b .L851 < .LVL683: < .L759: < str r8, [r7] < ldr r3, [sp, #352] < cmp r3, #32 < bne .L853 < ldr r3, [r9, #4] < cmp r3, #0 < bne .L853 < ldr r3, [r9, #284] < cmp r3, #0 < beq .L739 < ldr r3, [r9, #268] < cmp r3, #0 < beq .L853 < ldr r3, .L962+516 < ldr r3, [r3, #16] < tst r3, #2 < beq .L739 < .L853: < ldr r2, .L962+632 < ldr r1, .L962+636 < str r1, [r2] < str r3, [sp, #252] < b .L851 < .LVL918: < .L742: < str r8, [r7] < str r8, [r7] < 1438 (PRINTPOS = 0 %OR (MP#0 %AND LIST&2=0)) < 1439 PRINT LINE < mov ip, r6 < bl PRINTLINE.47 < .LVL856: < 1440 ->READ < ldr r3, .L962+520 < str r3, [r10] < .L739: < 1441 < 1442 ASSIF: < 1443 ASSCOND = ASSCOND<<1 < ldr r3, [sp, #264] < lsl r3, r3, #1 < str r3, [sp, #264] < .LVL678: < 1444 ->LEND %IF SKIP # 0 < ldr r3, [sp, #252] < .LVL679: < cmp r3, #0 < beq .L749 < .L750: < 1445 A1: CONDIT(0) < mov ip, r6 < mov r0, #0 < bl CONDIT.11 < .LVL866: < 1446 SKIP = ASSCOND %IF COND # 0 < ldr r3, .L962+536 < str r3, [r10] < str r8, [r7] < ldr r3, [sp, #320] < str r3, [sp, #252] < cmp r3, #0 < beq .L854 < .L855: < .LVL867: < 1447 PRINT LINE %IF PRINTPOS # 0 < mov ip, r6 < bl PRINTLINE.47 < .LVL861: < b .L850 < .LVL862: < .L925: < str r8, [r7] < ldr r3, [r9, #284] < cmp r3, #0 < bne .L959 < ldr r3, [sp, #264] < str r3, [sp, #252] < b .L850 < .LVL868: < .L889: < ldr r3, [r9, #284] < cmp r3, #0 < bne .L883 < 1448 ->LEND 1448 ->LEND ldr r3, .L962+628 < str r3, [r10] < ldr r3, .L962+628 < str r3, [r10] < 1449 1449 1450 ASSELSE: 1450 ASSELSE: 1451 %IF SKIP = 0 %START 1451 %IF SKIP = 0 %START ldr r3, [sp, #252] | cbnz w28, .L860 cmp r3, #0 | .LDL218: bne .L925 < .LDL224: < 1452 ->CERR %IF ASSCOND&1 # 0 1452 ->CERR %IF ASSCOND&1 # 0 ldr r3, [sp, #264] | ldr w0, [sp, 108] tst r3, #1 | tbnz x0, 0, .L705 beq .L889 | .LDL157: .L757: < 1453 SKIP = ASSCOND 1453 SKIP = ASSCOND ldr r3, .L962+96 | .LVL664: str r3, [r10] < ldr r3, [sp, #264] < str r3, [sp, #252] < .LVL869: < .L857: < .LDL227: < .LDL228: < 1454 %finish %ELSE %START 1454 %finish %ELSE %START > .LDL158: 1455 ->LEND %IF SKIP # ASSCOND 1455 ->LEND %IF SKIP # ASSCOND ldr r3, [sp, #252] | ldr w0, [sp, 108] ldr r2, [sp, #264] | cmp w28, w0 cmp r3, r2 | bne .L698 bne .L750 | .LDL219: .LDL225: < 1456 SKIP = 0 1456 SKIP = 0 .LVL863: | mov w28, 0 strne r4, [sp, #252] | b .L726 > .LVL684: > .L862: > .LVL817: > mov w28, w21 > b .L726 > .LVL820: > .L706: 1457 ->A1 %IF TAGIF 1457 ->A1 %IF TAGIF add ip, sp, #272 | add x18, sp, 368 bl TAGIF.12 bl TAGIF.12 .LVL864: | .LVL818: cmp r0, #0 | cbz w0, .L697 bne .L857 | .LDL220: .LVL865: < .L749: < .LDL226: < 1458 %FINISH 1458 %FINISH ldr r3, .L962+596 < ldr r2, .L962+532 < str r2, [r3] < 1459 ASSCOND = ASSCOND+1 1459 ASSCOND = ASSCOND+1 ldr r3, [sp, #264] | add w0, w0, 1 add r3, r3, #1 | .LVL665: str r3, [sp, #264] | str w0, [sp, 108] .LVL870: | ldr w0, [sp, 108] > add w0, w0, 1 > str w0, [sp, 108] > .LVL819: 1460 ->LEND 1460 ->LEND b .L850 | mov w28, w0 .LVL871: | b .L797 .L758: | .LVL666: > .L873: 1461 1461 1462 ASSFIN: 1462 ASSFIN: 1463 ->CERR %IF ASSCOND = 1 1463 ->CERR %IF ASSCOND = 1 ldr r3, [sp, #264] | ldr w0, [sp, 108] cmp r3, #1 | cmp w0, 1 beq .L757 | beq .L705 .LDL157: | .LDL160: 1464 ASSCOND = ASSCOND>>1 1464 ASSCOND = ASSCOND>>1 ldr r3, .L962+100 | ldr w0, [sp, 108] str r3, [r10] | lsr w0, w0, 1 ldr r3, [sp, #264] | str w0, [sp, 108] lsr r3, r3, #1 | .LVL667: str r3, [sp, #264] < .LVL681: < 1465 SKIP = 0 %IF SKIP>>1 = ASSCOND 1465 SKIP = 0 %IF SKIP>>1 = ASSCOND ldr r2, [sp, #252] | cmp w0, w28, lsr 1 cmp r3, r2, lsr #1 | bne .L797 bne .L850 | .LVL668: .LVL682: | mov w28, w21 .L776: | b .L726 > .LVL669: > .L707: 1466 ->LEND 1466 ->LEND 1467 1467 1468 DEFINE: 1468 DEFINE: 1469 FAULT('C') %IF NP # STORELIM 1469 FAULT('C') %IF NP # STORELIM ldr r2, [r9, #232] | ldr w1, [x23, 236] ldr r3, [r9, #312] | ldr w0, [x23, 316] cmp r2, r3 | cmp w1, w0 beq .L858 | beq .L802 mov ip, r6 | mov x18, x20 mov r0, #67 | mov w0, 67 bl FAULT.45 bl FAULT.45 .LVL872: | .LVL821: .L858: | .L802: 1470 I = TAG1 1470 I = TAG1 ldr r3, [sp, #288] < str r3, [sp, #256] < .LVL873: < 1471 %CYCLE 1471 %CYCLE 1472 ->ERR %IF %NOT (TAG %AND S('=')) 1472 ->ERR %IF %NOT (TAG %AND S('=')) mov ip, r6 | mov w22, 61 > mov x18, x20 bl TAG.34 bl TAG.34 .LVL881: | .LVL829: cmp r0, #0 | cbnz w0, .L736 bne .L919 | mov x18, x20 mov ip, r6 | mov w0, w22 mov r0, #61 < bl S.33 bl S.33 .LVL882: | .LVL830: cmp r0, #0 | cbz w0, .L736 beq .L920 | .LDL224: .LDL232: < 1473 J = TAG1; K = TAG2 1473 J = TAG1; K = TAG2 ldr fp, [sp, #260] | ldr w24, [sp, 384] b .L859 | .LVL831: .LVL874: | ldr w21, [sp, 380] .L860: | .LVL832: mov r3, #1472 < str r3, [r10] < str r8, [r7] < ldr fp, [sp, #288] < .LVL883: < ldr r4, [sp, #284] < .LVL884: < 1474 %IF TAG %START 1474 %IF TAG %START str r8, [r7] | mov x18, x20 mov ip, r6 < bl TAG.34 bl TAG.34 .LVL885: | .LVL833: cmp r0, #0 | cbz w0, .L803 beq .L860 | .LDL225: .LDL233: < 1475 TAGREF 1475 TAGREF mov ip, r6 | mov x18, x20 bl TAGREF.13 bl TAGREF.13 .LVL875: | .LVL823: ldr r3, .L962+564 < str r3, [r10] < 1476 %IF TYPE&OPMASK # 0 %START 1476 %IF TYPE&OPMASK # 0 %START ldr r3, .L962+540 | ldr w0, [sp, 436] str r3, [r10] | tst w0, 61440 str r8, [r7] | bne .L805 ldr r3, [sp, #340] | .LDL221: tst r3, #61440 < bne .L862 < .LDL229: < 1477 GET INST 1477 GET INST str r8, [r7] | mov x18, x20 mov ip, r6 < bl GETINST.14 bl GETINST.14 .LVL887: | .LVL835: 1478 %finish %ELSE %START 1478 %finish %ELSE %START ldr r3, .L962+568 | b .L804 str r3, [r10] | .L806: b .L861 < .LVL888: < .L744: < 1479 PEND = -1; GET EXP 1479 PEND = -1; GET EXP mvn r3, #0 | mov w25, -1 str r3, [sp, #272] | b .L808 mov ip, r6 | .LVL822: > .L803: > str w25, [sp, 368] > mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL876: | .LVL824: > .L804: 1480 %FINISH 1480 %FINISH ldr r3, .L962+544 < str r3, [r10] < 1481 %finish %ELSE GET EXP 1481 %finish %ELSE GET EXP .L861: | mov x18, x20 mov ip, r6 < bl GETEXP.16 bl GETEXP.16 .LVL886: | .LVL834: b .L861 | b .L804 .L862: | .L805: 1482 ASSEMBLE 1482 ASSEMBLE mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL877: | .LVL825: 1483 TAG1 = J; TAG2 = K 1483 TAG1 = J; TAG2 = K ldr r3, .L962+548 | str w24, [sp, 384] str r3, [r10] | str w21, [sp, 380] str r8, [r7] < str fp, [sp, #288] < str r4, [sp, #284] < 1484 %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2) 1484 %IF I=DEF %THEN LOOKUP(3) %ELSE LOOKUP(2) str r8, [r7] | mov w0, 4605 ldr r3, .L962+556 | cmp w19, w0 ldr r2, [sp, #256] | beq .L806 cmp r2, r3 | .LDL222: .LDL230: | mov x18, x20 mov ip, r6 | mov w0, 2 movne r0, #2 < moveq r0, #3 < bl LOOKUP.32 bl LOOKUP.32 .LVL878: | .LVL826: .L864: | .L807: > mov x18, x20 > mov w0, 3 > bl LOOKUP.32 > .LVL836: > b .L807 > .LVL837: > .L810: 1485 %EXIT %UNLESS S(',') 1485 %EXIT %UNLESS S(',') ldr r3, .L962+552 | mov x18, x20 str r3, [r10] | mov w0, 44 mov ip, r6 < mov r0, #44 < bl S.33 bl S.33 .LVL879: | .LVL827: cmp r0, #0 | cbz w0, .L710 beq .L921 | .LDL223: .LDL231: < 1486 QLIM = QSTART 1486 QLIM = QSTART ldr r3, .L962+560 | ldr w0, [x23, 308] str r3, [r10] | str w0, [x23, 244] str r8, [r7] < ldr r3, [r9, #304] < str r3, [r9, #240] < 1487 %REPEAT 1487 %REPEAT .LVL880: | .LVL828: .L859: | .L808: 1488 ->SEND 1488 ->SEND 1489 1489 1490 NEWPAGE: 1490 NEWPAGE: 1491 DO NEWLINE %WHILE LINES # 0 1491 DO NEWLINE %WHILE LINES # 0 ldr r3, .L962+444 | ldr w0, [x23, 260] ldr r3, [r3, #256] | cbz w0, .L797 cmp r3, #0 | .L809: bne .L865 < str r3, [sp, #252] < .LVL718: < b .L851 < .LVL719: < .L929: < ldr r3, [r9, #256] < cmp r3, #0 < beq .L850 < .L865: < bl DONEWLINE.15 bl DONEWLINE.15 .LVL889: | .LVL653: .LDL234: | ldr w0, [x23, 260] ldr r3, [r9, #256] | cbnz w0, .L809 cmp r3, #0 | .L691: bne .L865 | .LVL654: b .L850 | .L797: .LVL890: | .LDL151: .L866: | .LDL152: > .LDL153: > adrp x0, .LANCHOR0+260 > ldr w0, [x0, #:lo12:.LANC > cbnz w0, .L809 > .LVL687: > mov w28, w0 > b .L726 > .LVL688: > .L864: 1492 ->LEND 1492 ->LEND ldr r3, .L962+8 < ldr r2, .L962+572 < str r2, [r3] < ldr r3, .L962 < ldr r2, .L962+4 < str r2, [r3] < ldr r3, .L962+572 < str r3, [r10] < str r8, [r7] < 1493 1493 1494 LISTC: 1494 LISTC: 1495 GET EXP; ASSEMBLE 1495 GET EXP; ASSEMBLE mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL684: | .LVL670: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL685: | .LVL671: 1496 LIST = VAL 1496 LIST = VAL ldr r4, .L962+104 | ldr x0, [sp, 96] str r4, [r10] | ldr w1, [sp, 432] str r4, [r10] | str w1, [x0, 16] str r8, [r7] < ldr r3, [sp, #336] < ldr r2, .L962+516 < str r3, [r2, #16] < 1497 ->SEND 1497 ->SEND b .L762 | b .L710 .L938: | .L874: 1498 1498 1499 TEMP: 1499 TEMP: 1500 I = 0 1500 I = 0 .LVL686: | .LVL672: ldr r4, [sp, #252] | mov w19, w28 .LVL687: < .L765: < .LDL160: < ldr r4, [sp, #252] < b .L766 < .LVL690: < .L940: < 1501 %IF SYM # NL %START 1501 %IF SYM # NL %START ldr r3, [sp, #276] | ldr w0, [sp, 372] cmp r3, #10 | cmp w0, 10 bne .L926 | bne .L861 > .LVL673: > .L711: > .LDL163: 1502 %CYCLE 1502 %CYCLE 1503 GET EXP 1503 GET EXP mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL894: | .LVL841: 1504 FAULT('I') %IF TYPE # REG 1504 FAULT('I') %IF TYPE # REG ldr r3, .L962+580 | mov w25, 73 str r3, [r10] | ldr w0, [sp, 436] str r8, [r7] | cmp w0, 128 ldr r3, [sp, #340] | beq .L810 cmp r3, #128 | mov x18, x20 beq .L866 | mov w0, w25 mov ip, r6 < mov r0, #73 < bl FAULT.45 bl FAULT.45 .LVL895: | .LVL842: b .L866 | b .L810 .LVL896: | .LVL843: .L960: | .L713: 1505 I = I!1< .LVL838: 1506 %EXIT %UNLESS S(',') 1506 %EXIT %UNLESS S(',') str r8, [r7] | mov w21, 44 mov ip, r6 | b .L712 mov r0, #44 | .LVL676: > .L875: > mov x18, x20 > mov w0, w21 bl S.33 bl S.33 .LVL892: | .LVL839: cmp r0, #0 | cbz w0, .L711 beq .L765 | .LVL840: .LVL893: | .L712: .L766: | .LDL226: .LDL235: < 1507 %REPEAT 1507 %REPEAT ldr r3, .L962+576 < str r3, [r10] < 1508 %FINISH 1508 %FINISH 1509 TEMPS = I 1509 TEMPS = I ldr r3, .L962+516 | ldr x0, [sp, 96] str r4, [r3] | str w19, [x0] 1510 SET ACC 1510 SET ACC str r8, [r7] | mov x18, x20 mov ip, r6 < bl SETACC.40 bl SETACC.40 .LVL688: | .LVL674: 1511 ->SEND 1511 ->SEND ldr r3, .L962+108 | b .L710 str r3, [r10] | .LVL675: b .L762 | .L861: .LVL689: < .L926: < 1512 1512 1513 LOCC: 1513 LOCC: 1514 I = TAG1 1514 I = TAG1 .LVL907: < .LVL912: < 1515 GET EXP; ASSEMBLE 1515 GET EXP; ASSEMBLE mov ip, r6 | mov x18, x20 bl GETEXP.16 < .LVL908: < mov ip, r6 < bl ASSEMBLE.18 < .LVL909: < mov ip, r6 < bl GETEXP.16 bl GETEXP.16 .LVL913: | .LVL844: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL914: | .LVL845: 1516 %IF TYPE&16_FF80 = 0 %START 1516 %IF TYPE&16_FF80 = 0 %START ldr r4, .L962+616 | ldr w0, [sp, 436] str r4, [r10] | tst w0, 65408 str r4, [r10] | bne .L895 str r8, [r7] | .LDL227: ldr r3, .L962+624 < ldr r2, [sp, #340] < and r3, r3, r2 < cmp r3, #0 < bne .L880 < ldr r4, .L962+616 < str r4, [r10] < str r4, [r10] < str r8, [r7] < ldr r3, .L962+624 < ldr r2, [sp, #340] < and r3, r3, r2 < cmp r3, #0 < beq .L869 < .LVL915: < .L880: < .LDL237: < 1517 %IF I = 13556 %START; !LOC 1517 %IF I = 13556 %START; !LOC str r8, [r7] | mov w0, 13556 ldr r3, .L962+620 | cmp w19, w0 str r3, [r10] | bne .L812 str r8, [r7] < 1518 OUTPUT RECORD %IF BINCOUNT >= 203 1518 OUTPUT RECORD %IF BINCOUNT >= 203 > ldr w0, [x23, 16] > cmp w0, 202 > bgt .L896 > .L813: bl OUTPUTRECORD.43 bl OUTPUTRECORD.43 .LVL897: | .LVL849: b .L867 | b .L813 .L961: | .L897: ldr r3, [r9, #16] < cmp r3, #202 < bgt .L960 < .L867: < 1519 PUT(3) %IF (LOCTYPE!!TYPE)&RELMASK # 0 1519 PUT(3) %IF (LOCTYPE!!TYPE)&RELMASK # 0 mov r0, #3 | ldr w0, [sp, 440] > ldr w1, [sp, 436] > eor w0, w0, w1 > tbnz x0, 5, .L897 > .L814: > mov w0, 3 bl PUT.42 bl PUT.42 .LVL898: | .LVL850: b .L868 | b .L814 .LVL899: | .LVL851: .L873: | .L865: ldr r3, .L962+608 < str r3, [r10] < ldr r3, [sp, #344] < ldr r2, [sp, #340] < eor r3, r3, r2 < tst r3, #32 < bne .L961 < .L868: < 1520 PUT(5); PUT WORD(VAL) 1520 PUT(5); PUT WORD(VAL) ldr r3, .L962+612 | mov w0, 5 str r3, [r10] < str r8, [r7] < mov r0, #5 < bl PUT.42 bl PUT.42 .LVL910: | .LVL846: ldr r0, [sp, #336] | ldr w0, [sp, 432] bl PUTWORD.29 bl PUTWORD.29 .LVL911: | .LVL847: > .L812: 1521 %FINISH 1521 %FINISH mov r4, #1520 < str r4, [r10] < str r8, [r7] < str r4, [r10] < str r8, [r7] < 1522 LOCTYPE = TYPE&63+MEMMASK; LOC = VAL 1522 LOCTYPE = TYPE&63+MEMMASK; LOC = VAL .L869: | ldr w0, [sp, 436] ldr r3, [sp, #340] | and w0, w0, 63 and r3, r3, #63 | add w0, w0, 64 add r3, r3, #64 | str w0, [sp, 440] str r3, [sp, #344] | ldr w0, [sp, 432] ldr r3, [sp, #336] | str w0, [sp, 444] str r3, [sp, #348] < 1523 %finish %ELSE FAULT('I') 1523 %finish %ELSE FAULT('I') b .L762 | b .L710 .L767: | .L895: mov ip, r6 | mov x18, x20 mov r0, #73 | mov w0, 73 bl FAULT.45 bl FAULT.45 .LVL916: | .LVL848: b .L762 | b .L710 .LVL917: | .L896: .L854: < 1524 ->SEND 1524 ->SEND 1525 1525 1526 SAVC: 1526 SAVC: 1527 GET EXP; ASSEMBLE 1527 GET EXP; ASSEMBLE mov ip, r6 | mov x18, x20 bl GETEXP.16 bl GETEXP.16 .LVL736: | .LVL705: mov ip, r6 | mov x18, x20 bl ASSEMBLE.18 bl ASSEMBLE.18 .LVL737: | .LVL706: 1528 SAVE = VAL 1528 SAVE = VAL ldr r4, .L962+280 | adrp x0, .LANCHOR1 str r4, [r10] | add x0, x0, :lo12:.LANCHO str r4, [r10] | str x0, [sp, 96] str r8, [r7] | b .L685 ldr r3, [sp, #336] | .LVL651: ldr r2, .L962+516 | .L870: str r3, [r2, #4] | ldr x0, [sp, 96] > ldr w1, [sp, 432] > str w1, [x0, 4] 1529 ->SEND 1529 ->SEND b .L762 | b .L710 .L923: | .L858: .L791: | .L738: 1530 1530 1531 MACDEF: 1531 MACDEF: 1532 ->CERR %IF MP # 0 1532 ->CERR %IF MP # 0 ldr r3, .L962+444 | adrp x0, .LANCHOR0+272 ldr r3, [r3, #268] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cbz w0, .L865 bne .L757 | .L705: .LDL168: | .LDL228: 1533 ->ERR %IF %NOT TAG 1533 ->ERR %IF %NOT TAG add ip, sp, #272 | add x18, sp, 368 bl TAG.34 bl TAG.34 .LVL705: | .LVL852: cmp r0, #0 | cbz w0, .L736 beq .L745 | .LDL229: .LDL169: < 1534 J = TAG1; K = TAG2 1534 J = TAG1; K = TAG2 ldr r3, .L962+8 | ldr w24, [sp, 384] ldr r2, .L962+160 | .LVL853: str r2, [r3] | ldr w21, [sp, 380] ldr r3, [sp, #288] | .LVL854: str r3, [sp, #260] < .LVL706: < ldr r2, [sp, #284] < .LVL707: < 1535 I = GETPOS-1 1535 I = GETPOS-1 ldr r3, .L962+444 | adrp x0, .LANCHOR0+240 .LVL708: | ldr w19, [x0, #:lo12:.LAN ldr r3, [r3, #236] | .LVL855: .LVL709: | sub w19, w19, #1 sub r3, r3, #1 | .LVL862: 1536 %IF SYM # NL %START 1536 %IF SYM # NL %START ldr r1, [sp, #276] | ldr w0, [sp, 372] cmp r1, #10 | cmp w0, 10 beq .L870 | beq .L815 1537 %CYCLE 1537 %CYCLE 1538 ->ERR %IF %NOT TAG 1538 ->ERR %IF %NOT TAG str r3, [sp, #256] | add x22, sp, 368 str r2, [sp, #268] | mov x18, x22 .LVL710: < .L871: < .LDL170: < add ip, sp, #272 < bl TAG.34 bl TAG.34 .LVL711: | .LVL856: cmp r0, #0 | cbz w0, .L736 beq .L745 | .LDL231: .LDL171: < 1539 SCAN ARG 1539 SCAN ARG ldr r4, .L962+8 | mov x18, x22 ldr r5, .L962 < ldr fp, .L962+4 < ldr r3, .L962+164 < str r3, [r4] < str fp, [r5] < add ip, sp, #272 < bl SCANARG.31 bl SCANARG.31 .LVL712: | .LVL857: 1540 %EXIT %IF %NOT S(',') 1540 %EXIT %IF %NOT S(',') ldr r3, .L962+168 | mov w25, 44 str r3, [r4] | .L816: str fp, [r5] | .LDL230: add ip, sp, #272 | mov x18, x22 mov r0, #44 | mov w0, w25 bl S.33 bl S.33 .LVL713: | .LVL858: cmp r0, #0 | cbnz w0, .L816 bne .L871 | .L817: ldr r3, [sp, #256] | .LDL232: ldr r2, [sp, #268] < .LVL714: < .L870: < .LDL172: < 1541 %REPEAT 1541 %REPEAT ldr r3, .L962+172 < str r3, [r4] < str fp, [r5] < 1542 %FINISH 1542 %FINISH 1543 ->ERR %IF SYM # NL 1543 ->ERR %IF SYM # NL ldr r1, [sp, #276] | ldr w0, [sp, 372] cmp r1, #10 | cmp w0, 10 bne .L745 | beq .L815 .LDL173: | .LVL859: > .L736: > .LDL233: 1544 TAG1 = J; TAG2 = K 1544 TAG1 = J; TAG2 = K ldr r1, .L962 | str w24, [sp, 384] ldr r0, .L962+4 | str w21, [sp, 380] str r0, [r1] < ldr r1, [sp, #260] < str r1, [sp, #288] < str r2, [sp, #284] < 1545 TYPE = MACRO; VAL = I 1545 TYPE = MACRO; VAL = I mov r2, #40960 | mov w0, 40960 str r2, [sp, #340] | str w0, [sp, 436] str r3, [sp, #336] | str w19, [sp, 432] 1546 LOOKUP(3) 1546 LOOKUP(3) add ip, sp, #272 | add x18, sp, 368 mov r0, #3 | mov w0, 3 bl LOOKUP.32 bl LOOKUP.32 .LVL715: | .LVL863: 1547 %CYCLE 1547 %CYCLE ldr r3, .L962+8 < ldr r2, .L962+176 < str r2, [r3] < 1548 PRINT LINE 1548 PRINT LINE add fp, sp, #272 | add x21, sp, 368 mov ip, fp | .LVL864: > mov x18, x21 bl PRINTLINE.47 bl PRINTLINE.47 .LVL901: | .LVL867: 1549 %EXIT %IF S('$') %AND TAG %AND TAG1 = END 1549 %EXIT %IF S('$') %AND TAG %AND TAG1 = END ldr r4, .L962+8 | mov w25, 36 ldr r5, .L962 | mov w22, 6009 b .L872 | mov x18, x21 .LVL716: | mov w0, w25 .L928: < ldr r3, .L962+584 < str r3, [r4] < ldr r3, .L962+636 < str r3, [r5] < mov ip, fp < mov r0, #36 < bl S.33 bl S.33 .LVL902: | .LVL868: cmp r0, #0 | cbnz w0, .L819 bne .L873 | mov x18, x21 mov ip, fp < bl TAG.34 bl TAG.34 .LVL903: | .LVL869: cmp r0, #0 | cbnz w0, .L819 bne .L873 | ldr w0, [sp, 384] ldr r3, .L962+592 | cmp w0, w22 ldr r2, [sp, #288] | bne .L819 cmp r2, r3 | .LDL234: bne .L873 < .LDL236: < 1550 STARTPOS = PUTPOS 1550 STARTPOS = PUTPOS ldr r3, .L962+604 | adrp x19, .LANCHOR0 ldr r2, [r3] | .LVL865: str r2, [r3, #276] | add x19, x19, :lo12:.LANC ldr r3, .L962+588 | b .L818 str r3, [r4] | .L819: ldr r3, .L962+636 | ldr w0, [x19] str r3, [r5] < 1551 STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0 1551 STARTPOS = PSEUDOLIM+1 %IF PSEUDOLIM # 0 ldr r3, .L962+636 | ldr w2, [x19, 284] str r3, [r5] | add w1, w2, 1 ldr r3, [r3, #280] | cmp w2, 0 cmp r3, #0 | csel w0, w1, w0, ne addne r3, r3, #1 | str w0, [x19, 280] ldrne r2, .L962+604 | .L820: strne r3, [r2, #276] < .L874: < 1552 READ LINE 1552 READ LINE add ip, sp, #272 | mov x18, x21 bl READLINE.38 bl READLINE.38 .LVL900: | .LVL866: 1553 %REPEAT 1553 %REPEAT mov r3, #1552 | .L818: str r3, [r4] < .L872: < 1554 PUTPOS = STARTPOS; PUT CHAR(0) 1554 PUTPOS = STARTPOS; PUT CHAR(0) ldr r4, .L962+604 | adrp x21, .LANCHOR0 ldr r3, [r4, #276] | add x19, x21, :lo12:.LANC str r3, [r4] | ldr w0, [x19, 280] > str w0, [x21, #:lo12:.LAN > mov w0, 0 bl PUTCHAR.37 bl PUTCHAR.37 .LVL904: | .LVL870: 1555 STARTPOS = PUTPOS 1555 STARTPOS = PUTPOS ldr r3, .L962+596 | ldr w0, [x21, #:lo12:.LAN ldr r2, .L962+600 | str w0, [x19, 280] str r2, [r3] < ldr r3, .L962+632 < ldr r2, .L962+636 < str r2, [r3] < ldr r3, [r4] < str r3, [r4, #276] < 1556 MACLIM = STARTPOS 1556 MACLIM = STARTPOS str r3, [r4, #248] | str w0, [x19, 252] 1557 ->LEND 1557 ->LEND b .L776 | b .L722 .LVL905: | .LVL871: .L930: | .L822: > .LDL235: 1558 1558 1559 %ROUTINE BNEST 1559 %ROUTINE BNEST @ args = 0, pretend = 0, fram | stp x29, x30, [sp, -48]! @ frame_needed = 0, uses_anon | mov x29, sp push {r4, r5, r6, r7, r8, | stp x19, x20, [sp, 16] > stp x21, x22, [sp, 32] 1560 !! BP = BP+4; %MONITOR 23 %IF BP-NP >= 0 1560 !! BP = BP+4; %MONITOR 23 %IF BP-NP >= 0 1561 BP = BP+4; !{}%signal 2,3 %IF BP-NP >= 0 1561 BP = BP+4; !{}%signal 2,3 %IF BP-NP >= 0 ldr r4, .L199 | adrp x19, .LANCHOR0 ldr r5, [r4, #244] | add x19, x19, :lo12:.LANC add r6, r5, #4 | ldr w20, [x19, 248] str r6, [r4, #244] | add w21, w20, 4 > str w21, [x19, 248] 1562 !! INTEGER(BP-3) = SAVE; INTEGER(BP-2) = TEMPS 1562 !! INTEGER(BP-3) = SAVE; INTEGER(BP-2) = TEMPS 1563 set INTEGER(BP-3, SAVE); set INTEGER(BP-2, TEMPS) 1563 set INTEGER(BP-3, SAVE); set INTEGER(BP-2, TEMPS) ldr r7, .L199+4 | adrp x22, .LANCHOR1 ldr r1, [r7, #4] | add x0, x22, :lo12:.LANCH add r0, r5, #1 | ldr w1, [x0, 4] > add w0, w20, 1 bl SETINTEGER.8 bl SETINTEGER.8 .LVL120: | .LVL95: ldr r1, [r7] | ldr w1, [x22, #:lo12:.LAN add r0, r5, #2 | add w0, w20, 2 bl SETINTEGER.8 bl SETINTEGER.8 .LVL121: | .LVL96: 1564 !! INTEGER(BP-1) = MACLIM; INTEGER(BP) = DEFMIN 1564 !! INTEGER(BP-1) = MACLIM; INTEGER(BP) = DEFMIN 1565 set INTEGER(BP-1, MACLIM); set INTEGER(BP, DEFMIN) 1565 set INTEGER(BP-1, MACLIM); set INTEGER(BP, DEFMIN) ldr r1, [r4, #248] | ldr w1, [x19, 252] add r0, r5, #3 | add w0, w20, 3 bl SETINTEGER.8 bl SETINTEGER.8 .LVL122: | .LVL97: ldr r1, [r4, #252] | ldr w1, [x19, 256] mov r0, r6 | mov w0, w21 bl SETINTEGER.8 bl SETINTEGER.8 .LVL123: | .LVL98: 1566 %END 1566 %END 1567 1567 ldr r3, .L199+8 < ldr r2, .L199+12 < str r2, [r3] < ldr r3, .L199+16 < ldr r2, .L199+20 < str r2, [r3] < 1568 BEGIN: 1568 BEGIN: pop {r4, r5, r6, r7, r8, | ldp x19, x20, [sp, 16] .L200: | ldp x21, x22, [sp, 32] .align 2 | ldp x29, x30, [sp], 48 .L199: | ret .word .LANCHOR0 < .word .LANCHOR1 < .word _imp_current_line < .word 1566 < .word _imp_current_file < .word .LC6 < .LFE248: .LFE248: .align 2 .align 2 DONEWLINE.15: DONEWLINE.15: .LFB210: .LFB210: 1569 BNEST 1569 BNEST bl BNEST.41 bl BNEST.41 .LVL717: | .LVL686: 1570 ->NEWPAGE %IF SYM # NL 1570 ->NEWPAGE %IF SYM # NL ldr r3, .L962+8 | ldr w0, [sp, 372] ldr r2, .L962+180 | cmp w0, 10 str r2, [r3] | beq .L722 ldr r3, [sp, #276] < cmp r3, #10 < beq .L776 < 1571 ->LEND 1571 ->LEND 1572 1572 1573 BEND: 1573 BEND: 1574 FAULT('C') %IF NP # STORELIM %OR MP # 0 1574 FAULT('C') %IF NP # STORELIM %OR MP # 0 ldr r4, [r9, #312] | ldr w19, [x23, 316] ldr r3, [r9, #232] | ldr w0, [x23, 236] cmp r3, r4 | cmp w0, w19 bne .L778 | bne .L724 ldr r3, .L962+444 | adrp x0, .LANCHOR0+272 ldr r3, [r3, #268] | ldr w0, [x0, #:lo12:.LANC cmp r3, #0 | cbz w0, .L821 beq .L875 | .L724: .L778: | add x18, sp, 368 add ip, sp, #272 | mov w0, 67 mov r0, #67 < bl FAULT.45 bl FAULT.45 .LVL691: | .LVL677: .L875: | .L821: 1575 MP = 0; NP = STORELIM 1575 MP = 0; NP = STORELIM mov r3, #0 | str wzr, [x23, 272] str r3, [r9, #268] | str w19, [x23, 236] str r4, [r9, #232] < 1576 %IF BP # LABLIM %START 1576 %IF BP # LABLIM %START str r8, [r7] | ldr w0, [x23, 248] ldr r0, [r9, #244] | ldr w1, [x23, 320] ldr r3, [r9, #316] | cmp w0, w1 cmp r0, r3 | beq .L822 beq .L876 < 1577 SAVE = INTEGER(BP-3); TEMPS = INTEGER(BP-2) 1577 SAVE = INTEGER(BP-3); TEMPS = INTEGER(BP-2) sub r0, r0, #3 | sub w0, w0, #3 bl INTEGER.39 bl INTEGER.39 .LVL692: | .LVL678: ldr r4, .L962+516 | adrp x19, .LANCHOR1 str r0, [r4, #4] | add x1, x19, :lo12:.LANCH str r5, [r10] | str w0, [x1, 4] str r8, [r7] | ldr w0, [x23, 248] ldr r0, [r9, #244] | sub w0, w0, #2 sub r0, r0, #2 < bl INTEGER.39 bl INTEGER.39 .LVL693: | .LVL679: str r0, [r4] | str w0, [x19, #:lo12:.LAN 1578 MACLIM = INTEGER(BP-1); STARTPOS = MACLIM 1578 MACLIM = INTEGER(BP-1); STARTPOS = MACLIM ldr r5, .L962+120 | ldr w0, [x23, 248] str r5, [r10] | sub w0, w0, #1 ldr r0, [r9, #244] < sub r0, r0, #1 < bl INTEGER.39 bl INTEGER.39 .LVL694: | .LVL680: str r0, [r9, #248] | str w0, [x23, 252] str r8, [r7] | str w0, [x23, 280] str r0, [r9, #276] < 1579 DEFMIN = INTEGER(BP) 1579 DEFMIN = INTEGER(BP) ldr r3, .L962+124 | ldr w0, [x23, 248] str r3, [r10] < str r8, [r7] < ldr r0, [r9, #244] < bl INTEGER.39 bl INTEGER.39 .LVL695: | .LVL681: str r0, [r9, #252] | str w0, [x23, 256] 1580 SET ACC 1580 SET ACC ldr r3, .L962+128 | mov x18, x20 str r3, [r10] < add ip, sp, #272 < bl SETACC.40 bl SETACC.40 .LVL696: | .LVL682: 1581 BP = BP-4 1581 BP = BP-4 ldr r3, .L962+132 | ldr w0, [x23, 248] str r3, [r10] | sub w0, w0, #4 str r8, [r7] | str w0, [x23, 248] ldr r3, [r9, #244] < sub r3, r3, #4 < str r3, [r9, #244] < 1582 ->LEND %IF BP # LABLIM 1582 ->LEND %IF BP # LABLIM ldr r2, [r9, #316] | ldr w1, [x23, 320] cmp r3, r2 | cmp w0, w1 bne .L776 | beq .L822 .L876: | .L722: .LDL165: | .LVL683: 1583 %FINISH 1583 %FINISH 1584 CLOSE INPUT; SELECT INPUT(MAIN) 1584 CLOSE INPUT; SELECT INPUT(MAIN) .LBB177: | .LBB193: .LBI177: | .LBI193: mov r0, #1 < bl _imp_SELECTINPUT < .LVL698: < 1585 BNEST 1585 BNEST ldr r6, .L962+8 < mov fp, #1584 < str fp, [r6] < ldr r4, .L962 < ldr r5, .L962+4 < str r5, [r4] < bl BNEST.41 bl BNEST.41 .LVL699: | .LVL874: 1586 LIST = 5 1586 LIST = 5 ldr r3, .L962+136 | adrp x0, .LANCHOR1 str r3, [r6] | add x0, x0, :lo12:.LANCHO str r5, [r4] | mov w1, 5 ldr r2, .L962+516 | str w1, [x0, 16] mov r3, #5 < str r3, [r2, #16] < 1587 PASS = PASS+1 1587 PASS = PASS+1 str r5, [r4] | ldr w1, [x0, 8] ldr r3, [r2, #8] | add w1, w1, 1 add r3, r3, #1 | str w1, [x0, 8] str r3, [r2, #8] < 1588 ->DO PASS %IF PASS # 2 1588 ->DO PASS %IF PASS # 2 cmp r3, #2 | cmp w1, 2 bne .L737 | bne .L683 .LDL166: | .LDL236: 1589 1589 1590 OUTPUT RECORD %IF BINCOUNT = 208 1590 OUTPUT RECORD %IF BINCOUNT = 208 ldr r3, .L962+444 | adrp x0, .LANCHOR0+16 ldr r3, [r3, #16] | ldr w0, [x0, #:lo12:.LANC cmp r3, #208 | cmp w0, 208 beq .L930 | beq .L898 .L877: | .L823: bl OUTPUTRECORD.43 bl OUTPUTRECORD.43 .LVL906: | .LVL883: b .L877 | b .L823 .L939: | .LVL884: > .L799: 1591 PUT(1) 1591 PUT(1) ldr r2, .L962+140 | mov w0, 1 str r2, [r6] < mov r0, #1 < bl PUT.42 bl PUT.42 .LVL700: | .LVL875: 1592 OUTPUT RECORD 1592 OUTPUT RECORD ldr r6, .L962+8 < ldr r3, .L962+144 < str r3, [r6] < ldr r4, .L962 < ldr r5, .L962+4 < str r5, [r4] < bl OUTPUTRECORD.43 bl OUTPUTRECORD.43 .LVL701: | .LVL876: 1593 FAULT('$') 1593 FAULT('$') ldr r3, .L962+148 | add x19, sp, 368 str r3, [r6] | mov x18, x19 str r5, [r4] | mov w0, 36 add r7, sp, #272 < mov ip, r7 < mov r0, #36 < bl FAULT.45 bl FAULT.45 .LVL702: | .LVL877: 1594 PRINT LOC; PRINT LINE 1594 PRINT LOC; PRINT LINE mov ip, r7 | mov x18, x19 bl PRINTLOC.46 bl PRINTLOC.46 .LVL703: | .LVL878: str r8, [r6] | mov x18, x19 str r5, [r4] < mov ip, r7 < bl PRINTLINE.47 bl PRINTLINE.47 .LVL704: | .LVL879: 1595 1595 ldr r8, .L962+152 < str r8, [r6] < str r5, [r4] < 1596 %ENDOFPROGRAM 1596 %ENDOFPROGRAM mov r0, #0 < add sp, sp, #1632 < add sp, sp, #12 < @ sp needed < pop {r4, r5, r6, r7, r8, < .L927: < 1517 Statements compiled 1517 Statements compiled ldr r3, .L962+156 | mov w0, 0 str r3, [r6] | ldp x29, x30, [sp] str r5, [r4] | ldp x19, x20, [sp, 16] > ldp x21, x22, [sp, 32] > ldp x23, x24, [sp, 48] > .LVL880: > ldp x25, x26, [sp, 64] > ldp x27, x28, [sp, 80] > add sp, sp, 1744 > .LVL881: > ret > .LVL882: > .L898: