Create readable text `.bas' for each tokenized BASIC `,ffb' file.

[ssr] / StraySrc / MiscToys / PlainError / b / plainError.bas

REM
REM plainError
REM
REM Remove the irritating `Application has gone wrong' message.
REM
REM © 1996-1998 Mark Wooding
REM

REM ----- Licensing note ----------------------------------------------------
REM
REM PlainError is free software; you can redistribute it and/or modify
REM it under the terms of the GNU General Public License as published by
REM the Free Software Foundation; either version 2, or (at your option)
REM any later version
REM
REM PlainError is distributed in the hope that it will be useful,
REM but WITHOUT ANY WARRANTY; without even the implied warranty of
REM MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
REM GNU General Public License for more details.
REM
REM You should have received a copy of the GNU General Public License
REM along with PlainError.  If not, write to the Free Software Foundation,
REM 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.

help$="PlainError"+CHR$(9)+"1.02 (%dy %m3 %ce%yr) © %ce%yr Mark Wooding"

DIM code% 1024
!code%=3
SYS "OS_Word",14,code%
SYS "OS_ConvertDateAndTime",code%,code%+8,256,help$
SYS "XOS_GenerateError",code%+8 TO help$


FOR o=4 TO 6 STEP 2
O%=code%
P%=0

[ opt o

  dcd 0
  dcd init
  dcd final
  dcd service
  dcd title
  dcd help
  dcd 0

.title
  equz "PlainError"
  align

.init
  stmfd r13!,{r14}
  mov r0,#6
  mov r3,#256
  swi "XOS_Module"
  strvc r2,[r12,#0]
  ldmfd r13!,{pc}

.final
  stmfd r13!,{r14}
  mov r0,#7
  ldr r2,[r12,#0]
  swi "XOS_Module"
  mov r14,#0
  str r14,[r12,#0]
  ldmfd r13!,{pc}^

.service
  stmfd r13!,{r14}
  eor r14,r1,#&40000
  teq r14,#&c0
  ldmnefd r13!,{pc}^

  stmfd r13!,{r0,r1}
  ldr r12,[r12,#0]

  mov r14,#0
  str r14,[r12,#0]

  add r0,r12,#4
  add r2,r2,#4
.a
  ldrb r14,[r2],#1
  cmp r14,#&20
  movcc r14,#0
  strb r14,[r0],#1
  bcs a

  mov r2,r12
  ldmfd r13!,{r0,r1,pc}^

.help
  equz help$
  align

]
NEXT

SYS "OS_File",10,"PlainError",&FFA,,code%,O%
END