CP/M

home *** CD-ROM | disk | FTP | other *** search

/ CP/M / CPM_CDROM.iso / simtel / sigm / vols000 / vol087 / displayp.asm < prev next >

Wrap

Assembly Source File | 1984-04-29 | 15.3 KB | 1,164 lines

; Disassembly of DISPLAY.COM ; ; Version list - most recent version first ; ;26/Jul/82 Included conditional assembly for Keith Petersens patch that ; will not accept wild-cards, distribution-tagged files, SYS files, ; and files with '#' as the last character of the file type. ; Compatible with CP/M 1.4 or 2.x. Added on line command help ; display if "?" entered in response to command prompt. Bill Bolton ; WBOOT EQU 00000H BDOS EQU 00005H FCB EQU 05CH ;CP/M file control block OPEN EQU 15 ; ALF EQU 0AH ACR EQU 0DH EOF EQU 01AH ; VERS EQU 11 ; FALSE EQU 0 TRUE EQU NOT FALSE ; RCPM EQU TRUE ;True for RCPM restricted version ; ORG 100H ; JMP START ; DB 'Display Ver. ' DB VERS/10 + '0','.',VERS MOD 10 + '0' DB ', 24/Jul/1982$' ; ;Check for ambiguous file names ; START: if rcpm LXI H,FCB ;POINT TO FCB MVI B,11 ;NO. OF CHARS TO CHECK ; LOOP: INX H ;POINT TO NEXT CHAR MOV A,M ;GET CHAR CPI '?' ;WAS IT A '?' JZ WERROR ;YES, EXIT WITH ERROR MSG DCR B ;ONE LESS TO CHECK JNZ LOOP ;NOT DONE, GO GET MORE ; ;Check for private file type ; CPI '#' ;WAS LAST CHARACTER A '#' ? JZ OPENOT ;YES, PRINT ERROR AND EXIT ; ;Check for .COM file, which can't be printed ; CPI 'M' ;WAS LAST CHAR AN 'M'? JNZ OBJCHK ;IF NOT, CHK FOR '.OBJ' TYPE DCX H MOV A,M ;CHK NEXT CPI 'O' ;AN 'O'? JNZ OPENFIL ;IF NOT, GO OPEN FILE DCX H MOV A,M ;WAS 'O', CHK NEXT CHAR CPI 'C' ; 'C' AS IN '.COM'? JNZ OPENFIL ;IF NOT, GO OPEN FILE CALL ERXIT ;EXIT W/MESSAGE DB '++CAN''T DISPLAY .COM FILES$' ; ;Check for .OBJ file, which can't be printed ; OBJCHK: CPI 'J' ;WAS LAST CHAR AN 'J' THEN? JNZ ALLCHK ;IF NOT, CHECK FOR '.ALL' TYPE DCX H MOV A,M ;MIGHT BE '.OBJ', CHK NEXT CHR CPI 'B' ;IS IT A 'B'? JNZ OPENFIL ;IF NOT, GO OPEN FILE DCX H MOV A,M ;WAS, CHK FIRST CHAR CPI 'O' ; 'O' AS IN '.OBJ'? JNZ OPENFIL ;IF NOT, GO OPEN FILE CALL ERXIT ;EXIT W/MESSAGE DB '++CAN''T DISPLAY .OBJ FILES$' ; ;Check for .ALL file, which can always be displayed ; ALLCHK: CPI 'L' ;WAS LAST CHAR AN 'L'? JNZ OPENFIL ;IF NOT, TRY AN OPEN DCX H MOV A,M ;CHK NEXT CPI 'L' ;AN 'L'? JNZ OPENFIL ;IF NOT, GO OPEN FILE DCX H MOV A,M ;WAS 'L', CHK NEXT CHAR CPI 'A' ; 'A' AS IN '.ALL'? JNZ OPENFIL ;IF NOT, GO OPEN FILE STA ALLFLAG ; ;Open the file to get attributes into FCB ; OPENFIL: LXI D,FCB ;POINT TO FILE MVI C,OPEN ;GET FUNCTION CALL BDOS ;OPEN IT INR A ;OPEN OK? JZ ENTRY ;..NO, LET DISPLAY GIVE ERROR MSG ; ;Check for SYS file ; LDA FCB+10 ;GET SYS ATTRIBUTE ANI 80H ;ISOLATE ATTR BIT JNZ OPENOT ;IT'S SYS, EXIT ; ;Check for distribution-protected (tagged) file ; LDA FCB+2 ;FIRST CHAR OF FILE NAME ANI 80H ;CHECK BIT 7 JZ ENTRY ;IT WAS OFF, EXIT TO DISPLAY LDA ALLFLAG ORA A ;IS AN '.ALL' FILE JNZ ENTRY ;DISPLAY '.ALL' FILES EVEN IF TAGGED ; OPENOT: CALL ERXIT ;EXIT W/MESSAGE DB '++FILE IS NOT FOR DISTRIBUTION, SORRY$' ; WERROR: CALL ERXIT DB '++CAN''T USE WILD CARDS$' ; ; ;Exit with error message ; ERXIT: POP D ;GET MSG ADRS MVI C,9 JMP BDOS ;PRINT IT THEN RETURN TO CCP ; endif ;rcpm ; ENTRY: LXI SP,BUF$START ;Set up a stack (pointing to top) MVI L,021H LXI D,DFCB LXI B,FCB FCBLOOP: LDAX B STAX D INX B INX D DCR L JNZ FCBLOOP A0134: CALL INIT ;Set up data areas LXI B,DFCB CALL OPEN$FILE LDA BDOS$VAL CPI 0FFH ;Succesful open? JNZ A014E ;Yes LXI B,NOT$FOUND$MSG ;No CALL DISP$STRING ;Tell the user CALL TO$WBOOT ;*** PERMANENT EXIT *** ; A014E: LHLD D077A MOV B,H MOV C,L CALL A0387 CALL A0567 A0159: CALL A06C3 LDA D0774 CPI ACR JNZ A016D CALL A0567 JMP A0159 ; ; >> NO EXECUTION PATH TO HERE << JMP A0185 ; A016D: MVI C,'B' CALL A06EF RAR JNC A0179 JMP A0134 ; A0179: MVI C,'E' CALL A06EF RAR JNC QUERY CALL TO$WBOOT ;*** PERMANENT EXIT *** ; QUERY: MVI C,'?' CALL A06EF RAR JNC A0185 LXI B,HELP$MSG CALL DISP$STRING JMP A0159 ; A0185: LXI H,D0777 MVI M,0 LXI H,1 SHLD D0784 LDA D0774 CPI '-' JNZ A01A0 LXI H,D0777 MVI M,1 CALL A069F A01A0: LDA D0774 SUI '0' STA D0778 MOV C,A MVI A,9 CMP C JC A01E7 LHLD D0778 MVI H,0 SHLD D0784 CALL A069F A01BA: LDA D0774 SUI '0' STA D0778 MOV C,A MVI A,9 CMP C JC A01E7 LHLD D0784 DAD H DAD H DAD H PUSH H LHLD D0784 DAD H POP B DAD B PUSH H LHLD D0778 MVI H,0 POP B DAD B SHLD D0784 CALL A069F JMP A01BA ; A01E7: LDA D0774 CPI 'L' JNZ A01FD LHLD D0777 MOV C,L LHLD D0784 XCHG CALL A0450 JMP A024D ; A01FD: LDA D0774 CPI 'P' JNZ A0237 MVI A,0 LXI D,D0784 CALL A0750 ORA L JZ A022B LXI D,017H LHLD D0784 CALL A072F SHLD D0784 LHLD D0777 MOV C,L LHLD D0784 XCHG CALL A0450 JMP A0234 ; A022B: LHLD D077A SHLD D077E SHLD D0786 A0234: JMP A024D ; A0237: LDA D0774 CPI 'D' JNZ A024A LHLD D0784 MOV B,H MOV C,L CALL A0595 JMP A024D ; A024A: JMP A0253 ; A024D: CALL A0567 JMP A0159 ; A0253: LXI B,ILLEGAL$MSG CALL DISP$STRING JMP A0159 ; ; >> NO EXECUTION PATH TO HERE << EI HLT LXI D,0 MVI C,1 ;Console input CALL TO$BDOS RET ; PUT$CHAR: LXI H,D075C MOV M,C LHLD D075C MVI H,0 XCHG ;E <---- C MVI C,2 ;Console output CALL TO$BDOS RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,D075D MOV M,C LHLD D075D MVI H,0 XCHG MVI C,5 ;List output CALL TO$BDOS RET ; A0287: LXI H,T075F MOV M,B DCX H MOV M,C LHLD D075E XCHG MVI C,10 ;Read console buffer CALL TO$BDOS RET ; OPEN$FILE: LXI H,T0761 MOV M,B DCX H MOV M,C LHLD D0760 XCHG ;DE <---- BC MVI C,15 ;Open file CALL TO$BDOS STA BDOS$VAL ;Keep the result RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,T0763 MOV M,B DCX H MOV M,C LHLD D0762 XCHG MVI C,16 ;Close file CALL TO$BDOS STA BDOS$VAL RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,T0765 MOV M,B DCX H MOV M,C LHLD D0764 XCHG MVI C,17 ;Search first CALL TO$BDOS SUI 0FFH ADI 0FFH SBB A RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,T0767 MOV M,B DCX H MOV M,C LHLD D0766 XCHG MVI C,19 ;Delete file CALL TO$BDOS RET ; A02E2: LXI H,T0769 MOV M,B DCX H MOV M,C LHLD D0768 XCHG MVI C,20 ;Read sequential CALL TO$BDOS STA BDOS$VAL RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,T076B MOV M,B DCX H MOV M,C LHLD D076A XCHG MVI C,21 ;Write sequential CALL TO$BDOS STA BDOS$VAL RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,T076D MOV M,B DCX H MOV M,C LHLD D076C XCHG MVI C,22 ;Make file CALL TO$BDOS RET ; ; >> NO EXECUTION PATH TO HERE << LXI D,0 MVI C,23 ;Rename file CALL TO$BDOS RET ; ; >> NO EXECUTION PATH TO HERE << LXI H,D076E MOV M,C LHLD D076E MVI H,0 XCHG MVI C,14 ;Select disk CALL TO$BDOS RET ; A0331: LXI H,T0770 MOV M,B DCX H MOV M,C LHLD D076F XCHG MVI C,26 ;Set DMA CALL TO$BDOS RET ; NEW$LINE: MVI C,ALF CALL PUT$CHAR MVI C,ACR CALL PUT$CHAR RET ; DISP$STRING: LXI H,T0772 MOV M,B DCX H MOV M,C LHLD D0771 XCHG ;DE <---- BC MVI C,9 ;Print string CALL TO$BDOS CALL NEW$LINE RET ; INIT: LXI H,D0773 MVI M,0 LXI H,BUF$START SHLD D077A SHLD D077E SHLD D0780 LHLD D077A SHLD D0786 LXI H,T0794 MVI M,0 LXI H,T07A8 MVI M,0 LHLD BDOS+1 SHLD D077C RET ; A0387: LXI H,Y082B MOV M,B DCX H MOV M,C LDA D0773 RAR JC A044F LHLD Y082A SHLD Y082C LXI D,D077C CALL A0753 XCHG LXI H,00080H CALL A0710 XCHG SHLD Y082E LXI H,BDOS$VAL MVI M,000H A03B0: MVI A,0 LXI D,Y082E CALL A0750 ORA L ADI 0FFH SBB A PUSH PSW LDA BDOS$VAL SUI 000H SUI 001H SBB A POP B MOV C,B ANA C RAR JNC A03EE LHLD Y082C MOV B,H MOV C,L CALL A0331 LXI B,DFCB CALL A02E2 LXI D,00080H LHLD Y082C DAD D SHLD Y082C LHLD Y082E DCX H SHLD Y082E JMP A03B0 ; A03EE: LDA BDOS$VAL CPI 0 JZ A03FB LXI H,D0773 MVI M,0FFH A03FB: LHLD Y082C SHLD D0780 LXI B,00080H CALL A0331 LDA D0773 RAR JNC A042F LXI B,100H LXI D,Y082C CALL A0748 XCHG DCX H MOV M,E INX H MOV M,D A041C: LHLD Y082C MOV A,M CPI EOF JZ A042F LHLD Y082C INX H SHLD Y082C JMP A041C ; A042F: LHLD Y082C DCX H SHLD Y082C A0436: LHLD Y082C MOV A,M CPI 00AH JZ A0449 LHLD Y082C DCX H SHLD Y082C JMP A0436 ; A0449: LHLD Y082C SHLD D0782 A044F: RET ; A0450: LXI H,Y0832 MOV M,D DCX H MOV M,E DCX H MOV M,C LDA Y0830 CPI 0 JNZ A049B A0460: MVI A,0 LXI D,Y0831 CALL A0750 ORA L ADI 0FFH SBB A LXI B,D0782 LXI D,D077E PUSH PSW CALL A0743 SBB A POP B MOV C,B ANA C RAR JNC A0498 LHLD D077E MOV A,M CPI ALF JNZ A048E LHLD Y0831 DCX H SHLD Y0831 A048E: LHLD D077E INX H SHLD D077E JMP A0460 ; A0498: JMP A04ED ; A049B: LHLD Y0831 INX H SHLD Y0831 A04A2: MVI A,0 LXI D,Y0831 CALL A0750 ORA L ADI 0FFH SBB A LXI D,D077A LXI B,D077E PUSH PSW CALL A0743 SBB A POP B MOV C,B ANA C RAR JNC A04DA LHLD D077E MOV A,M CPI ALF JNZ A04D0 LHLD Y0831 DCX H SHLD Y0831 A04D0: LHLD D077E DCX H SHLD D077E JMP A04A2 ; A04DA: LXI D,D077A LXI B,D077E CALL A0743 JNC A04ED LHLD D077E INX H SHLD D077E A04ED: LHLD D077E SHLD D0786 RET ; A04F4: LXI H,Y0834 MVI M,0 LXI B,D0782 LXI D,D077E CALL A0743 JNC A0566 A0505: LHLD D077E MOV A,M STA Y0833 CPI ALF JZ A055A LDA Y0833 CPI 009H JZ A0527 LHLD Y0833 MOV C,L CALL PUT$CHAR LXI H,Y0834 INR M JMP A0550 ; A0527: LDA Y0834 ANI 007H MOV C,A MVI A,7 SUB C STA Y0836 LXI H,Y0835 MVI M,0 A0538: LDA Y0836 LXI H,Y0835 CMP M JC A0550 MVI C,' ' CALL PUT$CHAR LXI H,Y0834 INR M INX H INR M JNZ A0538 A0550: LHLD D077E INX H SHLD D077E JMP A0505 ; A055A: LHLD D077E INX H SHLD D077E MVI C,ALF CALL PUT$CHAR A0566: RET ; A0567: LHLD D0786 SHLD Y0838 SHLD D077E LXI H,Y0837 MVI M,1 A0575: MVI A,017H LXI H,Y0837 CMP M JC A0588 CALL A04F4 LXI H,Y0837 INR M JNZ A0575 A0588: LHLD D077E SHLD D0786 LHLD Y0838 SHLD D077E RET ; A0595: LXI H,Y083B MOV M,B DCX H MOV M,C MVI A,0 LXI D,Y083A CALL A0750 ORA L JNZ A05BC LXI B,D077E LXI D,D0780 CALL A0743 SHLD Y0840 LHLD D077E SHLD Y083E JMP A062B ; A05BC: LHLD D077A SHLD Y083C A05C2: MVI A,0 LXI D,Y083A CALL A0750 ORA L JZ A0619 LXI H,00017H SHLD Y0842 A05D4: MVI A,0 LXI D,Y0842 CALL A0750 ORA L JZ A060F LHLD Y083C MOV A,M CPI ALF JNZ A05F0 LHLD Y0842 DCX H SHLD Y0842 A05F0: LHLD Y083C INX H SHLD Y083C LXI D,D0782 CALL A0753 JNC A060C LXI H,0 SHLD Y0842 LXI H,1 SHLD Y083A A060C: JMP A05D4 ; A060F: LHLD Y083A DCX H SHLD Y083A JMP A05C2 ; A0619: LXI B,Y083C LXI D,D0780 CALL A0743 SHLD Y0840 LHLD Y083C SHLD Y083E A062B: LHLD Y0840 PUSH H LHLD Y083E MOV B,H MOV C,L LHLD D077A XCHG POP H A0639: LDAX B STAX D INX B INX D DCX H MOV A,H ORA L JNZ A0639 LXI B,D077A LXI D,Y083E CALL A0743 XCHG INX H MOV M,E INX H MOV M,D LXI D,Y083E LXI B,D077E CALL A0743 JNC A066E LXI B,Y0840 LXI D,D077E CALL A0743 XCHG DCX H MOV M,E INX H MOV M,D JMP A0674 ; A066E: LHLD D077A SHLD D077E A0674: LHLD D077E SHLD D0786 LXI B,Y0840 LXI D,D0780 CALL A0743 XCHG DCX H MOV M,E INX H MOV M,D LXI B,Y0840 LXI D,D0782 CALL A0743 XCHG DCX H MOV M,E INX H MOV M,D LHLD D0780 MOV B,H MOV C,L CALL A0387 RET ; A069F: LHLD D0775 MVI H,0 LXI B,T07A9 DAD B MOV A,M STA D0774 MOV C,A MVI A,'Z' CMP C JNC A06BB LDA D0774 ANI 0DFH STA D0774 A06BB: LDA D0775 INR A STA D0775 RET ; A06C3: MVI C,'*' CALL PUT$CHAR LXI B,T07A9 CALL A0287 MVI C,ALF CALL PUT$CHAR LDA D07AA STA D0776 CPI 0 JNZ A06E6 LXI H,D0774 MVI M,ACR JMP A06EE ; A06E6: LXI H,D0775 MVI M,2 CALL A069F A06EE: RET ; A06EF: LXI H,Y0844 MOV M,C LXI H,Y0844 LDA D0774 SUB M SUI 1 SBB A PUSH PSW LDA D0776 SUI 1 SUI 1 SBB A POP B MOV C,B ANA C RET ; TO$BDOS: JMP BDOS ; TO$WBOOT: JMP WBOOT ; A0710: MOV B,H MOV C,L LXI H,0 MVI A,010H A0717: PUSH PSW DAD H XCHG SUB A DAD H XCHG ADC L SUB C MOV L,A MOV A,H SBB B MOV H,A INX D JNC A0729 DAD B DCX D A0729: POP PSW DCR A JNZ A0717 RET ; A072F: MOV B,H MOV C,L LXI H,0 MVI A,010H A0736: DAD H XCHG DAD H XCHG JNC A073E DAD B A073E: DCR A JNZ A0736 RET ; A0743: MOV L,C MOV H,B MOV C,M INX H MOV B,M A0748: LDAX D SUB C MOV L,A INX D LDAX D SBB B MOV H,A RET ; A0750: MOV L,A MVI H,0 A0753: LDAX D SUB L MOV L,A INX D LDAX D SBB H MOV H,A RET ; ; ALLFLAG DB 0 ;'.ALL' file type flag BDOS$VAL: DB 06EH D075C: DB 006H D075D: DB 001H D075E: DB 040H T075F: DB 008H D0760: DB 011H T0761: DB 07EH D0762: DB 007H T0763: DB 0CDH D0764: DB 043H T0765: DB 007H D0766: DB 0EBH T0767: DB 02BH D0768: DB 073H T0769: DB 023H D076A: DB 072H T076B: DB 0C3H D076C: DB 074H T076D: DB 006H D076E: DB 02AH D076F: DB 07AH T0770: DB 007H D0771: DB 022H T0772: DB 07EH D0773: DB 007H D0774: DB 02AH D0775: DB 07EH D0776: DB 007H D0777: DB 022H D0778: DW 0 D077A: DW 0 D077C: DW 0 D077E: DW 0 D0780: DW 0 D0782: DW 0 D0784: DW 0 D0786: DW 0 DFCB: DB 0,0,0,0,0,0,0,0,0,0 ;Internal FCB DB 0,0 T0794: DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 T07A8: DB 07EH T07A9: DB 080H D07AA: DB 000H ; DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0,0,0,0,0,0 DB 0,0,0,0,0 ; NOT$FOUND$MSG: DB ' FILE NOT FOUND$' ; ILLEGAL$MSG: DB ' ILLEGAL COMMAND$' ; HELP$MSG: DB 'DISPLAY Version ' DB VERS/10 + '0','.',VERS MOD 10 + '0' DB ' HELP SUMMARY',ACR,ALF,ACR,ALF DB 'Command: Operation performed:',ACR,ALF DB '======= ===================',ACR,ALF DB 'B Move pointer to beginning of file and display page.',ACR,ALF,ACR,ALF DB '-nP Move pointer minus n pages and display page.',ACR,ALF DB 'nP Move pointer plus n pages and display page.',ACR,ALF DB '0P Move pointer to beginning of buffer and display page',ACR,ALF,ACR,ALF DB '-nL Move pointer minus n lines and display page.',ACR,ALF DB 'nL Move pointer plus n lines and display page.',ACR,ALF DB 'nD Discard n pages, refill buffer and display the',ACR,ALF DB ' current page.',ACR,ALF DB '0D Discard all data up to the current pointer, refill',ACR,ALF DB ' buffer and display the first page.',ACR,ALF,ACR,ALF DB 'E Exit DISPLAY and return to CP/M.',ACR,ALF DB '^C Control-C, exit DISPLAY and return to CP/M.',ACR,ALF,ACR,ALF DB '<cr> Move pointer to next page and display',ACR,ALF DB '$' ; Y082A DB 0 Y082B DB 0 Y082C DW 0 Y082E DW 0 Y0830 DB 0 Y0831 DB 0 Y0832 DB 0 Y0833 DB 0 Y0834 DB 0 Y0835 DB 0 Y0836 DB 0 Y0837 DB 0 Y0838 DW 0 Y083A DB 0 Y083B DB 0 Y083C DW 0 Y083E DW 0 Y0840 DW 0 Y0842 DW 0 Y0844 DW 0 ; DS 32 ; BUF$START EQU $ ; END