When printing field. Print full board
This commit is contained in:
@@ -107,7 +107,7 @@ PFIELD: PUSH P,A ;Save the A register.
|
||||
PUSH P,C ;Save the contents of register C.
|
||||
PUSH P,X ;Save the contents of the index register.
|
||||
PUSH P,Y ;Save the contents of the Y register
|
||||
MOVEI C,033 ;Set a counter.
|
||||
MOVEI C,121 ;Set a counter.
|
||||
MOVE X,[440400,,FIELD] ;Store a bytepointer in X.
|
||||
PFIELN: .IOT CHTTYO,[^M] ;Print a carriage return.
|
||||
.IOT CHTTYO,[^J] ;Print a new line.
|
||||
@@ -122,8 +122,8 @@ PFIENO: MOVEI B,040 ;Print a space.
|
||||
SOJE C,PFIEEX ;Exit, if no more elements are read.
|
||||
ADDI B,060 ;Convert number into char.
|
||||
.IOT CHTTYO,B ;Print the number.
|
||||
.IOT CHTTYO,[040]
|
||||
.IOT CHTTYO,[174]
|
||||
.IOT CHTTYO,[040] ;Print a space
|
||||
.IOT CHTTYO,[174] ;Print a '|' symbol
|
||||
SOJE Y,PFIELN ;End the line and start a new one.
|
||||
JUMPA PFIENO ;Jump back to print the next number.
|
||||
|
||||
|
||||
Reference in New Issue
Block a user