Back to subr.l
(code 'doCaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCdar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCaaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCadar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCdaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCddar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCaaaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaaadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaadar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaaddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCadaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCadadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCaddar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCadddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR pop X ret (code 'doCdaaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdaadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdadar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdaddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCddaar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCddadr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCdddar 2) push X ld X E ld E ((E CDR)) # Get arg eval num E # Need variable jnz varErrEX ld E (E) # Take CAR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret (code 'doCddddr 2) push X ld X E ld E ((E CDR)) # Get arg eval cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR cmp E Nil # Need list if ne atom E jnz lstErrEX end ld E (E CDR) # Take CDR pop X ret
26nov16 | admin |