perm filename ZTYI.LAP[OLD,LSP] blob sn#291933 filedate 1978-12-10 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002
C00004 00003	
C00005 ENDMK
CāŠ—;

'(THIS IS THE LAP FOR (ZTYI  DSK (MAC LSP)))
'(COMPILED BY LISP COMPILER /703)
;COMPILED ON JULY 1, 1977, AT 12:31 PM

(LAP ZTYI SUBR) 
(ARGS ZTYI (NIL . 0)) 
(PUSH FXP (% 0)) 
(MOVEI 1 '(FEATURE SAIL)) 
(CALL 17 'STATUS) 
(JUMPE 1 G0003) 
(MOVEI T G0005) 
(PUSH P T) 
(PUSH P (% 0 0 '-1)) 
(MOVNI T 1) 
(NJCALL 16 'TYI) 
G0005 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
(JRST 0 G0002) 
G0003 
(MOVEI T G0008) 
(PUSH P T) 
(PUSH P (% 0 0 '3)) 
(MOVNI T 1) 
(NJCALL 16 'TYI) 
G0008 
(MOVEM 7 0 FXP) 
(MOVEI 1 0 FXP) 
G0002 
(PUSH P 1) 
(MOVEI 1 '(FEATURE SAIL)) 
(CALL 17 'STATUS) 
(JUMPE 1 G0013) 
(SKIPA 7 (% -1)) 
G0013 
(MOVEI 7 3) 
(CAME 7 @ 0 P) 
(JRST 0 G0011) 
(HRRZ 1 @ (SPECIAL DATA)) 
(HLRZ 1 0 1) 
(MOVEM 1 (SPECIAL TOPFN)) 
(JUMPE 1 G0011) 
(MOVEI 1 '(NIL |EOF IN MIDDLE OF LAP CODE - /
		CHECK FOR MISBALANCED PARENS|)) 
(CALL 17 'DBARF) 
G0011 
(POP P 1) 
(JSP T PDLNMK) 
(SUB FXP (% 0 0 1 1)) 
(POPJ P) 
NIL