mirror of https://github.com/callapple/LLUCE.git
53 lines
1.4 KiB
ArmAsm
53 lines
1.4 KiB
ArmAsm
|
|
; Fix board files
|
|
|
|
; turn off carrier detect
|
|
|
|
on nocar:
|
|
|
|
; get number of boards
|
|
|
|
open #1,"b:data2":mark(1)=1120:input #1,ab:close:tb$="f:temp"
|
|
|
|
; loop for all boards
|
|
|
|
for bb=1 to
|
|
|
|
; get board name and file name
|
|
|
|
open #1,"b:data2":position #1,128,bb+8:input
|
|
print "Fixing board: "bn$" Messages 1-";
|
|
|
|
; get board info
|
|
|
|
open #1,bf$:read #1,ram2,2:close:l=peek(ram2)+peek(ram2+1)
|
|
|
|
; make new board file
|
|
|
|
create tb$,6:open #1,tb$:write
|
|
for x=1 to
|
|
|
|
; get number of messages on current board
|
|
|
|
ready bf$:mt=msg(0):print mt" - "0;:for
|
|
print chr$(8,len(str$(a-1)))a;:edit clear
|
|
|
|
; read a message
|
|
|
|
input #msg(a),a$\b,b$\c,c$\d$\e$:copy #6,#8:x=msg(a):ready
|
|
|
|
; write it back out
|
|
|
|
print #msg(a),a$\b,b$\c,c$\d$\e$:copy #8,#6:msg(a)=x:next:print
|
|
|
|
; clear editor buffer, delete old file, and rename the new one
|
|
|
|
edit clear:ready " ":kill
|
|
|
|
; link back to the system
|
|
|
|
next:close:end
|
|
|
|
next:close:link "a1:system.seg"
|
|
|