Different approach to open CHTTY

2025-08-03 14:07:22 +02:00
parent 123a73966f
commit e18db15be4
1 changed files with 2 additions and 1 deletions
--- a/src/SUDOKU.ASM
+++ b/src/SUDOKU.ASM
@@ -17,7 +17,8 @@ BPTR==440700                           ;Define a byte pointer.
 CHTTYO==1                              ;Define a channel for TTY output.

 START:    MOVE  P,[-PDLLEN,,PDL-1]     ;Initialize the stack.
-          .OPEN CHTTYO,[.UAO,,'TTY]    ;Open the output channel.
+          .CALL  [SETZ ? SIXBIT/OPEN/
+		          [.UAO,,CHTTYO] ? [SIXBIT/TTY/] ((SETZ))]
           .LOSE %LSFIL                ;Gobble up error messages.
          MOVE  A,[BPTR,,HELLO]        ;Load A with a byte pointer to HELLO.
          JRST  DONE                   ;Jump to the end of the program.