When printing field. Print full board

This commit is contained in:
2026-01-11 13:43:59 +01:00
parent 5ad0df290e
commit b7fb9a0551

View File

@@ -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.