|
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: 1792 (0x700)
Types: TextFile
Names: »DROPLP.ASM«
└─⟦028d1135a⟧ Bits:30009624 SW1711/I5 RC702 CP/M System diskette Release 2.1
└─⟦this⟧ »DROPLP.ASM«
;************************************************************** ; ; DROPLP.ASM (Vers. 1.0) ; ; Martin Lund ; Sct. Knuds Gymnasium ; August 1984 ; ; Det foreliggende assemblerprogram er skrevet til RC 702- ; CP/M vs. 2.1, hvor LST-enheden er en RC 862 Microline 82 A ; Line Printer. ; Dets funktion er at frigøre linjeskriverens SEL-funktion ; efter udskrifter i CP/M, - en facilitet, som ikke ; automatisk håndteres. ; Desuden gøres den sidst udskrevne tekst fri for evt. ; afrivning af papiret. ; Programmet foreligger som en .COM-fil og aktiveres ved ; ordren : ; ; A> DROPLP 'RETURN' ; ; ; Referencer : Microline 82 A User's Guide p.68. ; CP/M Operating System Manual p.96. ; ;************************************************************** ; ; ORG 100H ; BDOS EQU 5 CR EQU 13 ;Carriage Return, vognretur ESC EQU 27 ;Escape VT EQU 11 ;Vertical Tabulator ; ; Følgende konstanter kunne også benyttes, men ; det sker ikke her i forbindelse med Microline 82 A : ; LF EQU 10 ;Line Feed, ny linje; ; FF EQU 12 ;Form Feed, sideskift ; LXI H,CHRS ;Pointer til karakter-sekvensen MORE: MVI A,'$' ;Hent stop-karakteren MOV E,M ;Hent en udskrift-karakter CMP E ;Er det stop-karakteren ? JZ 0 ;Hvis ja, så slut ved at hoppe til ;CP/M Warm Start-adresse ;Hvis nej, så send udskrift-karakteren PUSH H ;Men bevar først pointeren MVI C,5 ;C:=5 : Funtion 5 : List Output CALL BDOS POP H ;Genkald den bevarede pointer INX H ;Pointer til næste udskrift-karakter JMP MORE ;En gang til ... ; CHRS: DB ESC,VT,'0','6',CR,'$' ; 6 stk. linjeskift ; og vognretur END «eof»