github/MS-DOS
1
0
Fork 0
mirror of https://github.com/Microsoft/MS-DOS.git synced 2025-08-22 06:23:37 -07:00
Code Issues Projects Releases Packages Wiki Activity Actions

Consistent Spacing after semi-colon for IO.ASM

Browse source
This commit is contained in:
bsinkule 2018-10-31 11:55:45 -06:00 • committed by GitHub
commit 660f709ce9
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
1 changed files with 87 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

172
v1.25/source/IO.ASM
View file

@ -152,11 +152,11 @@ INIT:
; Initialize time-of-day clock. ; Initialize time-of-day clock.
; ;
MOV SI,STCTAB MOV SI,STCTAB
MOV CX,4 ;Initialize 4 registers MOV CX,4 ; Initialize 4 registers
UP UP
INITSTC: INITSTC:
LODB LODB
OUT STCCOM ;Select register to initialize OUT STCCOM ; Select register to initialize
LODB LODB
OUT STCDATA OUT STCDATA
LODB LODB
@ -170,9 +170,9 @@ SERINIT:
OUT SIOBASE+1 OUT SIOBASE+1
OUT SIOBASE+3 OUT SIOBASE+3
LOOP SERINIT LOOP SERINIT
LODB ;Baud rate for channel 0 LODB ; Baud rate for channel 0
OUT SIOBASE+8 OUT SIOBASE+8
LODB ;Baud rate for channel 1 LODB ; Baud rate for channel 1
OUT SIOBASE+9 OUT SIOBASE+9
ENDIF ENDIF
; ;
@ -198,62 +198,62 @@ SERINIT:
MOV W,[BP+38*4],DIRECTWRITE MOV W,[BP+38*4],DIRECTWRITE
MOV DX,100H MOV DX,100H
MOV AH,26 ;Set DMA address MOV AH,26 ; Set DMA address
INT 33 INT 33
MOV CX,[6] ;Get size of segment MOV CX,[6] ; Get size of segment
MOV BX,DS ;Save segment for later MOV BX,DS ; Save segment for later
; ;
; DS must be set to CS so we can point to the FCB. ; DS must be set to CS so we can point to the FCB.
; ;
MOV AX,CS MOV AX,CS
MOV DS,AX MOV DS,AX
MOV DX,FCB ;File Control Block for COMMAND.COM MOV DX,FCB ; File Control Block for COMMAND.COM
MOV AH,15 MOV AH,15
INT 33 ;Open COMMAND.COM INT 33 ; Open COMMAND.COM
OR AL,AL OR AL,AL
JNZ COMERR ;Error if file not found JNZ COMERR ; Error if file not found
XOR AX,AX XOR AX,AX
MOV [FCB+33],AX ; Set 4-byte Random Record field to MOV [FCB+33],AX ; Set 4-byte Random Record field to
MOV [FCB+35],AX ; beginning of file. MOV [FCB+35],AX ; beginning of file.
INC AX INC AX
MOV [FCB+14],AX ;Set record length field MOV [FCB+14],AX ; Set record length field
MOV AH,39 ;Block read (CX already set) MOV AH,39 ; Block read (CX already set)
INT 33 INT 33
JCXZ COMERR ;Error if no records read JCXZ COMERR ; Error if no records read
TEST AL,1 TEST AL,1
JZ COMERR ;Error if not end-of-file JZ COMERR ; Error if not end-of-file
; ;
; Make all segment registers the same. ; Make all segment registers the same.
; ;
MOV DS,BX MOV DS,BX
MOV ES,BX MOV ES,BX
MOV SS,BX MOV SS,BX
MOV SP,5CH ;Set stack to standard value MOV SP,5CH ; Set stack to standard value
XOR AX,AX XOR AX,AX
PUSH AX ;Put zero on top of stack for return PUSH AX ; Put zero on top of stack for return
MOV DX,80H MOV DX,80H
MOV AH,26 MOV AH,26
INT 33 ;Set default transfer address (DS:0080) INT 33 ; Set default transfer address (DS:0080)
PUSH BX ;Put segment on stack PUSH BX ; Put segment on stack
MOV AX,100H MOV AX,100H
PUSH AX ;Put address to execute within segment on stack PUSH AX ; Put address to execute within segment on stack
RET L ;Jump to COMMAND RET L ; Jump to COMMAND
COMERR: COMERR:
MOV DX,BADCOM MOV DX,BADCOM
MOV AH,9 ;Print string MOV AH,9 ; Print string
INT 33 INT 33
EI EI
STALL: JP STALL STALL: JP STALL
STCTAB: DB 17H ;Select master mode register STCTAB: DB 17H ; Select master mode register
DW 84F3H ;Enable time-of-day DW 84F3H ; Enable time-of-day
DB 1 ;Counter 1 mode register DB 1 ; Counter 1 mode register
DW 0138H DW 0138H
DB 2 DB 2
DW 0038H DW 0038H
DB 3 DB 3
DW 0008H ;Set counter 3 to count days DW 0008H ; Set counter 3 to count days
IF SERIAL IF SERIAL
DB 0B7H, 77H, 4EH, 37H, PRNBAUD, AUXBAUD DB 0B7H, 77H, 4EH, 37H, PRNBAUD, AUXBAUD
@ -266,20 +266,20 @@ FCB: DB 1,"COMMAND COM"
; ************ Time and Date ************ ; ************ Time and Date ************
; ;
GETTIME: GETTIME:
MOV AL,0A7H ;Save counters 1,2,3 MOV AL,0A7H ; Save counters 1,2,3
OUT STCCOM OUT STCCOM
MOV AL,0E0H ;Enable data pointer sequencing MOV AL,0E0H ; Enable data pointer sequencing
OUT STCCOM OUT STCCOM
MOV AL,19H ;Select hold 1 / hold cycle MOV AL,19H ; Select hold 1 / hold cycle
OUT STCCOM OUT STCCOM
CALL STCTIME ;Get seconds & 1/100's CALL STCTIME ; Get seconds & 1/100's
XCHG AX,DX XCHG AX,DX
CALL STCTIME ;Get hours & minutes CALL STCTIME ; Get hours & minutes
XCHG AX,CX XCHG AX,CX
IN STCDATA IN STCDATA
MOV AH,AL MOV AH,AL
IN STCDATA IN STCDATA
XCHG AL,AH ;Count of days XCHG AL,AH ; Count of days
JP POINTSTAT JP POINTSTAT
STCTIME: STCTIME:
@ -292,8 +292,8 @@ STCBYTE:
SHR AH SHR AH
SHR AH SHR AH
SHR AH SHR AH
AND AL,0FH ;Unpack BCD digits AND AL,0FH ; Unpack BCD digits
AAD ;Convert to binary AAD ; Convert to binary
MOV AH,AL MOV AH,AL
MOV AL,CL MOV AL,CL
RET RET
@ -301,16 +301,16 @@ STCBYTE:
SETTIME: SETTIME:
PUSH CX PUSH CX
PUSH DX PUSH DX
CALL LOAD0 ;Put 0 into load registers to condition timer CALL LOAD0 ; Put 0 into load registers to condition timer
MOV AL,43H ;Load counters 1 & 2 MOV AL,43H ; Load counters 1 & 2
OUT STCCOM OUT STCCOM
POP DX POP DX
POP CX POP CX
CALL LOAD CALL LOAD
MOV AL,43H MOV AL,43H
OUT STCCOM ;Load counters 1&2 OUT STCCOM ; Load counters 1&2
CALL LOAD0 CALL LOAD0
MOV AL,27H ;Arm counters 1,2,3 MOV AL,27H ; Arm counters 1,2,3
OUT STCCOM OUT STCCOM
JP POINTSTAT JP POINTSTAT
@ -318,39 +318,39 @@ LOAD0:
XOR CX,CX XOR CX,CX
MOV DX,CX MOV DX,CX
LOAD: LOAD:
MOV AL,09 ;Counter 1 load register MOV AL,09 ; Counter 1 load register
CALL OUTDX CALL OUTDX
MOV AL,0AH ;Counter 2 load register MOV AL,0AH ; Counter 2 load register
MOV DX,CX MOV DX,CX
OUTDX: OUTDX:
OUT STCCOM ;Select a load register OUT STCCOM ; Select a load register
MOV AL,DL MOV AL,DL
CALL OUTBCD CALL OUTBCD
MOV AL,DH MOV AL,DH
OUTBCD: OUTBCD:
AAM ;Convert binary to unpacked BCD AAM ; Convert binary to unpacked BCD
SHL AH SHL AH
SHL AH SHL AH
SHL AH SHL AH
SHL AH SHL AH
OR AL,AH ;Packed BCD OR AL,AH ; Packed BCD
OUT STCDATA OUT STCDATA
RET RET
SETDATE: SETDATE:
XCHG AX,DX ;Put date in DX XCHG AX,DX ; Put date in DX
MOV AL,0BH ;Select Counter 3 load register MOV AL,0BH ; Select Counter 3 load register
OUT STCCOM OUT STCCOM
XCHG AX,DX XCHG AX,DX
OUT STCDATA OUT STCDATA
MOV AL,AH MOV AL,AH
OUT STCDATA OUT STCDATA
MOV AL,44H ;Load counter 3 MOV AL,44H ; Load counter 3
OUT STCCOM OUT STCCOM
POINTSTAT: POINTSTAT:
PUSH AX PUSH AX
MOV AL,1FH ;Point to status register MOV AL,1FH ; Point to status register
OUT STCCOM ; so power-off glitches won't hurt OUT STCCOM ; so power-off glitches won't hurt
POP AX POP AX
RET L RET L
; ;
@ -405,9 +405,9 @@ QUEUE: DB -1 ; For storing characters from STATUS to INP.
KBINT: KBINT:
PUSH AX PUSH AX
PUSH SI PUSH SI
MOV AL,20H ;End of Interrupt command MOV AL,20H ; End of Interrupt command
OUT BASE+2 ;Send to slave OUT BASE+2 ; Send to slave
IN DATA ;Get the character IN DATA ; Get the character
AND AL,7FH AND AL,7FH
CMP AL,"C"-"@" CMP AL,"C"-"@"
JZ FLSH JZ FLSH
@ -419,15 +419,15 @@ FLSH:
CALL 13*3,BIOSSEG ; Call I/O system keyboard buffer flush. CALL 13*3,BIOSSEG ; Call I/O system keyboard buffer flush.
SAVKY: SAVKY:
SEG CS SEG CS
MOV SI,[REAR] ;Pointer to rear of queue MOV SI,[REAR] ; Pointer to rear of queue
CALL INCQ CALL INCQ
SEG CS SEG CS
CMP SI,[FRONT] ;Any room in queue? CMP SI,[FRONT] ; Any room in queue?
JZ QFULL JZ QFULL
SEG CS SEG CS
MOV [SI],AL ;Put character in queue MOV [SI],AL ; Put character in queue
SEG CS SEG CS
MOV [REAR],SI ;Save pointer MOV [REAR],SI ; Save pointer
LEAVINT: LEAVINT:
POP SI POP SI
POP AX POP AX
@ -446,11 +446,11 @@ STATUS:
SEG CS SEG CS
MOV SI,[PFRONT] MOV SI,[PFRONT]
SEG CS SEG CS
CMP SI,[PREAR] ;Anything in print queue? CMP SI,[PREAR] ; Anything in print queue?
JNZ SENDPRN JNZ SENDPRN
SEG CS SEG CS
CMP B,[PRNFCB],-1 ;Print spooling in progress? CMP B,[PRNFCB],-1 ; Print spooling in progress?
JZ NOPRN ;If not, nothing to print JZ NOPRN ; If not, nothing to print
;Print spooling in progress. Get next buffer ;Print spooling in progress. Get next buffer
PUSH DS PUSH DS
PUSH CS PUSH CS
@ -463,15 +463,15 @@ STATUS:
PUSH [DMAADD] PUSH [DMAADD]
PUSH [DMAADD+2] PUSH [DMAADD+2]
MOV DX,PQUEUE MOV DX,PQUEUE
MOV AH,26 ;Set DMA address MOV AH,26 ; Set DMA address
INT 33 INT 33
MOV DX,PRNFCB MOV DX,PRNFCB
MOV CX,PBUFSIZ MOV CX,PBUFSIZ
MOV AH,39 ;Read buffer MOV AH,39 ; Read buffer
INT 33 INT 33
OR AL,AL OR AL,AL
JZ NOTEOF JZ NOTEOF
MOV B,[PRNFCB],-1 ;Turn off print spooling at EOF MOV B,[PRNFCB],-1 ; Turn off print spooling at EOF
NOTEOF: NOTEOF:
POP [DMAADD+2] POP [DMAADD+2]
POP [DMAADD] POP [DMAADD]
@ -493,7 +493,7 @@ SENDPRN:
SEG CS SEG CS
MOV [PFRONT],SI MOV [PFRONT],SI
SEG CS SEG CS
LODSB ;Get character to print LODSB ; Get character to print
OUT PRNDATA OUT PRNDATA
NOPRN: NOPRN:
DI ; Disable interrupts while checking queue. DI ; Disable interrupts while checking queue.
@ -504,12 +504,12 @@ NOPRN:
JZ NOCHR ; Jump if nothing in queue. JZ NOCHR ; Jump if nothing in queue.
CALL INCQ CALL INCQ
SEG CS SEG CS
LODSB ;Get character (if there is one) LODSB ; Get character (if there is one)
OR SI,SI ;Reset zero flag OR SI,SI ; Reset zero flag
NOCHR: NOCHR:
EI EI
POP SI POP SI
RET L ;Zero clear if we have a character RET L ; Zero clear if we have a character
INP: INP:
CALL STATUS,BIOSSEG ; Get I/O system console input status. CALL STATUS,BIOSSEG ; Get I/O system console input status.
@ -536,14 +536,14 @@ FLUSH:
INCQ: INCQ:
INC SI INC SI
CMP SI,ENDQ ;Exceeded length of queue? CMP SI,ENDQ ; Exceeded length of queue?
JB RET JB RET
MOV SI,QUEUE MOV SI,QUEUE
RET RET
INCPQ: INCPQ:
INC SI INC SI
CMP SI,ENDPQ ;Exceeded length of queue? CMP SI,ENDPQ ; Exceeded length of queue?
JB RET JB RET
MOV SI,PQUEUE MOV SI,PQUEUE
RET RET
@ -584,7 +584,7 @@ PRINLP:
JNZ PRNCHR JNZ PRNCHR
;Print queue is full ;Print queue is full
PUSH AX PUSH AX
CALL STATUS,BIOSSEG ;Poll and maybe print something CALL STATUS,BIOSSEG ; Poll and maybe print something
POP AX POP AX
JMPS PRINLP JMPS PRINLP
PRNCHR: PRNCHR:
@ -836,16 +836,16 @@ MOTORSON:
; 12 = "disk" (none of the above) error ; 12 = "disk" (none of the above) error
; ;
READ: READ:
CALL SEEK ;Position head CALL SEEK ; Position head
JC ERROR JC ERROR
PUSH ES ; Make ES same as DS. PUSH ES ; Make ES same as DS.
MOV BX,DS MOV BX,DS
MOV ES,BX MOV ES,BX
RDLP: RDLP:
CALL READSECT ;Perform sector read CALL READSECT ; Perform sector read
JC POPESERROR JC POPESERROR
INC DH ;Next sector number INC DH ; Next sector number
LOOP RDLP ;Read each sector requested LOOP RDLP ; Read each sector requested
CLC ; No errors. CLC ; No errors.
POP ES ; Restore ES register. POP ES ; Restore ES register.
RET L RET L
@ -854,13 +854,13 @@ RDLP:
; Registers same on entry and exit as read above. ; Registers same on entry and exit as read above.
; ;
WRITE: WRITE:
CALL SEEK ;Position head CALL SEEK ; Position head
JC ERROR JC ERROR
WRTLP: WRTLP:
CALL WRITESECT ;Perform sector write CALL WRITESECT ; Perform sector write
JC ERROR JC ERROR
INC DH ;Bump sector counter INC DH ; Bump sector counter
LOOP WRTLP ;Write CX sectors LOOP WRTLP ; Write CX sectors
CLC ; No errors. CLC ; No errors.
WRITERET: WRITERET:
RET L RET L
@ -884,13 +884,13 @@ GETCOD:
RET L RET L
ERRTAB: ERRTAB:
DB 40H ;Write protect error DB 40H ; Write protect error
DB 80H ;Not ready error DB 80H ; Not ready error
DB 8 ;CRC error DB 8 ; CRC error
DB 2 ;Seek error DB 2 ; Seek error
DB 10H ;Sector not found DB 10H ; Sector not found
DB 20H ;Write fault DB 20H ; Write fault
DB 7 ;"Disk" error DB 7 ; "Disk" error
; ;
; Direct disk read and write from INT 37 and INT 38. Subroutine GETIODRIVER ; Direct disk read and write from INT 37 and INT 38. Subroutine GETIODRIVER
; calls DSKCHG to convert disk drive number to I/O driver number. ; calls DSKCHG to convert disk drive number to I/O driver number.
@ -1357,7 +1357,7 @@ RESTORE:
IF FASTSEEK*CROMEMCO4FDC IF FASTSEEK*CROMEMCO4FDC
RESTORE: RESTORE:
MOV AL,0C4H ;READ ADDRESS command to keep head loaded MOV AL,0C4H ; READ ADDRESS command to keep head loaded
OUT DISK OUT DISK
MOV AL,77H MOV AL,77H
OUT 4 OUT 4
@ -1369,13 +1369,13 @@ CHKRES:
TEST AL,DONEBIT TEST AL,DONEBIT
JZ CHKRES JZ CHKRES
IN DISK IN DISK
JP RESTORE ;Reload head JP RESTORE ; Reload head
RESDONE: RESDONE:
MOV AL,7FH MOV AL,7FH
OUT 4 OUT 4
CALL GETSTAT CALL GETSTAT
MOV AL,0 MOV AL,0
OUT DISK+1 ;Tell 1771 we're now on track 0 OUT DISK+1 ; Tell 1771 we're now on track 0
RET RET
ENDIF ENDIF
@ -1413,7 +1413,7 @@ MOVHEAD:
DCOM: DCOM:
OUT DISK OUT DISK
PUSH AX PUSH AX
AAM ;Delay 10 microseconds AAM ; Delay 10 microseconds
POP AX POP AX
GETSTAT: GETSTAT:
IN DISK+4 IN DISK+4