|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400) Types: TextFile Names: »CWT.MAC«
└─⟦8dcf1351b⟧ Bits:30004118/disk2.imd SW1720/I5 Pascal/MT+ Release 5.5 └─⟦this⟧ »CWT.MAC«
;----------------------------------------------------------------; ; ; ; MODULE @CWT ; ; LAST UPDATED: SEPT 6 1980 ; ; ; ;----------------------------------------------------------------; PUBLIC @CWT ;WAIT FOR CR EXTRN @GETCHR EXTRN @LFB FEOLN EQU 59 ;BOOLEAN; FBUFFER EQU 194 ;ARRAY Æ0..0Å OF BYTE OPTION EQU 56 ;(FREAD,FWRITE,...FLSTOUT) FCONIO EQU 4 ;USED BY THIS MODULE @CWT: LHLD @LFB LXI D,FEOLN DAD D MOV A,M RAR JC ITSEOLN ;BR IF LAST THING WAS A CR CALL @GETCHR POP B JMP @CWT ITSEOLN: MVI M,0 ;TURN EOLN OFF LHLD @LFB LXI D,OPTION DAD D MOV A,M CPI FCONIO RNC ;IF CONSOLE THEN WE ARE DONE CALL @GETCHR ;GOBBLE BLANK AND PUT LF IN BUFFER POP B LHLD @LFB LXI D,FBUFFER DAD D MOV A,M CPI 0AH ;LF TO GOBBLE? RNZ ;RETURN IF DONE CALL @GETCHR ;GOBBLE LF AND PUT NEXT CHAR IN BUFFER POP B RET END «eof»