Is Andyw a troll from that caravanning forum?

[EternalOptimist]

Like ?

like

'there are 10 different opinions on the usefulness of binary, those that find it useful, and those that don't'


not like

'always pitch your tent on high ground in case of rain and dont leave your boots right ouside the flap in case they get peed in'

[Andyw]

like

'there are 10 different opinions on the usefulness of binary, those that find it useful, and those that don't'


not like

'always pitch your tent on high ground in case of rain and dont leave your boots right ouside the flap in case they get peed in'

I prefer coredumps and machine code ! thats the real techy spirit!

[Ardesco]

Can you explain this then Andyw?

10 ;
20 ; VISITOR.SRC2
30 ;
35 TXTBUF=$5041
40 OPNSCR=$5003
50 PRNTLN=$5031
55 BUFLEN=40
60 FILLCH=$20
70 ;
80  *=$0600
90 ;
0100 TEXT .BYTE $54, $41,$4B,$45,$20,$40,$45,$20
0110  .BYTE $54,$4F,$20,$59,$4F,$55,$52,$20
0120  .BYTE $4C,$45,$41,$44,$45,$52,$21
0130 ;
0140 VIZTOR
0145  PLA
0150  JSR FILL
0160  LDX #0
0170 LOOP LDA TEXT,X
0180  STA TXTBUF,X
0190  INX
0200  CPX #23
0210  BNE LOOP
0220  JSR OPNSCR
0230  JSR PRNTLN
0240  RTS
1300 FILL
1310  LDA #FILLCH
1320  LDX #BUFLEN
1330 START
1340  DEX
1350  STA TXTBUF,X
1360  BNE START
 1370  RTS

or is assembly language not your forte?

[Andyw]

Just made it into work have we ?

[bogeyman]

Can you explain this then Andyw?

10 ;
20 ; VISITOR.SRC2
30 ;
35 TXTBUF=$5041
40 OPNSCR=$5003
50 PRNTLN=$5031
55 BUFLEN=40
60 FILLCH=$20
70 ;
80  *=$0600
90 ;
0100 TEXT .BYTE $54, $41,$4B,$45,$20,$40,$45,$20
0110  .BYTE $54,$4F,$20,$59,$4F,$55,$52,$20
0120  .BYTE $4C,$45,$41,$44,$45,$52,$21
0130 ;
0140 VIZTOR
0145  PLA
0150  JSR FILL
0160  LDX #0
0170 LOOP LDA TEXT,X
0180  STA TXTBUF,X
0190  INX
0200  CPX #23
0210  BNE LOOP
0220  JSR OPNSCR
0230  JSR PRNTLN
0240  RTS
1300 FILL
1310  LDA #FILLCH
1320  LDX #BUFLEN
1330 START
1340  DEX
1350  STA TXTBUF,X
1360  BNE START
 1370  RTS

or is assembly language not your forte?

It's 6502 assembler and I claim my free copy of Caravanning Monthly.

[bogeyman]

What's this one then?

ICHRTX00 CSECT                                                          00002330
         SAVE  (14,12),,ICHRTX00.RACF18.&SYSDATE                        00002331
         LR    R12,R15                                                  00002350
         USING ICHRTX00,R12        Program base                         00002360
         USING SAFP,R9             Base for SAFP parameter list         00002370
         L     R9,0(R1)            Get addr. of SAF parameter list      00002380
*                                                                       00002390
         SR    R15,R15             Return code 0                        00002460
         LA    R2,SAFPVER          Request=verify request type          00002470
         CH    R2,SAFPREQT         Check request type                   00002480
         BNE   GOBACK              -not request=verify, return          00002490
         L     R8,SAFPRACP         Offset to RACINIT parameter list     00002500
         AR    R8,R9               Addr. of RACINIT parameter list.     00002510
*                                                                       00002520
         TM    3(R8),BIT0+BIT1     Is it envir=verify ?                 00002530
         BNO   GOBACK              -no, back to caller                  00002540
*                                                                       00002550
         SR    R2,R2               Load with zero.                      00002620
         ST    R2,SAFPRRET         Initialize return code               00002630
         ST    R2,SAFPRREA         Initialize reason code               00002640
         USING RTXWORK,R10         Base for work area                   00002650
         L     R10,4(R1)           Get addr. of workarea                00002660
         MVC   RTXACR,=C'RTXW'     Acronym to work area.                00002670
         EJECT