github.com/wfjm.w11
1
0
Fork 0
mirror of https://github.com/wfjm/w11.git synced 2026-02-01 14:42:47 +00:00
Code Issues Releases Wiki Activity

minor changes and docu updates

Browse Source
This commit is contained in:
wfjm
2019-05-29 17:48:47 +02:00
parent e85de05938
commit ad82539ad8
22 changed files with 64 additions and 75 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
tools/mcode/dl11/dl11echo.mac
View File

@@ -1,4 +1,4 @@
; $Id: dl11echo.mac 1139 2019-04-27 14:00:38Z mueller $
; $Id: dl11echo.mac 1149 2019-05-12 21:00:29Z mueller $
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; License disclaimer see License.txt in $RETROBASE directory
;
@@ -171,21 +171,21 @@ chkesc: movb curchr,r0
; use r1,r2
;
hdldir: jsr pc,wchar ; direct mode
cmp #CR,r0 ; CR seen
cmpb #CR,r0 ; CR seen
bne 100$
jsr pc,wlf ; then add LF
100$: rts pc
hdllc: cmp r0,#'A ; lower case mode
hdllc: cmpb r0,#'A ; lower case mode
blt hdldir
cmp r0,#'Z
cmpb r0,#'Z
bgt hdldir
add #<'a-'A>,r0
br hdldir
hdluc: cmp r0,#'a ; upper case mode
hdluc: cmpb r0,#'a ; upper case mode
blt hdldir
cmp r0,#'z
cmpb r0,#'z
bgt hdldir
sub #<'a-'A>,r0
br hdldir
@@ -212,7 +212,7 @@ hdloct: mov r0,r2 ; octal mode
; print octal digit ------------------------------
; in r0 current character
;
woct: bic #370,r0 ; mask
woct: bic #177770,r0 ; mask
add #'0,r0 ; bin->ascii
jmp wchar ; and print
;

4
tools/mcode/lp11/lp11write.mac
View File

@@ -1,4 +1,4 @@
; $Id: lp11write.mac 1134 2019-04-21 17:18:03Z mueller $
; $Id: lp11write.mac 1152 2019-05-26 08:13:18Z mueller $
; Copyright 2019- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
; License disclaimer see License.txt in $RETROBASE directory
;
@@ -6,7 +6,7 @@
; Date Rev Version Comment
; 2019-04-21 1134 1.0 Initial version
;
; write test tape
; write test output
;
; definitions ----------------------------------------------
;